Identificador de Regra

VEN-140MDFEA02

Módulo: VEN - Vendas.

Finalidade: MDF-e Automático - Rotas. Ver Geração automática de MDF-e.

Telas: F145EBQ, F145GSM e F440MDF.

Transação: não se aplica.

Variáveis disponibilizadas:

Nome Tipo Observações Retorna Valor
VenAChaveMDFeAuto Alfa Chave de Gatilho da MDF-e Automática N
VenNCodEmp Número Empresa N
VenNCodFil Número Filial N
VenNNumEbq Número Número embarque N
VenACodSma Alfa Código da série do manifesto N
VenNNumMan Número Número do manifesto N
VenNLisRot Número Lista de rotas do MDF-e (carga, passagens ou descarga) S
VenNLisRot.SeqMov Número Sequência da rota (incremental) S
VenNLisRot.TipMov Alfa Tipo de movimento (C-Carga, P-Passagem ou D-Descarga) S
VenNLisRot.CepCid Numero CEP de carga e descarga (não informar quando TipMov for Passagem) S
VenNLisRot.UfsPas Alfa Estado da rota S
VenNLisDoc Número Lista de documentos por local de descarga S
VenNLisDoc.SeqMov Número Sequência da rota do local de descarga S
VenNLisDoc.FilNfv Numero Código da filial do documento fiscal S
VenNLisDoc.SnfNfv Alfa Código da série do documento fiscal S
VenNLisDoc.NumNfv Alfa Número do documento fiscal S

Regra:

definir alfa VenAChaveMDFeAuto; 
definir alfa aAux;


aAux =  "";


se (VenAChaveMDFeAuto = "1234") 
inicio

	ListaRegraNovaLinha(VenNLisRot);           
	ListaRegraAddValorLinhaNumero(VenNLisRot, "SeqMov", 1, aAux);
	ListaRegraAddValorLinhaAlfa(VenNLisRot, "TipMov", "C", aAux); 
	ListaRegraAddValorLinhaNumero(VenNLisRot, "CepCid", 89015250, aAux);
	ListaRegraAddValorLinhaAlfa(VenNLisRot, "UfsPas", "SC", aAux);
	ListaRegraSalvarLinha(VenNLisRot);  

	ListaRegraNovaLinha(VenNLisRot);           
	ListaRegraAddValorLinhaNumero(VenNLisRot, "SeqMov", 2, aAux);
	ListaRegraAddValorLinhaAlfa(VenNLisRot, "TipMov", "P", aAux); 
	ListaRegraAddValorLinhaNumero(VenNLisRot, "CepCid", 0, aAux);
	ListaRegraAddValorLinhaAlfa(VenNLisRot, "UfsPas", "PR", aAux);
	ListaRegraSalvarLinha(VenNLisRot); 

	ListaRegraNovaLinha(VenNLisRot);           
	ListaRegraAddValorLinhaNumero(VenNLisRot, "SeqMov", 3, aAux);
	ListaRegraAddValorLinhaAlfa(VenNLisRot, "TipMov", "P", aAux); 
	ListaRegraAddValorLinhaNumero(VenNLisRot, "CepCid", 0, aAux);
	ListaRegraAddValorLinhaAlfa(VenNLisRot, "UfsPas", "SP", aAux);
	ListaRegraSalvarLinha(VenNLisRot);

	ListaRegraNovaLinha(VenNLisRot);           
	ListaRegraAddValorLinhaNumero(VenNLisRot, "SeqMov", 4, aAux);
	ListaRegraAddValorLinhaAlfa(VenNLisRot, "TipMov", "D", aAux); 
	ListaRegraAddValorLinhaNumero(VenNLisRot, "CepCid", 23900000, aAux);
	ListaRegraAddValorLinhaAlfa(VenNLisRot, "UfsPas", "RJ", aAux);
	ListaRegraSalvarLinha(VenNLisRot);   

	ListaRegraNovaLinha(VenNLisDoc);           
	ListaRegraAddValorLinhaNumero(VenNLisDoc, "SeqMov", 4, aAux);   
	ListaRegraAddValorLinhaNumero(VenNLisDoc, "FilNfv", 3, aAux);
	ListaRegraAddValorLinhaAlfa(VenNLisDoc, "SnfNfv", "NFE", aAux);   
	ListaRegraAddValorLinhaNumero(VenNLisDoc, "NumNfv", 345, aAux);
	ListaRegraSalvarLinha(VenNLisDoc);                             

	ListaRegraNovaLinha(VenNLisDoc);           
	ListaRegraAddValorLinhaNumero(VenNLisDoc, "SeqMov", 4, aAux);   
	ListaRegraAddValorLinhaNumero(VenNLisDoc, "FilNfv", 3, aAux);
	ListaRegraAddValorLinhaAlfa(VenNLisDoc, "SnfNfv", "NFE", aAux);   
	ListaRegraAddValorLinhaNumero(VenNLisDoc, "NumNfv", 346, aAux);
	ListaRegraSalvarLinha(VenNLisDoc);  


fim;

Este artigo ajudou você?