Linha Microsiga Protheus

Árvore de páginas

Ponto de Entrada

Descrição:

Este Ponto de Entrada será executado na rotina Fechamento de OS Modelo 2 (OFIXA100) e permite atuação no final da validação das digitações das GetDados dos Grupos de Serviços ou Códigos de Serviços.

Localização:

Atualizações \ Mov Oficina \ Fechamento OS Mod2 (OFIXA100)

Eventos:

// Atualiza os Percentuais de Rateio da Matriz Aux. de Servicos

If cReadVar $ "M->VO4_VALDES,M->VO4_PERDES,M->VO4_VALBRU"

OX100PAVO4( oGetResVO4:aCols[ oGetResVO4:nAt, RVO4TIPTEM] , oGetResVO4:aCols[ oGetResVO4:nAt, RVO4TIPSER] )

EndIf

// Se tiver condicao de pagamento informada, simular o FieldOK

If cReadVar $ "M->VO4_VALDES,M->VO4_PERDES,M->VO4_VALBRU,M->VO4_CODTES" .and. !Empty(M->VOO_CONDPG)

OX100VOO("M->VOO_CONDPG", .f.)

EndIf

//

If ExistBlock("OX100FOS")

ExecBlock("OX100FOS",.f.,.f.,{"R",cReadVar})

EndIf

Return .t.

Programa Fonte:

OFIXX100.PRW

Função:

OX100PRFOK() e OX100PDFOK()

Parâmetros:

Nome

Tipo

Descrição

cGetAlterada

Caractere

Indica se a alteração foi feita na GetDados dos Grupos de Serviços (Resumida) ou dos Códigos de Serviços (Detalhada), onde:

"D" = GetDados de Serviços

"R" = GetDados de Grupos de Serviços

cVarServicoCaractereReadvar (campo que executa a validação)
Retorno:Não há.

Exemplo:

/////////////////////////////////////////////////////////////////

// Ponto de Entrada utilizado para o usuário customizar //

// validações no final do FieldOK de Grid Detalhada e Resumida //

// de Serviços no Fechamento de OS Modelo 2 //

/////////////////////////////////////////////////////////////////

User Function OX100FOS()

Local cGridRDt := ParamIxb[1] // R = Grid Resumida / D = Grid Detalhada

Local cReadVar := ParamIxb[2] // R = Grid Resumida / D = Grid Detalhada

MsgInfo("Ponto de entrada OX100FOS chamado pelo campo "+cReadVar+" na Grid "+iIf(cGridRDt=="R","Resumida","Detalhada"),"Atenção")

Return