Linha Microsiga Protheus

Árvore de páginas

MATA270 - Rotina automática MyMata270

Linha de Produto:

Protheus

Segmento:

Manufatura

Módulo:

SIGAPCP - Planejamento e Controle da Produção

Parâmetro(s):


Nome
Tipo
Descrição
Default
Obrigatório Referência

aRotAuto
Array of records
Array com os itens do inventário


X



lEscolha
Lógico
Define se a contagem será a escolhida


X




nOpcAuto



Numérico




3 - Inclusão

4 - Alteração

5 - Exclusão




Default 3


Nível de Acesso:Nível 1 (Acesso Clientes)

Idiomas:

Português (Brasil)

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos



Ponto de Entrada

Descrição:

 Esta rotina permite a manipulação dos registros de inventário de estoque - Tabela SB7.

Programa Fonte:MATA270.PRX

Sintaxe:

MATA270(aRotAuto, lEscolha, nOpcAuto)

Observações:


Exemplo:
#INCLUDE "PROTHEUS.CH"
#INCLUDE "TBICONN.CH"
 
User Function MyMata270
 
Local aVetor := {}
PRIVATE lMsErroAuto := .F.
//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
// Abertura do ambiente
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
ConOut(Repl("-",80))
ConOut(PadC(OemToAnsi("Teste de Inclusao MATA270"),80))
PREPARE ENVIRONMENT EMPRESA '99' FILIAL '01' USER 'Administrador' PASSWORD '' MODULO "EST" TABLES "SB7"
aVetor :=   {;
            {"B7_FILIAL" , xFilial("SB7"),Nil},;
            {"B7_COD","PROD001        ",Nil},; // Deve ter o tamanho exato do campo B7_COD, pois faz parte da chave do indice 1 da SB7
            {"B7_DOC","INVENT001",Nil},;
            {"B7_QUANT",10,Nil},;
            {"B7_LOCAL","01",Nil},; // Deve ter o tamanho exato do campo B7_LOCAL, pois faz parte da chave do indice 1 da SB7
            {"B7_DATA",Date(),Nil} } // Deve ter o tamanho exato do campo B7_DATA, pois faz parte da chave do indice 1 da SB7
             
MSExecAuto({|x,y,z| mata270(x,y,z)},aVetor,.T.,3)
If lMsErroAuto
    MostraErro()
    ConOut(OemToAnsi("Erro!"))
Else
    ConOut(OemToAnsi("Atualização realizada com êxito!"))  
EndIf
Return Nil