Histórico da Página
Descrição | Esta função utilizada para geração da Previsão de Vendas via rotina automática (ExecAuto) |
|---|---|
Observações | |
Exemplos | #INCLUDE |
...
"PROTHEUS.CH" |
|---|
...
|
|---|
...
"TBICONN.CH" |
|---|
...
User
...
Function
...
MAT700()
...
Local
...
lOk
...
:=
...
.T.
...
Local
...
aDados
...
:=
...
{}
...
Local
...
nX
...
:=
...
0
...
PRIVATE
...
lMsErroAuto
...
:=
...
.F.
...
PRIVATE
...
lAutoErrNoFile
...
:=
...
.T.
...
//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
...
//|
...
Abertura
...
do
...
ambiente
...
|
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
...
ConOut(Repl("-",80))
...
PREPARE
...
ENVIRONMENT
...
EMPRESA
...
"99"
...
FILIAL
...
"01"
...
MODULO
...
"FAT"
...
TABLES
...
"SB1","SC4"
...
//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
...
//|
...
Verificacao
...
do
...
ambiente
...
para
...
teste
...
|
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
...
dbSelectArea("SB1")
...
dbSetOrder(1)
...
If
...
!SB1->(MsSeek(xFilial("SB1")+"000001"))
...
lOk
...
:=
...
.F.
...
ConOut("Cadastrar
...
Produto:
...
000001")
...
EndIf
...
If
...
lOk
...
ConOut("Inicio:
...
"+Time())
...
ConOut(PadC("Teste
...
de
...
Inclusao
...
da
...
Previsao
...
de
...
Vendas",80))
...
aadd(aDados,
...
{\"C4_PRODUTO","000001",Nil
...
}
...
)
...
aadd(aDados,
...
{\"C4_LOCAL","01",Nil
...
})
...
aadd(aDados,
...
{\"C4_DOC"
...
,"000001",Nil
...
}
...
)
...
aadd(aDados,
...
{\"C4_QUANT",1,Nil
...
}
...
)
...
aadd(aDados,
...
{\"C4_VALOR",1,Nil
...
}
...
)
...
aadd(aDados,
...
{\"C4_DATA",Date(),Nil
...
})
...
aadd(aDados,
...
{\"C4_OBS"
...
,"TESTE",Nil
...
}
...
)
...
MATA700(aDados,3)
...
If
...
!lMsErroAuto
...
ConOut("Inclusao
...
com
...
sucesso!
...
")
...
Else
aErro :=
...
GetAutoGRLog()
...
cErro
...
:=
...
""
...
For
...
nX
...
:=
...
1
...
To
...
Len(aErro)
...
cErro
...
+=
...
aErro
...
...
+
...
Chr(13)+Chr(10)
...
Next
...
nX
...
Conout(
...
cErro
...
)
...
EndIf
aDados :=
...
{}
...
ConOut(PadC("Teste
...
de
...
Aleracao
...
da
...
Previsao
...
de
...
Vendas",80))
...
aadd(aDados,
...
{\"C4_PRODUTO","000001",Nil
...
}
...
)
...
aadd(aDados,
...
{\"C4_LOCAL","01",Nil
...
}
...
)
...
aadd(aDados,
...
{\"C4_DOC"
...
,"000002",Nil
...
}
...
)
...
aadd(aDados,
...
{\"C4_QUANT",2,Nil
...
}
...
)
...
aadd(aDados,
...
{\"C4_VALOR",3,Nil
...
}
...
)
...
aadd(aDados,
...
{\"C4_DATA",Date(),Nil
...
}
...
)
...
aadd(aDados,
...
{\"C4_OBS"
...
,"TESTE
...
4",Nil
...
}
...
)
...
MATA700(aDados,4)
...
If
...
!lMsErroAuto
...
ConOut("Alteracao
...
com
...
sucesso!
...
")
...
Else
aErro :=
...
GetAutoGRLog()
...
cErro
...
:=
...
""
...
For
...
nX
...
:=
...
1
...
To
...
Len(aErro)
...
cErro
...
+=
...
aErro
...
...
+
...
Chr(13)+Chr(10)
...
Next
...
nX
...
Conout(
...
cErro
...
)
...
EndIf
aDados :=
...
{}
...
ConOut(PadC("Teste
...
de
...
Exclusao
...
da
...
Previsao
...
de
...
Vendas",80))
...
aadd(aDados,
...
{\"C4_PRODUTO","000001",Nil
...
}
...
)
...
MATA700(aDados,5)
...
If
...
!lMsErroAuto
...
ConOut("Exclusao
...
com
...
sucesso!
...
")
...
Else
aErro :=
...
GetAutoGRLog()
...
cErro
...
:=
...
""
...
For
...
nX
...
:=
...
1
...
To
...
Len(aErro)
...
cErro
...
+=
...
aErro
...
...
+
...
Chr(13)+Chr(10)
...
Next
...
nX
...
Conout(
...
cErro
...
)
...
EndIf
ConOut("Fim
...
:
...
"+Time())
...
EndIf
...
RESET
...
ENVIRONMENT
...
Return(.T.)
...
Preview | |
|---|---|
Veja também | |
Idioma | Português(Brasil) |
...
Versões | Microsiga_Protheus10_e_Microsiga_Protheus11 |
|---|
...
Sistemas |
|---|
...
Operacionais |
|---|
...
Suportados |
|---|
...
Todos | |
|---|---|
Compatível com as Bases de Dados | TOTVSDBAccess |
Updates | |
Parâmetros | |
Retorno | |
Eventos de chamada do Ponto de Entrada | |
Variáveis | |
Programa Fonte | MATA7100.PRX |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas