mrkela | 04.01.2013 20:06 |
---|---|
Predmet:Loop petlja Public Function NapraviFiskal(brojDokumenta As Long) Dim lnText, lnInText, lnGotovina, lnCek, lnKartica, lnVirman As String lnGotovina = "" lnCek = "" lnKartica = "" lnVirman = "" myfiscalfile = fiscalCopyPath + "\" + Format(brojDokumenta, "#####") + ".xml" fnum = FreeFile() Open myfiscalfile For Output As fnum Set kon = New ADODB.Connection kon.ConnectionString = constr kon.Open Set rs = New ADODB.Recordset rs.Open "SELECT * FROM QRepRacunFiskal WHERE Skladiste=1310 and BROJ=" & brojDokumenta, kon, adOpenDynamic, adLockBatchOptimistic rs.MoveFirst lnText = "<TremolFpServer Command=""Receipt"" " 'Description="" Fiskalni Racun "">" If (rs!Gotovina > 0) Then lnGotovina = "<Payment Type=""Gotovina"" Amount=""" + FormatMe(rs!Gotovina) + """ />" End If If (rs!Virman > 0) Then lnVirman = "<Payment Type=""Virman"" Amount=""" + FormatMe(rs!Virman) + """ />" End If If (rs!Kartica > 0) Then lnVirman = "<Payment Type=""Kartica"" Amount=""" + FormatMe(rs!Kartica) + """ />" End If If (rs!Cek > 0) Then lnCek = "<Payment Type=""Ček"" Amount=""" + FormatMe(rs!Cek) + """ />" End If Print #fnum, "<?xml version=""1.0"" encoding=""utf-8"" ?>" If (Trim(rs!Komitent) <> "" And Trim(rs!Komitent <> "010") And rs!Komitent <> "010 ") Then lnText = lnText + "CompanyID=""" + rs!KomitentID + """ CompanyName=""" + rs!KomitentNaziv _ + """ CompanyHQ=""" + rs!KomitentSjediste + """ CompanyAddress=""" + rs!KomitentAdresa _ + """ CompanyCity=""" + rs!KomitentGrad + """" End If lnText = lnText + " Description="" Fiskalni Racun "">" Print #fnum, lnText '"<TremolFpServer Command=""Receipt"" Description="" Fiskalni Racun "">" Do While (rs.EOF = False) lnInText = "<Item Description=""" + rs!NazivArtikla + """ Discount=""" + FormatMe(rs!RabatP) + "%"" Quantity=""" + _ FormatMe(rs!Kolicina) + """ Price=""" + FormatMe(rs!Cijena) + _ """ VatInfo=""" + Format(rs!FiskalTarifa, "0") + """ Department=""1"" />" Print #fnum, lnInText rs.MoveNext Loop 'Kako zaustaviti petlju kad doda sve artikle s liste i da doda ove doli dvije (AdditionalLine Message) linije.Jer ovako sad kako je javi mi grešku na ovim dvima dolje linijama..' 'Print #fnum, "<Payment Type=""Gotovina"" Amount=""100.95"" />" 'Print #fnum, "<Payment Type=""Gotovina"" Amount=""100.95"" />" If lnGotovina <> "" Then Print #fnum, lnGotovina If lnKartica <> "" Then Print #fnum, lnKartica If lnVirman <> "" Then Print #fnum, lnVirman If lnCek <> "" Then Print #fnum, lnCek Print #fnum, "<AdditionalLine Message=""Br. fakt.:" + rs!PuniiBroj + """ />" Print #fnum, "<AdditionalLine Message=""" + rs!Nefiskal + """ />" Print #fnum, "</TremolFpServer>" Close #fnum rs.Close CekajFiskalOdgovor brojDokumenta End Function |
zxz | 04.01.2013 22:53 |
---|---|
Predmet:Re: Loop petlja Nij emi jasno. Morat ces staviti primjer. U doo petlji si rekao da broji dok ima sto znaci da sama treba da iskoci. Do While (rs.EOF = False) |
mrkela | 05.01.2013 10:25 |
---|---|
Predmet:Re: Loop petlja Mislio sam da mi je problem u Loop petlji al očito nije, jer meni neće da se izvrše donje dvije linije tu mi iskoči i javi grešku, ne znam više gdje sam fulao.. Ovo mi je primjer kad ide na fiskalni sa svim stavkama(artiklima), a isti primjer imam i Ukupno po stavki gdje nemam Loop petlju a gdje mi to sve radi. Print #fnum, "<AdditionalLine Message=""Br. fakt.:" + rs!PuniiBroj + """ />" Print #fnum, "<AdditionalLine Message=""" + rs!Nefiskal + """ />" |
dex | 05.01.2013 11:00 |
---|---|
Predmet:Re: Loop petlja iza loop stavi rs.movelast ovako citas podatke iz praznog recorda |
mrkela | 05.01.2013 16:29 |
---|---|
Predmet:Re: Loop petlja Hvala dexxxl to je to.. |