Ponto de Entrada
Descrição: | Este Ponto de entrada tem por finalidade permitir que o usuário faça validações no momento da gravação da aplicação da peça. |
Parâmetros: | N/A |
Eventos: | cFam := aCols[ni,FG_POSVAR("VQQ_CODFAM","aHeader")] cGrp := aCols[ni,FG_POSVAR("VQQ_CODGRU","aHeader")] cSub := aCols[ni,FG_POSVAR("VQQ_SUBGRU","aHeader")] DbSelectArea("VQP") DbSetOrder(1) // VQP_FILIAL+VQP_CODFAM+VQP_CODGRU+VQP_SUBGRU If !DbSeek(xFilial("VQP")+cFam+cGrp+cSub) // Impossivel continuar! Familia/Grupo/SubGrupo não encontrado! MsgStop(STR0005+Chr(13)+CHR(10)+Chr(13)+CHR(10)+; STR0006+": "+cFam+Chr(13)+CHR(10)+; STR0007+": "+cGrp+Chr(13)+CHR(10)+; STR0008+": "+cSub,STR0009) Return .f. EndIf If aCols[ni,FG_POSVAR("VQQ_APLPAD","aHeader")] == "1" nAplPad := ni cGRUPONEW := VQP->VQP_GRUPO EndIf nCont++ EndIf Next If nAplPad == 0 .and. nCont > 0 MsgStop(STR0010,STR0009) // Necessário selecionar uma aplicação padrão! / Atencao Return .f. EndIf
If ExistBlock("OA620VLD") lRet := ExecBlock("OA620VLD",.f.,.f.) if !lRet Return(.f.) Endif EndIf
//
|
Programa Fonte: | OFIOA620.PRW |
Função: | FS_OA620GRA |
Retorno: | Lógico = true ou False |
Exemplo:
User Function OM430VLD()
MsgInfo("Ponto de entrada OM430VLD executado com sucesso!")
Return(.t.)