Histórico da Página
Wiki Markup |
---|
||Descrição|| Rotina automatica MyMata270 (MATA270) ||Observações|| Essa rotina permite o registro de qualquer movimento no inventarioinventá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 "COM" TABLES "SB7" aVetor := \{; \{"B7_FILIAL" , xFilial("SB7"),Nil\},; \{"B7_COD","002",Nil\},; \{"B7_DOC","InventarioInventá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 ||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