Hetosoft Sistemas

Atualizei os fontes do acbr e o cte que era 1.4 abilitei o 2.0 depois disso nao consigo mais compilar o projeto da erro na seguinte linha Erro: comando nao existe. with Rem.InfNF.Add do comando: case DM12.Client_CteNFTIPO.AsInteger of 1: begin with Rem.InfNF.Add do begin nRoma := ''; nPed := DM12.Client_CteNFNUMDOC.AsString; serie := DM12.Client_CteNFSER.AsString; nDoc := DM12.Client_CteNFNUMDOC.AsString; dEmi := DM12.Client_CteNFDATAEMISSAO.AsDateTime; vBC := 0; vICMS := 0; vBCST := 0; vST := 0; vProd := DM12.Client_CteNFVALORDOC.AsFloat; vNF := DM12.Client_CteNFVALORDOC.AsFloat; nCFOP := StrToInt(cfop); nPeso := 0; PIN := ''; end;

atualizei o acbr hoje de manha e deu erro ao compilar ACBr_BoletoFC_Quick fala que as dcu's RLFilters, RLPDFFilter nao existe na pasta, procurei os arquivos e nao achei, o que eu faço.

Eu tambem estou com o mesmo problema, a messagem é download concluido . nais o nome fica Arquivo.exe.part e mesmo renomeando ele nao tem conteudo tamanho 0kb o que devo fazer ja coloquei o bufferSize de varios tambanho e nada.

BLZ porque ate o codigo do Servico: tava a variavel e nao o cod 01.05 / Licednciamento ou cessao de idreito de uso de programas de computacao

posso voltar as pasta fontes da versao anteriro que tem a pasta D:\All_Delphi\ACBr_7 Antigo\Fontes\ACBrNFSe\DANFSE_QR3

tem componete do FastReport para BOLETO, NF-E , NFS-E, CT-E ? Uso todos o qreport. falar nisso depois que atualizai a nfs-e no relatorio qreport 5.02 delphi 7 a DATA DE SERVICO no top da nfs-e ta saida o nome da vliavel em vez da data (qrlDataSer)

Como façor para manda nfs-e para dois email juntos ex: [email protected]; [email protected] sem usar a //CC.Add('[email protected]'); //especifique um email válido //CC.Add('[email protected]'); //especifique um email válido usando o Para:= [email protected]; [email protected] Da erro ao enviar SMTP ERROR: MailPermanent Failure-Bad if OpenDialog1.Execute then begin ACBrCTe1.Conhecimentos.Clear; ACBrCTe1.Conhecimentos.LoadFromFile(OpenDialog1.FileName); CC:=TstringList.Create; //CC.Add('[email protected]'); //especifique um email válido //CC.Add('[email protected]'); //especifique um email válido try mmEmailMsg.Text:=dm.Client_MERCADOFANTASIA.Text+' Nº '+DM12.Client_NotaFiscalNUMERO.Text; ACBrCTe1.Conhecimentos.Items[0].EnviarEmail(Trim(edtSmtpHost.Text) , Trim(edtSmtpPort.Text) , Trim(edtSmtpUser.Text) , Trim(edtSmtpPass.Text) , Trim(edtSmtpUser.Text) , Para , edtEmailAssunto.Text , mmEmailMsg.Lines , cbEmailSSL.Checked , True //Enviar PDF junto , nil //Lista com emails que serão enviado cópias - TStrings , nil // Lista de anexos - TStrings , False ); //Pede confirmação de leitura do email CC.Free; MessagemH(3,'Enviado com Sucesso !!!'); except MessagemH(2,'Erro ao enviar !!!'); end; end;

Isaque Pinheiro instalaei o qreport 5.02 e subistituir os arquivos ACBrNFSeDANFSeQRRetrato.zip tudo blz, vc vai colocar no servidor svn://svn.code.sf.net/p/acbr/code ?

sim instalaei o qreport 5.02 e subistituir os arquivos e compilei tudo de novo, agora blz, mais ainda preferia a pasta D:\All_Delphi\ACBr_7 Antigo\Fontes\ACBrNFSe\DANFSE_QR3

ta dano erro ao compilar o ACBrNFSeDanfseQRpkg Erro Cannot load package QR5RunD7 it contains uni QRExpr which is also contained in packge QR4RunD7 sabendo que uso o QREPORT 4.6 Esse ja resolvir mudei o {$IFDEF VER150} QR4RunD7, vcljpg; {$ENDIF} // D7 {$IFDEF VER200} QR5RunD2009, vclimg; {$ENDIF} // D2009 {$IFDEF VER210} QR5RunD2010, vclimg; {$ENDIF} // D2010 {$IFDEF VER220} QR5RunDXE, vclimg; {$ENDIF} // XE {$IFDEF VER230} QR5RunDXE2, vclimg; {$ENDIF} //XE2 {$IFDEF VER240} QR5RunDXE3, vclimg; {$ENDIF} //XE3 Cara piro tudo aqui, tava tudo 100% com essa mudanca da pasta D:\All_Delphi\ACBr_7 Antigo\Fontes\ACBrNFSe\DANFSE_QR3

que compricacao porque nao deixa como tava, so substituir a arquivos e pronto. mais tudo otimo, o acbr é o top dos componentes. acompanhei o txt, e agora ta dando erro aqui unit ACBrNFSeDANFSeQRRetrato; if trim(FNFSe.Servico.Descricao) = '' then qrlCodServico.Caption := FNFSe.Servico.ItemListaServico + ' / ' + messagem erro [Error] ACBrNFSeDANFSeQRRetrato.pas(412): Undeclared identifier: 'qrlCodServico'

Antes de troca o servidor do ACBr que era (https://acbr.svn.sourceforge.net/svnroot/acbr) tinha estar pasta aqui D:\All_Delphi\ACBr_7 Antigo\Fontes\ACBrNFSe\DANFSE_QR3 eu usor delphi 7 qreport 4 so copiar os arquivos para D:\All_Delphi\ACBr_7 Antigo\Fontes\ACBrNFSe e pronto , depois que mudou para svn://svn.code.sf.net/p/acbr/code nao tem mais esta pasta, e agora ta dando erro ao imprimir nfs-e Erro reading QRNFSe.Page.Continuous: Property Continuous does not exit o que devo fazer agora. ta tudo parado.

Varzea grande( ISS.NET ) so usar o Gerar e Enviar Lote

Sempre atualize os fontes do ACBrNFSe , blz, procedure TfrmDemo_ACBrNFSe.btnGerarEnviarLoteClick(Sender: TObject); var vAux, vNumLote : String; begin if not(InputQuery('Gerar e Enviar Lote', 'Numero do RPS', vAux)) then exit; if not(InputQuery('Gerar e Enviar Lote', 'Numero do Lote', vNumLote)) then exit; ACBrNFSe1.NotasFiscais.Clear; GerarNFSe(vAux); ACBrNFSe1.Enviar(vNumLote); Memo1.Lines.Add( ACBrNFSe1.WebServices.RecepcaoLoteRps ); Memo1.Lines.Add( ACBrNFSe1.WebServices.ConsLote.Protocolo ); Memo1.Lines.Add( ACBrNFSe1.WebServices.ConsSitLote.Protocolo ); Memo1.Lines.Add( ACBrNFSe1.NotasFiscais.Items[0].NFSe.Protocolo ); Memo1.Lines.Add( DateToStr( ACBrNFSe1.NotasFiscais.Items[0].NFSe.dhRecebimento ) ); Memo1.Lines.Add( ACBrNFSe1.NotasFiscais.Items[0].NFSe.Numero ); Memo1.Lines.Add( ACBrNFSe1.NotasFiscais.Items[0].NFSe.CodigoVerificacao );

Sim ronei ta 100%, vou te mostra minha configuracao para homologacao ok procedure TfrmDemo_ACBrNFSe.btnGerarEnviarLoteClick(Sender: TObject); var vAux, vNumLote : String; begin if not(InputQuery('Gerar e Enviar Lote', 'Numero do RPS', vAux)) then exit; if not(InputQuery('Gerar e Enviar Lote', 'Numero do Lote', vNumLote)) then exit; ACBrNFSe1.NotasFiscais.Clear; GerarNFSe(vAux); ACBrNFSe1.Enviar(vNumLote); Memo1.Lines.Add( ACBrNFSe1.WebServices.RecepcaoLoteRps ); Memo1.Lines.Add( ACBrNFSe1.WebServices.ConsLote.Protocolo ); Memo1.Lines.Add( ACBrNFSe1.WebServices.ConsSitLote.Protocolo ); Memo1.Lines.Add( ACBrNFSe1.NotasFiscais.Items[0].NFSe.Protocolo ); Memo1.Lines.Add( DateToStr( ACBrNFSe1.NotasFiscais.Items[0].NFSe.dhRecebimento ) ); Memo1.Lines.Add( ACBrNFSe1.NotasFiscais.Items[0].NFSe.Numero ); Memo1.Lines.Add( ACBrNFSe1.NotasFiscais.Items[0].NFSe.CodigoVerificacao ); -------------------------------------------------------------------------------------- procedure TfrmDemo_ACBrNFSe.GerarNFSe(NumNFSe: String); var ValorISS: Double; begin ACBrNFSe1.NotasFiscais.Clear; with ACBrNFSe1 do begin NotasFiscais.NumeroLote:='0001'; with NotasFiscais.Add.NFSe do begin IdentificacaoRps.Numero := FormatFloat('#########0', StrToInt(NumNFSe)); // Para o provedor ISS.NET em ambiente de Homologação mudar a série para '8' IdentificacaoRps.Serie := '8'; // TnfseTipoRPS = ( trRPS, trNFConjugada, trCupom ); IdentificacaoRps.Tipo := trRPS; DataEmissao := Date; // TnfseNaturezaOperacao = ( noTributacaoNoMunicipio, noTributacaoForaMunicipio, noIsencao, noImune, noSuspensaDecisaoJudicial, noSuspensaProcedimentoAdministrativo ); NaturezaOperacao := noTributacaoNoMunicipio; // NaturezaOperacao := noTributacaoNoMunicipio51; // TnfseRegimeEspecialTributacao = ( retNenhum, retMicroempresaMunicipal, retEstimativa, retSociedadeProfissionais, retCooperativa, retMicroempresarioIndividual, retMicroempresarioEmpresaPP ); // RegimeEspecialTributacao := retNenhum; RegimeEspecialTributacao := retMicroempresaMunicipal; // TnfseSimNao = ( snSim, snNao ); OptanteSimplesNacional := snSim; // TnfseSimNao = ( snSim, snNao ); IncentivadorCultural := snSim; // TnfseSimNao = ( snSim, snNao ); // snSim = Ambiente de Produção // snNao = Ambiente de Homologação Producao := snNao; // TnfseStatusRPS = ( srNormal, srCancelado ); Status := srNormal; (* Usando quando o RPS for substituir outro RpsSubstituido.Numero := FormatFloat('#########0', i); RpsSubstituido.Serie := 'UNICA'; // TnfseTipoRPS = ( trRPS, trNFConjugada, trCupom ); RpsSubstituido.Tipo := trRPS; *) Servico.Valores.ValorServicos := 100.00; Servico.Valores.ValorDeducoes := 0.00; Servico.Valores.ValorPis := 0.00; Servico.Valores.ValorCofins := 0.00; Servico.Valores.ValorInss := 0.00; Servico.Valores.ValorIr := 0.00; Servico.Valores.ValorCsll := 0.00; // TnfseSituacaoTributaria = ( stRetencao, stNormal, stSubstituicao ); // stRetencao = snSim // stNormal = snNao Servico.Valores.IssRetido := stNormal; Servico.Valores.OutrasRetencoes := 0.00; Servico.Valores.DescontoIncondicionado := 0.00; Servico.Valores.DescontoCondicionado := 0.00; Servico.Valores.BaseCalculo := Servico.Valores.ValorServicos - Servico.Valores.ValorDeducoes - Servico.Valores.DescontoIncondicionado; Servico.Valores.Aliquota := 2.00; if Servico.Valores.IssRetido = stNormal then begin ValorISS := Servico.Valores.BaseCalculo * Servico.Valores.Aliquota; ValorISS := 2.00; // A função RoundTo5 é usada para arredondar valores, sendo que o segundo // parametro se refere ao numero de casas decimais. // exemplos: RoundTo5(50.532, -2) ==> 50.53 // exemplos: RoundTo5(50.535, -2) ==> 50.54 // exemplos: RoundTo5(50.536, -2) ==> 50.54 Servico.Valores.ValorIss := RoundTo5(ValorISS, -2); Servico.Valores.ValorIssRetido := 0.00; end else begin ValorISS := Servico.Valores.BaseCalculo * Servico.Valores.Aliquota; ValorISS := 2.00; Servico.Valores.ValorIss := 0.00; Servico.Valores.ValorIssRetido := RoundTo5(ValorISS, -2); end; Servico.Valores.ValorLiquidoNfse := Servico.Valores.ValorServicos - Servico.Valores.ValorPis - Servico.Valores.ValorCofins - Servico.Valores.ValorInss - Servico.Valores.ValorIr - Servico.Valores.ValorCsll - Servico.Valores.OutrasRetencoes - Servico.Valores.ValorIssRetido - Servico.Valores.DescontoIncondicionado - Servico.Valores.DescontoCondicionado; Servico.ItemListaServico := '105'; //'01.07'; // Para o provedor ISS.NET em ambiente de Homologação // o Codigo CNAE tem que ser '6511102' Servico.CodigoCnae := '6511102'; Servico.CodigoTributacaoMunicipio := '50000024'; //VARZEA GRANDE - MT pegue da sua cidade //Servico.CodigoCnae := '6202300'; // Informação Opcional //Servico.CodigoTributacaoMunicipio := '7221400'; //'118879'; Servico.Discriminacao := 'Aluguel de SoftWare'; //'discriminacao'; // Para o provedor ISS.NET em ambiente de Homologação // o Codigo do Municipio tem que ser '999' //Servico.CodigoMunicipio := edtCodCidade.Text; Servico.CodigoMunicipio :='999'; // Informar A Exigibilidade ISS para fintelISS [1/2/3/4/5/6/7] Servico.ExigibilidadeISS := exiExigivel; // Informar para Saatri Servico.CodigoPais := 1058; // Brasil Servico.MunicipioIncidencia := StrToIntDef(edtCodCidade.Text, 0); with Servico.ItemServico.Add do begin Descricao := 'SERVICO 1'; Quantidade := 1; ValorUnitario := 100.00; end; Prestador.Cnpj := edtEmitCNPJ.Text; Prestador.InscricaoMunicipal := edtEmitIM.Text; // Para o provedor ISSDigital deve-se informar também: Prestador.Senha := 'senha'; Prestador.FraseSecreta := 'frase secreta'; Prestador.cUF := 33; Tomador.IdentificacaoTomador.CpfCnpj := '03953552000102'; //Tomador.IdentificacaoTomador.InscricaoMunicipal := '20370'; Tomador.IdentificacaoTomador.InscricaoMunicipal := ''; Tomador.RazaoSocial := 'NERY E ANDRADE NERY LTDA - ME'; Tomador.Endereco.Endereco := 'RUA PRINCIPAL'; Tomador.Endereco.Numero := '100'; Tomador.Endereco.Complemento := 'APTO 11'; Tomador.Endereco.Bairro := 'CENTRO'; Tomador.Endereco.CodigoMunicipio := edtCodCidade.Text; Tomador.Endereco.UF := edtEmitUF.Text; Tomador.Endereco.CEP := edtEmitCEP.Text; Tomador.Contato.Telefone := '1122223333'; Tomador.Contato.Email := '[email protected]'; (* Usando quando houver um intermediario na prestação do serviço IntermediarioServico.RazaoSocial := 'razao'; IntermediarioServico.CpfCnpj := '00000000000'; IntermediarioServico.InscricaoMunicipal := '12547478'; *) (* Usando quando o serviço for uma obra ConstrucaoCivil.CodigoObra := '88888'; ConstrucaoCivil.Art := '433'; *) end; end; end; ---------------------------------------------------- Qualqer duvida to ai blz.

obrigado, so mais um detalhe, if Form_NFSe.ACBrNFSe1.Enviar(vNumLote) then begin DM12.Client_NotaFiscal.edit; DM12.Client_NotaFiscalNFS_PROTOCOLO.Text:= Form_NFSe.ACBrNFSe1.WebServices.Enviar.Protocolo; DM12.Client_NotaFiscalNFS_PROTOCOLO_LOTE.Text:= Form_NFSe.ACBrNFSe1.WebServices.ConsLote.Protocolo; DM12.Client_NotaFiscalNFS_CODVERIFICACAO.Text:= Form_NFSe.ACBrNFSe1.NotasFiscais.Items[0].NFSe.CodigoVerificacao; DM12.Client_NotaFiscalNUMERO.Text:= Form_NFSe.ACBrNFSe1.NotasFiscais.Items[0].NFSe.Numero; DM12.Client_NotaFiscal.ApplyUpdates(-1); end; Ficou blz, mais quando o lote ainda nao processado, como façor para quarda o protocolo do LOTE, para depois conulta o lote, na consulta do lote pede o numero e o protocolo. Form_NFSe.ACBrNFSe1.WebServices.Enviar.Protocolo; essa funcao so pega o protocolo quando o lote ja é processado logo apos enviar?

TfrmDemo_ACBrNFSe.btnImprimirClick(Sender: TObject); MemoDados.Lines.Add('Arquivo Carregado de: '+ACBrNFSe1.NotasFiscais.Items[0].NomeArq); MemoResp.Lines.LoadFromFile(ACBrNFSe1.NotasFiscais.Items[0].NomeArq); eu sei que tem como eu pega o numero pelo nomeArq, mais nao tem nehuma outra funcao para pega o numero da nota iqual do nfe queria pega o Protocolo - quando enviamos um lote Numero da nota - quando o lote é processado se tive como coloca o codigo blz, se nao , nao precisa responder. obrigado !

como façor para pega o numero da nfs-e depois que imprimir var vAux, vNumLote : String; begin if not(InputQuery('Gerar e Enviar Lote', 'Numero do RPS', vAux)) then exit; if not(InputQuery('Gerar e Enviar Lote', 'Numero do Lote', vNumLote)) then exit; ACBrNFSe1.NotasFiscais.Clear; GerarNFSe(vAux); ACBrNFSe1.Enviar(vNumLote); MemoResp.Lines.Add( 'Numero da nota'+ ? ) ACBrNFSe1.NotasFiscais.Clear; ------------- Eu uso esse comando para pega algum dado da nf-e MemoResp.Lines.Add( 'Numero da nota'+ AcbrNFe1.WebServices.ConsNFeDest.retConsNFeDest.ret.Items.resNFe.chNFe )

eu utilizei a pesquisa e nao tinha nenhim sobre nfs-e mais o erro esta aqui D:\All_Delphi\ACBr_7\Fontes\ACBrNFSe\DANFSE_QR3 so substituir D:\All_Delphi\ACBr_7\Fontes\ACBrNFSe\

Depois de 2 semanas tentando fazer uma nfs-e deu certo, mais agora da dando erro ao imprimir Erro: EReadErro. with message Error reading QRShape1.XLColumn: Property XLColumn does not exit. O que devo fazer ? ----------------- Outra pegunta ainda nao entedir o que é RPS eu mandei um RPS 5 LOTE 1 aparece na nota, Nuemro da Nota 3 Nnuero do RPS 5 Numero da NFSe substituida 1 que dizer que o numeor da nota e automatico, e o que quer dizer Numero da NFSe substituida 1 sabendo que coloquei no lote 1?

italojjr, no meu caso ja to com os fontes atualizados, a questao é acho que nao vou emplantar nfs-e so fica em loop dizendo que Lote nao processado, pelo menos uns 5 loop de 25 segundos, o client quando for fazer uma nota espera 2 a 3 miniutos vao fica logo, sem que acbrnfs-e nao tem culpa, estou falando do projeto da nfs-e

blz estou usando o Gerar e Enviar Lote, da dando erro mais retonar tudo vaziou, como faço para pega o motivo do erro e joga em um memu?

procedure TfrmDemo_ACBrNFSe.GerarNFSe(NumNFSe: String); var ValorISS: Double; begin ACBrNFSe1.NotasFiscais.Clear; with ACBrNFSe1 do begin NotasFiscais.NumeroLote:='0001'; with NotasFiscais.Add.NFSe do begin IdentificacaoRps.Numero := FormatFloat('#########0', StrToInt(NumNFSe)); // Para o provedor ISS.NET em ambiente de Homologação mudar a série para '8' //IdentificacaoRps.Serie := 'UNICA'; IdentificacaoRps.Serie := '8'; // TnfseTipoRPS = ( trRPS, trNFConjugada, trCupom ); IdentificacaoRps.Tipo := trRPS; DataEmissao := Date; // TnfseNaturezaOperacao = ( noTributacaoNoMunicipio, noTributacaoForaMunicipio, noIsencao, noImune, noSuspensaDecisaoJudicial, noSuspensaProcedimentoAdministrativo ); NaturezaOperacao := noTributacaoNoMunicipio; // NaturezaOperacao := noTributacaoNoMunicipio51; // TnfseRegimeEspecialTributacao = ( retNenhum, retMicroempresaMunicipal, retEstimativa, retSociedadeProfissionais, retCooperativa, retMicroempresarioIndividual, retMicroempresarioEmpresaPP ); // RegimeEspecialTributacao := retNenhum; RegimeEspecialTributacao := retMicroempresaMunicipal; // TnfseSimNao = ( snSim, snNao ); OptanteSimplesNacional := snSim; // TnfseSimNao = ( snSim, snNao ); IncentivadorCultural := snNao; // TnfseSimNao = ( snSim, snNao ); // snSim = Ambiente de Produção // snNao = Ambiente de Homologação Producao := snNao; // TnfseStatusRPS = ( srNormal, srCancelado ); Status := srNormal; (* Usando quando o RPS for substituir outro RpsSubstituido.Numero := FormatFloat('#########0', i); RpsSubstituido.Serie := 'UNICA'; // TnfseTipoRPS = ( trRPS, trNFConjugada, trCupom ); RpsSubstituido.Tipo := trRPS; *) Servico.Valores.ValorServicos := 100.00; Servico.Valores.ValorDeducoes := 0.00; Servico.Valores.ValorPis := 0.00; Servico.Valores.ValorCofins := 0.00; Servico.Valores.ValorInss := 0.00; Servico.Valores.ValorIr := 0.00; Servico.Valores.ValorCsll := 0.00; // TnfseSituacaoTributaria = ( stRetencao, stNormal, stSubstituicao ); // stRetencao = snSim // stNormal = snNao Servico.Valores.IssRetido := stNormal; Servico.Valores.OutrasRetencoes := 0.00; Servico.Valores.DescontoIncondicionado := 0.00; Servico.Valores.DescontoCondicionado := 0.00; Servico.Valores.BaseCalculo := Servico.Valores.ValorServicos - Servico.Valores.ValorDeducoes - Servico.Valores.DescontoIncondicionado; Servico.Valores.Aliquota := 2.00; if Servico.Valores.IssRetido = stNormal then begin ValorISS := Servico.Valores.BaseCalculo * Servico.Valores.Aliquota; ValorISS := 2.00; // A função RoundTo5 é usada para arredondar valores, sendo que o segundo // parametro se refere ao numero de casas decimais. // exemplos: RoundTo5(50.532, -2) ==> 50.53 // exemplos: RoundTo5(50.535, -2) ==> 50.54 // exemplos: RoundTo5(50.536, -2) ==> 50.54 Servico.Valores.ValorIss := RoundTo5(ValorISS, -2); Servico.Valores.ValorIssRetido := 0.00; end else begin ValorISS := Servico.Valores.BaseCalculo * Servico.Valores.Aliquota; ValorISS := 2.00; Servico.Valores.ValorIss := 0.00; Servico.Valores.ValorIssRetido := RoundTo5(ValorISS, -2); end; Servico.Valores.ValorLiquidoNfse := Servico.Valores.ValorServicos - Servico.Valores.ValorPis - Servico.Valores.ValorCofins - Servico.Valores.ValorInss - Servico.Valores.ValorIr - Servico.Valores.ValorCsll - Servico.Valores.OutrasRetencoes - Servico.Valores.ValorIssRetido - Servico.Valores.DescontoIncondicionado - Servico.Valores.DescontoCondicionado; Servico.ItemListaServico := '0107'; // Para o provedor ISS.NET em ambiente de Homologação // o Codigo CNAE tem que ser '6511102' //Servico.CodigoCnae := '6511102'; // Informação Opcional Servico.CodigoCnae := '6311900'; // Informação Opcional //Servico.CodigoTributacaoMunicipio := '118879'; Servico.CodigoTributacaoMunicipio := '50000024'; Servico.Discriminacao := 'discriminacao'; // Para o provedor ISS.NET em ambiente de Homologação // o Codigo do Municipio tem que ser '999' Servico.CodigoMunicipio := '999'; //Servico.CodigoMunicipio := edtCodCidade.Text; // Informar A Exigibilidade ISS para fintelISS [1/2/3/4/5/6/7] Servico.ExigibilidadeISS := exiExigivel; // Informar para Saatri Servico.CodigoPais := 1058; // Brasil Servico.MunicipioIncidencia := StrToIntDef(edtCodCidade.Text, 0); with Servico.ItemServico.Add do begin Descricao := 'SERVICO 1'; Quantidade := 1; ValorUnitario := 15.00; end; Prestador.Cnpj := edtEmitCNPJ.Text; Prestador.InscricaoMunicipal := edtEmitIM.Text; // Para o provedor ISSDigital deve-se informar também: Prestador.Senha := 'senha'; Prestador.FraseSecreta := 'frase secreta'; Prestador.cUF := 33; Tomador.IdentificacaoTomador.CpfCnpj := '99999999000191'; Tomador.IdentificacaoTomador.InscricaoMunicipal := '1733160024'; Tomador.RazaoSocial := 'INSCRICAO DE TESTE'; Tomador.Endereco.Endereco := 'RUA PRINCIPAL'; Tomador.Endereco.Numero := '100'; Tomador.Endereco.Complemento := 'APTO 11'; Tomador.Endereco.Bairro := 'CENTRO'; Tomador.Endereco.CodigoMunicipio := edtCodCidade.Text; Tomador.Endereco.UF := edtEmitUF.Text; Tomador.Endereco.CEP := edtEmitCEP.Text; Tomador.Contato.Telefone := '1122223333'; Tomador.Contato.Email := '[email protected]'; (* Usando quando houver um intermediario na prestação do serviço IntermediarioServico.RazaoSocial := 'razao'; IntermediarioServico.CpfCnpj := '00000000000'; IntermediarioServico.InscricaoMunicipal := '12547478'; *) (* Usando quando o serviço for uma obra ConstrucaoCivil.CodigoObra := '88888'; ConstrucaoCivil.Art := '433'; *) end; end; end; Fis toda configuracao que a prefeitura min pediu Empresa: Andrade Nery & Gonçalves Ltda CNPJ: 08398100000120 Inscrição Municipal: 26136 Município Prestação Serviço: 999 - Homologação Série documento: 8 - RPS Cod. CNAE: 6311900 - Tratamento de dados, provedores de serviços d... Código Tributação Município: 50000024 Mais quando executo GERAR E ENVIAR NFSe da um erro brutal, Project demo_acbrnfse.exe raised exception class exception wih message "nao foi possivel carregar o arquivo <signature xmlns= http://www.w3.org/2000/09/xmldsing#> <signedinfo> <canonicalizationMethod algorithm = httip://www.w3.org/tr/2001/rec-xml-c14n-20010315">...... qual a sequencia , ou qual melhor usar, Gerar e enviar lote ou Gerar e enviar nfse, porque no gerar e enviar lote, envia mais mostra Lote nao processado, mais a Gerar e enviar nfse da o erro acima.

blz, Ta dando outro erro, Em producao Pede a senha do PIN, e mostra messagem enviando nfs-e e fechar, e depois fica paralizado a tela, depois de uns 30 segundo vouta a tela de enviando nfs-e, so fechando para continuar, o que deve ser? ---- Ha, eu coloquei para ver messagem, e aparece o seguinte Numero do Lote: 1 Situação : 2-Não Processado. dou Ok, fica parado por 20 segundo e mostra a messagme de novo, ai tenho que fechar tudo.

Inscrição Municipal: 26136 Município Prestação Serviço: 999 - Homologação Série documento: 8 - RPS Cod. CNAE: 6311900 - Tratamento de dados, provedores de serviços d... Código Tributação Município: 50000024 - Alíquota: 5% RPS disponível para envio, numeração 1 ao 50. Estou colocando Servico.Valores.Aliquota := 0.05; mais ta dando erro quando executo Gerar e Enviar Lote erro: Aliquota Invalida. Numero do RPS em que ocorreu o erro: 1