AF126TOK - Validación de aprobación de transferencia

El punto de entrada AF126TOK realiza la validación de los datos antes de la aprobación de la Transferencia/Baja de activos.

#INCLUDE "Protheus.ch"

User Function AF126TOK()
Local nOpc := ParamIxb[1] // 3=Aprobación, 4=Rechazo
Local cTipoSol := ParamIxb[2] // 1=Baja, 2=Transferencia
Local cCodigo := ParamIxb[3] // Código de la 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" //Baja
If MsgYesNo( "¿Desea aprobar la baja del activo " + cBase + " / " + cItem + " ?", "Atención" )
lRet := .T.
Else
lRet := .F.
EndIf
ElseIf cTipoSol == "2" //Transferencia
If MsgYesNo( "¿Desea aprobar la transferencia del activo " + cBase + " / " + cItem + " ?", "Atención" )
lRet := .T.
Else
lRet := .F.
EndIf
EndIf

RestArea(aArea)

Return lRet

Portugués(Brasil)

Microsiga_Protheus11

Todos

Todas

nOpc : 3 = Aprobación, 4 = Rechazo
cTipoSol : 1=Baja, 2=Transferencia
cCodigo : Código de la transferencia

lRet : Lógico

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

ATFA126.PRW