Páginas filhas
  • AF126TOK - Transfer Approval Validation

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

AF126TOK - Transfer Approval Validation

Description

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

Examples

#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

Language

Portuguese(Brazil)

Versions

Microsiga_Protheus11

Operating Systems Supported

All

Compatible with the following Databases

All

Parameters

nOpc : 3 = Approval, 4 = Rejection

cTipoSol : 1=Posting, 2=Transfer

cCodigo : Code of the Transfer

Return

lRet : Logical

Call events of the Entry Point

If ExistBlock("AF126TOK")

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

EndIf

Source Program

ATFA126.PRW