Temat: dokumentacja AmBasic
Tak, powyższy kod ilustruje zasadę działania typu IORec, Więcej pól mozna znaleźć w dokumentacji. Poniżej analogiczny przykład dla dokumentu sprzedaży.
iorec ior
long err
ior.SetField("typDk", "FVS")
ior.SetField("seria", "sFVS")
ior.BeginSection("danekh")
ior.SetField("khnazwa", "Roman Kowalski")
ior.SetField("khulica", "Sienna")
ior.SetField("khdomu", "13")
ior.SetField("khlokal", "13")
ior.SetField("khkodpocz", "12-345")
ior.SetField("khmiasto", "Radom")
ior.EndSection()
ior.BeginSection("Pozycja dokumentu")
ior.SetField("opis", "usługa o której się nie mówi")
ior.SetField("ilosc", "1")
ior.SetField("jednostkaMiary", "godz.")
ior.SetField("cena", "100")
ior.EndSection()
ior.BeginSection("rejestr")
ior.SetField("kod", "KASA")
ior.EndSection()
err = ior.ImportSp()
... oraz dla VB .NET. Wklepany na szybko, ale powinien działać.
Module Module1
Sub Main()
Dim hmf As Object
hmf = CreateObject("HMF.AppIni")
hmf.OpenFirm(False, "DRIVER=SQL
Server;SERVER=(local);DATABASE=HMF_BAZA;", "Admin", "******")
If hmf.GetApplication Is Nothing Then
MsgBox("Błąd otwarcia!")
Else
MsgBox("Otwarto połączenie z programem")
Dim fact As Object
Dim io As Object
Dim func As Object
Dim err As Long
Dim doc As Object
fact = hmf.GetApplication.PropertyAp("HFactory")
Console.WriteLine("Serwer : " + fact.nazwaSerwera)
Console.WriteLine("Baza : " + fact.nazwaBazy)
Console.WriteLine("User : " + fact.user)
io = fact.NewObject("BIOrec")
Try
io.SetField("typDk", "FVS")
io.SetField("seria", "sFVS")
io.BeginSection("danekh")
io.SetField("khnazwa", "Roman Kowalski")
io.SetField("khulica", "Sienna")
io.SetField("khdomu", "13")
io.SetField("khlokal", "13")
io.SetField("khkodpocz", "12-345")
io.SetField("khmiasto", "Radom")
io.EndSection()
io.BeginSection("Pozycja dokumentu")
io.SetField("opis", "usługa o której się nie mówi")
io.SetField("ilosc", "1")
io.SetField("jednostkaMiary", "godz.")
io.SetField("cena", "100")
io.EndSection()
io.BeginSection("rejestr")
io.SetField("kod", "KASA")
io.EndSection()
Catch e As NullReferenceException
hmf.CloseFirm()
Console.Write(e.ToString)
End Try
func = fact.NewObject("BFunkcja")
Try
err = func.ImportSp(io)
If (err 0) Then
doc = fact.NewObject("BDokumentSp")
doc.Load("id=\t" + err + "\t")
Console.Write("Zaimportowany został dokument " +
doc.numer + " (id=)" + err)
Else
Console.Write("Import dokumentu nie powiódł się!")
End If
Catch e As Exception
hmf.CloseFirm()
Console.Write(e.ToString)
End Try
Console.ReadKey()
hmf.CloseFirm()
End If
End Sub
End Module
Tomasz M. edytował(a) ten post dnia 13.02.09 o godzinie 09:37
пропозиції роботи
