Linha Microsiga Protheus

Árvore de páginas

AGR680IMP1 - Ponto de Entrada - Rotina de Importação de HVI

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Agroindústria

Módulo:

SIGAAGR

Rotina:

Rotina

Nome Técnico

AGRA680

Importação HVI

Ponto de Entrada:

AGR680IMP1

País(es):

Todos

Ponto de Entrada

Descrição:

Ponto de Entrada antes do comit das informações da importação HVI.

Localização:

Rotina de Importação HVI

Eventos:

Ponto de Entrada é executado antes do comit das informações da importação HVI.

Programa Fonte:

AGRA680

Função:

AGRA680 - Importação HVI

Retorno:

Nome

Tipo

Descrição

Obrigatório

lRetorno

Lógico

Retorno verdadeiro ou Falso.

Sim


 

Ponto de Entrada
USER FUNCTION AGR680IMP1()
	LOCAL cFilEmp 	:= PARAMIXB[1][1]
	LOCAL cSafra	    := PARAMIXB[1][2]
	LOCAL cEtiqueta	:= PARAMIXB[1][3]
	LOCAL lRetorno	:= .T.
	
	DXI->(dbSelectArea("DXI"))
	DXI->(dbSetOrder(1))	//DXI_FILIAL+DXI_SAFRA+DXI_ETIQ
	If DXI->(DbSeek( cFilEmp + cSafra +cEtiqueta )) 
		MSGINFO("DXI - Fardos de Algodao em Pluma")
	EndIF
	
	DX7->(dbSelectArea("DX7"))
	DX7->(dbSetOrder(2))	//DX7_FILIAL+DX7_SAFRA+DX7_ETIQ+DX7_LAB+DX7_UNI
	If DX7->(DbSeek( cFilEmp + cSafra +cEtiqueta )) 
		MSGINFO("DX7 - Resultado Laboratorial HVI")
	EndIF
	
	MSGINFO("Chave: "+ cFilEmp + cSafra + cEtiqueta)
	
RETURN lRetorno