Histórico da Página

Descrição

Rotina automática MyMata270

(MATA270)

Observações

Essa rotina permite o registro de qualquer movimento no inventário.

Exemplos

#include "rwmake.ch"

#include

"tbiconn.ch"

User

Function

Tmata270()

Local

aVetor

:=

{

}

lMsErroAuto

:=

.F.

PREPARE

ENVIRONMENT

EMPRESA

"99"

FILIAL

"01"

MODULO

"EST"

aVetor:=

{;

{"B7_COD","001

",NIL

},;

{"B7_FILIAL","01",NIL

},;

{"B7_LOCAL","01",NIL

},;

{"B7_QUANT",200,NIL

},;

{"B7_DOC","123

",NIL

}

}

MSExecAuto(

{

|x,y,z

|

mata270(x,y,z)

},aVetor,.F.,3)

If

lMsErroAuto

Alert("Erro")

MostraErro()

Else
Alert("Ok")

Endif

RESET

ENVIRONMENT

Return

Idioma

Português(Brasil)

Versões

Versões_Anteriores

Sistemas

Operacionais

Suportados

Todos

Compatível com as Bases de Dados

Todas

Parâmetros

Parâmetros do MSExecAuto 
1 - Vetor, Contem os dados da tabela SB7.
2 - Lógico, parâmetro para o Logix (Default .F.)
3 - Numérico, 3 Inclusão, 4 Alteração, 5 Exclusão

Retorno

Nil(nulo)

Programa Fonte

MATA270.PRX