Histórico da Página
Ponto de Entrada
Descrição: | Informe o Menu em que estará localizada a rotina | ||||||||||||||||
Localização: | Informe o Submenu em que estará localizada a rotina | ||||||||||||||||
Eventos: | Informe o Título da rotina | ||||||||||||||||
Programa Fonte: | Informe o Fonte da rotina | ||||||||||||||||
Função: | Informe o Nome do(s) produto(s) a ser utilizado ou “Todos” | ||||||||||||||||
Retorno: |
|
Exemplo:
#Include 'Protheus.ch'
User Function CN120ALT()
Local aCab:= PARAMIXB[1]
Local cTipo:= PARAMIXB[2]
If cTipo == '1'
aCab[4][2]:= 'NF' //Validações do usuário
EndIf
Return aCabEste Ponto de Entrada tem a finalidade de permitir ao usuário realizar alterações na condição de pagamento da rotina Fechamento de O.S. (OFIXA100) | |
Localização: | Atualizações / Mov Fechamento / Fechamento de OS Modelo 2 |
Eventos: | Function OX100FOVS9(cReadVar)
Default cReadVar := ReadVar()
// se o usuario nao possui permissao de alterar retorna .f. If !(VAI->VAI_ALTPAR =="1") MsgStop(STR0127,STR0004) // "Usuário sem permissão para alterar a data e/ou valor da parcela." Return .f. EndIf // If Empty(M->VOO_CONDPG) MsgStop(STR0128,STR0004) // "Preencha uma condição de pagamento antes." Return .f. EndIf // DBSelectArea("SE4") DBSetOrder(1) If !(MsSeek(xFilial("SE4")+M->VOO_CONDPG)) Help(" ",1,"REGNOIS",,AllTrim(RetTitle("VOO_CONDPG")) + ": " + M->VOO_CONDPG ,4,1) Return .f. Endif
// Melhoria para condição de pagamento If ExistBlock("OX100SE4") If !ExecBlock("OX100SE4",.f.,.f.) Return(.f.) EndIf EndIf
|
Programa Fonte: | OFIXX100.PRW |
Função: | OX100FOVS9 |
Retorno: | Lógico |
Exemplo:
User Function OX100SE4()
MsgInfo("Ponto de entrada OX100SE4 executado com sucesso!")
Return(.t.)