Ponto de Entrada

Descrição:

Ponto de Entrada para tratamento da Alçada de Liberação de Margem de Peças.

Localização:

Atualizações / Mov. Gerencial / Autorização Venda

Eventos:

Function OX003TUDOK(nOpc)

 

Local nCntFor

Local lParcial := .f.

 

Private lTodos := .t.

Private lNenhum := .t.

//

lProcessa := .t.

//

DBSelectArea("VAI")

DBSetOrder(4)

DBSeek(xFilial("VAI")+__cUserId)

//

If lTemPedPec

 

// Ponto de entrada para tratamento da Alçada de Liberação de Margem de Peças

if ExistBlock("OX003TO1")

 

lRetorn := ExecBlock("OX003TO1",.f.,.f.)

if !lRetorn

return .f.

Endif

 

Else

 

For nCntFor:=1 to Len(aColsP)

If aColsP[nCntFor,1] == .t.

if VAI->(FieldPos("VAI_ADEPEC")) > 0

if aColsP[nCntFor,5] > VAI->VAI_ADEPEC .or. aColsP[nCntFor,9] < VAI->VAI_AMLPEC

MsgInfo(STR0036,STR0033)

return .f.

endif

endif

lNenhum := .f.

else

lTodos := .f.

endif

Next

 

Endif

 

Endif

 

Programa Fonte:

OFIXX003  

Parâmetros:N/A

Função:

OX003TUDOK   

Retorno:

Lógico (True ou False)

 

Exemplo:

User Function OX003TO1()

 

MsgInfo("Ponto de Entrada OX003TO1 executado com sucesso!")

 

Return .t.