Ejemplos | 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("Prueba de inclusión de 10 apuntes de venta con 1 ítem cada uno",80))
PREPARE ENVIRONMENT EMPRESA "99" FILIAL "01" MODULO "FAT" dbSelectArea("SA3")
dbSetOrder(1)
If !SA3->(DbSeek(xFilial("SA3")+"V00001"))
lOk := .F.
ConOut("Registrar vendedor: V00001")
EndIf
If !SB1->(DbSeek(xFilial("SB1")+"PA001"))
lOk := .F.
ConOut("Registrar producto: PA001")
EndIf
dbSelectArea("SA1")
dbSetOrder(1)
If !SA1->(DbSeek(xFilial("SA1")+"CL000101"))
lOk := .F.
ConOut("Registrar 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 //Prueba de
inclusión
FATA310(aCabec,aItens,3) If !lMsErroAuto
ConOut("Incluido con éxito! ")
Else
ConOut("¡Error al incluir!")
EndIf
Next nY ConOut("Final: "+Time()) //Prueba de modificación
//Modificar el último apunte 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("Prueba de modificación",80))
ConOut("Inicio: "+Time()) aItens := {}
FATA310(aCabec,aItens,4) ConOut("Final: "+Time())
ConOut(Repl("-",80)) //Teste de Exclusao
ConOut(PadC("Prueba de eliminación",80))
ConOut("Inicio: "+Time()) FATA310(aCabec,aItens,5) If !lMsErroAuto
ConOut("¡Eliminación con éxito! ")
Else
ConOut("¡Error al eliminar!")
EndIf ConOut("Final: "+Time())
ConOut(Repl("-",80))
EndIf RESET ENVIRONMENT Return(.T.) |
