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: |
| |||||||||
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