Jump to content

Daniel Sonda

Membros
  • Content Count

    14
  • Joined

  • Last visited

Community Reputation

6 Neutral

About Daniel Sonda

  • Rank
    Novato

Profile Information

  • Localização
    Cunha Porã, SC

Recent Profile Visitors

472 profile views
  1. 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
  2. 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
  3. 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
  4. 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.
  5. 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.
  6. Agora com os arquivos corretos. Me desculpem. ACBrEFDBloco_C_Class.pas ACBrEFDBloco_D_Class.pas ACBrEFDBlocos.pas
  7. 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
  8. Ok, arquivos anexados. ACBrEFDBloco_C_Class.pas ACBrEFDBloco_D_Class.pas ACBrEFDBlocos.pas
  9. 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;
  10. 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
  11. 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?
  12. Utilizo o componente TACBrNFe para importar ler os dados das notas que o usuário recebe e então importá-la para o ERP. Utilizo o método LoadFromStream da classe TNotasFiscais para carregar o conteúdo do XML. Esse método, além do LoadFromFile e LoadFromString, executam o método GerarNFe após carregar os dados, fazendo com que a chave da NFe seja remontada. Entretanto, no caso de NFe avulsa, o CNPJ do emitente presente na chave é o CNPJ da SEFAZ e não da empresa que emitiu a nota. Então após carregar o XML, a chave acaba sendo alterado porque é remontada usando o CNPJ da empresa emitente. Verifique os métodos idênticos no CTe e eles possuem um parâmetro adicional para não executar o GerarCTe, criado a pedido deste post Implementei a mesma lógica nos métodos da NFe na minha working copy, mas acredito que poderiam ser incorporados ao trunk.
×
×
  • Create New...