MATA225 - Rotina Automática para Manutenção do Cadastro de Saldos em Estoque

Descrição

A rotina automática MATA225 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 Protheus 11

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Parâmetros

Parâmetros do MSExecAuto:

• • 1 - Vetor, contém os dados da tabela SB2.
  • 2 - Numérico.
  • 3 - Inclusão.
  • 4 - Alteração.

Retorno

Nil (nulo)

Programa Fonte

MATA225.PRX