Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

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:

Nome

Tipo

Descrição

Obrigatório

 

 

 

 

 

 

 

 

 

 

 

 

 

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 aCab

Este 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.)