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 "COM" TABLES "SB7"\n\n
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|| Vetor, Lógico, Numérico.
||Retorno|| Nil(nulo)
||Programa Fonte|| MATA270.PRX |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas