Ir para conteúdo
  • Cadastre-se

Antonio Paulo Mangili

Membros Pro
  • Total de ítens

    1.039
  • Registro em

  • Última visita

Posts postados por Antonio Paulo Mangili

  1. Bom dia Régys

    segue a minha rotina

    procedure TFrmNFeACbrMP.BitImpDFeClick(Sender: TObject);
    var
       Txt    : TextFile;
       Linha  : string;
    begin
         OpenDialog1.Title := 'Selecione o XML da NFE';
         OpenDialog1.DefaultExt := '*.XML';
         OpenDialog1.Filter := 'Arquivos NFe XML (*.XML)|*.XML|Todos os Arquivos (*.*)|*.*';
         OpenDialog1.InitialDir := ACBrNFe1.Configuracoes.Arquivos.PathNFe;

         if OpenDialog1.Execute then
         begin
              ACBrNFe1.NotasFiscais.Clear;
              ACBrNFe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName,False);

              if dmDados.CdsUsuUsuario.AsString = 'NFE' then
                 ACBrNFeDANFERL1.NumCopias :=2
              else
                  ACBrNFeDANFERL1.NumCopias :=1;
                        
              ACBrNFe1.NotasFiscais.Imprimir;
         end;

    end;

    Régys nõ si se ajuda. eu fiz um comentario nos fontes do ACBRDanfeRLRetrato.pas dessa forma abaixo e coloqei a qantade de vias dret no componente, e coloquei 2 vias, 3 vias, 4 vias, quantas vias eu colocar ele sai somente uma, mas caso eu retro esse comentario ai ele esta multiplicando o numero  vias, exe 2=4 4=8 8=16, pedi 5 vias saiu 25.

    procedure TfrlDANFeRLRetrato.RLNFeBeforePrint(Sender: TObject; var PrintIt: Boolean);
    begin
      q := 0;

      ConfigureVariavies(tiRetrato);

      with RLNFe.Margins do
      begin
        TopMargin := FMargemSuperior * 10;
        BottomMargin := FMargemInferior * 10;
        LeftMargin := FMargemEsquerda * 10;
        RightMargin := FMargemDireita * 10;
      end;

      ConfigureDataSource;
      InitDados;

      //  Removido para que o quadro Fatura seja mostrado mesmo a vista
      //  if FNFe.Cobr.Dup.Count > 0 then
      //    rlbFatura.Visible := True
      //  else
      //    rlbFatura.Visible := False;

      RLNFe.Title := Copy(FNFe.InfNFe.Id, 4, 44);
      {
      if FNumCopias > 0 then
        RLPrinters.RLPrinter.Copies := FNumCopias
      else
        RLPrinters.RLPrinter.Copies := 1;
      }
    end;

    no exemplo de teste esta acontecendo igual a esse problema

     

  2. boa tarde a todos

    estou com um problema muito estranho aqui

    quando eu peço para imprimir uma via do danfe NFe do fortes report ele sai uma via, mas quando eu peço 2 ele sai quatro

    alguem sabe o que pode estar acontecendo. abaixo minha rotina

              if dmDados.CdsUsuSENHA.AsString = 'MASTER' then
                 ACBrNFeDANFERL1.NumCopias :=1
              else
                  ACBrNFeDANFERL1.NumCopias :=2;

    mesmo que eu coloque no componente 2 vias ele sai 4

    se eu colocar 5 sai 20

    obrigado

     

  3. bom dia a todos

    estou anexando 2 NFe ambas com o danfe em fortes report, mas a numero 15 com o projeto no trunk, e a 19 no projeto trunck2, que usa o fortesCE

    verifique que a 19 esta aparecendo caracteres especias ao gerar o pdf no campo de numero da nfe ou seja onde tem Ç, ~ e algum caracter de acentuação o mesmo ta ficando errado.

    o que poderia ser? estou em fase de teste com o trunk2 ainda, conforme orientado pelo daniel, para depois colocalo em produção.

    sera que alguem poderia me orientar sobre esse detalhe

    muito obrigado paulinho

     

    35150774317249000161550010000000151000000159-nfe.pdf

    35150774317249000161550010000000191000000190-nfe.pdf

  4. Isaque fiz o seguinte

    executei o apagaracbr, e comecei do começo, ou seja reinstalação geral.

    Até apaguei a pasta.

    acessei esse link https://svn.code.sf.net/p/acbr/code/trunk2/ fiz o donwload do acbrinstall e coloquei para instalar tudo novamente, mas verifique que o instalador continua com erro ao instalar os pacotes FR (Fast) mesmo eu tendo ele instalado em meu delphi  versão 4

    Vou tentar instalar os pacotes que faltam manualmente, mas isso tem alguma solução do instalador?

    segue log abaixo

    obrigado

     

    log_Delphi_7.txt

  5. Bom dia Izaque

    Obrigado pelo retorno

    Acho que eu não o entendi então o que fazer um checkout, porque eu achei que era copiar a pasta para outra unidade, e executar o SVN update.

    Poderia por favor me orientar como seria esse checkout?

    Obrigado

     

  6. Daniel obrigado pelo retorno

    Fiz o checkout em outra pasta em em outra dirver. Antes estava no D, e agora esta no C, mas deu o mesmo erro, e tambem executei já o clean up

    segue erro anexo. Agora deu em outro arquivo

    Trunk2.

     

    obrigado

     

    ErroSVN3.jpg

  7. Ola Isaque obrigado pelo e orientação

    eu fiz esse clean up conforme orientação, mas não deu certo.

    eu anexei duas imagem do erro.

    apos executar o clean up eu apliquei o SNV update e deu esse primeiro erro, ai apliquei o clean up novamente e em sequencia o SVN e deu esse erro 2

    verifique que são erros diferentes

    estou a 3 semanas já tentando migrar para o trunk2, mas ta dificil

    como posso resolver isso.

    essa atualização é do trunk2

     

    obrigado

    paulinho

     

    ErroSVN1.jpg

    ErroSVN2.jpg

  8. boa tarde a todos

    estou com esse erro ao fazer o update no SVN do trunk2

    no trunk vai normal, mas no trunk2 da esse erro.

    estou em fase de testar o projeto no trunk2, mas preciso efetuar umas atualização e não consigo.

    alguem poderia me ajuda?

    muito obrigado

    paulinho

     

    ErroSVN.jpg

  9. bom dia a todos

    Estou com uma duvida.

    Eu emitia o danfe nfe em rave, mas com a descontinuação desse projeto, alterei para o fortes reportCE, mas estou tendo algumas reclamações do tipo assim:

    quando tenho duas impressora instaladas em uma estação cliente, tipo uma epson lx 300, e uma hp laser. Caso o usuário use primeiro a epson lx300 para tirar qualquer coisa, e na sequenca vai emitir a NFe ela sai na epson, e não na impressora default definida com padrão do windows.

    sei que nesse componente tem uma função para impressora, deve ser para determinar qual impressora. Minha duvida é tem como deixar como default, porque em cada cliente a impressora tem um nome.

     

    obrigado

    paulinho

     

  10. boa noite a todos.

    estou precisando de uma ajuda. estou instalando manualmente o pacote do danfenfe em fast report e esta dando esse erro anexo.

    eu já instalei todos os pacote do FastReport versão 4 como podem ver no anexo. o que poderia ser esse erro? no library já esta tudo ok, porque até criei um form com usando o fast report

    obrigado

    paulinho

     

    ErroPacoteACBr_NFeDanfeFR.jpg

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