Notice: Undefined offset: 2 in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 735
Function LX300() Dim rs As DAO.Recordset Dim txt As String Dim Naziv As String Dim Danok As String Dim Cena As String Dim DDV As String Dim Lin As String Dim Kolicina As String Dim Rb As Integer Set rs = Forms![frmKasa]![frmKasa_Stavkai_Subform].Form.RecordsetClone If rs.RecordCount <= 0 Then MsgBox "Бројот на ставките во сметката е помал или енаков на 0! ВадеЕ“ето на Сметка не е дозволено " Exit Function End If '************************************************************************** Open "Lpt1" For Output As #1 'Otvori Port(LPT1) Print #1, Chr(27) & "@" 'Inicijalizirajne na printerot Print #1, Chr(27) & "A" & Chr(11) Print #1, Chr(27) & "E" 'Podesi Font Bold '************************************************************************** txt = " " & Format(Date, "dd.mm.yyyy") Print #1, txt txt = " " & Time Print #1, txt txt = "" Print #1, txt txt = " SMETKA " Print #1, txt txt = " BROJ:" & Forms![frmKasa]![Smetka_Broj] Print #1, txt txt = "" Print #1, txt txt = "--------------------------------------" Print #1, txt txt = "Rb Artikal Koli. Cena Vkupno " Print #1, txt txt = "--------------------------------------" Print #1, txt rs.MoveFirst Do While Not rs.EOF Rb = Rb + 1 Naziv = Latinica(Left(DLookup("Artikal_Ime", "tblArtikli", "ID_Artikal=" & rs.Fields(2)), 20)) 'Artikal podatok Danok = DLookup("Artikal_DDV", "tblArtikli", "ID_Artikal=" & rs.Fields(2)) 'Danocna stapka Cena = Format(rs.Fields(5), "0.00") 'Cena podatok Kolicina = Format(rs.Fields(4), "0.00") 'Kolicina podatok Lin = " " txt = Rb & "." & Naziv Print #1, txt Vkupno = Cena * Kolicina txt = " " & DesnoRavni(Kolicina) & " " & DesnoRavni(Cena) & " " & DesnoRavni(Format(Vkupno, "0.00")) Print #1, txt If IsNull(rs.Fields(1)) Or rs.Fields(1) = "" Then Call AzurirajneStavkiSmetka(rs.Fields("ID_Stavka")) rs.MoveNext Loop txt = "--------------------------------------" Print #1, txt txt = " Vkupno : " & DesnoRavni(Forms![frmKasa]![txtVkupno]) Print #1, txt txt = "--------------------------------------" Print #1, txt txt = " Vi blagodarime na posetata" Print #1, tx