Ir para conteúdo
  • Cadastre-se

Waldir Paim

Moderadores
  • Total de ítens

    457
  • Registro em

  • Última visita

  • Days Won

    1

Waldir Paim last won the day on 23 Agosto 2016

Waldir Paim had the most liked content!

Reputação

150 Excelente

6 Seguidores

Últimos Visitantes

1.833 visualizações
  1. 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.
  2. Tem um tempo que foi implementado o papel continuo no Fortes CE. Quem tem essa limitação e o tamanho do papel .
  3. Você precisa criar um papel com tamanho personalizado para essa impressora usar. Tirei esse texto da internet.
  4. 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.
  5. 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;
  6. @KriarTecnologia Você precisar criar um back-end para consumir o ACBrNFe por uma estrutura WEB.
  7. 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.
  8. Ok, vou pedir para o pessoal avaliar essa alteração proposta;
  9. Arquivo ACBrBoleto.pas com tratamento para evitar erro de conversão; ACBrBoleto.pas
  10. 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
  11. 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;
  12. @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
  13. 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.
×