Salve salve....
Ponto de entrada MTA650L - ( PCP - Ordens de Produção)
Valida a linha e o TudoOK. Checar pelo FWISInCallStack
#INCLUDE "TOTVS.CH"
/*/{Protheus.doc} MTA650L
Validação da Linha e do TudoOK
@type function
@author Eurai Rapelli
@since 2023.01.01
/*/
User Function MTA650L()
Local lRet := PARAMIXB[01] as logical
Private fG1COMP := GdFieldPos('G1_COMP') as numeric
Private fD4QUANT := GdFieldPos('D4_QUANT') as numeric
Begin Sequence
If !(lRet := fValid())
Break
Endif
End Sequence
Return( lRet )
/*/{Protheus.doc} fValid
Validacao
@type function
@author Eurai Rapelli
@since 2023.01.01
/*/
Static Function fValid()
Local lRet := .T. as logical
Local nI := 00
Local nTamArray := Len(aCols) as numeric
Local nTamHeader := Len( aHeader ) as numeric
Begin Sequence
If !FwIsInCallStack('A650AETdOk')
Break
Endif
If Type("_aAcolsBK") == 'U'
Break
Endif
For nI := 01 to nTamArray
If Len(_aAcolsBK) < nI
Loop
Endif
//Validação
Next nI
End Sequence
Return( lRet )
Gostou? Compartilhe com seus amigos e deixe um comentário! 😎
Um abraço, e até a próxima