Ir para conteúdo
  • Cadastre-se

Rafael Cruz

Membros
  • Total de ítens

    146
  • Registro em

  • Última visita

Posts postados por Rafael Cruz

  1. Só pra atualizar, consegui resolver o problema da impressão alterando a resolução de tela, verifiquei a maquina que imprimia sem problemas, resolução 1366 x 766, a maquina que não imprimia correto, estava em full HD, 1920 x 1080, ao baixar a resolução e testar, a impressão saiu correta. Agradeço aos tópicos e a atenção de todos pela ajuda!

    • Curtir 1
  2. Olá pessoal! Estava gerando CTes de duas maquinas, com um sistema com as mesmas configurações, em questão de arquivos e caminho de banco de dados( 2 terminais pra um mesmo servidor), ambos emitem o CTe sem problemas, da "Autorizado pela sefaz", porem na hora de imprimir, 1 deles(Vou definir como PC1) gera o DACTE correto, com o novo padrão com QRCode, mas a outra(PC2) gera sem o QRCode, mesmo com o xml contendo a tag, tentei trocar pasta schemas, até copiei a pasta completa do sistema do PC1 para o PC2, porem ainda o layout de impressão continuou diferente. Alguem ja passou por algo parecido ou saiba o que possa estar acontecendo?

  3. Bom dia Juliana, 

     

    Fiz atualização do ACBr em outro pc e continua da mesma forma

     

          if DataProtesto <> 0 then
          begin
             if TipoDiasProtesto = diCorridos then
                AStringList.Add(ACBrStr('Protestar em ' + IntToStr(DaysBetween(Vencimento, DataProtesto))+ ' dias corridos após o vencimento'))
             else
                AStringList.Add(ACBrStr('Protestar no ' + IntToStr(DaysBetween(Vencimento, DataProtesto))+ ' dia útil após o vencimento'));
          end;
     

    e não tem a property nova que criei

     

    Fico no aguardo

     

  4. Fiz o seguinte pra resolver isso da impressão

    na unit ACBrBoleto

    no private criei

        fDiasDeProtesto: Integer;

    criei uma property

        property DiasDeProtesto: Integer read fDiasDeProtesto write fDiasDeProtesto;

    no create 

      fDiasDeProtesto := 0;

    e na impressão

          if TipoDiasProtesto = diCorridos then
            AStringList.Add
              (ACBrStr('Protestar em ' + IntToStr(DaysBetween(Vencimento,
              DataProtesto)) + ' dias corridos após o vencimento'))
          else
            AStringList.Add
              (ACBrStr('Protestar no ' + IntToStr(DiasDeProtesto) + ' dia útil após o vencimento'));
     

    PS: não pude usar property DiasProtesto pq já era usada no banco do brasil

    só passei o numero de dias de protesto na property nova.

    Se tiver outra solução ou for essa o componente poderia ser ajustado

     

    No aguardo

     

  5. Boa tarde, 

    Estou verificando a emissão de boleto CNAB 400 para banco Itau e surgiu um detalhe. Cliente com protesto 7 dias uteis, o vencimento do titulo é 21/12.. 7 dias corridos a data do protesto é 30/12.
    Eu seto então as 2 datas nas respectivas propriedades. O componente então lança faz o seguinte

          if DataProtesto <> 0 then
          begin
             if TipoDiasProtesto = diCorridos then
                AStringList.Add(ACBrStr('Protestar em ' + IntToStr(DaysBetween(Vencimento, DataProtesto))+ ' dias corridos após o vencimento'))
             else
                AStringList.Add(ACBrStr('Protestar no ' + IntToStr(DaysBetween(Vencimento, DataProtesto))+ ' dia útil após o vencimento'));
          end;
     

    Para dia util portanto, esta usando o DaysBetween, e a mensagem sai com 9 dias úteis após vencimento, quando o correto seria 7 dias. Verifiquei se existe a propriedades DiasUteis no componente ou algo do tipo, ai alteraria essa função acima mais não encontrei. 

    Alguem resolveu esse detalhe?

     

     

     

     

     

     

  6. Bom dia a todos, 

    estou instalando o ACBr com o Seatle Update 1, baixei o ultimo fonte pelo svn, os pacotes que preciso instalam todos com sucesso.

    quando abro a IDE aparece a mensagem que não pode ler o pacote x

    conferi os paths na IDE e estão apontando para a pasta ACBr, mais minha pasta C:\ACBr\Lib\Delphi\LibD23 está vazia

    foi dada permissão Todos na pasta ACBr, foi aberto o install como administrador.

    Alguma idéia

    []s.

  7. boa noite amigos, 

    tenho implementado a leitura de xml para entrada de estoque e observei um fato curioso

    um fornecedor enviou alguns xml mes 11/2015 com a versão 2.0 (imagem1) com a tag  <dhEmi>2015-11-19T00:00:00-02:00</dhEmi>

    como essa tag foi alterada na versão 3.00 o componente não le essa tag, na function LerXML() está

        if NFe.infNFe.Versao >= 3 then
         begin
          (*B09*) NFe.ide.dEmi    := Leitor.rCampo(tcDatHor, 'dhEmi');
          (*B10*) NFe.ide.dSaiEnt := Leitor.rCampo(tcDatHor, 'dhSaiEnt');
         end
        else
         begin
          (*B09*) NFe.ide.dEmi    := Leitor.rCampo(tcDat, 'dEmi');
          (*B10*) NFe.ide.dSaiEnt := Leitor.rCampo(tcDat, 'dSaiEnt');
          (*B10a*)NFe.ide.hSaiEnt := Leitor.rCampo(tcHor, 'hSaiEnt');
         end;

     

    na versao 2.00 a tag seria dEmi e não dhEmi, não sei como o fornecedor conseguiu validar a nota

     

     

     

     

     

    imagem1.png

  8. Daniel, 

    não entendi como resolver isso, como eu disse no post acima, eu seto a propriedade configuracoes.arquivos.salvar pra true e o arquivo 1101103515110801008200016755001000003625100003625005-procEventoNFe.xml ja salva dessa forma que não abre no browser. 

    quando eu usava o trunk não tinha esse problema

    tentei debugar as rotinas não mais encontrei esse detalhe do  ACBrUtil.ACBrStrToUTF8() que vc mencionou

     

    abraço

  9. bom dia Italo, 

    refiz aqui os testes e o que ocorre é o seguinte no trunk2

    eu transmito a carta de correção ok, o componente salva só esse arquivo 1511271007-eve.xml que abre normal. (em anexo)

    se eu seto a propriedade do componente configuracoes.arquivos.salvar pra true, ele salva o arquivo 1101103515110801008200016755001000003625100003625005-procEventoNFe.xml (em anexo), mais esse arquivo esta corrompido. Esse é o padrão que eu usava no trunk, que ia por email para o cliente com o pdf.

     

    vou ver se encontro algo sobre isso nos fontes do componente

     

     

    1511271007-eve.xml

    1101103515110801008200016755001000003625100003625005-procEventoNFe.xml

    com o cancelamento esta perfeito, eu seto a propriedade  do componente configuracoes.arquivos.salvar pra true, ele salva o arquivo do evento no padrao 1101113515110801008200016755001000003625100003625001-procEventoNFe.xml sem problemas

  10. boa tarde, 

     

    Estou tendo dificuldades com a instalação do trunk2 no Seatle. Tenho uma outra partição no pc para testes, com windows 10, Seatle. Não tem nada do ACBr instalado nessa partição e tentando instalar o básico do ACBr já nao instala o primeiro pacote. Instalação 32 bits.

    Compilation failure
    Erro ao compilar o pacote "ACBr_synapse.dpk".

    Alguma idéia?

     

     

     

    segue meu arquivo de log da instalação

    log_Delphi_10_Seattle.txt

  11. boa tarde Ítalo, 

    É NF-e mesmo, tb tenho um software rodando a um bom tempo sem homologação.

    É que um consultor está nos ajudando em melhorias no software e comentou que era necessário homologar e não achei nada sobre o assunto. Ele deve ter se confundido.

     

    Mais valeu amigo, abraço

     

     

    • Curtir 1
×
×
  • 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.