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.

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

Este artigo ajudou você?