Linha Microsiga Protheus

Árvore de páginas

Ponto de Entrada

Descrição:

Ponto de entrada utilizado para validar a Filial de Origem e Filial de Destino no momento que o usuário seleciona.

Localização:

Atualizações / Mov Peças / Ped. Transf. Peças (OFIXA020)

Eventos:

@ aPosObj[1,1]+005,aPosObj[1,2]+(nTam*03)+005 SAY "Filial Origem: " SIZE 60,08 OF oDlg1 PIXEL COLOR CLR_BLUE

@ aPosObj[1,1]+004,aPosObj[1,2]+(nTam*04)+005 MSCOMBOBOX oFilOri VAR cFilOri ITEMS aFiliais VALID FS_TROCAFIL() .AND. iif(lPEVldFilial,ExecBlock("OX020FIL", .f., .f., {1,cFilOri}),.T.) SIZE (nTam*2),08 OF oDlg1 PIXEL

@ aPosObj[1,1]+005,aPosObj[1,2]+(nTam*07)+005 SAY "Filial Destino: " SIZE 60,08 OF oDlg1 PIXEL COLOR CLR_BLUE

@ aPosObj[1,1]+004,aPosObj[1,2]+(nTam*08)+005 MSCOMBOBOX oFilDes VAR cFilDes ITEMS aFiliais VALID iif(lPEVldFilial,ExecBlock("OX020FIL", .f., .f., {2,cFilDes}),.T.) SIZE (nTam*2),08 OF oDlg1 PIXEL

@ aPosObj[1,1]+005,aPosObj[1,2]+(nTam*11)+005 SAY "Vendedor: " SIZE 60,08 OF oDlg1 PIXEL COLOR CLR_BLUE

@ aPosObj[1,1]+004,aPosObj[1,2]+(nTam*12)+005 MSGET oVenTra VAR cVenTra PICTURE "@!" F3 "SA3" VALID FG_Seek("SA3","cVenTra",1,.f.) SIZE (nTam),08 OF oDlg1 PIXEL COLOR CLR_BLUE HASBUTTON


Programa Fonte:

OFIXA020.PRW

Função:

OXA020I()

Parâmetros:
NomeTipoDescrição

PARAMIXB[1]

Numérico

conteúdo 1 ou 2 (1 = está validando a filial de Origem 2 = está validando a filial de Destino)

PARAMIXB[2]

Caractere

contém a filial selecionada

Retorno:
NomeTipoDescrição

lRet

Lógico

retorna .T. para permittir selecionar ou .F. para não

Exemplo:

Include totvs.ch

#include "PROTHEUS.CH"

//////////////////////////////////////////////////////////////////////////////////
// //
// Ponto de entrada localizado na Rotina de Transferencia de Peças, executado //
// na validação da seleção da filial origem e destino. //
// //
//////////////////////////////////////////////////////////////////////////////////
User Function OX020FILVLD()

Local nOpc := ParamIxb[1] //Se é origem ou destino
Local cFilVld := ParamIxb[2] //Filial selecionada

Do case
Case nOpc == 1 //Filial origem
MsgInfo("Ponto de entrada OX020FIL validando filial origem!")
Case nOpc == 2 //Filial destino
MsgInfo("Ponto de entrada OX020FIL validando filial destino!")
EndCase

Return .t.