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#include "PROTHEUSrwmake.CHch" #INCLUDE#include "TBICONNtbiconn.CHch" User Function MyMata270 //U_MYMATA270Tmata270() 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_COD","001",NIL},; // {"B7_FILIALQUANT" , xFilial("SB7"),Nil\,3,NIL},; // \{"B7_CODDOC","00201",Nil\},NIL}} aVetor:={; \ {"B7_DOCCOD","Inventário 001",Nil\001 ",NIL},; \ {"B7_QUANTFILIAL",10,Nil\"01",NIL},; \ {"B7_LOCAL","01",Nil\NIL},; \ {"B7_DATAQUANT",Date(),Nil\} \} MSExecAuto(\{\200,NIL},; {"B7_DOC","123 ",NIL}} MSExecAuto({|x,y\,z| mata270(x,y,z)\},aVetor,.F.,3) If lMsErroAuto MostraErroAlert("Erro") ConOut(OemToAnsi("Erro!"))MostraErro() Else ConOutAlert(OemToAnsi("Cadastrado com sucesso!"Ok")) Endif Return Nil RESET ENVIRONMENT Return ||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, 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