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 Peças ou Códigos de Peças. | |||||||||
Localização: | Atualizações \ Mov Oficina \ Fechamento OS Mod2 (OFIXA100) | |||||||||
Eventos: | If cReadVar $ "M->VO3_VALDES,M->VO3_PERDES" nBkpN := n cAuxGruIte := M->VO3_GRUITE If cUsaAcres == "S" .and. M->VO3_ACRESC > 0 .and. (&(cReadVar) <> 0) Help( ,, 'Help',, STR0143, 1, 0 ) // "Para adicionar desconto por favor remova o acréscimo" Return .f. EndIf If cReadVar == "M->VO3_PERDES" If M->VO3_PERDES > 99.99 Help(" ",1,"OX100PERDES") Return .f. EndIf nTipDes := 1 // Calcula por Percentual Else If M->VO3_VALDES >= M->VO3_VALBRU Help(" ",1,"OX100VALDES") Return .f. EndIf nTipDes := 2 // Calcula por Valor EndIf OX100DPECA( 2 , oGetResVO3:nAt , nTipDes , M->VO3_PERDES , M->VO3_VALDES ) EndIf If ExistBlock("OX100FOP") ExecBlock("OX100FOP",.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 Peças no Fechamento de OS Modelo 2 //
/////////////////////////////////////////////////////////////////
User Function OX100FOP()
Local cGridRDt := ParamIxb[1] // R = Grid Resumida / D = Grid Detalhada
Local cReadVar := ParamIxb[2] // R = Grid Resumida / D = Grid Detalhada
MsgInfo("Ponto de entrada OX100FOP chamado pelo campo "+cReadVar+" na Grid "+iIf(cGridRDt=="R","Resumida","Detalhada"),"Atenção")
Return
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas