Histórico da Página

...

Portuguese

Pagetitle

	MT120OK - Validações Específicas de Usuário
	MT120OK - Validações Específicas de Usuário

Ponto-de-Entrada: MT120OK - Validações Específicas de Usuário

Versões:	Advanced Protheus 6.09 , Advanced Protheus 7.10 , Microsiga Protheus 8.11 , Microsiga Protheus 10
Compatível Países:	Todos
Sistemas Operacionais:	Todos
Compatível às Bases de Dados:	Todos
Idiomas:	Espanhol , Inglês

Descrição:

LOCALIZAÇÃO

:

Function

A120TudOk()

responsável

pela

validação

de

todos

os

itens

da

GetDados

do

Pedido

de

Compras

/

Autorização

de

Entrega.

EM

QUE

PONTO

:

O

ponto

se

encontra

no

final

da

função

e

é

disparado

após

a

confirmação

dos

itens

da

getdados

e

antes

do

rodapé

da

dialog

do

PC,

deve

ser

utilizado

para

validações

especificas

do

usuario

onde

será

controlada

pelo

retorno

do

ponto

de

entrada

oqual

se

for

.F.

o

processo

será

interrompido

e

se

.T.

será

validado.

Eventos

Programa Fonte

MATA120.PRX

Sintaxe

MT120OK - Validações Específicas de Usuário ( ) --> lRetorno

Retorno

lRetorno

Se .T. linha validada segue o processo
Se .F. interrompe o processo

Observações

Bloco de código

firstline	1
title	Exemplo
linenumbers	true

#INCLUDE "TOTVS.ch"
#INCLUDE "rwmake.ch"
#INCLUDE "TBICONN.ch"
#INCLUDE "FWMVCDEF.CH"


User Function  MT120OK()
    Local nPosPrd    := aScan(aHeader,{|x| AllTrim(x[2]) == 'C7_PRODUTO'})
    Local nPosQtd    := aScan(aHeader,{|x| AllTrim(x[2]) == 'C7_QUANT'})
    Local nPosPrc    := aScan(aHeader,{|x| AllTrim(x[2]) == 'C7_PRECO'})
    Local lValido   := .T.
    Local nX        := 0 
    
    For nX :=1 To Len( aCols )     
        If ( !aCols[nx][Len(aCols[nX])] .And. !Empty(aCols[nX][nPosPrd]) )         
            If ( Empty(aCols[nX][nPosQtd]) .Or. Empty(aCols[nX][nPosPrc]) )             
                lValido := .F.             
                Exit         
            EndIf     
        EndIf
    Next nX
    
Return(lValido)

Exemplos

User Function  MT120OK()Local nPosPrd    := aScan(aHeader,{|x| AllTrim(x[2]) == 'C7_PRODUTO'})Local nPosQtd    := aScan(aHeader,{|x| AllTrim(x[2]) == 'C7_QUANT'})Local nPosPrc    := aScan(aHeader,{|x| AllTrim(x[2]) == 'C7_PRECO'})Local lValido := .T.Local nX       := 0 For nX :=1 To Len( aCols )     If ( !aCols[nx][Len(aCols[nX])] .And. !Empty(aCols[nX][nPosPrd]) )         If ( Empty(aCols[nX][nPosQtd]) .Or. Empty(aCols[nX][nPosPrc]) )             lValido := .F.             Exit         EndIf     EndIfNext nXReturn(lValido)

Árvore de páginas

Versões comparadas

Versão antiga 3

Nova versão 4

Chave