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;