Solivan

Vou testar esse novo método Daniel , Obrigado pela informação.

Estou utilizando OpenSSL com essa diretiva ativada: {$DEFINE USE_MINGW}

Boa tarde, Recentemente, fiz alguns testes com essa propriedade "CertTipo" e constatei que ela simplesmente não funcionou aqui ... pode ser o seu caso, não?

Não tive problemas ao utilizar TEF com apenas um cartão.

Não testei ainda, desenvolvi TEF há muito tempo, porem não tenho nenhum cliente pra utilizar todos utilizam maquina POS, mas quando testei só consegui usar um cartão. quando adicionava o outro dava esse erro ai.

Tambem tive esse problema, quando usado dois cartões nunca consegui fazer funcionar, mas não sei se é correto colocar um valor fixo, como troco.

Sim, adicione um componente ACBRNFeDanfeFR no form e na propriedade ACBRNFeDanfeFR.FastFile := 'arquivodo Fast.fr3' ;

Esse arquivo "NFCeTermica.fr3" é utilizado pelo Fast Report e não fortes.

Consegui um retorno do provedor, preciso pedir a liberação para emitir RPS. meio caminho andado.

Tentei a sua sugestão, porém o sistema entra num loop infinito e trava.

Não quero ser apressado demais, mas alguém dos colaboradores tem alguma solução para este problema?

Somente esse arquivo eu acho, pois peguei da pasta do meu sistema e não do repositório

Estou com esse mesmo problema. Troquei meu HD por um SSD essa semana e instalei tudo do zero e a mensagem continua. Estrutura do xml recebido incorreta. javax.xml.bind.MarshalException - with linked exception:[org.xml.sax.SAXParseException; lineNumber: 0; columnNumber: 0; cvc-complex-type.2.4.d: Invalid content was found starting with element 'ns2:Signature'. No child element is expected at this point.]. Valide as tags do xml antes de enviar. 1-env-lot.xml 1-env-lot-soap.xml 1-rec.xml 1-rec-soap.xml

Estou com esse mesmo problema. Troquei meu HD por um SSD essa semana e instalei tudo do zero e a mensagem continua. Estrutura do xml recebido incorreta. javax.xml.bind.MarshalException - with linked exception:[org.xml.sax.SAXParseException; lineNumber: 0; columnNumber: 0; cvc-complex-type.2.4.d: Invalid content was found starting with element 'ns2:Signature'. No child element is expected at this point.]. Valide as tags do xml antes de enviar.

boa noite; Segue em anexo arquivo de configuração da NFS-e, pois o IP da cidade de Rio Maria, PA, para o provedor Fiorilli foi alterado. Arquivo em anexo com as alterações efetuadas. Obrigado. Novo endereço: http://177.75.236.132:8080/IssWeb-ejb/IssWebWS/IssWebWS?wsdl Fiorilli.INI

Geralmente o valor da entrada é quase sempre em dinheiro e o restante pode ser cheque, duplicata, etc... vou postar um pedaço do código que uso... if (FQueryFPagam.RecordCount > 0) and (FUtil.LerConfig('NFe_Config', 'Versao', 0) > 0) then begin FQueryFPagam.First; for nFaturas := 0 to FQueryFPagam.RecordCount-1 do begin with Pag.Add do begin tPag := FormaPagamentoToClass(FQueryFPagam.FieldByName('Natureza').AsInteger); if tPag = fpSemPagamento then vPag := 0 else vPag := FQueryFPagam.FieldByName('Valor').AsCurrency ; tpIntegra := tiNaoInformado ; if tPag in [fpCartaoCredito, fpCartaoDebito] then begin if FQueryFPagam.FieldByName('TipoIntegracao').AsInteger = 1 then tpIntegra := tiPagIntegrado else tpIntegra := tiPagNaoIntegrado ; case FQueryFPagam.FieldByName('Bandeira').AsInteger of 1 : tBand := bcVisa ; 2 : tBand := bcMasterCard ; 3 : tBand := bcAmericanExpress ; 4 : tBand := bcSorocred ; 5 : tBand := bcDinersClub ; 6 : tBand := bcElo ; 7 : tBand := bcHipercard ; 8 : tBand := bcAura ; 9 : tBand := bcCabal ; 99 : tBand := bcOutros ; end ; CNPJ := OnlyNumber(FQueryFPagam.FieldByName('CNPJCredenciadora').AsString) ; cAut := FQueryFPagam.FieldByName('NumeroAutorizacao').AsString ; end; end; FQueryFPagam.Next; end; end; function TEmissaoNFe.FormaPagamentoToClass(FCodPagamento: Integer): TpcnFormaPagamento ; begin case FCodPagamento of 0 : Result := TpcnFormaPagamento.fpDinheiro ; 1 : Result := TpcnFormaPagamento.fpCheque ; 2 : Result := TpcnFormaPagamento.fpCartaoCredito ; 3 : Result := TpcnFormaPagamento.fpCartaoDebito ; 4 : Result := TpcnFormaPagamento.fpValeAlimentacao ; 5 : Result := TpcnFormaPagamento.fpDuplicataMercantil ; 6 : Result := TpcnFormaPagamento.fpSemPagamento ; 7 : Result := TpcnFormaPagamento.fpSemPagamento ; 8 : Result := TpcnFormaPagamento.fpOutro ; 9 : Result := TpcnFormaPagamento.fpBoletoBancario ; 10 : Result := TpcnFormaPagamento.fpSemPagamento ; end; end;

Isso bem possível, é só fazer um loop e preencher as formas de pagamento. Uso aqui e nunca tive problemas.

Acredito que no retorno da transação com cartão de crédito você possa conferir essa informação.

Bom dia, atualizei meu ACBr e ao reinstalar me deparei com um erro, em algumas propriedades que me parecem não estarem visiveis ; Linha 1076 do arquivo ACBrLibXml2.pas: procedure TACBrXmlDocument.SaveToStream(AStream: TStream); begin AStream.WriteAnsiString(Xml); end; "C:\Program Files\Embarcadero\Studio\19.0\bin\dcc32.exe" "D:\Fontes\Componentes\ACBr2\Pacotes\Delphi\ACBrDFe\ACBr_DFeComum.dpk" Embarcadero Delphi for Win32 compiler version 32.0 Copyright (c) 1983,2017 Embarcadero Technologies, Inc. D:\Fontes\Componentes\ACBr2\Fontes\ACBrDFe\ACBrLibXml2.pas(1078) Error: E2003 Undeclared identifier: 'WriteAnsiString' D:\Fontes\Componentes\ACBr2\Fontes\ACBrDFe\ACBrLibXml2.pas(1135) Error: E2003 Undeclared identifier: 'ReadAnsiString' D:\Fontes\Componentes\ACBr2\Fontes\ACBrDFe\ACBrDFeXsLibXml2.pas(2266) Fatal: F2063 Could not compile used unit 'ACBrLibXml2.pas' Compilation failure Erro ao compilar o pacote "ACBr_DFeComum.dpk". Abortando... Ocorreram erros na compilação dos pacotes. Obrigado!

Por acaso você não inverteu o emitente pelo destinatário? Pois analisando o seu XML pude perceber que o seu emitente é uma pessoa física, está correto? <emit> <CPF>45560641553</CPF> <xNome>RICARDO YAMADA</xNome> <xFant>RICARDO YAMADA</xFant>

Efetue a limpeza do componente no seu computador e depois execute a instalação do componente novamente, que esse erro simplesmente desaparece! verifique também pela existência de arquivos na pasta bpl do Delphi, se encontrado favor apagar.

Os caras são bons irmão.

Obrigado Daniel

Boa tarde, Fiz uma pequena implementação, criei uma propriedade do tipo TStringList, para que esta receba o nome dos arquivos criados após a geração dos arquivos. Se alguem puder analizar e subir se possivel, a mudança não afetou em nada a geração dos arquivos. A intenção da implementação é pra ser utilizado da seguinte forma: for L := 0 to ACBrCargaBal.ArquivosGerados.Count -1 do begin NomeArquivo := ACBrCargaBal.ArquivosGerados.Strings[L] ; end; Obrigado! ACBrCargaBal.pas

Bom dia; Após atualizar os fontes do projeto ACBr um erro surgiu no arquivo ACBrBase conforme imagem em anexo. Mensagem Original: [dcc32 Error] ACBrBase.pas(181): E2008 Incompatible types - Tipos incompatíveis. Linha do erro(181): property Fields[Index: String]: TAcbrInformacao read GetFields; default; IDE: Rad Studio 10.2 Tokyo