VEICULO COM CARRETA

marco_visao · 21 Janeiro, 2018

Boa tarde,

Tenho uma transportadora de combustível estou gerando o MDF e preciso que aparecer as placas da carreta no MDF.

Na versão 3.00 posso fazer isto.

Atenciosamente,

Marco

Italo Giurizzato Junior · 22 Janeiro, 2018

Boa noite Marco,

Sim, basta você adicionar os dois veículos, o veículo trator e a carreta.

marco_visao · 23 Janeiro, 2018

Boa noite,

Fiz o teste e não tiver resultado estou deixando o código para ver analisar.

// Dados do Veículo com a Tração
with rodo.veicTracao do
begin
placa := 'XXXXXXX'
renavam := 'XXXXXXX'
tara := 'XXXXXXX'
capKG := 'XXXXXXX'
capM3 := 'XXXXXXX'
UF := 'XXXXXXX'
RENAVAM := 'XXXXXXX'

// Dados motorista
with condutor.Add do
begin
xNome := 'XXXXXXX'
CPF := 'XXXXXXX'
tpRod := trCavaloMecanico
tpCar := tcFechada;
end;

// Carreta. COM 4 PLACAS
for 1 to 4 do
begin
with rodo.veicReboque. do
begin
cInt := 'XXXXXXX'
placa := 'XXXXXXX'
renavam := 'XXXXXXX'
tara := 'XXXXXXX'
capKG := 'XXXXXXX'
capM3 := 'XXXXXXX'
UF := 'XXXXXXX'
end;
end;
end;

Atenciosamente,

Marco

Gr@c@ · 23 Janeiro, 2018

um trecho do meu codigo. Vê se te ajuda:

                         {--------------------------------------------------------------------------------------------------------------}
                         {veicTracao - inicio                                                                                           }
                         {--------------------------------------------------------------------------------------------------------------}
                         if DM.qryMDFeCabDisponiveis.FieldByName('vei1_Codigo').AsInteger > 0 then
                         begin
                           With RODO.veicTracao do
                           begin
                             cInt    := FormatFloat('0',DM.qryMDFeCabDisponiveis.FieldByName('vei1_Codigo').AsInteger);
                             placa   := TrataPlaca(DM.qryMDFeCabDisponiveis.FieldByName('vei1_Placa').AsString,8);
                             RENAVAM := DM.qryMDFeCabDisponiveis.FieldByName('vei1_RENAVAN').AsString;
                             While Length(RENAVAM) < 9 do RENAVAM := '0'+RENAVAM;
                             tara  := DM.qryMDFeCabDisponiveis.FieldByName('vei1_Tara').AsInteger;
                             capKG := DM.qryMDFeCabDisponiveis.FieldByName('vei1_capKG').AsInteger;
                             capM3 := DM.qryMDFeCabDisponiveis.FieldByName('vei1_capM3').AsInteger;

                             {--------------------------------------------------------------------------------------------------------------}
                             {prop - inicio                                                                                                 }
                             {--------------------------------------------------------------------------------------------------------------}
                             sCNPJProprietario  := TrataCPFCNPJ(DM.qryMDFeCabDisponiveis.FieldByName('vei1_ProprietarioPessoa').AsString,
                                                                DM.qryMDFeCabDisponiveis.FieldByName('vei1_ProprietarioCpfCnpj').AsString);
                             sRNTRCProprietario := TrataRNTRC(DM.qryMDFeCabDisponiveis.FieldByName('vei1_ProprietarioRNTRC').AsString,8);
                             If  (sCNPJProprietario  <> sCNPJEmitente)
                             and (sRNTRCProprietario <> sRNTRCEmitente) then
                             begin
                               With prop do
                               begin
                                 CNPJCPF := sCNPJProprietario;
                                 RNTRC   := sRNTRCProprietario;
                                 xNome   := Trim(Copy(DM.qryMDFeCabDisponiveis.FieldByName('vei1_ProprietarioNome').AsString+space(60),1,60));
                                 IE      := TrataInscricao(DM.qryMDFeCabDisponiveis.FieldByName('vei1_ProprietarioIE').AsString);
                                 UF      := DM.qryMDFeCabDisponiveis.FieldByName('vei1_ProprietarioUF').AsString;
                                 tpProp := StrToTpProp(OK,'1'); //TpcteProp = (0=tpTACAgregado, 1=tpTACIndependente, 2=tpOutros);
                               end;
                             end;
                             {--------------------------------------------------------------------------------------------------------------}
                             {prop - fim                                                                                                    }
                             {--------------------------------------------------------------------------------------------------------------}

                             {--------------------------------------------------------------------------------------------------------------}
                             {condutor - inicio                                                                                             }
                             {--------------------------------------------------------------------------------------------------------------}
                             DM.qryBusca.Close;
                             DM.qryBusca.Sql.Clear;
                             If (bCTe) then
                               begin
                               DM.qryBusca.Sql.Add('Select TOP 10 ite.Motorista,mot.Nome,mot.pessoa,mot.cpfcnpj');
                               DM.qryBusca.Sql.Add('From TB_MDFeIte ite,TB_Motorista mot');
                               DM.qryBusca.Sql.Add('where ite.Empresa        = :Empresa');
                               DM.qryBusca.Sql.Add('  and RTrim(ite.Modelo)  = RTrim(:Modelo)');
                               DM.qryBusca.Sql.Add('  and RTrim(ite.Serie)   = RTrim(:Serie)');
                               DM.qryBusca.Sql.Add('  and ite.Numero         = :Numero');
                               DM.qryBusca.Sql.Add('  and ite.Motorista      IS NOT NULL');
                               DM.qryBusca.Sql.Add('  and ite.Motorista      > 0');
                               DM.qryBusca.Sql.Add('  and mot.Empresa        = ite.Empresa');
                               DM.qryBusca.Sql.Add('  and mot.Codigo         = ite.Motorista');
                               DM.qryBusca.Sql.Add('Group by ite.Motorista,mot.Nome,mot.Pessoa,mot.CpfCnpj');
                               DM.qryBusca.Sql.Add('Order by ite.Motorista,mot.Nome,mot.Pessoa,mot.CpfCnpj');
                               end
                             Else
                             If (bNFe) then
                               begin
                               DM.qryBusca.Sql.Add('Select TOP 10 ite.Motorista,mot.Nome,mot.pessoa,mot.cpfcnpj');
                               DM.qryBusca.Sql.Add('From TB_MDFeIte ite,TB_Transportadora mot');
                               DM.qryBusca.Sql.Add('where ite.Empresa        = :Empresa');
                               DM.qryBusca.Sql.Add('  and RTrim(ite.Modelo)  = RTrim(:Modelo)');
                               DM.qryBusca.Sql.Add('  and RTrim(ite.Serie)   = RTrim(:Serie)');
                               DM.qryBusca.Sql.Add('  and ite.Numero         = :Numero');
                               DM.qryBusca.Sql.Add('  and ite.Motorista      IS NOT NULL');
                               DM.qryBusca.Sql.Add('  and ite.Motorista      > 0');
                               DM.qryBusca.Sql.Add('  and mot.Empresa        = ite.Empresa');
                               DM.qryBusca.Sql.Add('  and mot.Codigo         = ite.Motorista');
                               DM.qryBusca.Sql.Add('Group by ite.Motorista,mot.Nome,mot.Pessoa,mot.CpfCnpj');
                               DM.qryBusca.Sql.Add('Order by ite.Motorista,mot.Nome,mot.Pessoa,mot.CpfCnpj');
                               end;
                             DM.qryBusca.Parameters.ParamByName('Empresa').value := wpar_Empresa;
                             DM.qryBusca.Parameters.ParamByName('Modelo').value  := DM.qryMDFeCabDisponiveis.FieldByName('Modelo').AsString;
                             DM.qryBusca.Parameters.ParamByName('Serie').value   := DM.qryMDFeCabDisponiveis.FieldByName('Serie').AsString;
                             DM.qryBusca.Parameters.ParamByName('Numero').value  := DM.qryMDFeCabDisponiveis.FieldByName('Numero').AsInteger;
                             DM.qryBusca.Open;
                             While not DM.qryBusca.Eof do
                             begin
                               With CONDUTOR.Add do
                               begin
                                 xNome := Trim(Copy(DM.qryBusca.FieldByName('Nome').AsString+space(60),1,60));
                                 CPF   := TrataCpfCnpj(DM.qryBusca.FieldByName('Pessoa').AsString,
                                                       DM.qryBusca.FieldByName('CpfCnpj').AsString);
                               end;
                               DM.qryBusca.Next;
                             end;
                             {--------------------------------------------------------------------------------------------------------------}
                             {condutor - fim                                                                                                }
                             {--------------------------------------------------------------------------------------------------------------}

                             {--------------------------------------------------------------------------------------------------------------}
                             {tpRod/tpCar/UF - inicio                                                                                       }
                             {--------------------------------------------------------------------------------------------------------------}
                             If (DM.qryMDFeCabDisponiveis.FieldByName('vei1_TipoRodado').AsInteger = 0) then
                               begin
                                 tpRod := StrToTpRodado(OK,'06');
                               end
                             else
                               begin
                                 tpRod := StrToTpRodado(OK,FormatFloat('00',DM.qryMDFeCabDisponiveis.FieldByName('vei1_TipoRodado').AsInteger));
                               end;
                             tpCar          := StrToTpCarroceria(OK,FormatFloat('00',DM.qryMDFeCabDisponiveis.FieldByName('vei1_TipoCarroceria').AsInteger));
                             UF             := DM.qryMDFeCabDisponiveis.FieldByName('vei1_UFPlaca').AsString;
                             {--------------------------------------------------------------------------------------------------------------}
                             {tpRod/tpCar/UF - fim                                                                                          }
                             {--------------------------------------------------------------------------------------------------------------}
                           end;
                         end;
                         {--------------------------------------------------------------------------------------------------------------}
                         {veicTracao - fim                                                                                              }
                         {--------------------------------------------------------------------------------------------------------------}

                         {--------------------------------------------------------------------------------------------------------------}
                         {veicReboque - inicio                                                                                          }
                         {--------------------------------------------------------------------------------------------------------------}
                         if DM.qryMDFeCabDisponiveis.FieldByName('vei2_Codigo').AsInteger > 0 then
                         begin
                           With RODO.veicReboque.Add do
                           begin
                             cInt    := FormatFloat('0',DM.qryMDFeCabDisponiveis.FieldByName('vei2_Codigo').AsInteger);
                             placa   := TrataPlaca(DM.qryMDFeCabDisponiveis.FieldByName('vei2_Placa').AsString,8);
                             RENAVAM := DM.qryMDFeCabDisponiveis.FieldByName('vei1_RENAVAN').AsString;
                             While Length(RENAVAM) < 9 do RENAVAM := '0'+RENAVAM;
                             tara  := DM.qryMDFeCabDisponiveis.FieldByName('vei2_Tara').AsInteger;
                             capKG := DM.qryMDFeCabDisponiveis.FieldByName('vei2_capKG').AsInteger;
                             capM3 := DM.qryMDFeCabDisponiveis.FieldByName('vei2_capM3').AsInteger;

                             {--------------------------------------------------------------------------------------------------------------}
                             {prop - inicio                                                                                                 }
                             {--------------------------------------------------------------------------------------------------------------}
                             sCNPJProprietario  := TrataCPFCNPJ(DM.qryMDFeCabDisponiveis.FieldByName('vei2_ProprietarioPessoa').AsString,
                                                                DM.qryMDFeCabDisponiveis.FieldByName('vei2_ProprietarioCpfCnpj').AsString);
                             sRNTRCProprietario := TrataRNTRC(DM.qryMDFeCabDisponiveis.FieldByName('vei2_ProprietarioRNTRC').AsString,8);
                             If  (sCNPJProprietario  <> sCNPJEmitente)
                             and (sRNTRCProprietario <> sRNTRCEmitente) then
                             begin
                               With prop do
                               begin
                                 CNPJCPF := sCNPJProprietario;
                                 RNTRC   := sRNTRCProprietario;
                                 xNome   := Trim(Copy(DM.qryMDFeCabDisponiveis.FieldByName('vei2_ProprietarioNome').AsString+space(60),1,60));
                                 IE      := TrataInscricao(DM.qryMDFeCabDisponiveis.FieldByName('vei2_ProprietarioIE').AsString);
                                 UF      := DM.qryMDFeCabDisponiveis.FieldByName('vei2_ProprietarioUF').AsString;
                                 tpProp  := StrToTpProp(OK,'1');//TpcteProp = (0=tpTACAgregado, 1=tpTACIndependente, 2=tpOutros);
                               end;
                             end;
                             {--------------------------------------------------------------------------------------------------------------}
                             {prop - fim                                                                                                    }
                             {--------------------------------------------------------------------------------------------------------------}

                             {--------------------------------------------------------------------------------------------------------------}
                             {tpCar/UF - inicio                                                                                             }
                             {--------------------------------------------------------------------------------------------------------------}
                             tpCar       := StrToTpCarroceria(OK,FormatFloat('00',DM.qryMDFeCabDisponiveis.FieldByName('vei2_TipoCarroceria').AsInteger));
                             UF          := DM.qryMDFeCabDisponiveis.FieldByName('vei2_UFPlaca').AsString;
                             //codAgPorto  := '';
                             {--------------------------------------------------------------------------------------------------------------}
                             {tpCar/UF - fim                                                                                                }
                             {--------------------------------------------------------------------------------------------------------------}
                           end;
                         end;
                         {--------------------------------------------------------------------------------------------------------------}
                         {veicReboque - fim                                                                                             }
                         {--------------------------------------------------------------------------------------------------------------}
                       end;

Juliomar Marchetti · 23 Janeiro, 2018

sempre anexe como arquivo. fica grande e poluí o fórum. Obrigado

Gr@c@ · 23 Janeiro, 2018

1 hora atrás, Juliomar Marchetti disse:

sempre anexe como arquivo. fica grande e poluí o fórum. Obrigado

Ok Juliomar, mas a última vez que postei um trecho de codigo como arquivo, me solicitaram para postar na propria mensagem entre <>. Você, como moderador, pode excluir a resposta que dei ao tópico para que possa anexar como arquivo?

marco_visao · 24 Janeiro, 2018

Bom dia,

Ficou tudo certo.

Muito Obrigado.

Entrar

Sobre nós...

VEICULO COM CARRETA

Recommended Posts

marco_visao

Italo Giurizzato Junior

marco_visao

Gr@c@

Juliomar Marchetti

Gr@c@

marco_visao

Crie uma conta ou entre para comentar

Criar uma conta

Entrar

Links Rápidos

Links Rápidos

ACBr Pro

SOBRE

Sobre nós...

Informação Importante

	Juliomar Marchetti	skype: juliomar telegram: juliomar e-mail: [email protected] http://www.juliomarmarchetti.com.br