Waldir Paim

Você usa Delphi 7? Abre o form do DANFe pelo seu delphi (clique em ignore all) e salva novamente, ele deve ignorar essas propriedades que so existem nos delphis mais novos.

Tem um tempo que foi implementado o papel continuo no Fortes CE. Quem tem essa limitação e o tamanho do papel .

Você precisa criar um papel com tamanho personalizado para essa impressora usar. Tirei esse texto da internet.

Na sua estrutura o melhor caminho e seguir usando datasnapRest; Precisa fazer um debug nesse método para chegar no ponto do erro; Poe um break point no código do servidor nesse ponto e vai seguindo ate chegar no erro.

Veja se te serve: declare a unit sntpsend.pas; uses um dos servidores abaixo para obter as respostas: pool.ntp.org time.windows.com function TrySNTPDateTime(out ADate: TDateTime; const AServer: string; const ATimeOut: Integer = 2000): Boolean; var V: TSNTPSend; begin V := TSNTPSend.Create; try try V.Timeout := ATimeOut; V.TargetHost := AServer; with V.Sock do begin SetTimeout(ATimeOut); ConnectionTimeout := ATimeOut; InterPacketTimeout := False; NonblockSendTimeout := ATimeOut; SocksTimeout := ATimeOut; end; Result := V.GetSNTP; if Result then ADate := TTimeZone.local.ToLocalTime(V.NTPTime); except on E: Exception do begin ADate := 0; Result := False; end; end; finally V.Free; end; end;

@KriarTecnologia Você precisar criar um back-end para consumir o ACBrNFe por uma estrutura WEB.

Pelo que entendi as suas alterações mesmo que muito confuso faz um pouco de sentido. Vamos tomar por base esse exemplo onde você aplicou os comentários; No meu entendimento se o tamanho estiver certo 9 dígitos ele aplica e faz a validação caso contrario passa direto e não avisa que esta fora do tamanho esperado; O que poderia ser feito nesse caso e gerar uma exceção avisando que o tamanho esta fora do esperado.

Ok, vou pedir para o pessoal avaliar essa alteração proposta;

Arquivo ACBrBoleto.pas com tratamento para evitar erro de conversão; ACBrBoleto.pas

Seu arquivo de retorno tem um erro: Na no header ele esta com o código do banco errado, em vez de 748 ele tem 744; Teste com o arquivo em anexo; Havia um erro na função de conversão de enumerador para string; Eu acho que vão te solicitar o manual desse banco, se tiver ja anexa pra amanha o pessoal fazer a analise e aprovar ou não essas alterações. ACBrBancoSicredi.pas

Não deveria ser? with ACBrBoleto1.ListadeBoletos.Objects[I] do Você não esta considerando o "I" com isso seu código não assume o cursor do loop e fica parado no mesmo lugar; Tem ias erros no seu código em seguida posto mais;

@jburda Estive analisando o código de leitura de retorno da unit ACBrBancoSicredi.pas; Pelo que pude ver o código esta certo e o retorno 09 e capturado e retornado corretamente. Observe que nas linhas citadas o código esta coerente e obtendo o valor das colunas corretas. Observe que o tratamento também e feito para que o retorno ocorra no enumerado citado por ti; No meu ponto de vista você precisa revisar seu código e ver se descobre o que ocorre nele; Vou aproveitar e sugerir uma pequena melhoria nas linhas de captura do código; Nas linhas acima gostaria de trocar por: CodOcorrencia := StrToIntDef(copy(Linha,109,2),0); OcorrenciaOriginal.Tipo := CodOcorrenciaToTipo(CodOcorrencia); Observe que agora ocorre apenas um Copy e não dois como no código original; Alem de não usar o IfThen para testar se torna 00 que nesse caso o tratamento de StrToIntDef( String, 0 ); ja faz; ACBrBancoSicredi.pas

Não entendo muito bem do Lazarus, não sei se mesmo o de 64 gera aplicativos de 32 bits. A dll e de 32 e se você estiver rodando o exemplo em 64 bits não vai funcionar também.

Tem mais uma coisa ainda; Qual sua versão do Lazarus? 32 ou 64 bits?

Como te falei, recebi junto com a versão de debug.

Qual a versão do Delphi? Esta rodando em modo de release? Na pasta do exe. Sim, em modo de debug tem a CliSiTef32I.dll, libemv.dll e uma outra que não sei se aplica.

Por desencargo de consciência! Executa o ACBrTEFDemo em modo de release! vai notar que não ocorre o erro. Apenas acontece em modo de debug.

Não! quem te envia eh a Sofware Express ou a empresa que você contratou para fazer a intermediação para você. Junto com a dll (solicite a dll com suporte a debug) você recebe o manual e o SitDemo, um servidor que funciona apenas para homologação. Sim, Para o Exemplo do CliSitef usando gpCliSitef você precisa do SitDemo instalado. Depois de homologado ai você tem o servidor de produção. Você pode encontra ainda alguns tópicos aqui no forum: https://www.projetoacbr.com.br/forum/topic/42392-configurar-sitdemo/

No botão da mensagem da um CRTL+ C, ele copia o conteudo todo da mensagem e cola aqui. Mas tenho certeza que sua dll ta sem suporte a debug.

Você precisa solicitar a CliSiTef32I.dll com suporte a debug. Passei por isso na semana passada e recebi a diga de @Daniel Simoes

Valeu @Italo Jurisato Junior Testei aqui e importando certinho.

Arquivo atualizado.

@Lucas Martendal Muito boa sua iniciativa, num projeto open source forte todos contribuem. Mas seu arquivo em anexo esta bastante desatualizado, vou fazer um merge e anexar um arquivo mais atualizado. pcnNFeR.pas

Segue unit em anexo. Na unit ACBrNFeDANFeRL.pas quando criar o form ja atribui o Filtro para PDF. Nas outras duas uma remoção de hint. ACBrNFeDANFeRLSimplificado.pas ACBrNFeDANFeRLPaisagem.pas

Pode entrar em contato comigo. [email protected] Apenas fizemos o binding da dll deles em C para o pascal. Não temos nenhum vinculo com a pagseguro.