Histórico da Página
Wiki Markup |
---|
||Descrição|| Rotina automatica MyMata270 (MATA270)
||Observações|| Essa rotina permite o registro de qualquer movimento no inventario.
||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","Inventario 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