Eksport upustów indywidualnych
Witam,
dopiero zaczynam swoją przygodę z programoaniem raportów w Symfonii (korzystam z symfonii handel 2011). Muszę pobrać dane, które znajdują się na widoku kontrahenta Informacje > Upusty indywidualne.
Za bardzo nie wiem skąd te dane pobrać. Te przykłady z dokumentacji nie działają. Mam kilka skryptów-ściągawek ale za dużo się z nich też nie można dowiedzieć.
Np eksport kontrahentów wygląda tak:
Kod:
NoOutput ()
string linkUpdejtu = "XXX"
string currentRow2
string cos2
basekh basKH2 [b]//zwróćcie uwagę na typ[/b]
IORec iorecExp2
basKH2.SetKey("id")
string nazwaPliku2 = "C:\\YYY"
Int errBD2=basKH2.GetREc(GE)
while !errBD2
if(basKH2.GetField("typi") == 0) then [b]// zwróćcie uwagę na warunek[/b]
currentRow2 = "Kontrahent nazwa: " + basKH2.GetField("nazwa")
cos2 = Using "%L", basKH2.GetField("id")
currentRow2 += ",id:" + cos2
iorecExp2.SetField("typEksportu", "1")
iorecExp2.SetField("sterownik", "ie8.dll")
iorecExp2.SetField("parametry", "_EXP_FK")
iorecExp2.SetField("raport", "Eksport kontrahentów")
iorecExp2.SetField("katalog", nazwaPliku2)
iorecExp2.SetField("showProgressBar", "1")
iorecExp2.SetField("flagi", "1")
iorecExp2.BeginSection("DocsData")
iorecExp2.SetField("id", cos2)
iorecExp2.EndSection()
endif
errBD2=basKH2.GetREc(NX)
Wend
ExportKH(iorecExp2)
Execute(tempString)
A tak wygląda eksport towarów:
Kod:
NoOutput ()
string currentRow
string cos
basetw basTW [b]// inny typ[/b]
IORec iorecExp
basTW.SetKey("id")
string nazwaPliku = "VVVVV"
Int errBD=basTW.GetREc(GE)
while !errBD
if(basTW.GetField("nazwa") != "") then [b]// inny warunek[/b]
currentRow = "Towar nazwa: " + basTW.GetField("nazwa")
cos = Using "%L", basTW.GetField("id")
currentRow += ",id:" + cos
iorecExp.SetField("typEksportu", "1")
iorecExp.SetField("sterownik", "ie8.dll")
iorecExp.SetField("parametry", "_EXP_FK")
iorecExp.SetField("raport", "Eksport towarów")
iorecExp.SetField("katalog", nazwaPliku)
iorecExp.SetField("showProgressBar", "1")
iorecExp.SetField("flagi", "1")
iorecExp.BeginSection("DocsData")
iorecExp.SetField("id", cos)
iorecExp.EndSection()
endif
errBD=basTW.GetREc(NX)
Wend
ExportMg(iorecExp)
string tempString = "KKKKK"+nazwaPliku+" towary "+linkUpdejtu
Execute(tempString)
Wygląde na to że oba skrypty różnią się jedynie 2 linijkami. Typem bazy danych i warunkiem dodawania rekordów do sekcji. Niestety nie znam typu bazy dla upustów. Opuszczenie warunków w if-ach powoduje wywalenie skryptu (nic się nie dodaje). Nie a bardzo wiem, jak je zmodyfikowa, żeby dostać listę upustów z danymi jak na liście Informacje > Upusty indywidualne.
Będę ogromnie wdzięczny za pomoc siedzę nad tym już kilka dni, najkonkretniejsze informacje jakie udało mi się znaleźć twyższe skrypty, brak już mi pomysłów :(
