Ir para conteúdo
  • Cadastre-se

wagner_fix

Membros
  • Total de ítens

    174
  • Registro em

  • Última visita

Posts postados por wagner_fix

  1. Ítalo boa tarde...

     

    Fiz conforme sua dica e continua não aparecendo veja o meu código abaixo será que fiz algo de errado?

     

    Grato

     

           with infCarga.InfQ.Add do begin
             tpMed  := 'PESO BASE DE CALCULO';
             qCarga := StringFloat(txtPeso.Text);
           end;
     
           with infCarga.InfQ.Add do begin
             tpMed  := 'PESO BRUTO';
             qCarga := StringFloat(txtPeso.Text);
           end;
  2. Olá pessoal boa tarde...

     

    Estou com dúvidas quanto ao preenchimento do DACTE vocês podem me ajudar?

    1º) Na impressão do cpf do motorista a formatação está saindo incorreto vejam 13.000.000/000- como formato para sair 000.000.000-00???

    2º) Como faço para imprimir os Campos? PESO BRUTO (Kg), PESO BASE CÁLC. (Kg)???

     

    Grato,

    Wagner

  3. Olá Pessoal bom dia...

    Estou com problemas ao imprimir Carta de Correção...

    Eu estou usando esse comando

    OpenDialog1.Title := 'Selecione a NFE';

    OpenDialog1.DefaultExt := '*.XML';

    OpenDialog1.Filter := 'Arquivos XML (*.XML)|*.XML|Todos os Arquivos (*.*)|*.*';

    OpenDialog1.InitialDir := ACBrNFe1.Configuracoes.Geral.PathSalvar;

    if OpenDialog1.Execute then

    begin

    ACBrNFe1.NotasFiscais.Clear;

    ACBrNFe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName);

    end;

    OpenDialog1.Title := 'Selecione o Evento';

    OpenDialog1.DefaultExt := '*.XML';

    OpenDialog1.Filter := 'Arquivos XML (*.XML)|*.XML|Todos os Arquivos (*.*)|*.*';

    OpenDialog1.InitialDir := ACBrNFe1.Configuracoes.Geral.PathSalvar;

    if OpenDialog1.Execute then

    begin

    ACBrNFe1.EventoNFe.Evento.Clear;

    ACBrNFe1.EventoNFe.LerXML(OpenDialog1.FileName) ;

    ACBrNFe1.ImprimirEvento;

    end;

    Obs.: Estou usando o Quick Report para imprimir...

    Segue a imagem do erro... Alguém pode me ajudar por favor..

    Grato,

    Wagner

    post-908-13548988219267.png

  4. Italo quando eu faço desse jeito...

    CodigoMunicipio := StrToInt(txtRemeCodUf.Text)= 35 * 100000 + StrToInt(txtRemeCodCid.Text)= 09502;

    Rem.EnderReme.cMun := CodigoMunicipio;

    Dá o erro que eu te informei..

    Tem explicação??

    E quando eu faço isso

    Rem.EnderReme.cMun := 3509502;

    Funciona.

  5. Vamos lá Italo vou tentar te explicar... e me corrija se eu estiver errado...

    UF: SP (tabela do IBGE = 35)

    xMun: Campinas (tabela do IBGE = 3509502)

    txtRemeCodUf.Text := '35';

    txtRemeCodCid.Text := '3509502';

    CodigoMunicipio := StrToInt(txtRemeCodUf.Text) * 100000 + StrToInt(txtRemeCodCid.Text);

    Rem.EnderReme.cMun := CodigoMunicipio;

    Quando faço isso dá falha... A mesma que descrevi acima...

    Vi que você tirou o 35 do código da cidade... Também fiz isso e o erro foi o mesmo...

    mas se agora eu faço isso...

    Rem.EnderReme.cMun := StrToInt(txtRemeCodCid.Text);

    Funciona normalmente...

    O que posso estar fazendo errado?

    Obrigado,

    Wagner

  6. Usa o exemplo do TXT...

    fiz e funcionou de boa...

    var

    PathArquivo, NomeArquivo: String;

    begin

    ACBrCTe1.DACTe.NumCopias := 1;

    PageControl2.ActivePageIndex := 0;

    PathArquivo := ACBrCTe1.Configuracoes.Arquivos.GetPathCTe(StrToDate(txtEmissao.Text));

    NomeArquivo := PathArquivo+'\'+Trim(txtChave.Text)+'-cte.xml';

    // Carrega no Componente o CTe salvo em Arquivo XML

    ACBrCTe1.Conhecimentos.Clear;

    ACBrCTe1.Conhecimentos.LoadFromFile(NomeArquivo);

    memoLog.Lines.Add('XML:');

    memoLog.Lines.Add(' Carregado');

    memoLog.Lines.Add(' CT-e: '+Copy(Trim(txtCTe.Text),4,44));

    memoLog.Lines.Add(' Aguarde a Impressão...');

    // Somente imprime o CTe

    ACBrCTe1.Conhecimentos.Imprimir;

  7. Olá Italo boa tarde...

    Fiz conforme o seu script e não funcionou...

    Só que se eu fizer isso...

    Rem.EnderReme.cMun := StrToInt(txtRemeCodCid.Text);

    Funciona...

    Está incorreto se eu fazer isso?

  8. Pessoal estou com dificuldades ao enviar o XML

    Está dando o erro...

    Rejeição: Codigo de Municipio de localizacao remetente: digito invalido

    Isso quer dizer que não somo somo mais?

    Tipo:

    CodigoMunicipio := StrToInt(txtRemeCodUf.Text) * 100000 + StrToInt(txtRemeCodCid.Text);

    Rem.EnderReme.cMun := CodigoMunicipio;

    Faço direto?

    Rem.EnderReme.cMun := StrToInt(txtRemeCodCid.Text);

    Não quero arriscar sem antes ter a certeza...

    Obrigado,

    Wagner

  9. Olá pessoal boa tarde...

    No componente tem um item:

    Rodo.veic.Add.tpVeic

    Diz que ele vai receber: 0 = Tração

    1 = Reboque

    Coloco a informação mas dá erro...

    O que posso fazer para arrumar?

    Obrigago,

    Wagner

  10. Ítalo fico muito grato pela ajuda...

    Consegui inserir..

    Essa era a minha dúvida o que não tivesse se eu poderia adicionar por conta própria.. Mas a dúvida já está respondida..

    Abraço,

    Obrigado

    Wagner

  11. Ahhh certo entendi...

    Deixa eu te dizer algo...

    Então quer dizer que não precisamos de colocar colocar o cadastro do veículo e nem do motorista?

    E também percebi agora que não tem opção para produtos perigosos e ela transporta 99,9% só de produtos perigosos...

    Como faço para implementar?

    Obrigado,

    Wagner

  12. Pessoal boa tarde....

    Eu estou fazendo o Ct-E para uma cliente minha mas eu tenho uma dúvida...

    Quando faço o CT-E pelo o software gratuito ele pede dados do caminhão por exemplo: Renavam, Tipo, Tara, Placa e etc.. e pelo o componente não pede, realmente não precisa?

    Obrigado,

    Wagner

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