AF126TOK - Validação de aprovação de Transferência

O ponto de entrada AF126TOK realiza a validação dos dados antes da aprovação da Transferência/Baixa de ativos.

#INCLUDE "Protheus.ch"

User Function AF126TOK()
Local nOpc := ParamIxb[1] // 3=Aprovação, 4=Rejeição
Local cTipoSol := ParamIxb[2] // 1=Baixa, 2=Transferencia
Local cCodigo := ParamIxb[3] // Codigo da Transferencia
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" //Baixa
If MsgYesNo( "Deseja aprovar a baixa do ativo " + cBase + " / " + cItem + " ?", "Atenção" )
lRet := .T.
Else
lRet := .F.
EndIf
ElseIf cTipoSol == "2" //Transferencia
If MsgYesNo( "Deseja aprovar a transferencia do ativo " + cBase + " / " + cItem + " ?", "Atenção" )
lRet := .T.
Else
lRet := .F.
EndIf
EndIf

RestArea(aArea)

Return lRet

Português(Brasil)

Microsiga_Protheus11

Todos

Todas

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