Ir para conteúdo
  • Cadastre-se

walter faria

Membros
  • Total de ítens

    932
  • Registro em

  • Última visita

  • Days Won

    1

Posts postados por walter faria

  1. 3 horas atrás, Italo Giurizzato Junior disse:

    Boa tarde Walter,

    Chegou a emitir algum MDF-e sem a informação?

    Se sim, o mesmo foi rejeitado?

    Tem que ficar esperto com a ANTT porque essas informações foram incorporadas no MDF-e a pedido dela.

    Dependendo da situação que se encontra o seu cliente se não informar ele pode ser multado.

    Obrigado, pela resposta ... isso mesmo o cliente foi atuado eu nunca tinha informado o vale pedagio.
    estou colocando assim as infos:
    aproveitando o topico se me permitirtpValePed:= ESSA LINHA OQUE EU COLOCARIA NELA?
     

       with rodo.infANTT.valePed.disp.Add do
       begin

        CNPJForn := sqlAux.fieldByName('Embarcador').AsString;
        CNPJPg   := sqlAux.fieldByName('Transportador').AsString;
        nCompra  := sqlAux.fieldByName('Pedagio').AsString;
        vValePed := sqlAux.fieldByName('ValePedagio').AsFloat;
        tpValePed:= ESSA LINHA OQUE EU COLOCARIA NELA?
       end;

     

  2. Boa tarde 
    estou sim , veja o codigo

             //Toma4
             Ide.indIEToma:= inContribuinte;
             if sqlXMLIETomador.AsString = 'ISENTO' then
             begin
              Ide.indIEToma:= inIsento;
              Ide.Toma4.IE      := 'ISENTO';
             end
             else
             if sqlXMLIETomador.AsString = 'VAZIO' then
             begin
              Ide.indIEToma:= inNaoContribuinte;
              Ide.Toma4.IE      := '';
             end
             else
             if sqlXMLIETomador.AsString <> '' then
             begin
              Ide.indIEToma:= inContribuinte;
              Ide.Toma4.IE := sqlXMLIETomador.AsString;
             end
             else
              Ide.indIEToma:= inNaoContribuinte;

             Ide.Toma4.CNPJCPF           := sqlXMLCNPJTomador.AsString;
             Ide.Toma4.xNome             := sqlXMLNomeTomador.AsString;
             Ide.Toma4.xFant             := sqlXMLNomeTomador.AsString;
             Ide.Toma4.fone              := '00000000'; //copy(TelefoneRemetente, 1, 12);
             Ide.Toma4.EnderToma.xLgr    := sqlXMLEnderecoTomador.AsString;
             Ide.Toma4.EnderToma.nro     := sqlXMLNumeroTomador.AsString;
             Ide.Toma4.EnderToma.xCpl    := sqlXMLComplTomador.AsString;
             Ide.Toma4.EnderToma.xBairro := Formatar(sqlXMLBairroTomador.AsString, 3, true, 'X');
             Ide.Toma4.EnderToma.cMun    := sqlXMLIbgeTomador.AsInteger;
             Ide.Toma4.EnderToma.xMun    := sqlXMLCidadeTomador.AsString;
             Ide.Toma4.EnderToma.CEP     := StrToIntDef(RemoverCaracter(sqlXMLCepTomador.AsString), 0);
             Ide.Toma4.EnderToma.UF      := sqlXMLUFTomador.AsString;
             Ide.Toma4.EnderToma.cPais   := 1058;
             Ide.Toma4.EnderToma.xPais   := 'BRASIL';

             Ide.toma4.toma := tmOutros;// tmExpedidor;

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