Novos Tipos criados para o CT-e

[Italo Giurizzato Junior]

Boa tarde a todos,

Desculpe foi falha minha, em estar postando somente agora, mas antes tarde do que nunca.

Conforme solicitação (Caso 613 do Mantis) criei novos tipos para a geração do CT-e.

Logo vários campos de várias classes tiveram os seus tipos alterados, vamos a eles:

Classe: TEntrega

Campo: TipoData: Integer; --> TipoData: TpcteTipoDataPeriodo;

TipoHora: Integer; --> TipoHora: TpcteTipoHorarioIntervalo;

Classe: TSemData

Campo: tpPer: Integer; --> tpPer: TpcteTipoDataPeriodo;

Classe: TComData

Campo: tpPer: Integer; --> tpPer: TpcteTipoDataPeriodo;

Classe: TNoPeriodo

Campo: tpPer: Integer; --> tpPer: TpcteTipoDataPeriodo;

Classe: TSemHora

Campo: tpHor: Integer; --> tpHor: TpcteTipoHorarioIntervalo;

Classe: TComHora

Campo: tpHor: Integer; --> tpHor: TpcteTipoHorarioIntervalo;

Classe: TNoInter

Campo: tpHor: Integer; --> tpHor: TpcteTipoHorarioIntervalo;

Classe: TinfOutrosCollectionsItem

Campo: tpDoc: String; --> tpDoc: TpcteTipoDocumento;

Classe: TidDocAntPapCollectionsItem

Campo: tpDoc: Integer; --> tpDoc: TpcteTipoDocumentoAnterior;

Classe: TValePed

Campo: respPg: Integer; --> respPg: TpcteRspPagPedagio;

Classe: TDispCollectionsItem

Campo: tpDisp: Integer; --> tpDisp: TpcteTipoDispositivo;

Classe: TVeicCollectionsItem

Campo: tpProp: String; --> tpProp: TpcteTipoPropriedade;

tpVeic: Integer; --> tpDisp: TpcteTipoVeiculo;

tpRod: Integer; --> tpRod: TpcteTipoRodado;

tpCar: Integer; --> tpCar: TpcteTipoCarroceria;

Valores dos Tipos Criados:

TpcteTipoDataPeriodo = (tdSemData, tdNaData, tdAteData, tdApartirData, tdNoPeriodo);

TpcteTipoHorarioIntervalo = (thSemHorario, thNoHorario, thAteHorario, thApartirHorario, thNoIntervalo);

TpcteTipoDocumento = (tdDeclaracao, tdOutros);

TpcteTipoDocumentoAnterior = (daCTRC, daCTAC, daACT, daNF7, daNF27, daCAN, daCTMC, daATRE, daDTA, daCAI, daCCPI, daCA, daTIF, daOutros);

TpcteRspPagPedagio = (rpEmitente, rpRemetente, rpExpedidor, rpRecebedor, rpDestinatario, rpTomadorServico);

TpcteTipoDispositivo = (tdCartaoMagnetico, tdTAG, tdTicket);

TpcteTipoPropriedade = (tpProprio, tpTerceiro);

TpcteTipoVeiculo = (tvTracao, tvReboque);

TpcteTipoRodado = (trNaoAplicavel, trTruck, trToco, trCavaloMecanico, trVAN, trUtilitario, trOutros);

TpcteTipoCarroceria = (tcNaoAplicavel, tcAberta, tcFechada, tcGraneleira, tcPortaContainer, tcSider);

Exemplo de Utilização:

   compl.Entrega.TipoData:=StrToTpDataPeriodo(okConversao, IntToStr(DM_CNT.Conhec2EntregaTipoData.AsInteger));

   case DM_CNT.Conhec2EntregaTipoData.AsInteger of

        0: compl.Entrega.semData.tpPer:=tdSemData;

    1,2,3: begin

            compl.Entrega.comData.tpPer:=StrToTpDataPeriodo(okConversao, IntToStr(DM_CNT.Conhec2EntregaTipoData.AsInteger));

            compl.Entrega.comData.dProg:=DM_CNT.Conhec2EntregaDataI.AsDateTime;

           end;

        4: begin

            compl.Entrega.noPeriodo.tpPer:=tdNoPeriodo;

            compl.Entrega.noPeriodo.dIni:=DM_CNT.Conhec2EntregaDataI.AsDateTime;

            compl.Entrega.noPeriodo.dFim:=DM_CNT.Conhec2EntregaDataF.AsDateTime;

           end;

   end;


   compl.Entrega.TipoHora:=StrToTpHorarioIntervalo(okConversao, IntToStr(DM_CNT.Conhec2EntregaTipoHora.AsInteger));

   case DM_CNT.Conhec2EntregaTipoHora.AsInteger of

        0: compl.Entrega.semHora.tpHor:=thSemHorario;

    1,2,3: begin

            compl.Entrega.comHora.tpHor:=StrToTpHorarioIntervalo(okConversao, IntToStr(DM_CNT.Conhec2EntregaTipoHora.AsInteger));

            compl.Entrega.comHora.hProg:=StrToTime(DM_CNT.Conhec2EntregaHoraI.AsString);

           end;

        4: begin

            compl.Entrega.noInter.tpHor:=thNoIntervalo;

            compl.Entrega.noInter.hIni:=StrToTime(DM_CNT.Conhec2EntregaHoraI.AsString);

            compl.Entrega.noInter.hFim:=StrToTime(DM_CNT.Conhec2EntregaHoraF.AsString);

           end;

   end;

O exemplo se refere apenas a classe TEntrega.

Espero ter ajudado.