Linha Microsiga Protheus

Árvore de páginas

Ponto de Entrada

Descrição:

Permite ao usuário realizar validações para bloquear/liberar para digitação os campos Operação, TES Saida, TES Entrada e Formula da rotina

Localização:

Atualizações \ Mov Peças \ Ped. Transf. Peças

Eventos:

@ aPosObj[1,1],aPosObj[1,2] TO aPosObj[1,3],aPosObj[1,4] LABEL ("") OF oDlg1 PIXEL // Caixa Cabecalho

@ aPosObj[1,1]+005,aPosObj[1,2]+(nTam*01) SAY STR0029 SIZE 60,08 OF oDlg1 PIXEL COLOR CLR_BLUE // Tipo de Operacao

@ aPosObj[1,1]+004,aPosObj[1,2]+(nTam*02) MSGET oMV_PAR01 VAR cMV_PAR01 PICTURE "@!" F3 "DJ" VALID OXA020TPOP() SIZE (nTam),08 OF oDlg1 PIXEL COLOR CLR_BLUE HASBUTTON WHEN iif(ExistBlock("OX020WHN"),OXA200038_PEOX020WHN(1),.T.)

@ aPosObj[1,1]+005,aPosObj[1,2]+(nTam*03) SAY STR0005 SIZE 60,08 OF oDlg1 PIXEL COLOR CLR_BLUE // TES SAIDA

@ aPosObj[1,1]+004,aPosObj[1,2]+(nTam*04) MSGET oMV_PAR02 VAR cMV_PAR02 PICTURE "@!" F3 "SF4" VALID OXA020VTES() SIZE (nTam),08 OF oDlg1 PIXEL COLOR CLR_BLUE HASBUTTON WHEN iif(ExistBlock("OX020WHN"),OXA200038_PEOX020WHN(2),.T.)

@ aPosObj[1,1]+005,aPosObj[1,2]+(nTam*05) SAY STR0033 SIZE 60,08 OF oDlg1 PIXEL COLOR CLR_BLUE // TES ENTRADA

@ aPosObj[1,1]+004,aPosObj[1,2]+(nTam*06) MSGET oMV_PAR03 VAR cMV_PAR03 PICTURE "@!" F3 "SF4" VALID OXA020TESE() SIZE (nTam),08 OF oDlg1 PIXEL COLOR CLR_BLUE HASBUTTON WHEN iif(ExistBlock("OX020WHN"),OXA200038_PEOX020WHN(3),.T.)

@ aPosObj[1,1]+005,aPosObj[1,2]+(nTam*07) SAY STR0078 SIZE 60,08 OF oDlg1 PIXEL COLOR CLR_BLUE // FÓRMULA

@ aPosObj[1,1]+004,aPosObj[1,2]+(nTam*08) MSGET oMV_PAR04 VAR cMV_PAR04 PICTURE "@!" F3 "VEG" VALID OXA200028_ValidaFormula(@aVDD) SIZE (nTam),08 OF oDlg1 PIXEL COLOR CLR_BLUE HASBUTTON WHEN iif(ExistBlock("OX020WHN"),OXA200038_PEOX020WHN(4),.T.)


Programa Fonte:

OFIXA020.PRW

Função:

OXA020A()

Parâmetros:
NomeTipoDescrição
nTipoNumérico

Paramixb[1] = nTipo - Indica o campo que está sendo validado:

nTipo = 1 - Tipo de operação

nTipo = 2 - TES saida

nTipo = 3 - TES entrada

nTipo = 4 - Fórmula

Retorno:

NomeTipoDescrição

lRet

Lógico

.T. para liberar o campo ou .F. para bloquear

Exemplo:

Include totvs.ch

#include "PROTHEUS.CH"


//////////////////////////////////////////////////////////////////////////////////

// //

// Ponto de entrada localizado na Rotina de Transferencia de Peças, executado //

// ao carregar parametros Operação, TES e Formula. //

// //

//////////////////////////////////////////////////////////////////////////////////

User Function OX020WHN()


Local nOpc := ParamIxb[1] //Qual campo ta validando

Local lRet := .T.


If nOpc == 1

lRet := .F.

EndIf


Return lRet