Histórico da Página

 
 
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 += aErronX + 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 += aErronX + 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 += aErronX + Chr(13)+Chr(10)
Next nX
Conout( cErro )
EndIf

ConOut("Fim : "+Time())
EndIf

RESET ENVIRONMENT

Return(.T.)