Cleiver

obrigado

Após atualização esta apresentando o seguinte erro: Compiling package D:\Delphi 2010\ACBrTrunck2\Pacotes\Delphi\ACBrDFe\ACBrNFSe\ACBr_NFSe.dpk "C:\Program Files (x86)\Embarcadero\RAD Studio\7.0\bin\dcc32.exe" "D:\Delphi 2010\ACBrTrunck2\Pacotes\Delphi\ACBrDFe\ACBrNFSe\ACBr_NFSe.dpk" Embarcadero Delphi for Win32 compiler version 21.0 Copyright (c) 1983,2009 Embarcadero Technologies, Inc. D:\Delphi 2010\ACBrTrunck2\Fontes\ACBrDFe\ACBrNFSe\PCNNFSe\pnfsLerListaNFSe.pas(1305) Error: E2018 Record, object or class type required D:\Delphi 2010\ACBrTrunck2\Fontes\ACBrDFe\ACBrNFSe\PCNNFSe\pnfsLerListaNFSe.pas(1376) Error: E2029 'END' expected but 'EXCEPT' found D:\Delphi 2010\ACBrTrunck2\Fontes\ACBrDFe\ACBrNFSe\PCNNFSe\pnfsLerListaNFSe.pas(1378) Error: E2125 EXCEPT or FINALLY expected D:\Delphi 2010\ACBrTrunck2\Fontes\ACBrDFe\ACBrNFSe\PCNNFSe\pnfsLerListaNFSe.pas(1381) Error: E2125 EXCEPT or FINALLY expected D:\Delphi 2010\ACBrTrunck2\Fontes\ACBrDFe\ACBrNFSe\PCNNFSe\pnfsLerListaNFSe.pas(1383) Error: E2029 'END' expected but end of file found D:\Delphi 2010\ACBrTrunck2\Fontes\ACBrDFe\ACBrNFSe\PCNNFSe\pnfsLerListaNFSe.pas(1383) Error: E2029 ';' expected but end of file found D:\Delphi 2010\ACBrTrunck2\Fontes\ACBrDFe\ACBrNFSe\ACBrNFSeWebServices.pas(47) Fatal: F2063 Could not compile used unit '..\..\..\..\Fontes\ACBrDFe\ACBrNFSe\PCNNFSe\pnfsLerListaNFSe.pas' Compilation failure Erro ao compilar o pacote "ACBr_NFSe.dpk". Abortando... Ocorreram erros na compilação dos pacotes. Me parece que esta utilizados recursos das versões mais nova do Delphi e estou utilizando o 2010. leitor.Arquivo.Contains abs Cleiver

segue a dica que postei acima

segue o que fiz nesse post

Renata, Bom dia, segue a dica que postei acima, porque o meu sistema esta funcionando normalmente.

se vc verificar na função LerXML na unit ACBrNFeNotasFiscais já existe uma regra igual a que acrescentei. o problema é que em todas as Tag esta retornando ( xmlns="http://www.portalfiscal.inf.br/nfe") <tpAmb xmlns="http://www.portalfiscal.inf.br/nfe">1</tpAmb> <verAplic xmlns="http://www.portalfiscal.inf.br/nfe">W-1.4.23</verAplic> <cStat xmlns="http://www.portalfiscal.inf.br/nfe">100</cStat> <xMotivo xmlns="http://www.portalfiscal.inf.br/nfe">Autorizado o uso da NF-e</xMotivo> <cUF xmlns="http://www.portalfiscal.inf.br/nfe">31</cUF> <dhRecbto xmlns="http://www.portalfiscal.inf.br/nfe">2019-09-26T09:02:59-03:00</dhRecbto>

Essa solução foi aplicada seguindo o mesmo critério de retorno de uma nota, no meu caso a nota foi enviada só que tive problema de TimeOut quando fiz uma consulta analisado o retorno notei que vinha dados em cada tag que estava impedindo a alimentação correta do componente.

Não esta fora, tem um retorno na consulta que esta impedindo a alimentação nos dados de retorno. abri um tópico com uma solução que resolveu aqui para min.

Ao consulta uma NFC-e esta retornando em cada tag ' xmlns="http://www.portalfiscal.inf.br/nfe"' e provoca um erro no retorno dos dados. para resolver a solução foi acrescentar. function TNFeConsulta.TratarResposta: Boolean; FPRetWS := StringReplace(FPRetWS, ' xmlns="http://www.portalfiscal.inf.br/nfe"', '', [rfReplaceAll]); function TNFeRecepcao.TratarResposta: Boolean; AXML := StringReplace(AXML, ' xmlns="http://www.portalfiscal.inf.br/nfe"', '', [rfReplaceAll]); segue em anexo arquivos: ACBrNFeWebServices.pas 80800439-pro-lot.xml

obrigado, sugeri eles a fazer a leitura pelo Código do evento e não pela descrição, enviei o xsd e o link do site da receita. pode fechar o topico abs.

o suporte de um software contábil que é o mais utilizado na Bahia, o Software Dominio. Informou para o contador de um de nossos clientes que o xml de cancelamento de substituição está sendo gerado com uma informação incorreta. O que impossibilita a importação dos eventos de cancelamento. Segundo o mesmo a tag descEvento deveria esta com a informação "Cancelamento por substituição" estive verificando function TInfEvento.getDescEvento: String; begin case fTpEvento of teCCe : Result := 'Carta de Correcao'; teCancelamento : Result := 'Cancelamento'; teCancSubst : Result := 'Cancelamento por substituicao'; gostaria de saber é possível alterar essa informação. abs

Fiz o teste e funcionou, obrigado

Pelo teste que realizei não apresentou problema, tenho clientes no DF e no PI onde o serviço é permitido na NFCe e esta funcionando com essa correção.

NFC-e de serviço não esta apresentando o valor no campo "Valores dos Produtos" segue em anexo unit com a correção na linha 934. FieldByName('VProd').AsFloat := VProd + FNFe.Total.ISSQNtot.vServ; ACBrNFeDANFEFRDM.pas

Erro apos a ultima atualização. D:\Delphi 2010\ACBrTrunck2\Fontes\ACBrBoleto\ACBrBancoSafra.pas(843) Error: E2018 Record, object or class type required D:\Delphi 2010\ACBrTrunck2\Fontes\ACBrBoleto\ACBrBancoSafra.pas(846) Error: E2018 Record, object or class type required D:\Delphi 2010\ACBrTrunck2\Fontes\ACBrBoleto\ACBrBancoSafra.pas(860) Error: E2003 Undeclared identifier: 'tipoInscricao' D:\Delphi 2010\ACBrTrunck2\Fontes\ACBrBoleto\ACBrBancoSafra.pas(864) Error: E2003 Undeclared identifier: 'aAgencia' D:\Delphi 2010\ACBrTrunck2\Fontes\ACBrBoleto\ACBrBancoSafra.pas(867) Error: E2003 Undeclared identifier: 'aConta' D:\Delphi 2010\ACBrTrunck2\Fontes\ACBrBoleto\ACBrBancoSafra.pas(872) Error: E2003 Undeclared identifier: 'Ocorrencia' D:\Delphi 2010\ACBrTrunck2\Fontes\ACBrBoleto\ACBrBancoSafra.pas(889) Error: E2003 Undeclared identifier: 'aEspecie' D:\Delphi 2010\ACBrTrunck2\Fontes\ACBrBoleto\ACBrBancoSafra.pas(902) Error: E2003 Undeclared identifier: 'aAceite' D:\Delphi 2010\ACBrTrunck2\Fontes\ACBrBoleto\ACBrBancoSafra.pas(907) Error: E2003 Undeclared identifier: 'aInstrucao2' D:\Delphi 2010\ACBrTrunck2\Fontes\ACBrBoleto\ACBrBancoSafra.pas(912) Error: E2003 Undeclared identifier: 'aTipoSacado' D:\Delphi 2010\ACBrTrunck2\Fontes\ACBrBoleto\ACBrBancoSafra.pas(923) Error: E2003 Undeclared identifier: 'wLinha' D:\Delphi 2010\ACBrTrunck2\Fontes\ACBrBoleto\ACBrBancoSafra.pas(927) Error: E2010 Incompatible types: 'string' and 'Integer' D:\Delphi 2010\ACBrTrunck2\Fontes\ACBrBoleto\ACBrBancoSafra.pas(939) Error: E2010 Incompatible types: 'string' and 'Integer' D:\Delphi 2010\ACBrTrunck2\Fontes\ACBrBoleto\ACBrBancoSafra.pas(946) Error: E2010 Incompatible types: 'string' and 'Integer' D:\Delphi 2010\ACBrTrunck2\Fontes\ACBrBoleto\ACBrBancoSafra.pas(949) Error: E2010 Incompatible types: 'string' and 'Integer' D:\Delphi 2010\ACBrTrunck2\Fontes\ACBrBoleto\ACBrBancoSafra.pas(955) Error: E2015 Operator not applicable to this operand type D:\Delphi 2010\ACBrTrunck2\Fontes\ACBrBoleto\ACBrBancoSafra.pas(956) Error: E2015 Operator not applicable to this operand type D:\Delphi 2010\ACBrTrunck2\Fontes\ACBrBoleto\ACBrBancoSafra.pas(960) Error: E2250 There is no overloaded version of 'IfThen' that can be called with these arguments D:\Delphi 2010\ACBrTrunck2\Fontes\ACBrBoleto\ACBrBancoSafra.pas(962) Error: E2010 Incompatible types: 'string' and 'Integer' D:\Delphi 2010\ACBrTrunck2\Fontes\ACBrBoleto\ACBrBancoSafra.pas(973) Error: E2003 Undeclared identifier: 'aRemessa' D:\Delphi 2010\ACBrTrunck2\Fontes\ACBrBoleto\ACBrBancoSafra.pas(973) Error: E2029 '(' expected but ',' found D:\Delphi 2010\ACBrTrunck2\Fontes\ACBrBoleto\ACBrBancoSafra.pas(974) Error: E2035 Not enough actual parameters D:\Delphi 2010\ACBrTrunck2\Fontes\ACBrBoleto\ACBrBancoSafra.pas(74) Error: E2065 Unsatisfied forward or external declaration: 'TACBrBancoSafra.GerarRegistroTransacao400' D:\Delphi 2010\ACBrTrunck2\Fontes\ACBrBoleto\ACBrBoleto.pas(1438) Fatal: F2063 Could not compile used unit '..\..\..\Fontes\ACBrBoleto\ACBrBancoSafra.pas' Compilation failure Erro ao compilar o pacote "ACBr_Boleto.dpk". Abortando... Ocorreram erros na compilação dos pacotes.