Histórico da Página

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)

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

Função:

OX100FOVS9