Retorno Data Processamento - cte

[Felipe Augusto]

Pessoal, bom dia, estou fazendo alguns testes no componente acbr ct-e e

não estou conseguindo acessar no Protocolo de Retorno de envio a Tag data e hora de processamento

dhRecbto para atribuir o conteúdo a uma variável.

tentei assim :

strDtHrEnvio := acbrCTe1.webservices.Retorno.CteRetorno.ProtCTe.items[0]. - não aparece infProt.

e também assim:

strDtHrEnvio := acbrCTe1.webservices.Retorno.CteRetorno.ProtCTe. também não aparece tab infProt

e também assim:

strDtHrEnvio := acbrCTe1.webservices.Retorno.CteRetorno. também não aparece tab infProt

grato a todos

Felipe Augusto

[helderlr]

ve esse exemplo

ACBrCTe1.Enviar(StrToInt(m_lt));

for i := 0 to (ACBrCTe1.WebServices.Retorno.CteRetorno.ProtCTe.Count - 1) do

begin

// sConhecimento := Copy(ACBrCTe1.WebServices.Retorno.CteRetorno.ProtCTe.Items.chCTe, 26, 3)

// +Copy(ACBrCTe1.WebServices.Retorno.CteRetorno.ProtCTe.Items.chCTe, 29, 3)

// +Copy(ACBrCTe1.WebServices.Retorno.CteRetorno.ProtCTe.Items.chCTe, 32, 3);

cdsenvio.Append;

cdsenvio.FieldByName('notfis').Value := ACBrCTe1.Conhecimentos.Items.CTe.Ide.nCT;

cdsenvio.FieldByName('cstat').Value := IntToStr(ACBrCTe1.WebServices.Retorno.CteRetorno.ProtCTe.Items.cStat);

cdsenvio.FieldByName('motivo').Value := ACBrCTe1.WebServices.Retorno.CteRetorno.ProtCTe.Items.xMotivo;

cdsenvio.FieldByName('data').Value := DateTimeToStr(ACBrCTe1.WebServices.Retorno.CteRetorno.ProtCTe.Items.dhRecbto);

cdsenvio.FieldByName('prot').Value := ACBrCTe1.WebServices.Retorno.CteRetorno.ProtCTe.Items.nProt;

cdsenvio.FieldByName('rec').Value := ACBrCTe1.WebServices.Enviar.Recibo;

cdsenvio.Post;

if ACBrCTe1.WebServices.Retorno.CTeRetorno.ProtCTe.Items.cStat in [100,110]

then begin

if pcampo3(dtscte,'nct','','',ACBrCTe1.Conhecimentos.Items.CTe.Ide.nCT,'','') then

begin

dtscte.edit;

dtscte.FieldByName('sitcte').Value := se(ACBrCTe1.WebServices.Retorno.CTeRetorno.ProtCTe.Items.cStat=100,'2','3');

dtscte.FieldByName('status').Value := se(ACBrCTe1.WebServices.Retorno.CTeRetorno.ProtCTe.Items.cStat=100,'Autorizado Uso','Denegado');

dtscte.FieldByName('reccte').Value := ACBrCTe1.WebServices.Enviar.Recibo;

dtscte.FieldByName('protaut').Value := ACBrCTe1.WebServices.Retorno.CteRetorno.ProtCTe.Items.nProt;

dtscte.FieldByName('ococte').Value := dtscte.FieldByName('ococte').Value+#10+'cte '+se(ACBrCTe1.WebServices.Retorno.CTeRetorno.ProtCTe.Items.cStat=100,'Autorizado Uso','Denegado')+' em '+datetostr(date)+' as '+timetostr(now);

dtscte.Post;

comitar;

end;

end;

end