Histórico da Página
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 MyMata270"),80)) PREPARE ENVIRONMENT EMPRESA '99' FILIAL '01' USER 'Administrador' PASSWORD '' MODULO "EST" TABLES "SB7" aVetor := \{; \{"B7_FILIAL" , xFilial("SB7"),Nil\},; \{"B7_COD","002",Nil\},; \{"B7_DOC","Inventário 001",Nil\},; \{"B7_QUANT",10,Nil\},; \{"B7_LOCAL","01",Nil\},; \{"B7_DATA",Date(),Nil\} \} MSExecAuto(\{\|x,y\| mata270(x,y)\},aVetor,.F.,3) If lMsErroAuto MostraErro() ConOut(OemToAnsi("Erro!")) Else ConOut(OemToAnsi("Cadastrado com sucesso!")) Endif 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|| Parâmetros do MSExecAuto 1 - Vetor, Contem os dados da tabela SB7. 2 - Lógico, parâmetro para o Logix (Default .F.) 3 Numérico.- Numérico, 3 Inclusão, 4 Alteração, 5 Exclusão ||Retorno|| Nil(nulo) ||Programa Fonte|| MATA270.PRX |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas