Fungsi Nota dan Faktur

*--------------
Function B_Nota
*--------------
Parameter Seed01
Seed01:= Iif(PCount() <>
Use Nota.Dbs Alias Nota New
If Seed01= 1 .Or. ! File("Nota0.Ntx")
Pesan_Ntx("Nota0.Ntx")
Index On NoNota + KodeLang + DToC(TgNota) To Nota0 Eval Indi_Ntx()
EndIf
Set Index To Nota0
Return .T.
*---------

*----------------
Function B_Faktur
*----------------
Parameter Seed01
Seed01:= Iif(PCount() <>
Use Faktur.Dbs Alias Faktur New
If Seed01= 1 .Or. ! File("Faktur0.Ntx")
Pesan_Ntx("Faktur0.Ntx")
Index On DToC(TgFaktur) + AngFak + HurFak To Faktur0 Eval Indi_Ntx()
EndIf
Set Index To Faktur0
Return .T.
*---------