AF126TOK - Transfer Approval Validation

The entry point AF126TOK validates the data before the approval of the asset posting/transfer.

#INCLUDE "Protheus.ch"

User Function AF126TOK()

Local nOpc := ParamIxb[1] // 3=Approval, 4=Rejection

Local cTipoSol := ParamIxb[2] // 1=Posting, 2=Transfer

Local cCodigo := ParamIxb[3] // Code of the transfer

Local cBase := ''

Local cItem := ''

Local lRet := .T.

Local aArea := GetArea()

dbSelectArea("SNM")

SNM->( dbSetOrder(1) )

SNM->( dbSeek( xFilial("SNM") + cCodigo ) )

cBase := SNM->NM_CBASE

cItem := SNM->NM_ITEM

IF cTipoSol == "1" //Posting

If MsgYesNo( "Approve the asset posting " + cBase + " / " + cItem + " ?", "Notice" )

lRet := .T.

Else

lRet := .F.

EndIf

ElseIf cTipoSol == "2" //Transfer

If MsgYesNo( "Approve the asset transfer " + cBase + " / " + cItem + " ?", "Notice" )

lRet := .T.

Else

lRet := .F.

EndIf

EndIf

RestArea(aArea)

Return lRet

Portuguese(Brazil)

Microsiga_Protheus11

All

All

nOpc : 3 = Approval, 4 = Rejection

cTipoSol : 1=Posting, 2=Transfer

cCodigo : Code of the Transfer

lRet : Logical

If ExistBlock("AF126TOK")

lRet := ExecBlock("AF126TOK", .F., .F.,{nOpc,cTipoSol,cCodigo})

EndIf

ATFA126.PRW