Evento para que o emitente do CT-e OS do tipo de serviço Transporte de Valores
possa informar as GTV relacionadas com a prestação do serviço
Nome do Método:
EnviarGTV
Parametros:
aChaveCTeOS (Chave do CteOS que pretende informar a GTV)
aDataHoraEvento (Data e Hora do Envio do Desacordo no formato 'yyy-mm-ddThh:mm:ss-ff:ff')
aSerie (Série da GTV "Opcional")
aSubSerie (SubSérie da GTV "Opcional")
aDoc (Número da GTV)
aDv (Número do Dígito Verificador)
aQtdeVolume (Quantidade de Volumes ou Malotes)
aEspecieValor ( O formato de passagem do campo é Tipo:ValorTransportado onde tipo é Espécie: 1 - Numerário, 2 - Cheque, 3 - Moeda, 4 - Outros e o Valor é o valor monetário transportado para o determinado tipo por exemplo: 2:2000.00 será transportado R$ 2.000,00 em cheque, em caso de transporte de mais de um tipo, o conjunto deve ser separado por ponto e virgula, exemplo: 2:2000.00;1:1555.25 que representaria R$ 2000,00 em Cheque e R$ 1555,25 em dinheiro)
aCnpjCpfRem (Número do CNPJ ou CPF do Remetente)
aIncEstRem (Número da Inscrição Estadual do Remetente, informar ISENTO se o Remetente não for contribuinte de ICMS )
aRazaoSocialRem (Razão Social ou Nome do Remetente)
aUFRem (UF do Remetente)
aCnpjCpfDest (CNPJ ou CPF do destinatário)
aIncEstDest (Número da Inscrição Estadual do Destinatário, informar ISENTO se o Remetente não for contribuinte de ICMS )
aRazaoSocialDest (Razão Social ou Nome do Destinatário)
aUFDest (UF do Destinatário)
aPlacaVeiculo (Placa do Veículo Transportador)
aUFVeiculo (UF da Placa do Veículo Transportador)
aRNTRC (RNTRC do Transportador)
aSequenciaEvento (Numero de Sequencia do Evento enviado)
É retornado um Xml dizendo se o evento está vinculado com o seguinte formato:
<retEventoCTe versao="3.00" xmlns="http://www.portalfiscal.inf.br/cte">
<infEvento>
<tpAmb>2</tpAmb>
<verAplic>PR-v3_0_58</verAplic>
<cOrgao>41</cOrgao>
<cStat>135</cStat>
<xMotivo>Evento registrado e vinculado a CT-e</xMotivo>
<chCTe>00000000000000000000000000000000000000000000</chCTe>
<tpEvento>110170</tpEvento>
<xEvento>CT-e Evento Informações da GTV</xEvento>
<nSeqEvento>01</nSeqEvento>
<dhRegEvento>2018-02-02T15:51:33-02:00</dhRegEvento>
<nProt>111111111111111</nProt>
</infEvento>
</retEventoCTe>
Ordem de Envio dos parametros
procedure TFrmExemplo.BtGTVClick(Sender: TObject);
var
_frmGTV: TFrmGTV;
_DataHora, _chaveCt, _serie, _subserie, _doc, _dv, _qtdevolue, _especieValor, _cnpjRem,
_seq, _IncEstRem, _RazaoSocialRem, _UFRem, _CnpjCpfDest, _IncEstDest, _RazaoSocialDest, _UFDest,
_PlacaVeiculo, _UFVeiculo, _RNTRC : string;
_returnValue: string;
begin
CheckConfig;
_frmGTV := TFrmGTV.Create(Self);
_frmGTV.edtChaveCte.Text := edtChave.Text;
_frmGTV.edtDataHoraEvento.Text := FormatDateTime('yyyy-mm-dd"T"hh:nn:ss', Now) + '-02:00'; //FormatDateTime('yyyy-mm-dd', Now);
_frmGTV.edCnpjRem.Text := edCNPJ.Text;
_frmGTV.edIncEstadualRem.Text := '';
_frmGTV.EdRazaoSocialRem.Text := '';
_frmGTV.EdUfRem.Text := edUF.Text;
_frmGTV.ShowModal;
try
if _frmGTV.ModalResult = mrOk then
begin
(Sender as TWinControl).Enabled := False;
try
_chaveCt := _frmGTV.edtChaveCte.Text;
_DataHora := _frmGTV.edtDataHoraEvento.Text;
_seq := _frmGTV.edtSeqEvento.Text;
_serie := _frmGTV.EdSerie.Text;
_subserie := _frmGTV.EdSubSerie.Text;
_doc := _frmGTV.edDoc.Text;
_dv := _frmGTV.EdDv.Text;
_qtdevolue := _frmGTV.EdQtdeVolume.Text;
_especieValor := _frmGTV.MnEspecieValor.Text;
_cnpjRem := _frmGTV.edCnpjRem.Text;
_IncEstRem := _frmGTV.edIncEstadualRem.Text;
_RazaoSocialRem := _frmGTV.EdRazaoSocialRem.Text;
_UFRem := _frmGTV.EdUfRem.Text;
_CnpjCpfDest := _frmGTV.EdCnpj.Text;
_IncEstDest := _frmGTV.EdInscEstadual.Text;
_RazaoSocialDest := _frmGTV.edRazaoSocial.Text;
_UFDest := _frmGTV.EdUF.Text;
_PlacaVeiculo := _frmGTV.EdPlaca.Text;
_UFVeiculo := _frmGTV.edUFVeiculo.Text;
_RNTRC := _frmGTV.EdRNTRC.Text;
_returnValue := CTeOS.EnviarGTV( _chaveCt, _DataHora, _serie, _subserie, _doc, _dv, _qtdevolue, _especieValor,
_cnpjRem, _IncEstRem, _RazaoSocialRem, _UFRem,
_CnpjCpfDest, _IncEstDest, _RazaoSocialDest, _UFDest,
_PlacaVeiculo, _UFVeiculo, _RNTRC, _seq);
finally
(Sender as TWinControl).Enabled := true;
end;
end;
finally
_frmGTV.Free;
end;
end;
Deixe seu comentário