Identificador de Regra

VEN-140MDFEA04

Módulo: VEN - Vendas.

Finalidade: MDF-e Automático - Vale Pedágio. 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
VenNLisVlp	Número	Lista de vale pedágio do MDF-e	S
VenNLisVlp.SeqVpe	Número	Sequência do vale pedágio (incremental)	S
VenNLisVlp.CodFor	Número	Código do fornecedor do vale pedágio	S
VenNLisVlp.CgcFor	Número	CNPJ do fornecedor do vale pedágio	S
VenNLisVlp.NumCom	Alfa	Número do comprovante de compra	S
VenNLisVlp.CodCli	Número	Código do cliente pagador	S
VenNLisVlp.CgcPag	Número	CNPJ do cliente pagador	S
VenNLisVlp.VlrVpe	Número	Valor do vale pedágio	S

Regra:

definir alfa VenAChaveMDFeAuto; 
definir alfa aAux;    
aAux =  "";               

se (VenAChaveMDFeAuto = "1234") 
inicio                           
	ListaRegraNovaLinha(VenNLisVlp);                  
	ListaRegraAddValorLinhaNumero(VenNLisVlp, "SeqVpe", 1, aAux);      
	ListaRegraAddValorLinhaNumero(VenNLisVlp, "CodFor", 10, aAux);
	ListaRegraAddValorLinhaNumero(VenNLisVlp, "CgcFor", 80680093000181, aAux);
	ListaRegraAddValorLinhaAlfa(VenNLisVlp, "NumCom", "12345", aAux);
	ListaRegraAddValorLinhaNumero(VenNLisVlp, "CodCli", 10, aAux);
	ListaRegraAddValorLinhaNumero(VenNLisVlp, "CgcPag", 80680093000181, aAux);
	ListaRegraAddValorLinhaNumero(VenNLisVlp, "VlrVpe", 5.75, aAux);
	ListaRegraSalvarLinha(VenNLisVlp);  

	ListaRegraNovaLinha(VenNLisVlp);                  
	ListaRegraAddValorLinhaNumero(VenNLisVlp, "SeqVpe", 2, aAux);      
	ListaRegraAddValorLinhaNumero(VenNLisVlp, "CodFor", 10, aAux);
	ListaRegraAddValorLinhaNumero(VenNLisVlp, "CgcFor", 80680093000181, aAux);
	ListaRegraAddValorLinhaAlfa(VenNLisVlp, "NumCom", "67890", aAux);
	ListaRegraAddValorLinhaNumero(VenNLisVlp, "CodCli", 10, aAux);
	ListaRegraAddValorLinhaNumero(VenNLisVlp, "CgcPag", 80680093000181, aAux);
	ListaRegraAddValorLinhaNumero(VenNLisVlp, "VlrVpe", 7.75, aAux);
	ListaRegraSalvarLinha(VenNLisVlp);    

fim;

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