Identificador de Regra

VEN-140MDFEA02

Módulo: VEN - Vendas.

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

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;

PORTAL DE DOCUMENTAÇÃO
Gestão Empresarial \| ERP - versão 5.10.3 (XTended)