Histórico da Página

Descrição

Descripción

O ponto

El punto de entrada AF126TOK realiza

a validação dos dados antes da aprovação da Transferência/Baixa de ativos.Exemplos

la validación de los datos antes de la aprobación de la Transferencia/Baja de activos.
Ejemplos	#INCLUDE "Protheus.ch" User Function AF126TOK() Local nOpc := ParamIxb[1] // 3=

Aprovação

Aprobación, 4=

Rejeição

Rechazo
Local cTipoSol := ParamIxb[2] // 1=

Baixa

Baja, 2=Transferencia
Local cCodigo := ParamIxb[3] //

Codigo da Transferencia

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" //

Baixa

Baja
If MsgYesNo( "

Deseja aprovar a baixa do ativo

¿Desea aprobar la baja del activo " + cBase + " / " + cItem + " ?", "

Atenção

Atención" )
lRet := .T.
Else
lRet := .F.
EndIf
ElseIf cTipoSol == "2" //Transferencia
If MsgYesNo( "

Deseja aprovar a transferencia do ativo

¿Desea aprobar la transferencia del activo " + cBase + " / " + cItem + " ?", "

Atenção

Idioma
Atención" ) lRet := .T. Else lRet := .F. EndIf EndIf RestArea(aArea) Return lRet

Português

Portugués(Brasil)

Versões

Sistemas
Versiones	Microsiga_Protheus11

Operacionais Suportados

operativos compatibles	Todos

Compatível com as Bases de Dados

Compatible con las bases de datos	Todas

Parâmetros

Parámetros	nOpc : 3 =

Aprovação

Aprobación, 4 =

Rejeição

Rechazo
cTipoSol : 1=

Baixa

Baja, 2=Transferencia
cCodigo :

Codigo da Transferencia Retorno

Eventos de
Código de la transferencia
Devolución	lRet : Lógico

chamada do Ponto de Entrada

Programa
activación del punto de entrada	If ExistBlock("AF126TOK") lRet := ExecBlock("AF126TOK", .F., .F.,{nOpc,cTipoSol,cCodigo}) EndIf

Fonte

fuente	ATFA126.PRW

Atalhos

Árvore de páginas

Versões comparadas

Versão antiga 1

Nova versão Atual

Chave