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. 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.
  16. 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.
  17. Agora com os arquivos corretos. Me desculpem. ACBrEFDBloco_C_Class.pas ACBrEFDBloco_D_Class.pas ACBrEFDBlocos.pas
  18. 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
  19. Ok, arquivos anexados. ACBrEFDBloco_C_Class.pas ACBrEFDBloco_D_Class.pas ACBrEFDBlocos.pas
  20. 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;
  21. 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
  22. 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.