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: |
| |||||||||
| Retorno: |
|
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.
