#include 'protheus.ch'
//-------------------------------------------------------------------
/*/{Protheus.doc} MNTA4357
Validação das ordens de serviço, insumos previstos e realizados
na rotina de Retorno Mod. 2
@author NG Informática
@since 09/07/2014
@version P11/P12
@return lRet, Lógico, .F. - Caso encontre inconsistências, se não .T.
/*/
//-------------------------------------------------------------------
User Function MNTA4357()
Local aArea := GetArea()
Local nY := 0
Local nX := 0
Local nLineOS := 0
Local lRet := .T.
Local aDadosOS := {}
aDadosOS := ParamIXB[1]
nLineOS := ParamIXB[2]
dbSelectArea( "STL" )
dbSetOrder( 01 )
// Verifica a quantidade de insumos realizados.
For nX := 1 to Len( aDadosOS[nLineOS,5] )
//Se a linha não estiver deletada e o Tipo de Registro for igual a Mão de Obra.
If !aDadosOS[nLineOS][5][nX][Len(aCols[1])] .And. aDadosOS[nLineOS,5,nX,3] == "M"
// Verifica a quantidade de insumos realizados.
For nY := 1 to Len( aDadosOS[nLineOS][5] )
// Se a Tarefa, Tipo Insumo ou Nome não estiver preenchido.
If Empty(aDadosOS[nLineOS,5,nY,1]) .Or.;
Empty(aDadosOS[nLineOS,5,nY,3]).Or. Empty( aDadosOS[nLineOS,5,nY,5] )
MsgAlert("Campos obrigatórios não preenchidos.")
lRet := .F. //Retorna falso.
Exit
EndIf
Next nY
EndIf
Next nX
RestArea(aArea)
Return lRet