Ir para conteúdo
  • Cadastre-se

Daniel Sonda

Membros
  • Total de ítens

    26
  • Registro em

  • Última visita

Tudo que Daniel Sonda postou

  1. No portal da NFe não consta mais a contingência de MG, mas a consulta de cadastro de um CPF continua retornando: cStat>257</cStat> <xMotivo>Rejeicao: Solicitante nao habilitado para emissao da NF-e</xMotivo>
  2. Alguma novidade sobre esse problema? Também estou recebendo o mesmo erro. A empresa é de SC, mas o cliente é de MG. Vi que no post abaixo foi dado uma resposta, mas não ficou claro o motivo.
  3. https://forum.fast-report.com/en/discussion/2929/how-do-i-fix-quot-canvas-does-not-allow-drawing-quot Diz que é preciso ter uma impressora padrão válida. Estava gerando esse erro apenas em modo de debug com FastReport. Defini uma impressora padrão e parou de ocorrer.
  4. Conforme o manual em anexo, o código de juros de mora para o banco Cresol no layout 240 segmento P é: 1 - (real ao dia) 2 - Percentual ao mês Atualmente está enviando "0" para valor e "1" para percentual, conforme o trecho de código abaixo: if (CodigoMora = '') then begin CodigoMora := '0'; if (ValorMoraJuros > 0) then // cjValorDia, cjTaxaMensal begin if (CodigoMoraJuros = cjValorDia) then CodigoMora := '0' else if (CodigoMoraJuros = cjTaxaMensal) then CodigoMora := '1'; end; end; Quando o valor de juro de mora é maior que zero, ocorre o erro em anexo ao importar a remessa no sistema do banco. MANUAL COBRANÇA INTEGRADA.pdf
  5. Boa tarde. Em anexo os arquivos alterados com a implementação do registro K010. ACBrSPEDFiscal.rar
  6. O logotipo oficial do banco Sicoob (756) não possui sombras no símbolo. Abaixo as imagens colorida e preto e branco que gerei para uso próprio.
  7. O banco 085 deixou de ser Cecred e passou a ser Ailos. Conforme outro tópico, parece que nada mudou nos formatos de arquivos, exceto o logo. Então, criei um logo colorido e um preto e branco, baseado num modelo enviado pelo banco. Estão em anexo.
  8. Tenho o layout da etiqueta PPLA pronto num arquivo texto e gostaria de apenas preencher os campos (tags) com os dados necessários e enviar para a impressora usando o TACBrETQ. Não encontrei nenhum método que possa ser passado uma string ou arquivo pronto a ser enviado para a impressora. Apenas os métodos específicos para imprimir texto, códigos de barras, linhas etc.
  9. O manual citado no post abaixo acho que é o de pagamentos e não o de cobranças. A alteração que envia o código do convênio nas posições 33 a 52, talvez tenha sido feita equivocadamente usando o manual de pagamentos. Também passei a ter problemas, com homologações rejeitadas, e agora não preencho mais a propriedade convênio quando for Sicoob.
  10. Quando uso o FastReport para imprimir boletos e mudo a propriedade ModoThread do TACBrBoletoFCFR para True, o logotipo do banco não é carregado usando o evento OnObterLogo. Estou usando o evento OnObterLogo para usar imagens JPG que já tinha no meu app. Descobri que o evento OnProgressStart do TfrxReport não é disparado no ModoThread. Alterei para o evento OnBeforePrint, pois ele dispara mesmo no ModoThread. Também adicionei a linha "frxReport.EngineOptions.NewSilentMode := simReThrow" no ModoThread para levantar as exceções e facilitar a identificação dos bugs em produção. Em anexo os arquivos alterados. ACBrBoletoFCFR.dfm ACBrBoletoFCFR.pas
  11. @econdotta por acaso você teve problemas na validação da Agência e Conta no retorno com layout CNAB 400? Estou recebendo o erro "Agencia: 14800 \ Conta: 00001843 do arquivo não correspondem aos dados do Cedente!". Na leitura do retorno 400, a agência é extraída assim: rAgencia := trim(Copy(ARetorno[1], 18, 5)); rDigitoAgencia := trim(Copy(ARetorno[1], 22, 1)); No arquivo, da posição 18 em diante tem "14800", onde 1480 é a agência e 0 é DV. Então, o correto seria: rAgencia := trim(Copy(ARetorno[1], 18, 4)); rDigitoAgencia := trim(Copy(ARetorno[1], 22, 1));
  12. Boa tarde. Em anexo as units, alterada e criada, para suportar o indicador de pesagem citado. Testei no cliente com a transmissão em modo contínuo, mas implementei tentando tratar um modo manual, que não acumule as strings de resposta. ACBrBAL.pas ACBrBALWeightechWT1000.pas
  13. Preciso integrar com o indicador de pesagem Weightech WT1000-LED, mas nenhuma das implementações atuais parece funcionar. Alguém já fez isso e poderia me indicar o caminho? Ou será necessário implementar? No log, as respostas variam de posição. O indicador está configurado para transmissão contínua, então parece que são concatenadas várias respostas, em posições diferentes. Exemplo 1: 00025.6[CR][LF]0,00025.6,00000.0,00025.6[CR][LF]0,00025.6,00000.0, Exemplo 2: [LF]0,00025.6,00000.0,00025.6[CR][LF]0,00025.6,00000.0,00025.6[CR] indicador-wt1000led-manual.pdf
  14. Na impressão do boleto usando Fast Report (unit ACBrBoletoFCFR), a logo do banco é carregada sempre pelo diretório de logos, através do método ImprimeLogoMarca. Anexei a unit com as alterações para chamar o método CarregaLogo da TACBrBoletoFCClass no ImprimeLogoMarca, com o objetivo de disparar primeiro o evento OnObterLogo e, se não tratado, daí carregar a imagem do diretório de logos. Olhei os fontes da impressão usando Fortes Report e lá é usado o CarregaLogo. ACBrBoletoFCFR.pas
  15. No método CarregaFastReportFile é feito isso mesmo. Obrigado.
  16. Analisei o projeto de exemplo, os fontes do componente e pesquisei no fórum, mas não ficou claro como editar a impressão do boleto usando o designer do FastReport. Também, considerando que o layout editado (FR3) seja salvo no banco de dados, como posso carregá-lo para o componente usando Report.LoadFromStream? Analisei o método imprimir e parece ser necessário alterá-lo ou criar outro método passando a Stream por parâmetro.
  17. Bom dia Davi. Como está o suporte à Sicredi? Homologado? Em produção? Poderia postar os fontes? Posso ajudar nos ajustes e conversão pro trunk2.
  18. Agora com os arquivos corretos. Me desculpem. ACBrEFDBloco_C_Class.pas ACBrEFDBloco_D_Class.pas ACBrEFDBlocos.pas
  19. Apliquei as alterações nos fontes originais do projeto. Houve correção também na identação da unit ACBrEFDBloco_C_Class.pas. ACBrEFDBloco_D_Class.pas ACBrEFDBlocos.pas
  20. Ok, arquivos anexados. ACBrEFDBloco_C_Class.pas ACBrEFDBloco_D_Class.pas ACBrEFDBlocos.pas
  21. Boa tarde. Mesmo que o registro D100 use uma lista diferente de tipos para o campo do indicador do frete no registro C100, creio que seja possível usar o mesmo tipo de dados e apenas mapear os valores ao gerar o conteúdo do arquivo. Não vou postar as units porque uso uma versão modificada do projeto, com propriedades adicionais. Então, pra reduzir os conflitos, vou postar apenas o código modificado em cada unit. ACBrEFDBlocos.pas /// Indicador do tipo do frete TACBrIndFrt = (tfPorContaEmitente, // 0 - Contratação do Frete por conta do Remetente (CIF) tfPorContaDestinatario, // 1 - Contratação do Frete por conta do Destinatário (FOB) tfPorContaTerceiros, // 2 - Contratação do Frete por conta de Terceiros tfProprioPorContaRemetente, // 3 - Transporte Próprio por conta do Remetente tfProprioPorContaDestinatario, // 4 - Transporte Próprio por conta do Destinatário tfSemCobrancaFrete, // 9 - Sem Ocorrência de Transporte tfNenhum // Preencher vazio ); ACBrEFDBloco_D_Class.pas if DT_INI < EncodeDate(2012,07,01) then begin case IND_FRT of tfPorContaTerceiros: strIND_FRT := '0'; tfPorContaEmitente, tfProprioPorContaRemetente: strIND_FRT := '1'; tfPorContaDestinatario, tfProprioPorContaDestinatario: strIND_FRT := '2'; tfSemCobrancaFrete: strIND_FRT := '9'; tfNenhum: strIND_FRT := ''; end end else begin case IND_FRT of tfPorContaEmitente, tfProprioPorContaRemetente: strIND_FRT := '0'; tfPorContaDestinatario, tfProprioPorContaDestinatario: strIND_FRT := '1'; tfPorContaTerceiros: strIND_FRT := '2'; tfSemCobrancaFrete: strIND_FRT := '9'; tfNenhum: strIND_FRT := ''; end; end; ACBrEFDBloco_C_Class.pas if DT_INI < EncodeDate(2012,01,01) then begin case IND_FRT of tfPorContaTerceiros: strIND_FRT := '0'; tfPorContaEmitente, tfProprioPorContaRemetente: strIND_FRT := '1'; tfPorContaDestinatario, tfProprioPorContaDestinatario: strIND_FRT := '2'; tfSemCobrancaFrete: strIND_FRT := '9'; tfNenhum: strIND_FRT := ''; end end else if DT_INI < EncodeDate(2018,01,01) then begin case IND_FRT of tfPorContaEmitente, tfProprioPorContaRemetente: strIND_FRT := '0'; tfPorContaDestinatario, tfProprioPorContaDestinatario: strIND_FRT := '1'; tfPorContaTerceiros: strIND_FRT := '2'; tfSemCobrancaFrete: strIND_FRT := '9'; tfNenhum: strIND_FRT := ''; end; end else begin case IND_FRT of tfPorContaEmitente: strIND_FRT := '0'; tfPorContaDestinatario: strIND_FRT := '1'; tfPorContaTerceiros: strIND_FRT := '2'; tfProprioPorContaRemetente: strIND_FRT := '3'; tfProprioPorContaDestinatario: strIND_FRT := '4'; tfSemCobrancaFrete: strIND_FRT := '9'; tfNenhum: strIND_FRT := ''; end; end;
  22. Descobri a solução no issue tracker da JEDI: http://issuetracker.delphi-jedi.org/view.php?id=6511 Desmarque as opções abaixo, que são relacionadas com o C++: - Copy HPP files to configured HPP directory - Check HPP files
  23. Estou instalando a JEDI no Berlin (registrado) e recebo o erro "bcc32.exe not found". Notei que ele exibe no log "Installed personalities: 32/64 bit Delphi e 32 bit C++Builder" (imagem em anexo), mas não tenho o C++Builder instalado, apenas o Delphi. Alguma ideia?
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.

The popup will be closed in 10 segundos...
The popup will be closed in 10 segundos...