Function MyFata310() Local aCabec := {}
Local aItens := {}
Local aLinha := {}
Local nX := 0
Local nY := 0
Local lOk := .T.
PRIVATE lMsErroAuto := .F. ConOut(Repl("-",80))
ConOut(PadC("Teste de Inclusao de 10 apontamentos de venda com 1 item cada",80))
PREPARE ENVIRONMENT EMPRESA "99" FILIAL "01" MODULO "FAT" dbSelectArea("SA3")
dbSetOrder(1)
If !SA3->(DbSeek(xFilial("SA3")+"V00001"))
lOk := .F.
ConOut("Cadastrar vendedor: V00001")
EndIf
If !SB1->(DbSeek(xFilial("SB1")+"PA001"))
lOk := .F.
ConOut("Cadastrar produto: PA001")
EndIf
dbSelectArea("SA1")
dbSetOrder(1)
If !SA1->(DbSeek(xFilial("SA1")+"CL000101"))
lOk := .F.
ConOut("Cadastrar cliente: CL000101")
EndIf
If lOk
ConOut("Inicio: "+Time())
For nY := 1 To 10
aCabec := {}
aItens := {}
aadd(aCabec,{"AD5_VEND" ,"V00001",Nil})
aadd(aCabec,{"AD5_DATA" ,dDataBase,Nil})
aadd(aCabec,{"AD5_SEQUEN" ,StrZero(nY,2),Nil})
aadd(aCabec,{"AD5_CODCLI",SA1->A1_COD,Nil})
aadd(aCabec,{"AD5_LOJA",SA1->A1_LOJA,Nil}) For nX := 1 To 30
aLinha := {}
aadd(aLinha,{"AD6_ITEM",StrZero(nX,2),Nil})
aadd(aLinha,{"AD6_CODPRO",SB1->B1_COD,Nil})
aadd(aLinha,{"AD6_QUANT",1,Nil})
aadd(aLinha,{"AD6_VLUNIT",100,Nil})
aadd(aLinha,{"AD6_TOTAL",100,Nil})
aadd(aItens,aLinha)
Next nX //Teste de Inclusao
FATA310(aCabec,aItens,3) If !lMsErroAuto
ConOut("Incluido com sucesso! ")
Else
ConOut("Erro na inclusao!")
EndIf
Next nY ConOut("Fim : "+Time()) //Teste de alteracao
//Alterar o ultimo apontamento realizado
nY := nY - 1
aCabec := {}
aItens := {}
aadd(aCabec,{"AD5_VEND" ,"V00001",Nil})
aadd(aCabec,{"AD5_DATA" ,dDataBase,Nil})
aadd(aCabec,{"AD5_SEQUEN" ,StrZero(nY,2),Nil})
aadd(aCabec,{"AD5_CODCLI",SA1→A1_COD,Nil})
aadd(aCabec,{"AD5_LOJA",SA1->A1_LOJA,Nil}) For nX := 1 To 30
aLinha := {}
aadd(aLinha,{"LINPOS","AD6_ITEM",StrZero(nX,2)})
aadd(aLinha,{"AD6_CODPRO",SB1->B1_COD,Nil})
aadd(aLinha,{"AD6_QUANT",2,Nil})
aadd(aLinha,{"AD6_VLUNIT",100,Nil})
aadd(aLinha,{"AD6_TOTAL",200,Nil})
aadd(aItens,aLinha)
Next nX ConOut(PadC("Teste de alteracao",80))
ConOut("Inicio: "+Time()) aItens := {}
FATA310(aCabec,aItens,4) ConOut("Fim : "+Time())
ConOut(Repl("-",80)) //Teste de Exclusao
ConOut(PadC("Teste de exclusao",80))
ConOut("Inicio: "+Time()) FATA310(aCabec,aItens,5) If !lMsErroAuto
ConOut("Exclusao com sucesso! ")
Else
ConOut("Erro na exclusao!")
EndIf ConOut("Fim : "+Time())
ConOut(Repl("-",80))
EndIf RESET ENVIRONMENT Return(.T.) | 