Descrição

Rotina automática MATA225

Observações

Essa rotina permite a manutenção do cadastro de Saldos em Estoque.

Exemplos

#INCLUDE "PROTHEUS.CH"
#INCLUDE "TBICONN.CH"

USER FUNCTION MYMATA225()

Local aItens
Local nOpc

PREPARE ENVIRONMENT EMPRESA "T1" FILIAL "M SP 01 " MODULO "EST"

//Teste inclusao

lMsErroAuto := .F.

aItens:={ {"B2_COD",Padr("TESTE",TamSx3("B2_COD")[1]),NIL},;
{"B2_LOCAL","10",NIL} }

nOpc := 3

MSExecAuto({|x,y| mata225(x,y)},aItens,nOpc)

If lMsErroAuto
ConOut(OemToAnsi("****ERRO*****"))
ConOut(OemToAnsi("Erro na inclusao!!"))
Mostraerro()
Else
ConOut(OemToAnsi("****Ok*****"))
ConOut(OemToAnsi("Incluido com sucesso!"))
Endif

//Teste alteracao

lMsErroAuto := .F.

aItens:={ {"B2_COD",Padr("TESTE",TamSx3("B2_COD")[1]),NIL},;
{"B2_LOCAL","10",NIL} ,;
{"B2_LOCALIZ","NOME DO ARMAZEM",NIL}}

nOpc := 4

MSExecAuto({|x,y| mata225(x,y)},aItens,nOpc)

If lMsErroAuto
ConOut(OemToAnsi("****ERRO*****"))
ConOut(OemToAnsi("Erro na alteracao!!"))
Mostraerro()
Else
ConOut(OemToAnsi("****Ok*****"))
ConOut(OemToAnsi("Alterado com sucesso!"))
Endif

Return

Idioma

Português(Brasil)

Versões

Microsiga_Protheus11

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 SB2.
2 - Numérico, 3 Inclusão, 4 Alteração

Retorno

Nil (nulo)

Programa Fonte

MATA225.PRX