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.

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
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;

Este artigo ajudou você?