Salve salve....
Ponto de entrada MT120OK - ( Compras/ Pedido de compra )
#INCLUDE "TOTVS.CH"
/*/{Protheus.doc} MT120OK
Validação Pedido de compra.
@type function
@author Eurai Rapelli
@since 2023.03.01
/*/
User Function MT120OK()
Local lRet := .T. as logical
Private nTamHeader := Len(aHeader) as array
Private aTamArray1 := Len(aCols) as array
Private lIsBlind := IsBlind() .OR. Type('__LocalDriver') == 'U' as logical
Private fC7ITEM := GdFieldPos('C7_ITEM') as numeric
Private fC7PRODUTO := GdFieldPos('C7_PRODUTO') as numeric
Private fC7DATPRF := GdFieldPos('C7_DATPRF') as numeric
Private fC7QUJE := GdFieldPos('C7_QUJE') as numeric
Private fC7TES := GdFieldPos('C7_TES') as numeric
Private cFilialSB1 := xFilial('SB1') as character
Private cFilialSF4 := xFilial('SF4') as character
Begin Sequence
if !( lRet := fValid() )
Break
Endif
End Sequence
Return( lRet )
/*/{Protheus.doc} fValid
Validação
@type function
@author Eurai Rapelli
@since 2023.01.01
/*/
Static Function fValid()
Local lRet := .T. as logical
Local nX := 00 as numeric
Local aArea := GetArea() as array
Begin Sequence
SB1->( dbSetOrder(01) )
SF4->( dbSetOrder(01) )
For nX := 1 to aTamArray1
If aCols[nX,nTamHeader+1]
Loop
Endif
If !SB1->( dbSeek( cFilialSB1 + aCols[nX,fC7PRODUTO] ) )
Loop
Endif
If !SF4->( dbSeek( cFilialSF4 + aCols[nX,fC7TES] ) )
Loop
Endif
//Regras
Next nX
End Sequence
RestArea( aArea )
Return( lRet )
Gostou? Compartilhe com seus amigos e deixe um comentário! 😎
Um abraço, e até a próxima