Identificador de Regra

VEN-140MDFEA06

Módulo: VEN - Vendas.

Finalidade: MDF-e Automático - Unidades de Transporte e Unidades de Carga. 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
VenNLisUnt	Número	Lista de unidade de transporte do documento fiscal	S
VenNLisUnt.FilNfv	Numero	Código da filial do documento fiscal	S
VenNLisUnt.SnfNfv	Alfa	Código da série do documento fiscal	S
VenNLisUnt.NumNfv	Alfa	Número do documento fiscal	S
VenNLisUnt.SeqUnt	Número	Sequência da unidade de transporte (incremental)	S
VenNLisUnt.TipUnt	Número	Tipo da unidade de transporte (1-Rodoviário Tração, 2-Rodoviário Reboque, 3-Navio, 4-Balsa, 5-Aeronave, 6-Vagão, 7-Outros)	S
VenNLisUnt.CodIdt	Alfa	Código de identificação da unidade de transporte	S
VenNLisUnt.VlrRat	Número	Valor da quantidade rateada (Peso, Volume)	S
VenNLisLacUnt	Número	Lista de lacres da unidade de transporte	S
VenNLisLacUnt.SeqUnt	Número	Sequência da unidade de transporte	S
VenNLisLacUnt.CodLac	Alfa	Número do lacre	S
VenNLisUnc	Número	Lista de unidade de carga do documento fiscal	S
VenNLisUnc.FilNfv	Numero	Código da filial do documento fiscal	S
VenNLisUnc.SnfNfv	Alfa	Código da série do documento fiscal	S
VenNLisUnc.NumNfv	Alfa	Número do documento fiscal	S
VenNLisUnc.SeqUnt	Número	Sequência da unidade de transporte	S
VenNLisUnc.SeqUnc	Número	Sequência da unidade de carga (incremental)	S
VenNLisUnc.TipUnc	Número	Tipo da unidade de carga (1-Container, 2-ULD, 3-Pallet, 4-Outros)	S
VenNLisUnc.CodIdc	Alfa	Código de identificação da unidade de carga	S
VenNLisUnc.VlrRat	Número	Valor da quantidade rateada (Peso, Volume)	S
VenNLisLacUnc	Número	Lista de lacres da unidade de carga	S
VenNLisLacUnc.SeqUnc	Número	Sequência da unidade de carga	S
VenNLisLacUnc.CodLac	Alfa	Número do lacre	S

Regra:

definir numero VenNLisUnt;      @ Lista de Unidade de Transporte @
definir numero VenNLisLacUnt;   @ Lista de Lacres da Unidade de Transporte @
definir numero VenNLisUnc;      @ Lista de Unidade de Carga @
definir numero VenNLisLacUnc;   @ Lista de Lacres da Unidade de Carga @
definir alfa VenAChaveMDFeAuto;  @ Chave informada na geração do MDF-e Automático @

definir alfa aAux;

se (VenAChaveMDFeAuto = "1234") 
inicio

	@ Unidade de Transporte 1 - Inicio @
	ListaRegraNovaLinha(VenNLisUnt);                                 
	
	@ Unidade de Transporte 1 - A qual nota da composição do MDF-e pertence @
	ListaRegraAddValorLinhaNumero(VenNLisUnt, "FilNfv", 3, aAux);
	ListaRegraAddValorLinhaAlfa(VenNLisUnt, "SnfNfv", "NFE", aAux);   
	ListaRegraAddValorLinhaNumero(VenNLisUnt, "NumNfv", 345, aAux); 
	
	
	@ Unidade de Transporte 1 - Sequencial da Unidade (único) @
	ListaRegraAddValorLinhaNumero(VenNLisUnt, "SeqUnt", 1, aAux); @ Incremental @
	
	@ Unidade de Transporte 1 - Demais Dados @
	ListaRegraAddValorLinhaNumero(VenNLisUnt, "TipUnt", 3, aAux);   
	ListaRegraAddValorLinhaAlfa(VenNLisUnt, "CodIdt", "33", aAux);
	ListaRegraAddValorLinhaNumero(VenNLisUnt, "VlrRat", 50, aAux);    

	@ Unidade de Transporte 1 - Salva linha da lista @
	ListaRegraSalvarLinha(VenNLisUnt); 
  @ Unidade de Transporte 1 - Fim @  



  @ Lacre 1 da Unidade de Transporte 1 - Inicio @	
	ListaRegraNovaLinha(VenNLisLacUnt);     
	
  @ Lacre 1 da Unidade de Transporte 1 - Nota e Sequencial da Unidade de Transporte (ref. Unidade Transporte 1) @
	ListaRegraAddValorLinhaNumero(VenNLisLacUnt, "FilNfv", 3, aAux);
	ListaRegraAddValorLinhaAlfa(VenNLisLacUnt, "SnfNfv", "NFE", aAux);   
	ListaRegraAddValorLinhaNumero(VenNLisLacUnt, "NumNfv", 345, aAux);  
	ListaRegraAddValorLinhaNumero(VenNLisLacUnt, "SeqUnt", 1, aAux);
	
	@ Lacre 1 da Unidade de Transporte 1 - Código do Lacre @
	ListaRegraAddValorLinhaAlfa(VenNLisLacUnt, "CodLac", "lac1-unt1", aAux);   
	
	@ Lacre 1 da Unidade de Transporte 1 - Salva linha da lista @
	ListaRegraSalvarLinha(VenNLisLacUnt);	
  @ Lacre 1 da Unidade de Transporte 1 - Fim @   



  @ Lacre 2 da Unidade de Transporte 1 - Inicio @	
	ListaRegraNovaLinha(VenNLisLacUnt);     
	
  @ Lacre 2 da Unidade de Transporte 1 - Nota e Sequencial da Unidade de Transporte (ref. Unidade Transporte 1) @
	ListaRegraAddValorLinhaNumero(VenNLisLacUnt, "FilNfv", 3, aAux);
	ListaRegraAddValorLinhaAlfa(VenNLisLacUnt, "SnfNfv", "NFE", aAux);   
	ListaRegraAddValorLinhaNumero(VenNLisLacUnt, "NumNfv", 345, aAux);  
	ListaRegraAddValorLinhaNumero(VenNLisLacUnt, "SeqUnt", 1, aAux);  
	
	@ Lacre 2 da Unidade de Transporte 1 - Código do Lacre @
	ListaRegraAddValorLinhaAlfa(VenNLisLacUnt, "CodLac", "lac2-unt1", aAux);   
	
	@ Lacre 2 da Unidade de Transporte 1 - Salva linha da lista @
	ListaRegraSalvarLinha(VenNLisLacUnt);	
  @ Lacre 2 da Unidade de Transporte 1 - Fim @
	
	
	
  @ Unidade de Carga 1 da Unidade de Transporte 1 - Inicio @	
	ListaRegraNovaLinha(VenNLisUnc);
	
  @ Unidade de Carga 1 da Unidade de Transporte 1 - Nota e Sequencial da Unidade de Transporte @                         
	ListaRegraAddValorLinhaNumero(VenNLisUnc, "FilNfv", 3, aAux);
	ListaRegraAddValorLinhaAlfa(VenNLisUnc, "SnfNfv", "NFE", aAux);   
	ListaRegraAddValorLinhaNumero(VenNLisUnc, "NumNfv", 345, aAux);  
	ListaRegraAddValorLinhaNumero(VenNLisUnc, "SeqUnt", 1, aAux);   

	@ Unidade de Carga 1 da Unidade de Transporte 1 - Sequencial da Unidade (único) @
	ListaRegraAddValorLinhaNumero(VenNLisUnc, "SeqUnc", 1, aAux); @ Incremental @
	
	@ Unidade de Carga 1 da Unidade de Transporte 1 - Demais dados @
	ListaRegraAddValorLinhaNumero(VenNLisUnc, "TipUnc", 1, aAux);   
	ListaRegraAddValorLinhaAlfa(VenNLisUnc, "CodIdc", "321", aAux);
	ListaRegraAddValorLinhaNumero(VenNLisUnc, "VlrRat", 50, aAux);    

	@ Unidade de Carga 1 da Unidade de Transporte 1 - Salva linha da lista @
	ListaRegraSalvarLinha(VenNLisUnc); 
  @ Unidade de Carga 1 da Unidade de Transporte 1 - Fim @     



  @ Lacre 1 da Unidade de Carga 1 da Unidade de Transporte 1 - Inicio @	
	ListaRegraNovaLinha(VenNLisLacUnc);     
	
  @ Lacre 1 da Unidade de Carga 1 da Unidade de Transporte 1 - Nota e Sequencial da Carga 1 @
	ListaRegraAddValorLinhaNumero(VenNLisLacUnc, "FilNfv", 3, aAux);
	ListaRegraAddValorLinhaAlfa(VenNLisLacUnc, "SnfNfv", "NFE", aAux);   
	ListaRegraAddValorLinhaNumero(VenNLisLacUnc, "NumNfv", 345, aAux);  
	ListaRegraAddValorLinhaNumero(VenNLisLacUnc, "SeqUnc", 1, aAux);
	
	@ Lacre 1 da Unidade de Carga 1 da Unidade de Transporte 1 - Código do Lacre @
	ListaRegraAddValorLinhaAlfa(VenNLisLacUnc, "CodLac", "lac1-unt1-unc1", aAux);   
	
	@ Lacre 1 da Unidade de Carga 1 da Unidade de Transporte 1 - Salva linha da lista @
	ListaRegraSalvarLinha(VenNLisLacUnc);	
  @ Lacre 1 da Unidade de Carga 1 da Unidade de Transporte 1 - Fim @   



  @ Lacre 2 da Unidade de Carga 1 da Unidade de Transporte 1 - Inicio @	
	ListaRegraNovaLinha(VenNLisLacUnc);     
	
  @ Lacre 2 da Unidade de Carga 1 da Unidade de Transporte 1 - Notae Sequencial da Carga 1 @
	ListaRegraAddValorLinhaNumero(VenNLisLacUnc, "FilNfv", 3, aAux);
	ListaRegraAddValorLinhaAlfa(VenNLisLacUnc, "SnfNfv", "NFE", aAux);   
	ListaRegraAddValorLinhaNumero(VenNLisLacUnc, "NumNfv", 345, aAux);
	ListaRegraAddValorLinhaNumero(VenNLisLacUnc, "SeqUnc", 1, aAux);
	 
	
	@ Lacre 2 da Unidade de Carga 1 da Unidade de Transporte 1 - Código do Lacre @
	ListaRegraAddValorLinhaAlfa(VenNLisLacUnc, "CodLac", "lac2-unt1-unc1", aAux);   
	
	@ Lacre 2 da Unidade de Carga 1 da Unidade de Transporte 1 - Salva linha da lista @
	ListaRegraSalvarLinha(VenNLisLacUnc);	
  @ Lacre 2 da Unidade de Carga 1 da Unidade de Transporte 1 - Fim @
	
fim;

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