alfadesign

está saindo assim: Requisição Ambiente: 2 Cidade : Sao Joao Del Rei/MG Provedor: SH3 Versão: 2.00 Método Executado: Enviar Lote Síncrono Parâmetros de Envio Numero do Lote: 1 Parâmetros de Retorno Data de Envio : 30/12/1899 Numero do Prot: Numero da Nota: Link : Código Verif. : Sucesso : True Erro(s): Código : X202 Mensagem: Lista de NFSe não encontrada! (ListaNfse) Correção: --------- NFS-e Numero....: 1 Cod. Verificacao: Prestador.......: ADRIANO NASCIMENTO ME Tomador.........: INSCRICAO DE TESTE E TESTE aproveitei p/ anexar o xml que chegou como resposta 1-lista-nfse-sinc-soap.xml

Bom dia Italo, fiz a substituição do arquivo, reinstalei o componente, dei o build e compile no projeto mas o erro continua tanto no programa exemplo quanto no meu projeto. Estranho é que o erro aparece na tag <ListaNfse>, essa tag realmente não existe no xml de retorno, mas no arquivo que vc anexou foi alterado a tag 'outputXML' -> 'nfseDadosMsg' desde já obrigado

pelo programa exemplo, na tela de log, o aparece o mesmo erro: Requisição Ambiente: 2 Cidade : Sao Joao Del Rei/MG Provedor: SH3 Versão: 2.00 Método Executado: Enviar Lote Síncrono Parâmetros de Envio Numero do Lote: 1 Parâmetros de Retorno Data de Envio : 30/12/1899 Numero do Prot: Numero da Nota: Link : Código Verif. : Sucesso : True Erro(s): Código : X202 Mensagem: Lista de NFSe não encontrada! (ListaNfse) Correção: --------- NFS-e Numero....: 1 Cod. Verificacao: Prestador.......: ADRIANO NASCIMENTO ME Tomador.........: INSCRICAO DE TESTE E TESTE

Bom dia, Estou tentando enviar uma nfse p/ o provedor SH3 em São João del Rei utilizando o ACBrNFSeX e estou recebendo a seguinte mensagem de raise: X202 Lista de NFSe não encontrada! (ListaNfse) o arquivo de log 4988-lista-nfse-ger-soap.xml está com o seguinte conteúdo: <?xml version="1.0" encoding="UTF-8"?> -<soapenv:Envelope xmlns:nfse="http://nfse.abrasf.org.br" xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/"> -<soapenv:Body> -<nfse:GerarNfseResponse> -<nfseCabecMsg> -<![CDATA[<?xml version="1.0" encoding="utf-8"?> <cabecalho xmlns="http://www.abrasf.org.br/nfse.xsd" versao="2.02"><versaoDados>2.02</versaoDados></cabecalho>]]> </nfseCabecMsg> -<nfseDadosMsg> -<![CDATA[<?xml version="1.0" encoding="utf-8"?> <GerarNfseResposta xmlns='http://www.abrasf.org.br/nfse.xsd'> <ListaMensagemRetorno><MensagemRetorno> <Codigo>E10</Codigo> <Mensagem>O RPS ja foi convertido na NFS-e 202300000000117.</Mensagem> </MensagemRetorno> <MensagemRetorno> <Codigo>E10</Codigo> <Mensagem>O RPS ja foi convertido via outro metodo sem ser por lote.</Mensagem> </MensagemRetorno> </ListaMensagemRetorno> </GerarNfseResposta> ]]> </nfseDadosMsg> </nfse:GerarNfseResponse> </soapenv:Body> </soapenv:Envelope> será que alguém pode me dar uma luz? Grato.

Boa tarde Italo, Consegui resolver o problema. Na função TratarXmlRetornado (na unit SH3.Provider), onde estava: Result := RemoverDeclaracaoXML(Result); eu substituí por: Result := RemoverDeclaracaoXML(Result,true); Poderia, por favor, fazer a correção no fonte do Acbr? Grato pela atenção!

Desculpe-me a demora Variável Result antes do RemoverDeclaracaoXML #$A#9#9#9#9#9#9#9#9'<nfse:ConsultarNfsePorRpsResponse>'#$A#9#9#9#9#9#9#9#9#9'<nfseCabecMsg><?xml version="1.0" encoding="utf-8"?>'#$A#9#9#9#9#9#9#9#9#9#9'<cabecalho xmlns="http://www.abrasf.org.br/nfse.xsd" versao="2.02"><versaoDados>2.02</versaoDados></cabecalho>'#$A#9#9#9#9#9#9#9#9#9'</nfseCabecMsg>'#$A#9#9#9#9#9#9#9#9#9'<nfseDadosMsg><?xml version="1.0" encoding="utf-8"?>'#$A#9#9#9#9#9#9#9#9#9#9'<ConsultarNfseRpsResposta xmlns=''http://www.abrasf.org.br/nfse.xsd''>'#$A#9#9#9#9#9#9#9#9'<CompNfse>'#$A#9#9#9#9#9#9#9#9#9'<Nfse versao=''2.02''>'#$A#9#9#9#9#9'<InfNfse>'#$A#9#9#9#9#9#9'<Numero>202200000000203</Numero>'#$A#9#9#9'<CodigoVerificacao>8DCE-E467</CodigoVerificacao><DataEmissao>2022-10-24T11:48:02</DataEmissao><ValoresNfse>'#$A#9#9#9#9#9'<BaseCalculo>10.00</BaseCalculo>'#$A#9#9#9#9#9'<Aliquota>2.00</Aliquota>'#$A#9#9#9#9#9'<ValorIss>0.20</ValorIss>'#$A#9#9#9#9#9'<ValorLiquidoNfse>10.00</ValorLiquidoNfse>'#$A#9#9#9#9'</ValoresNfse><ValorCredito>0.00</ValorCredito>'#$A#9#9#9#9'<PrestadorServico>'#$A#9#9#9#9#9'<IdentificacaoPrestador><CpfCnpj><Cnpj>05587777000118</Cnpj></CpfCnpj><InscricaoMunicipal>0204385071</InscricaoMunicipal></IdentificacaoPrestador>'#$A#9#9#9#9#9'<RazaoSocial>ADRIANO NASCIMENTO - ME</RazaoSocial><Endereco><Endereco>MINISTRO GABRIEL PASSOS</Endereco><Numero>334</Numero><Complemento>SALA 206</Complemento><Bairro>CENTRO</Bairro><CodigoMunicipio>3162500</CodigoMunicipio><Uf>MG</Uf><CodigoPais>1058</CodigoPais><Cep>36307330</Cep>'#$A#9#9#9#9#9'</Endereco>'#$A#9#9#9#9#9'<Contato>'#$A#9#9#9'<Telefone>3233790000</Telefone><Email>[email protected]</Email></Contato>'#$A#9#9#9#9'</PrestadorServico>'#$A#9#9#9#9'<OrgaoGerador>'#$A#9#9#9#9#9'<CodigoMunicipio>3162500</CodigoMunicipio>'#$A#9#9#9#9#9'<Uf>MG</Uf>'#$A#9#9#9#9'</OrgaoGerador>'#$A#$A#9#9#9#9'<DeclaracaoPrestacaoServico>'#$A#9#9#9#9#9'<InfDeclaracaoPrestacaoServico><Rps Id=''5008__01''>'#$A#9#9#9#9#9#9#9'<IdentificacaoRps>'#$A#9#9#9#9#9#9#9#9'<Numero>5008</Numero>'#$A#9#9#9#9#9#9#9#9'<Serie>01</Serie>'#$A#9#9#9#9#9#9#9#9'<Tipo>1</Tipo>'#$A#9#9#9#9#9#9#9'</IdentificacaoRps>'#$A#9#9#9#9#9#9#9'<DataEmissao>2022-10-24</DataEmissao>'#$A#9#9#9#9#9#9#9'<Status>1</Status></Rps><Competencia>2022-10-24</Competencia>'#$A#9#9#9#9#9'<Servico>'#$A#9#9#9#9#9#9'<Valores>'#$A#9#9#9#9#9#9#9'<ValorServicos>10.00</ValorServicos>'#$A#9#9#9#9#9#9#9'<ValorDeducoes>0.00</ValorDeducoes>'#$A#9#9#9#9#9#9#9'<ValorPis>0.00</ValorPis>'#$A#9#9#9#9#9#9#9'<ValorCofins>0.00</ValorCofins>'#$A#9#9#9#9#9#9#9'<ValorInss>0.00</ValorInss>'#$A#9#9#9#9#9#9#9'<ValorIr>0.00</ValorIr>'#$A#9#9#9#9#9#9#9'<ValorCsll>0.00</ValorCsll>'#$A#9#9#9#9#9#9#9'<OutrasRetencoes>0</OutrasRetencoes>'#$A#9#9#9#9#9#9#9'<ValorIss>0.20</ValorIss>'#$A#9#9#9#9#9#9#9'<Aliquota>2.00</Aliquota>'#$A#9#9#9#9#9#9#9'<DescontoIncondicionado>0.00</DescontoIncondicionado>'#$A#9#9#9#9#9#9#9'<DescontoCondicionado>0.00</DescontoCondicionado>'#$A#9#9#9#9#9#9'</Valores><IssRetido>2</IssRetido><ItemListaServico>0107</ItemListaServico><CodigoCnae>6204000</CodigoCnae><CodigoTributacaoMunicipio>9954</CodigoTributacaoMunicipio><Discriminacao>Servicos prestados em apoio na configuracao de equipamentos de informatica</Discriminacao><CodigoMunicipio>3162500</CodigoMunicipio><CodigoPais>1058</CodigoPais><ExigibilidadeISS>1</ExigibilidadeISS>'#$A#9#9#9#9'</Servico>'#$A#9#9#9#9'<Prestador><CpfCnpj><Cnpj>05587777000118</Cnpj></CpfCnpj><InscricaoMunicipal>0204385071</InscricaoMunicipal></Prestador><Tomador><IdentificacaoTomador><CpfCnpj><Cnpj>10392218000192</Cnpj></CpfCnpj></IdentificacaoTomador><RazaoSocial>ROSEMARI APARECIDA DE SOUSA GEROMIN</RazaoSocial><Endereco><Endereco>AV JOSUE DE QUEIROS</Endereco><Numero>504</Numero><Complemento>A</Complemento><Bairro>MATOSINHOS</Bairro><CodigoMunicipio>3162500</CodigoMunicipio><Uf>MG</Uf><CodigoPais>1058</CodigoPais><Cep>36305146</Cep></Endereco><Contato><Telefone>3233715546</Telefone><Email>[email protected]</Email></Contato></Tomador><RegimeEspecialTributacao>6</RegimeEspecialTributacao><OptanteSimplesNacional>1</OptanteSimplesNacional><IncentivoFiscal>2</IncentivoFiscal>'#$A#$A#9#9#9#9'</InfDeclaracaoPrestacaoServico></DeclaracaoPrestacaoServico>'#$A#9#9#9#9'</InfNfse></Nfse>'#$A#9#9#9#9#9#9#9#9'</CompNfse>'#$A#9#9#9#9#9#9#9'</ConsultarNfseRpsResposta>'#$A#9#9#9#9#9#9#9#9#9#9#$A#9#9#9#9#9#9#9#9#9'</nfseDadosMsg>'#$A#9#9#9#9#9#9#9#9'</nfse:ConsultarNfsePorRpsResponse>'#$A#9#9#9#9#9#9#9 Variável Result depois do RemoverDeclaracaoXML #$A#9#9#9#9#9#9#9#9'<nfse:ConsultarNfsePorRpsResponse>'#$A#9#9#9#9#9#9#9#9#9'<nfseCabecMsg>'#$A#9#9#9#9#9#9#9#9#9#9'<cabecalho xmlns="http://www.abrasf.org.br/nfse.xsd" versao="2.02"><versaoDados>2.02</versaoDados></cabecalho>'#$A#9#9#9#9#9#9#9#9#9'</nfseCabecMsg>'#$A#9#9#9#9#9#9#9#9#9'<nfseDadosMsg><?xml version="1.0" encoding="utf-8"?>'#$A#9#9#9#9#9#9#9#9#9#9'<ConsultarNfseRpsResposta xmlns=''http://www.abrasf.org.br/nfse.xsd''>'#$A#9#9#9#9#9#9#9#9'<CompNfse>'#$A#9#9#9#9#9#9#9#9#9'<Nfse versao=''2.02''>'#$A#9#9#9#9#9'<InfNfse>'#$A#9#9#9#9#9#9'<Numero>202200000000203</Numero>'#$A#9#9#9'<CodigoVerificacao>8DCE-E467</CodigoVerificacao><DataEmissao>2022-10-24T11:48:02</DataEmissao><ValoresNfse>'#$A#9#9#9#9#9'<BaseCalculo>10.00</BaseCalculo>'#$A#9#9#9#9#9'<Aliquota>2.00</Aliquota>'#$A#9#9#9#9#9'<ValorIss>0.20</ValorIss>'#$A#9#9#9#9#9'<ValorLiquidoNfse>10.00</ValorLiquidoNfse>'#$A#9#9#9#9'</ValoresNfse><ValorCredito>0.00</ValorCredito>'#$A#9#9#9#9'<PrestadorServico>'#$A#9#9#9#9#9'<IdentificacaoPrestador><CpfCnpj><Cnpj>05587777000118</Cnpj></CpfCnpj><InscricaoMunicipal>0204385071</InscricaoMunicipal></IdentificacaoPrestador>'#$A#9#9#9#9#9'<RazaoSocial>ADRIANO NASCIMENTO - ME</RazaoSocial><Endereco><Endereco>MINISTRO GABRIEL PASSOS</Endereco><Numero>334</Numero><Complemento>SALA 206</Complemento><Bairro>CENTRO</Bairro><CodigoMunicipio>3162500</CodigoMunicipio><Uf>MG</Uf><CodigoPais>1058</CodigoPais><Cep>36307330</Cep>'#$A#9#9#9#9#9'</Endereco>'#$A#9#9#9#9#9'<Contato>'#$A#9#9#9'<Telefone>3233790000</Telefone><Email>[email protected]</Email></Contato>'#$A#9#9#9#9'</PrestadorServico>'#$A#9#9#9#9'<OrgaoGerador>'#$A#9#9#9#9#9'<CodigoMunicipio>3162500</CodigoMunicipio>'#$A#9#9#9#9#9'<Uf>MG</Uf>'#$A#9#9#9#9'</OrgaoGerador>'#$A#$A#9#9#9#9'<DeclaracaoPrestacaoServico>'#$A#9#9#9#9#9'<InfDeclaracaoPrestacaoServico><Rps Id=''5008__01''>'#$A#9#9#9#9#9#9#9'<IdentificacaoRps>'#$A#9#9#9#9#9#9#9#9'<Numero>5008</Numero>'#$A#9#9#9#9#9#9#9#9'<Serie>01</Serie>'#$A#9#9#9#9#9#9#9#9'<Tipo>1</Tipo>'#$A#9#9#9#9#9#9#9'</IdentificacaoRps>'#$A#9#9#9#9#9#9#9'<DataEmissao>2022-10-24</DataEmissao>'#$A#9#9#9#9#9#9#9'<Status>1</Status></Rps><Competencia>2022-10-24</Competencia>'#$A#9#9#9#9#9'<Servico>'#$A#9#9#9#9#9#9'<Valores>'#$A#9#9#9#9#9#9#9'<ValorServicos>10.00</ValorServicos>'#$A#9#9#9#9#9#9#9'<ValorDeducoes>0.00</ValorDeducoes>'#$A#9#9#9#9#9#9#9'<ValorPis>0.00</ValorPis>'#$A#9#9#9#9#9#9#9'<ValorCofins>0.00</ValorCofins>'#$A#9#9#9#9#9#9#9'<ValorInss>0.00</ValorInss>'#$A#9#9#9#9#9#9#9'<ValorIr>0.00</ValorIr>'#$A#9#9#9#9#9#9#9'<ValorCsll>0.00</ValorCsll>'#$A#9#9#9#9#9#9#9'<OutrasRetencoes>0</OutrasRetencoes>'#$A#9#9#9#9#9#9#9'<ValorIss>0.20</ValorIss>'#$A#9#9#9#9#9#9#9'<Aliquota>2.00</Aliquota>'#$A#9#9#9#9#9#9#9'<DescontoIncondicionado>0.00</DescontoIncondicionado>'#$A#9#9#9#9#9#9#9'<DescontoCondicionado>0.00</DescontoCondicionado>'#$A#9#9#9#9#9#9'</Valores><IssRetido>2</IssRetido><ItemListaServico>0107</ItemListaServico><CodigoCnae>6204000</CodigoCnae><CodigoTributacaoMunicipio>9954</CodigoTributacaoMunicipio><Discriminacao>Servicos prestados em apoio na configuracao de equipamentos de informatica</Discriminacao><CodigoMunicipio>3162500</CodigoMunicipio><CodigoPais>1058</CodigoPais><ExigibilidadeISS>1</ExigibilidadeISS>'#$A#9#9#9#9'</Servico>'#$A#9#9#9#9'<Prestador><CpfCnpj><Cnpj>05587777000118</Cnpj></CpfCnpj><InscricaoMunicipal>0204385071</InscricaoMunicipal></Prestador><Tomador><IdentificacaoTomador><CpfCnpj><Cnpj>10392218000192</Cnpj></CpfCnpj></IdentificacaoTomador><RazaoSocial>ROSEMARI APARECIDA DE SOUSA GEROMIN</RazaoSocial><Endereco><Endereco>AV JOSUE DE QUEIROS</Endereco><Numero>504</Numero><Complemento>A</Complemento><Bairro>MATOSINHOS</Bairro><CodigoMunicipio>3162500</CodigoMunicipio><Uf>MG</Uf><CodigoPais>1058</CodigoPais><Cep>36305146</Cep></Endereco><Contato><Telefone>3233715546</Telefone><Email>[email protected]</Email></Contato></Tomador><RegimeEspecialTributacao>6</RegimeEspecialTributacao><OptanteSimplesNacional>1</OptanteSimplesNacional><IncentivoFiscal>2</IncentivoFiscal>'#$A#$A#9#9#9#9'</InfDeclaracaoPrestacaoServico></DeclaracaoPrestacaoServico>'#$A#9#9#9#9'</InfNfse></Nfse>'#$A#9#9#9#9#9#9#9#9'</CompNfse>'#$A#9#9#9#9#9#9#9'</ConsultarNfseRpsResposta>'#$A#9#9#9#9#9#9#9#9#9#9#$A#9#9#9#9#9#9#9#9#9'</nfseDadosMsg>'#$A#9#9#9#9#9#9#9#9'</nfse:ConsultarNfsePorRpsResponse>'#$A#9#9#9#9#9#9#9 pelo visto, fez a remoção da declaração citada <?xml version="1.0" encoding="utf-8"?>

Bom dia Italo, Atualizei os fontes e reinstalei o acbr, mas o erro persiste. O erro acontece logo após a leitura da function xmlParseDoc que está na unit ACBrLibXML2. Segue o conteúdo da variável cur que é recebido nessa function: '<nfse:ConsultarNfsePorRpsResponse><nfseCabecMsg><cabecalho xmlns="http://www.abrasf.org.br/nfse.xsd" versao="2.02"><versaoDados>2.02</versaoDados></cabecalho></nfseCabecMsg><nfseDadosMsg><?xml version="1.0" encoding="utf-8"?><ConsultarNfseRpsResposta xmlns=''http://www.abrasf.org.br/nfse.xsd''><CompNfse><Nfse versao=''2.02''><InfNfse><Numero>202200000000234</Numero><CodigoVerificacao>296C-50E4</CodigoVerificacao><DataEmissao>2022-10-27T15:10:41</DataEmissao><ValoresNfse><BaseCalculo>10.00</BaseCalculo><Aliquota>2.00</Aliquota><ValorIss>0.20</ValorIss><ValorLiquidoNfse>10.00</ValorLiquidoNfse></ValoresNfse><ValorCredito>0.00</ValorCredito><PrestadorServico><IdentificacaoPrestador><CpfCnpj><Cnpj>05587777000118</Cnpj></CpfCnpj><InscricaoMunicipal>0204385071</InscricaoMunicipal></IdentificacaoPrestador><RazaoSocial>ADRIANO NASCIMENTO - ME</RazaoSocial><Endereco><Endereco>MINISTRO GABRIEL PASSOS</Endereco><Numero>334</Numero><Complemento>SALA 206</Complemento><Bairro>CENTRO</Bairro><CodigoMunicipio>3162500</CodigoMunicipio><Uf>MG</Uf><CodigoPais>1058</CodigoPais><Cep>36307330</Cep></Endereco><Contato><Telefone>3233790000</Telefone><Email>[email protected]</Email></Contato></PrestadorServico><OrgaoGerador><CodigoMunicipio>3162500</CodigoMunicipio><Uf>MG</Uf></OrgaoGerador><DeclaracaoPrestacaoServico><InfDeclaracaoPrestacaoServico><Rps Id=''5037__01''><IdentificacaoRps><Numero>5037</Numero><Serie>01</Serie><Tipo>1</Tipo></IdentificacaoRps><DataEmissao>2022-10-27</DataEmissao><Status>1</Status></Rps><Competencia>2022-10-27</Competencia><Servico><Valores><ValorServicos>10.00</ValorServicos><ValorDeducoes>0.00</ValorDeducoes><ValorPis>0.00</ValorPis><ValorCofins>0.00</ValorCofins><ValorInss>0.00</ValorInss><ValorIr>0.00</ValorIr><ValorCsll>0.00</ValorCsll><OutrasRetencoes>0</OutrasRetencoes><ValorIss>0.20</ValorIss><Aliquota>2.00</Aliquota><DescontoIncondicionado>0.00</DescontoIncondicionado><DescontoCondicionado>0.00</DescontoCondicionado></Valores><IssRetido>2</IssRetido><ItemListaServico>0107</ItemListaServico><CodigoCnae>6204000</CodigoCnae><CodigoTributacaoMunicipio>9954</CodigoTributacaoMunicipio><Discriminacao>CONSULTORIA EM TECNOLOGIA DA INFORMACAO SUPORTE TECNICO EM INFORMATICA, INCLUSIVE INS TALACAO, CONFIGURACAO E MANUTENCAO DE PROGRAM AS DE COMPUTACAO E BANCO DE DADOS</Discriminacao><CodigoMunicipio>3162500</CodigoMunicipio><CodigoPais>1058</CodigoPais><ExigibilidadeISS>1</ExigibilidadeISS></Servico><Prestador><CpfCnpj><Cnpj>05587777000118</Cnpj></CpfCnpj><InscricaoMunicipal>0204385071</InscricaoMunicipal></Prestador><Tomador><IdentificacaoTomador><CpfCnpj><Cpf>05065247609</Cpf></CpfCnpj></IdentificacaoTomador><RazaoSocial>FELIPE DA SILVA USUARIO DE TESTE</RazaoSocial><Endereco><Endereco>RUA PIO XII</Endereco><Numero>10</Numero><Bairro>CENTRO</Bairro><CodigoMunicipio>3162500</CodigoMunicipio><Uf>MG</Uf><CodigoPais>1058</CodigoPais><Cep>36307636</Cep></Endereco><Contato><Telefone>3288567866</Telefone><Email>[email protected]</Email></Contato></Tomador><RegimeEspecialTributacao>6</RegimeEspecialTributacao><OptanteSimplesNacional>1</OptanteSimplesNacional><IncentivoFiscal>2</IncentivoFiscal></InfDeclaracaoPrestacaoServico></DeclaracaoPrestacaoServico></InfNfse></Nfse></CompNfse></ConsultarNfseRpsResposta></nfseDadosMsg></nfse:ConsultarNfsePorRpsResponse>'

Bom dia, Estou migrando p/ o ACBRNFSeX mas estou tendo erro quando chamo o ACBrNFSe1.ConsultarNFSeporRps. O conteúdo que está sendo enviado ao usar o componente antigo é esse (e o retorno está funcionando certinho) <?xml version="1.0" encoding="UTF-8"?> <S:Envelope xmlns:S="http://schemas.xmlsoap.org/soap/envelope/" xmlns:nfse="http://nfse.abrasf.org.br"> <S:Body> <nfse:ConsultarNfsePorRpsRequest> <nfseCabecMsg>&lt;cabecalho versao="2.00" xmlns="http://www.abrasf.org.br/nfse.xsd"&gt;&lt;versaoDados&gt;2.00&lt;/versaoDados&gt;&lt;/cabecalho&gt;</nfseCabecMsg> <nfseDadosMsg>&lt;ConsultarNfseRpsEnvio xmlns="http://www.abrasf.org.br/nfse.xsd"&gt;&lt;IdentificacaoRps&gt;&lt;Numero&gt;5037&lt;/Numero&gt;&lt;Serie&gt;01&lt;/Serie&gt;&lt;Tipo&gt;1&lt;/Tipo&gt;&lt;/IdentificacaoRps&gt;&lt;Prestador&gt;&lt;CpfCnpj&gt;&lt;Cnpj&gt;05587777000118&lt;/Cnpj&gt;&lt;/CpfCnpj&gt;&lt;InscricaoMunicipal&gt;0204385071&lt;/InscricaoMunicipal&gt;&lt;/Prestador&gt;&lt;/ConsultarNfseRpsEnvio&gt;</nfseDadosMsg> </nfse:ConsultarNfsePorRpsRequest> </S:Body> </S:Envelope> mas quando dou o comando ACBrNFSeX1.ConsultarNFSeporRps. o conteúdo enviado fica diferente: <?xml version="1.0" encoding="UTF-8"?> <soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:nfse="http://nfse.abrasf.org.br"> <soapenv:Header/> <soapenv:Body> <nfse:ConsultarNfsePorRpsRequest> <nfseCabecMsg>&lt;cabecalho versao="2.00" xmlns="http://www.abrasf.org.br/nfse.xsd"&gt;&lt;versaoDados&gt;2.00&lt;/versaoDados&gt;&lt;/cabecalho&gt;</nfseCabecMsg> <nfseDadosMsg>&lt;ConsultarNfseRpsEnvio xmlns="http://www.abrasf.org.br/nfse.xsd"&gt;&lt;IdentificacaoRps&gt;&lt;Numero&gt;5037&lt;/Numero&gt;&lt;Serie&gt;01&lt;/Serie&gt;&lt;Tipo&gt;1&lt;/Tipo&gt;&lt;/IdentificacaoRps&gt;&lt;Prestador&gt;&lt;CpfCnpj&gt;&lt;Cnpj&gt;05587777000118&lt;/Cnpj&gt;&lt;/CpfCnpj&gt;&lt;InscricaoMunicipal&gt;0204385071&lt;/InscricaoMunicipal&gt;&lt;/Prestador&gt;&lt;/ConsultarNfseRpsEnvio&gt;</nfseDadosMsg> </nfse:ConsultarNfsePorRpsRequest> </soapenv:Body> </soapenv:Envelope> e aí o arquivo de retorno tb vem diferente ( e o componente acbrnfsex não consegue interpretar), dá a seguinte mensagem: XML declaration allowed only at the start of the document em anexo eu coloquei os arquivos que recebo de retorno qdo uso o acbrnfse (que funciona) e o retorno qdo uso o acbrnfseX (que não funciona). Será que alguém poderia me ajudar? Grato. 503701-comp-nfse-soap-retornonfse.xml 503701-comp-nfse-soap-retornonfsex.xml

Verifiquei aqui e agora o xml está indo p/ servidor corretamente, parece que o problema é de interpretação lá do servidor, vou entrar em contato com o suporte do provedor. Obrigado!

Atualizei e reinstalei o ACBr. O Programa exemplo do NFSe continua funcionando, com o mesmo log: Inicio TNFSeEnviarLoteRPS Método........ : Enviar Lote Numero do Lote : 1 Recebimento... : 28/10/2022 16:51:01 Protocolo..... : 1784776 Provedor...... : SH3 o programa exemplo do ACBrNFSeX mudou o erro, mas continua sem enviar Requisição Ambiente: 2 Cidade : Sao Joao Del Rei/MG Provedor: SH3 Versão: 2.00 Método Executado: Enviar Lote Síncrono Parâmetros de Envio Numero do Lote: 1 Parâmetros de Retorno Data de Envio : 30/12/1899 Numero do Prot: Numero da Nota: Link : Código Verif. : Sucesso : False Erro(s): Código : X999 Mensagem: Erro de Conexão: XML declaration allowed only at the start of the document Correção: --------- NFS-e Numero....: 1 Cod. Verificacao: Prestador.......: MINHA RAZAO SOCIAL Tomador.........: INSCRICAO DE TESTE

Boa tarde, Estou fazendo os testes p/ poder migrar o componente acbrnfse para o acbrnfsex. Estou com dificuldade de configurá-lo no provedor SH3 de São João Del Rei. Pelo programa exemplo do ACBrNFSe eu peço p/ enviar um lote RPS e ocorre tudo certo, recebo o seguinte log: Inicio TNFSeEnviarLoteRPS Método........ : Enviar Lote Numero do Lote : 1 Recebimento... : 28/10/2022 15:23:44 Protocolo..... : 1784746 Provedor...... : SH3 mas pelo programa exemplo ACBrNFSeX com a mesma configuração eu recebo o seguinte log: Requisição Ambiente: 2 Cidade : Sao Joao Del Rei/MG Provedor: SH3 Versão: 2.00 Método Executado: Gerar NFSe Parâmetros de Envio Numero do Lote: 1 Parâmetros de Retorno Data de Envio : 30/12/1899 Numero do Prot: Numero da Nota: Link : Código Verif. : Sucesso : False Erro(s): Código : X999 Mensagem: Erro de Conexão: 999 - 000 - [2022-10-28 15:17:36] Este ambiente nao foi configurado. Correção: --------- NFS-e Numero....: 1 Cod. Verificacao: Prestador.......: MINHA RAZAO SOCIAL Tomador.........: INSCRICAO DE TESTE Ainda estou um pouco perdido, existe algo que eu possa fazer p/ resolver esse erro?

Olá Pessoal, Estou tentando migrar para o componente ACBRNFSeX. Uso o provedor SH3 que está funcionando certinho com o componente ACBRNFSe. Segui os passos do manual de migração mas estou com problemas no formato que é gerado o xml. Pelo AcbrNFSe quando chamo a função: ACBrNFSe1.Gerar(CdsCadRPSNUM_RPS.AsInteger); é gerado o xml (que funciona mto bem) no seguinte formato : <?xml version="1.0" encoding="UTF-8"?> <GerarNfseEnvio xmlns="http://www.abrasf.org.br/nfse.xsd"> <Rps> <InfDeclaracaoPrestacaoServico> <Rps Id="rps501"> <IdentificacaoRps> <Numero>5</Numero> <Serie>01</Serie> <Tipo>1</Tipo> (...) mas qdo fiz a migração, ao chamar a função: ACBrNFSex1.Emitir(CdsCadRPSNUM_RPS.AsString,meUnitario,false); o xml gerado vem faltando a tag <GerarNfseEnvio> e aí não consigo uma resposta positiva do provedor. O arquivo está sendo gerado com esse formato: <?xml version="1.0" encoding="UTF-8"?> <Rps xmlns="http://www.abrasf.org.br/nfse.xsd/nfse.xsd"> <InfDeclaracaoPrestacaoServico> <Rps Id="rps501"> <IdentificacaoRps> <Numero>5</Numero> <Serie>01</Serie> <Tipo>1</Tipo> (...) Alguém aí que usa o provedor SH3 já fez a migração do componente? Sabe se tem alguma propriedade que preciso configurar? Fico grato pela ajuda.

Bom dia, O banco Sicoob fez está com layout novo, que obriga informar o código do convênio no header, posição 33 até 52, antes era apenas espaços em branco. Fiz a alteração no meu acbr aqui e funcionou, gostaria que mudassem o arquivo "acbr\Fontes\ACBrBoleto\ACBrBancoBancoob.pas' para adequar ao novo? Na linha 726 basta substituir o comando: StringOfChar(' ', 20) por PadRight(Convenio, 20, ' ') segue anexo o pdf com o layout novo, caso queiram conferir. A alteração acima continuará sendo compatível com versões anteriores bastando deixar o campo 'convenio' em branco, no acbrboleto. Manual_de_importacao_de_arquivos_CNAB_240_V1.2.pdf

Realmente o código estava certo. No meu código eu tinha que colocar: CarteiraEnvio := tceBanco; aí o banco aceitou. Obrigado.

Boa Noite pessoal, Na unit ACBr\Fontes\ACBrBoleto\ACBrBancoCaixa.pas na função: GerarRegistroTransacao240 está com erro ao gerar boletos para emissão e envio pela própria caixa. Fiz a correção e gostaria que vcs atualizassem no svn: Na linha 535 esta assim: {Pegando a Modalidade} AModalidade:= RetornaModalidade(ACBrTitulo); logo ABAIXO dessa linha tem que INCLUIR: if ACBrBoleto.Cedente.ResponEmissao = tbBancoEmite then AModalidade:= '00'; se não incluir este código, a caixa rejeita a remessa quando optamos pelo próprio banco fazer o envio do boleto ao cliente (ou seja, quando ACBrBoleto.Cedente.ResponEmissao = tbBancoEmite)

Não encontrei nenhum documentação quanto à inclusão de um novo provedor, pelo menos na pasta acbr não vi nada. Sabe onde posso encontrar tal documentação? Obrigado.

Estou implementando um software de Nfse para São João del Rei e gostaria de usar o Acbr. A empresa que atende à prefeitura postou os manuais em https://nfse.saojoaodelrei.mg.gov.br/?Meio=nfe/Manuais_Legislacao e o manual de integração RPS aponta diretamente para ser baixado no site da Abrasf. Gostaria de saber como eu posso incluir essa nova cidade no componente, ou, dependendo da disponibilidade dos mais experientes no componente, se alguém se candidata a fazer tal inclusão. Entrei em contato com a empresa e ela me passou 3 links: Endereços de Homologação/Testes: WSDL: https://homologa.nfse.saojoaodelrei.mg.gov.br/?WSDL SOAP: https://homologa.nfse.saojoaodelrei.mg.gov.br/soap/ XSD : https://homologa.nfse.saojoaodelrei.mg.gov.br/soap/nfse_v202.xsd Alguém pode me ajudar?

Pessoal, como não obtive resposta, quebrei a cabeça e criei minha própria função para localizar registros 0150, 0190 e 0200. Seguem os procedimento, caso alguém precise. Obs: substituir dtmprincipal.acbrpiscofins1 pelo local onde está o componente acbrpiscofins Function TDtmSpedF_Base.LocalizarRegistro0150(pCOD_EST0140, pCOD_PART0150: string): boolean; var indice140,IntFor150: integer; begin Result := false; indice140 := ObterIndiceRegistro0140(pCOD_EST0140); if indice140 < 0 then raise Exception.Create(pCOD_EST0140 + ' não encontrado no registro 0140'); with dtmprincipal.ACBrSPEDPisCofins1.Bloco_0.Registro0001 do begin for IntFor150 := 0 to Registro0140.Items[indice140].Registro0150.Count - 1 do begin if Registro0140.Items[indice140].Registro0150.Items[IntFor150].COD_PART = pCOD_PART0150 then begin Result := True; Break; end; end; end; end; function TDtmSpedF_Base.ObterIndiceRegistro0140( pCOD_EST0140: string): integer; var intFor140,IntFor150: integer; begin Result := -1; with dtmprincipal.ACBrSPEDPisCofins1.Bloco_0.Registro0001 do begin for intFor140 := 0 to Registro0140.Count - 1 do begin if Registro0140.Items[intFor140].COD_EST = pCOD_EST0140 then begin Result := intFor140; Break; end; end; end; end; function TDtmSpedF_Base.LocalizarRegistro0190(pCOD_EST0140, pUNID: string): boolean; var indice140,IntFor190: integer; begin Result := false; indice140 := ObterIndiceRegistro0140(pCOD_EST0140); if indice140 < 0 then raise Exception.Create(pCOD_EST0140 + ' não encontrado no registro 0140'); with dtmprincipal.ACBrSPEDPisCofins1.Bloco_0.Registro0001 do begin for IntFor190 := 0 to Registro0140.Items[indice140].Registro0190.Count - 1 do begin if Registro0140.Items[indice140].Registro0190.Items[IntFor190].UNID = pUNID then begin Result := True; Break; end; end; end; end; function TDtmSpedF_Base.LocalizarRegistro0200(pCOD_EST0140, pCOD_ITEM: String): boolean; var indice140,IntFor200: integer; begin Result := false; indice140 := ObterIndiceRegistro0140(pCOD_EST0140); if indice140 < 0 then raise Exception.Create(pCOD_EST0140 + ' não encontrado no registro 0140'); with dtmprincipal.ACBrSPEDPisCofins1.Bloco_0.Registro0001 do begin for IntFor200 := 0 to Registro0140.Items[indice140].Registro0200.Count - 1 do begin if Registro0140.Items[indice140].Registro0200.Items[IntFor200].COD_ITEM = pCOD_ITEM then begin Result := True; Break; end; end; end; end;

Pessoal, Observei 2 pequenos erros na geração do campo 0000. 1. O campo Ind_Sit_Esp só deve ser preenchido se a escrituração fiscal se referir à situação especial decorrente de abertura, cisão, fusão, incorporação ou encerramento da pessoa jurídica. No componente, quando este campo não é preenchido (situação não especial), o arquivo está sendo gerado com este campo = 0, ou seja abertura, para que isso não acontecesse tive que alimentar a variável assim: IND_SIT_ESP := TACBrIndicadorSituacaoEspecial(-1) pq se eu simplesmente não colocasse nada ia como zero. Isto não é bem um erro mas vale a observação para os demais programadores ficarem atentos. 2. O campo NUM_REC_ANTERIOR só deve ser preenchido se o Tipo_ESCRIT = 1, logo se eu nao preencho este campo (para o TIPO_ESCRIT = 0) o mesmo é preenchido com 0000000000000000. Vlw.

with dtmprincipal.ACBrSpedFiscal1.Bloco_0.Registro0001 do begin if not Registro0150.LocalizaRegistro(cod_part_exibir) then begin with Registro0150.New do begin //preencher aqui os campos end; end; end; Prezados, Bom dia, No SPED FISCAL eu usava o codigo acima para adicionar o registro 0150, ou seja, antes de inserir eu verificava se o mesmo nao existia, mas no sped PIS cofins nao estou conseguindo usar este bloco. A funcao LocalizaRegistro ou substituida por alguma outra? alguem sabe como devo fazer este bloco agora? Vlw.

Prezados, Boa tarde, Encontrei um erro tanto nas units ACBrEFDBloco_E.pas quanto ACBrEFDBloco_E_Class.pas Na ACBrEFDBloco_E basta pesquisar pela string "Julho 2010" que serão encontrados 4 linhas comentadas, mas as mesmas se referem ao campo MES_REF que já está em vigor no atual layout do sped. Mesma coisa com a unit ACBrEFDBloco_E_Class que possue 2 linhas comentadas com o mesmo final: Julho 2010. Vlw.

Isaque, Mas as alterações sugeridas não atrapalham layouts anteriores, a inclusão da versão mais nova do layout é somente um item que será acrescentado, e nada será removido. A única duvida que tenho é quanto ao E113 - Chave NFE que deverá ser retirada, mas eu peguei o manual da versão 2.0.2 (Set/2010) então nao sei em versoes anteriores. Me disponho a ajudar nas alterações, mas como? Abraço. Adriano N.

Olá a todos, Baixei o validador do SPED e verifiquei que ele faz o download das tabelas externas atualizadas com os códigos exigidos pelo ATO COTEPE. Alguém sabe se o componente acbr possui algum modo de integração com estas tabelas ou se existe um webservice da receita que permite baixarmos estas informações? Grato.

Saudações amigos, Encontrei alguns erros nos arquivos do AcbrSPED e estou postando aqui tanto o erro quanto a solução para uma possível alteração nos arquivos do componente. -ERRO 1----------------------- Na unit: ACBrEFDBloco_C_Class; procedimento: procedure TBloco_C.WriteRegistroC112(RegC110: TRegistroC110) ; Ao inves de: Add( LFill('C112') + LFill( Integer(COD_DA), 0 ) + LFill( UF ) + LFill( NUM_DA ) + LFill( COD_AUT ) + LFill( VL_DA,0,2 ) ) ; Usar: Add( LFill('C112') + LFill( Integer(COD_DA), 0 ) + LFill( UF ) + LFill( NUM_DA ) + LFill( COD_AUT ) + LFill( VL_DA,0,2 )+ LFill(DT_VCTO) + LFill(DT_PGTO) ) ; Justificativa: Estava faltando os campos DT_VCTO E DT_PGTO -ERRO 2----------------------- Na unit: ACBrEFDBloco_E_Class; procedimento: procedure TBloco_E.WriteRegistroE113(RegE111: TRegistroE111) ; Ao inves de: Add( LFill('E113') + LFill( COD_PART ) + LFill( COD_MOD ) + LFill( SER ) + LFill( SUB ) + LFill( NUM_DOC ) + LFill( DT_DOC ) + LFill( CHV_NFE ) + LFill( COD_ITEM ) + LFill( VL_AJ_ITEM,0 )) ; Usar: Add( LFill('E113') + LFill( COD_PART ) + LFill( COD_MOD ) + LFill( SER ) + LFill( SUB ) + LFill( NUM_DOC ) + LFill( DT_DOC ) + LFill( COD_ITEM ) + LFill( VL_AJ_ITEM,0 )) ; Justificativa: O campo CHV_NFE não existe mais, nem na versão 102 (que já está em vigor) nem na 103 que entrará em janeiro/2011 -ERRO 3----------------------- Na unit: ACBrEFDBloco_0_Class; procedimento: procedure TBloco_0.WriteRegistro0300(Reg0001: TRegistro0001) ; Ao inves de: Add( LFill('0300') + LFill( COD_IND_BEM ) + LFill( IDENT_MERC ) + LFill( DESCR_ITEM ) + LFill( COD_PRNC ) + LFill( COD_CTA ) + DFill( NR_PARC, 0 ) ) ; Usar: Add( LFill('0300') + LFill( COD_IND_BEM ) + LFill( IDENT_MERC,0 ) + LFill( DESCR_ITEM ) + LFill( COD_PRNC ) + LFill( COD_CTA ) + DFill( NR_PARC, 0 ) ) ; Justificativa O campo IDENT_MERC estava sendo intepretado e gravado como data, quando o correto é valor inteiro. -ERRO 4----------------------- Na unit: ACBrEFDBlocos; Ao invez de: TACBrVersaoLeiaute = (vlVersao100, // Código 001 - Versão 100 Ato COTEPE 01/01/2008 vlVersao101, // Código 002 - Versão 101 Ato COTEPE 01/01/2009 vlVersao102 // Código 003 - Versão 102 Ato COTEPE 01/01/2010 ); Usar: TACBrVersaoLeiaute = (vlVersao100, // Código 001 - Versão 100 Ato COTEPE 01/01/2008 vlVersao101, // Código 002 - Versão 101 Ato COTEPE 01/01/2009 vlVersao102, // Código 003 - Versão 102 Ato COTEPE 01/01/2010 vlVersao103 // Código 004 - Versão 103 Ato COTEPE 01/01/2011 ); e na unit: ACBrEFDBloco_0_Class; ao invez de: case COD_VER of vlVersao100: strCOD_VER := '001'; vlVersao101: strCOD_VER := '002'; vlVersao102: strCOD_VER := '003'; end; usar: case COD_VER of vlVersao100: strCOD_VER := '001'; vlVersao101: strCOD_VER := '002'; vlVersao102: strCOD_VER := '003'; vlVersao103: strCOD_VER := '004'; end; Justificativa:com estas alterações daremos o primeiro passo p/ começarmos a trabalhar na versão 103 que entra em vigor em janeiro de 2011 Vlw.

Pessoal, a unit ACBrEFDBloco_1_Class está dois erros que precisam ser corrigidos: 1o Erro: ---------------------------------- dentro do procedimento: procedure TBloco_1.WriteRegistro1200(Reg1001: TRegistro1001) ; antes da linha: Registro1990.QTD_LIN_1 := Registro1990.QTD_LIN_1 + 1; incluir: //registros filhos WriteRegistro1210(Reg1001.Registro1200.Items[intFor]); pois do jeito que está hoje, o registro 1210 não está sendo gerado. ---------------------------------- 2o Erro: Dentro do procedimento: procedure TBloco_1.WriteRegistro1210(Reg1200: TRegistro1200) ; a linha com o conteúdo: LFill( VL_CRED_UTIL) ) ; deverá ser substituída por: LFill( VL_CRED_UTIL,0 ) ) ; pois do jeito que está hoje o VL_CRED_UTIL está vindo como data e esta gravando um valor todo maluco no arquivo. ---------------------------------- Vlw.