Histórico da Página
Abrangências: | Microsiga Protheus 11 , Protheus 10 |
Versões: | Protheus 11 |
Compatível Países: | Todos |
Sistemas Operacionais: | Todos |
Compatível às Bases de Dados: | Todos |
Nível de Acesso: | Nível 1 (Acesso Clientes) |
Idiomas: | Português (Brasil) |
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)
Parâmetros:
NOME | TIPO | DESCRIÇÃO | OBRIGATÓRIO |
---|---|---|---|
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
|
Bloco de código | ||||||
---|---|---|---|---|---|---|
| ||||||
#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 | ||||||
Wiki Markup | ||||||
||Descrição|| Rotina automatica MyMata270 (MATA270)
||Observações|| Essa rotina permite o registro de qualquer movimento no inventario.
||Exemplos||#INCLUDE "PROTHEUS.CH"
||Preview||
||Veja também||
||Idioma|| Português(Brasil)
||Versões|| Versões_Anteriores
||Sistemas Operacionais Suportados||Todos
||Compatível com as Bases de Dados||Todas
||Updates||
||Parâmetros|| Vetor, Lógico, Numérico.
||Retorno|| Nil(nulo)
||Eventos de chamada do Ponto de Entrada||
||Variáveis||
||Programa Fonte|| MATA270.PRX |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas