Linha Microsiga Protheus - Espanhol

Atalhos

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Jose Moises Vera Concha

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Jose Moises Vera Concha

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Portuguese

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

PontoPunto-de-Entrada: MT120LOK - 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 A120LinOk()

responsável pela validação

responsable por la validación de cada

linha da GetDados do

línea 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 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 debe utilizar para validaciones específicas del usuario, donde será controlada 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

MT120LOK -

Validações Específicas

Validaciones específicas de

Usuário

usuario  ( ) --> lRetorno

Retorno

Respuesta

lRetorno

(

logico

lógico)

Se

Si .T.

linha validada segue o processo
Se

línea validada sigue el proceso
Si .F.

interrompe o processoObservações

interrumpe el proceso

Observaciones


 

Exemplos

Ejemplos

User

Function

Function  MT120LOK()Local

nPosPrd

nPosPrd    :=

aScan(aHeader,{|x|

AllTrim(x[2])

==

'C7_PRODUTO'})Local

nPosItem

nPosItem    :=

aScan(aHeader,{|x|

AllTrim(x[2])

==

'C7_ITEM'})Local

lValido

:=

.T.dbSelectArea('SC7')dbSetOrder(4)If

MsSeek(xFilial('SC7')+aCols[n][nPosPrd]+cA120Num+aCols[n][nPosItem])

     If

(C7_QUJE

>

0)

.Or.

(C7_RESIDUO

==

'S')

.Or.

(C7_QTDACLA

>

0)

lValido

          lValido :=

.F.

     EndIfEndIf

Return(lValido)