OX100LOK - Seleção ou Mudança de linha do item ou do serviço

Este Ponto de Entrada é executado na rotina Fechamento de OS Modelo 2 (OFIXA100), é apresentado sempre que o usuário selecionar/mudar a linha do item ou do serviço.

User Function OX100LOK()

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

Return(.t.)

Português(Brasil)

Todas

Todos

Todas

N/A

LOGICO

Function OX100PDLOK()

Local DVO3GRUITE := FG_POSVAR("VO3_GRUITE","aHVO3Det")
Local DVO3CODITE := FG_POSVAR("VO3_CODITE","aHVO3Det")

Local nCntFor

// Ponto de Entrada na chamada do linok do aCols detalhado no fechamento de OS.
If ExistBlock("OX100LOK")
If !ExecBlock("OX100LOK",.f.,.f.)
Return .f.
Endif
EndIf


// Linha em Branco
If Len(oGetDetVO3:aCols) == 1 .and. Empty(oGetDetVO3:aCols[1, DVO3GRUITE]) .and. Empty(oGetDetVO3:aCols[1, DVO3CODITE])
Return .t.
EndIf

For nCntFor:=1 to Len(oGetDetVO3:aHeader)
If X3Obrigat(oGetDetVO3:aHeader[nCntFor,2]) .and. (Empty(oGetDetVO3:aCols[oGetDetVO3:nAt,nCntFor]))
Help(" ",1,"OBRIGAT2",,RetTitle(oGetDetVO3:aHeader[nCntFor,2]),4,1)
Return .f.
EndIf
Next

Return .t.

OFIXX100.PRW