ABRA - import faktur [13|2946253]

[Tomáš]

Dobrý den,

poradil by mi někdo, jak lze do ABRY(G2) importovat přijaté faktury? Přímým zapísem do DB se mi to moc nechce dělat- prý by to snad mělo jít přez její otevřené OLE rozhraní, jak bohužel nevím. Děkuji.

Tomáš
--
Autor: Tomáš
Forum: Problémy a algoritmy
Odkaz: http://forum.builder.cz/read.php?13,2946253,2946253#msg-2946253

[Martin Schayna]

V instalaci ABRY je soubor AbraG2.chm, v něm naleznete popis otevřeného rozhraní AbraOLE, případně se podívejte na příklady. Otevřené rozhraní je OLE, takže můžete použít jakéhokoliv klienta co se umí přípojit na OLEAutomation server. Například ve VBScriptu (píšu to z hlavy):

Dim Abra
Set Abra = CreateObject("AbraOLE.Application")

' prihlaseni je nepovinne, pokud neni zavolano dojde k nemu interaktivne
Abra.Login "uzivatel", "heslo"

' naplneni hlavicky
Dim RecData
Set RecData = Abra.CreateValues("@ReceivedInvoice")
RecData.ValueByName("DocDate$DATE") = Now
RecData.ValueByName("DocQueue_ID") = cRecDocQueue ' ID řady dokladů
RecData.ValueByName("Description") = "automaticky generovaná faktura"

' naplneni radku
Dim RecRowData
Set RecRowData = Abra.CreateValues("@ReceivedInvoiceRow")
RecRowData.ValueByName("RowType") = 1 ' textovy radek
RecRowData.ValueByName("Text") = "Fakturujeme vám za služby"
RecRowData.ValueByName("TotalPrice") = 10000

' pridani radku do hlavicky
Dim RecRows
Set RecRows = RecData.ValueByName("Rows")
RecRows.Add RecRowData

' vytvoreni objektu ReceivedInvoice
Dim RecInv
Set RecInv = Abra.CreateObject("@ReceivedInvoice")
RecInv.CreateNewFromValues RecData

Martin Schayna
ABRA Software

--
Autor: Martin Schayna
Forum: Problémy a algoritmy
Odkaz: http://forum.builder.cz/read.php?13,2946253,2949441#msg-2949441