Prikazi cijelu temu 14.02.2015 20:24
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Lokacija:Ohrid Makedonija


Predmet:Re: Struktura na fajl
eve ja cela funkcija koja ja koristam
PreuzmiIzvorni kфd (Visual Basic):
  1. Function Fiskalna_SY45_SY250()             'Fiskalna smetka  za fiskalna kasa SY45 i SY250
  2. If SysCmd(acSysCmdGetObjectState, acForm, "frmKasa") = 0 Then Exit Function
  3.  If Forms![frmKasa]![Fiskalna] = True Then
  4.     MsgBox "За оваа сметка ИМАТЕ извадено Фискална Сметка"
  5.    Exit Function
  6.   End If
  7.  
  8.       Dim rs As DAO.Recordset
  9.       Dim Naziv As String
  10.       Dim Danok As String
  11.       Dim Cena As String
  12.       Dim DDV As String
  13.       Dim Kolicina As String
  14.       Dim txt As String
  15.       Dim i As Integer
  16.       Dim DDV_Obvrznik As Boolean
  17.       Dim Makedonski As Boolean
  18.       Dim Mak As String
  19.       Dim Status As String
  20.       Dim Izlez As String
  21.       Dim Karakter As Boolean
  22.       Dim Prefix As String
  23.       Dim Port As Integer
  24.           Port = FiscalenPort
  25.           i = 33
  26.           Karakter = True
  27.  
  28. Set rs = Forms![frmKasa]![frmKasa_Stavkai_Subform].Form.RecordsetClone
  29.  If rs.RecordCount <= 0 Then
  30.    MsgBox "Бројот на ставките во сметката е помал или енаков на 0! ВадеЕ“ето на Сметка не е дозволено "
  31.    Exit Function
  32.  End If
  33. rs.MoveFirst
  34. Open Pateka & "\Sinergy\PF500.IN" For Output Shared As #1
  35.  Print #1, Chr(32) & "01" & Chr(9) & "1" & Chr(9) & Chr(9) & "0" & Chr(9)  'Pocetok na smetkata otvori beleska
  36.  
  37.     DDV_Obvrznik = DLookup("DDV_Obvrznik", "tblKasaParametri")
  38.     Do While Not rs.EOF
  39.      
  40.    Makedonski = False
  41.    Naziv = Kirilica(UCase(Left(DLookup("Artikal_Ime", "tblArtikli", "ID_Artikal=" & rs.Fields(2)), 20)))    ' Artikal podatok 20 karakteri vo kirilica so golemi bukvi
  42.   Danok = DLookup("Artikal_DDV", "tblArtikli", "ID_Artikal=" & rs.Fields(2))                               ' Danocna stapka
  43.   Cena = Format(rs.Fields(4), "0.00")                                                                      ' Cena podatok
  44.   Kolicina = Format(rs.Fields(5), "0.000")                                                                 ' Kolicina podatok
  45.   Makedonski = DLookup("MK_Proizvod", "tblArtikli", "ID_Artikal=" & rs.Fields(2))                          ' Makednonski proizvod
  46.  
  47.    
  48.    If Karakter = True Then
  49.        Prefix = Chr(35)
  50.        Karakter = False
  51.    Else
  52.        Prefix = Chr(32)
  53.        Karakter = True
  54.    End If
  55.      
  56.    
  57.    If Makedonski = True Then
  58.       Mak = Chr(49)
  59.    Else
  60.       Mak = Chr(48)
  61.    End If
  62.  
  63.    If DDV_Obvrznik = True Then
  64.      Select Case Danok
  65.       Case 0
  66.            DDV = Chr(51)          'Danok podatok 0%
  67.       Case 5
  68.            DDV = Chr(50)           'Danok podatok 5%
  69.       Case 18
  70.            DDV = Chr(49)           'Danok podatok 18%
  71.      End Select
  72.    ElseIf DDV_Obvrznik = False Then
  73.           DDV = Chr(52)           'Danok podatok 0%
  74.   End If
  75.      
  76.      
  77.      Print #1, Prefix & Chr(49) & Naziv + Chr(9) & DDV & Chr(9) & Cena & Chr(9) & Kolicina & Chr(9) & Mak & Chr(9) & Chr(9)
  78.  
  79.  If IsNull(rs.Fields(1)) Or rs.Fields(1) = "" Then Call AzurirajneStavkiSmetka(rs.Fields("ID_Stavka"))
  80.  rs.MoveNext
  81.  Loop
  82.  
  83.  
  84.  Print #1, Chr(38) & "50" & Chr(9) & Chr(9)
  85.  Print #1, Chr(37) & Chr(56)                                   'Kraj na smetkata
  86. Close #1
  87.  
  88.   Sleep (1000)
  89.  
  90.   Call Shell(Pateka & "\Sinergy\Smetka.bat", vbHide)
  91.  
  92. '***************************************************************************************************************************
  93.  '-------- Ovde se zatvora smetkata i se otvora nova ------------------------------
  94.   Forms![frmKasa]![Fiskalna] = True
  95.    Forms![frmKasa]![Fis_Data] = Now
  96.    DoCmd.GoToRecord acDataForm, "frmKasa", acLast
  97. Dim RSo As DAO.Recordset
  98. Set RSo = Forms![frmKasa]![frmKasa_Stavkai_Subform].Form.RecordsetClone
  99.  If RSo.RecordCount <= 0 Then
  100.  DoCmd.GoToRecord acDataForm, "frmKasa", acLast
  101.   Else
  102.      DoCmd.Close acForm, "frmPecati_Smetka"
  103.      Forms![frmKasa].SetFocus
  104.      Forms![frmKasa]![Key] = True
  105.      DoCmd.GoToRecord acDataForm, "frmKasa", acNewRec
  106.      Forms![frmKasa]![Tip_Dokument] = DLookup("ID_Vid_Dokument", "tblDokumenti", "Forma = 6")
  107.      Forms![frmKasa]![Data] = Now
  108.      Forms![frmKasa].Refresh
  109.      Forms![frmKasa]![frmKasa_Stavkai_Subform]![Barkod].SetFocus
  110.      
  111.    
  112.  End If
  113.  
  114.  
  115. End Function