Histórico da Página

...

Portuguese

Pagetitle

	MT120OK - Validações Específicas Validaciones específicas de Usuáriousuario
	MT120OK - Validações Específicas Validaciones específicas de Usuáriousuario

PontoPunto-de-Entrada: MT120OK - Validações Específicas Validaciones específicas de Usuáriousuario

VersõesCompatível OperacionaisCompatível às Bases de DadosEspanhol Inglês

Versiones:	Advanced Protheus 6.09 , Advanced Protheus 7.10 , Microsiga Protheus 8.11 , Microsiga Protheus 10
Compatible Países:	Todos
Sistemas	operativos:	Todos
Compatible a las bases de datos:	Todos
Idiomas:	Español ,	Inglés

Descrição

Descripción:

LOCALIZAÇÃO

LOCALIZACIÓN: Function A120TudOk()

responsável pela validação de todos os itens da GetDados do

responsable por la validación de todos los ítems de la GetDados del Pedido de Compras /

Autorização

Autorización 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

EN QUÉ PUNTO: El punto se encuentra al final de la función y se activa tras confirmar los ítems de la GetDatos y antes del pie de página de la Dialog del PC, se debe utilizar para validaciones específicas del usuario donde se controlará por la respuesta del punto de entrada, si este fuera .F. el proceso se interrumpirá y si fuera .T. se validará.

Eventos

Programa

Fonte

fuente

MATA120.PRX

Sintaxe

Sintaxis

MT120OK -

Validações Específicas

Validaciones específicas de

Usuário

usuario ( ) --> lRetorno

Retorno

Respuesta

lRetorno

(

logico

lógico)

Se

Si fuera .T.

linha validada segue o processo
Se

línea validada sigue el proceso
Si fuera .F.

interrompe o processoObservações

interrumpe el proceso

Observaciones

Bloco de código

title
firstline	1

Exemplo

Ejemplo
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

Ejemplos

User

Function

Function MT120OK()Local

nPosPrd

nPosPrd :=

aScan(aHeader,{|x|

AllTrim(x[2])

==

'C7_PRODUTO'})Local

nPosQtd

nPosQtd :=

aScan(aHeader,{|x|

AllTrim(x[2])

==

'C7_QUANT'})Local

nPosPrc

nPosPrc :=

aScan(aHeader,{|x|

AllTrim(x[2])

==

'C7_PRECO'})Local

lValido

:=

.T.Local

nX

nX :=

0

For

nX

:=1

To

Len(

aCols

)

If

(

!aCols[nx][Len(aCols[nX])]

.And.

!Empty(aCols[nX][nPosPrd])

) If (

) If ( Empty(aCols[nX][nPosQtd])

.Or.

Empty(aCols[nX][nPosPrc])

) lValido

) lValido :=

.F.

Exit EndIf EndIfNext

Exit EndIf EndIfNext nXReturn(lValido)

Atalhos

Árvore de páginas

Versões comparadas

Versão antiga 1

Nova versão Atual

Chave