Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin

Ponto de Entrada

Descrição:

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