DT_OA620VLD_Validacoes_no_momento_da_gravacao_da_aplicacao_da_peca

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.

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

//

Função:

FS_OA620GRA