Linha Microsiga Protheus

Árvore de páginas

  • Criado por Usuário desconhecido (flora.rocha), última alteração por admin em 23 jun, 2012

Ponto-de-Entrada: VX021TOK - Executado no início do TudoOK do formulário
Abrangências: Microsiga Protheus 10 , Microsiga Protheus 11
Versões: Microsiga Protheus 10 , Microsiga Protheus 11
Compatível Países: Brasil
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Idiomas: Português (Brasil)
Descrição: 
Executado no início do TudoOK do formulário. (verificações pré-gravação)
Eventos

 

Static Function VX021TUDOK(nOpc)
Local nCntFor
Local nCnCpo := 0
//
if ExistBlock("VX021TOK")
 If !ExecBlock("VX021TOK",.f.,.f.)
    Return .f.
 Endif
Endif
//
// VERIFICACOES DOS CAMPOS OBRIGATORIOS DA ENCHOICE
if nOpc == 3 .or. nOpc == 4
 For nCntFor:=1 to Len(acpoEncS)
    If X3Obrigat(acpoEncS[nCntFor]) .and. Empty(&("M->"+acpoEncS[nCntFor]))
      Help(" ",1,"OBRIGAT2",,acpoEncS[nCntFor],4,1)
      Return .f.
    EndIf
 Next
 For nCntFor:=1 to Len(aHeader)
    If X3Obrigat(aHeader[nCntFor,2])
       For nCnCpo := 1 to Len(aCols)
        If aCols[n,Len(aCols[n])] == .f.
            if (Empty(aCols[nCnCpo,nCntFor]))
             Help(" ",1,"OBRIGAT2",,RetTitle(aHeader[nCntFor,2]),4,1)
           Return .f.
          Endif
         Endif 
       Next      
    EndIf
 Next
Endif
If nOpc == 4 .or. nOpc == 2
 Return .t.
EndIf
// SE DER OK NA JANELA DIRETO DO ACOLS NAO PASSA PELO LINOK. CHAMA-SE A FUNCAO AQUI
If !(VX021LINOK()) .and. !lVX021Auto
 Return .f.
EndIf                  
 
If !MaFisFound('NF')
 // TRANSFORMAR EM HELP
 HELP(" ",1,"NVAZIO",,STR0030,4,0) //Favor preencher os dados da nota fiscal
 Return .f.
EndIf
//
Return .t.
Programa Fonte 
veixa021
Sintaxe

VX021TOK - Executado no início do TudoOK do formulário ( [ ] )

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
Array of Record
Retorno
    ()
Exemplos 
User Function VX021TOK()Local aRet := {}lRet := MsgYesNo(“Deseja continuar ?”,”Atencao”)return lRet
Variáveis
Nome Tipo Escopo Pode Alterar descrição
Array of Record Global Não