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: |
| ||||
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: |
|
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
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas