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 | ||||||
---|---|---|---|---|---|---|
| ||||||
Wiki Markup | ||||||
||Descrição|| Rotina automática MyMata270 (MATA270) ||Observações|| Essa rotina permite o registro de qualquer movimento no inventário. ||Exemplos||#INCLUDE "PROTHEUS.CH" #INCLUDE "TBICONN.CH" User Function MyMata270 //U_MYMATA270() Local aVetor := {} PRIVATE lMsErroAuto := .F. //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ // Abertura do ambiente //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ ConOut(Repl("-",80)) ConOut(PadC(OemToAnsi("Teste de Inclusao MyMata270MATA270"),80)) PREPARE ENVIRONMENT EMPRESA '99' FILIAL '01' USER 'Administrador' PASSWORD '' MODULO "EST" TABLES "SB7" aVetor := \ {; \ {"B7_FILIAL" , xFilial("SB7"),Nil\},; \ {"B7_COD","002PROD001 ",Nil\},; \ // Deve ter o tamanho exato do campo B7_COD, pois faz parte da chave do indice 1 da SB7 {"B7_DOC","Inventário 001INVENT001",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\} \} MSExecAuto(\{\} // 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,.FT.,3) If lMsErroAuto MostraErro() ConOut(OemToAnsi("Erro!")) Else ConOut(OemToAnsi("CadastradoAtualização realizada com sucessoêxito!")) EndifEndIf Return Nil ||Idioma|| Português(Brasil) ||Versões|| Versões_Anteriores ||Sistemas Operacionais Suportados||Todos ||Compatível com as Bases de Dados||Todas ||Parâmetros|| Vetor, Lógico, Numérico. ||Retorno|| Nil(nulo) ||Programa Fonte|| MATA270.PRX |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas