Centar za edukaciju-BiH



#1 14.05.2014 00:10
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,828


Predmet:Presmetka DPH (DDV) , (PDV) vo cod so popust
Pozdrav do site.
Ovaj moj Problem se sostoi vo toa sto treba da napravam rekapitulacija na po Danocni stavki na Racun vo koj e vklucen i Popust.

Imam dva Recordseti edniot e za stavkite vo racunot , drugiot e za danocnite stavki vo racunot e sega ne mozam da napravam rekapitulacija na danocni stavki na racun na koj ima dadeno odreden popust.

Eve ja funkcijata za racunot a ke stavam i baza ako nekoj ima ideja kako da se resi
PreuzmiIzvorni kôd (Visual Basic):
  1. Function PrintSmetka(SmetkaBroj As Long, Rabat As Double, Storno As Boolean)
  2. On Error GoTo PosError
  3. PrintSmetkaOK = False
  4.  
  5.    Dim rs As ADODB.Recordset
  6.    Dim rs_Smetka As ADODB.Recordset
  7.    Dim rs_DDV As ADODB.Recordset
  8.    Dim txt As String
  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 Rb As Integer
  15.    Dim SQLSmetkaStavki As String
  16.        SQLSmetkaStavki = "SELECT tblSmetki_Stavki.Barkod AS Barkod, tblArtikli_Prodazba.Naziv AS Naziv, tblSmetki_Stavki.Ed_Cena AS Ed_Cena, Sum(tblSmetki_Stavki.Kolicina) AS Kolicina, tblEdinica_Mera.EDM AS EDM, tblSmetki_Stavki.DDV AS DDV, Sum(tblSmetki_Stavki.Kolicina)*tblSmetki_Stavki.Ed_Cena AS Vkupno" _
  17.                      & " FROM tblEdinica_Mera INNER JOIN (tblArtikli_Prodazba INNER JOIN tblSmetki_Stavki ON tblArtikli_Prodazba.ID_ArtikalP = tblSmetki_Stavki.Stavka) ON (tblEdinica_Mera.ID_EDM = tblSmetki_Stavki.Ed_Mera) AND (tblEdinica_Mera.ID_EDM = tblArtikli_Prodazba.Edm)" _
  18.                      & " Where (((tblSmetki_Stavki.Smetka_Br) = " & SmetkaBroj & "))" _
  19.                      & " GROUP BY tblSmetki_Stavki.Barkod, tblArtikli_Prodazba.Naziv, tblSmetki_Stavki.Ed_Cena, tblEdinica_Mera.EDM, tblSmetki_Stavki.DDV" _
  20.                      & " ORDER BY tblSmetki_Stavki.Barkod;"
  21.    
  22.    
  23.    Set rs_Smetka = New ADODB.Recordset
  24.        rs_Smetka.Open "SELECT * FROM tblSmetki WHERE ID_Smetka=" & SmetkaBroj, cn, adOpenStatic, adLockOptimistic
  25.    Set rs = New ADODB.Recordset
  26.        rs.Open SQLSmetkaStavki, cn, adOpenStatic, adLockOptimistic
  27.    
  28.      SQL_DDV = "SELECT tblSmetki_Stavki.DDV, Sum([Ed_Cena]*[Kolicina]) AS SoDDV, Sum(([Ed_Cena]/[Koeficient])*[Kolicina]) AS BezDDV, Sum(([Kolicina]*[Ed_Cena])-(([Ed_Cena]/[Koeficient])*[Kolicina])) AS dDDV" _
  29.              & " FROM tblTarifi INNER JOIN tblSmetki_Stavki ON tblTarifi.Tarifa = tblSmetki_Stavki.DDV" _
  30.              & " Where (((tblSmetki_Stavki.Smetka_Br) =" & SmetkaBroj & ")) GROUP BY tblSmetki_Stavki.DDV;"
  31.      
  32.      Set rs_DDV = New ADODB.Recordset
  33.          rs_DDV.Open SQL_DDV, cn, adOpenStatic, adLockOptimistic
  34.      
  35.    
  36.    If rs.RecordCount <= 0 Then
  37.      '  MsgBox "Áðî¼îò íà ñòàâêèòå âî íàðà÷êàòà çà øàíê å ïîìàë èëè åíàêîâ íà 0! ÂàäåÅ“åòî íà íàðà÷êà íå å äîçâîëåíî "
  38.       PrintSmetkaOK = True
  39.        Exit Function
  40.    End If
  41.    
  42.   '**************************************************************************
  43.     If SelectPrinter(ReadIniValue(App.path & "\Setup.ini", "Printeri", "Smetka")) = True Then
  44.         Call MsgBox("PRINTER NOT FOUND  ", vbOKOnly + vbExclamation + vbApplicationModal + vbDefaultButton1, "")
  45.         Exit Function
  46.       End If
  47.   '**************************************************************************
  48.    
  49.     With Printer.Font
  50.         .Name = "Times New Roman"
  51.        ' .Name = "Arial"
  52.        .Size = ReadIniValue(App.path & "\Setup.ini", "SmetkaSetup", "SizeFont")
  53.     End With
  54.  
  55. Printer.Print Space(LevMargin) & "*******************************"
  56. Printer.Print Space(LevMargin) & ReadIniValue(App.path & "\Setup.ini", "SmetkaSetup", "Header1")
  57. Printer.Print Space(LevMargin) & ReadIniValue(App.path & "\Setup.ini", "SmetkaSetup", "Header2")
  58. Printer.Print Space(LevMargin) & ReadIniValue(App.path & "\Setup.ini", "SmetkaSetup", "Header3")
  59. Printer.Print Space(LevMargin) & "-----------------------------------------------"
  60. Printer.Print Space(LevMargin) & " Datum  :                      " & Format(Date, "dd.mm.yyyy")
  61. Printer.Print Space(LevMargin) & " Cas    :                          " & Time
  62. Printer.Print Space(LevMargin) & " Stul ....... " & DLookup("Masa", "tblMasi", "ID_Masa=" & rs_Smetka!Masa)
  63. Printer.Print Space(LevMargin) & " Cisnik ... " & DLookup("Vraboten_Ime", "tblVraboteni", "ID_Vraboten=" & rs_Smetka!Vraboten)
  64. Printer.Print Space(LevMargin) & "-----------------------------------------------"
  65. If Storno = True Then
  66.    Printer.Print Space(LevMargin) & "                  STORNO UCET "
  67. Else
  68.    Printer.Print Space(LevMargin) & "                      UCET     "
  69. End If
  70. Printer.Print Space(LevMargin) & "           Cislo : " & Format(DLookup("Smetka_Broj", "tblSmetki", "ID_Smetka=" & SmetkaBroj), "0000000")
  71. Printer.Print Space(LevMargin) & "-----------------------------------------------"
  72. Printer.Print Space(LevMargin) & "Rb  Nazev           "
  73. Printer.Print Space(LevMargin) & "         Mnozstvi        Cena        Celkem"
  74. Printer.Print Space(LevMargin) & "-----------------------------------------------"
  75.    
  76.  
  77.  rs.MoveFirst
  78.    Do While Not rs.EOF
  79.         Rb = Rb + 1
  80.         'Naziv = Latinica(Left(rs.Fields("Naziv"), 30))                              'Artikal naziv
  81.        Naziv = Left(rs.Fields("Naziv"), 30)                              'Artikal naziv
  82.        Kolicina = Format(rs.Fields("Kolicina"), "0.00")                            'Kolicina podatok
  83.        'Procent = Format(rs.Fields(4), "0.000")
  84.        Cena = Format(rs.Fields("Ed_Cena"), "0.00")
  85.         Printer.Print Space(LevMargin) & Rb & "." & Naziv
  86.         Vkupno = Format(rs.Fields("Vkupno"), "0.00")
  87.         VkupnaSuma = CDbl(VkupnaSuma) + Vkupno
  88.         Printer.Print Space(LevMargin) & Desno_Ravni(Format(Kolicina, "######0.00")) & Desno_Ravni(Format(Cena, "######0.00")) & Desno_Ravni(Format(Vkupno, "######0.00"))
  89.      
  90.     rs.MoveNext
  91.    Loop
  92.  
  93. Printer.Print Space(LevMargin) & "-----------------------------------------------"
  94. Printer.Print Space(LevMargin) & "                   Celkem :    " & Desno_Ravni(Format(VkupnaSuma, "######0.00"))
  95. Printer.Print Space(LevMargin) & "                     Sleva  :    " & Desno_Ravni(Format(Rabat, "######0.00"))
  96. 'Printer.Print Space(LevMargin) & "                      DPH  :    " & Desno_Ravni(Format(Rabat, "######0.00"))
  97. Printer.Print Space(LevMargin) & "-----------------------------------------------"
  98. Printer.Print Space(LevMargin) & "    Celkem k uhrade  :    " & Desno_Ravni((Format((CDbl(VkupnaSuma) - Rabat), "######0.00")))
  99. Printer.Print Space(LevMargin) & "-----------------------------------------------"
  100. Printer.Print Space(LevMargin) & "Sazba   Zaklad            Dph     Celkem"
  101. 'Printer.Print Space(LevMargin) & "  0 "
  102. 'Printer.Print Space(LevMargin) & "  0 " & "             0.00            0.00          0.00 "
  103. 'Printer.Print Space(LevMargin) & "15 "
  104. 'Printer.Print Space(LevMargin) & "15 " & "             0.00            0.00          0.00 "
  105. 'Printer.Print Space(LevMargin) & "21 "
  106. 'Printer.Print Space(LevMargin) & "21 " & Desno_Ravni(Format(BezDDV(CDbl(VkupnaSuma), CDbl(21)), "#######0.00")) & Desno_Ravni(Format(PresmetkaDDV(CDbl(VkupnaSuma), CDbl(21)), "#######0.00")) & Desno_Ravni((Format((CDbl(VkupnaSuma) - Rabat), "#######0.00")))
  107. Printer.Print Space(LevMargin) & "-----------------------------------------------"
  108.      
  109.        rs_DDV.MoveFirst
  110.     Do While Not rs_DDV.EOF
  111.        Printer.Print Space(LevMargin) & Format(rs_DDV.Fields(0), "#0") & Desno_Ravni(Format(CDbl(rs_DDV.Fields(2)), "#######0.00")) & Desno_Ravni(Format(CDbl(rs_DDV.Fields(3)), "#######0.00")) & Desno_Ravni(Format(CDbl(rs_DDV.Fields(1)), "#######0.00"))
  112.        rs_DDV.MoveNext
  113.     Loop
  114.  
  115. Printer.Print Space(LevMargin) & "-----------------------------------------------"
  116.  
  117. Printer.Print Space(LevMargin) & ReadIniValue(App.path & "\Setup.ini", "SmetkaSetup", "Footer1")
  118. Printer.Print Space(LevMargin) & ReadIniValue(App.path & "\Setup.ini", "SmetkaSetup", "Footer2")
  119. Printer.Print Space(LevMargin) & ReadIniValue(App.path & "\Setup.ini", "SmetkaSetup", "Footer3")
  120. Printer.Print Space(LevMargin) & "*******************************"
  121. Printer.EndDoc
  122.  
  123.  Rb = 0
  124.   PrintSmetkaOK = True
  125. PosError:
  126.     If Error <> "" Then
  127.        On Error Resume Next
  128.        PrintSmetkaOK = False
  129.        Exit Function
  130.     End If
  131.  
  132.  
  133.  End Function


Prilozi:
Informacije o tipu datoteke za:rar  BazaRL.rar
Preuzimanja:261
Velicina datoteke:56.07 KB

↑  ↓

#2 14.05.2014 11:48
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: Presmetka DPH (DDV) , (PDV) vo cod so popust
Imam nekoliko pitanja:
-koja ide cijena:
Ed_Cena
Posledna_Prod_Cena
Koja je mjera za popust:
-procenat(%)
-iznos

Dali je PDV uracunat u cijenu ili se dodaje na cijenu.

Rekapitulacija se racuna od datuma do datuma pa te najbolje nisam razumio kada kaze da pravis rekapitulaciju po racunima.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#3 14.05.2014 11:53
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: Presmetka DPH (DDV) , (PDV) vo cod so popust
Sada sam nasao zvoj Query1.
Jeli u njemu sve ono kako zelis da napravis rekapitulaciju?
Hocu reci jeli u njemu rekapitulacija dobra.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#4 14.05.2014 12:31
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,828


Predmet:Re: Presmetka DPH (DDV) , (PDV) vo cod so popust
Ovako: popustot e presmetan vo pari na vkupnata suma na racunot. Rekapitulacijata mi treba da se prikazi na racunot (odnosno treba da seimplementira vo funkcijata gore)na mestoto od rsDDV. Cenata koja ja koristam e Ed_Cena . Qerito e samo za test me koristam querija vo programov sve e co cod.
Cenata e so presmetan PDV.
Ovaj post je ureden 1 puta. Posljednja izmjena 14.05.2014 12:34 od strane Gjoreski. ↑  ↓

#5 14.05.2014 19:54
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: Presmetka DPH (DDV) , (PDV) vo cod so popust
Evo nadam se da ces se snaci ako ne onda mi posalji primjer ili setup.ini i ispisi u wordu ili Notepadu kako treba da izgleda rekapitulacija i jeli uvijek idu obadvije ili nekad jedna nekad druga.

Naslov procedure:
Function Smetka_Rekapitulacija(SmetkaBroj As Long, Optional Datum = Date)
...
SQLSmetkaStavki = "SELECT tblSmetki_Stavki.DDV, Sum([Ed_Cena]*[Kolicina]) AS BezPopusta," _
& " Sum([Ed_Cena]*[Kolicina]-[Popust]) AS SoDDV, Sum(tblSmetki_Stavki.Popust) AS pp_Popust," _
& " Sum([Ed_Cena]*[Kolicina]-[popust]/[Koeficient]) AS BezDDV," _
& " Sum(([Kolicina]*[Ed_Cena]-[popust])-([Ed_Cena]*[kolicina]-[popust])/[Koeficient]) AS dDDV" _
& " FROM tblTarifi INNER JOIN tblSmetki_Stavki ON tblTarifi.Tarifa = tblSmetki_Stavki.DDV" _
& " WHERE tblSmetki_Stavki.Smetka_Br =" & SmetkaBroj _
& " GROUP BY tblSmetki_Stavki.DDV"
...
SQL_DDV = "SELECT tblSmetki_Stavki.Stavka, tblSmetki_Stavki.DDV, Sum([Ed_Cena]*[Kolicina]) AS BezPopusta," _
& " Sum([Ed_Cena]*[Kolicina]-[Popust]) AS SoDDV, Sum(tblSmetki_Stavki.Popust) AS pp_Popust," _
& " Sum([Ed_Cena]*[Kolicina]-[popust]/[Koeficient]) AS BezDDV," _
& " Sum(([Kolicina]*[Ed_Cena]-[popust])-([Ed_Cena]*[kolicina]-[popust])/[Koeficient]) AS dDDV" _
& " FROM tblSmetki INNER JOIN (tblTarifi INNER JOIN tblSmetki_Stavki ON tblTarifi.Tarifa = tblSmetki_Stavki.DDV)" _
& " ON tblSmetki.ID_Smetka = tblSmetki_Stavki.Smetka_Br" _
& " WHERE tblSmetki.Data Between " & Datum & " And " & Datum + 1 AND tblSmetki.Storna=False _
& " GROUP BY tblSmetki_Stavki.Stavka, tblSmetki_Stavki.DDV" _
& " HAVING Sum([Ed_Cena]*[Kolicina]>0)"
end function
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
Ovaj post je ureden 1 puta. Posljednja izmjena 14.05.2014 19:57 od strane zxz. ↑  ↓

#6 15.05.2014 12:38
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,828


Predmet:Re: Presmetka DPH (DDV) , (PDV) vo cod so popust
eve Primer vo txt kako treba da izgleda so popust i bez popust i excel kako treba da izgleda presmetkata

Prilozi:
Informacije o tipu datoteke za:txt  Racun bez popust.txt
Preuzimanja:297
Velicina datoteke:865 Bajt
Informacije o tipu datoteke za:txt  Racun so popust.txt
Preuzimanja:294
Velicina datoteke:863 Bajt
Informacije o tipu datoteke za:rar  Presmetka PDV so Popust .rar
Preuzimanja:278
Velicina datoteke:4.40 KB

↑  ↓

#7 15.05.2014 14:07
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: Presmetka DPH (DDV) , (PDV) vo cod so popust
Sve ja ovo sada jasno i napravio sam SQL ali me interesuje jeli rekapitulacija ide samo za odredjeni dan ili i za odredjeni racun.

Rekapitulacija je obicno samo dnevna.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#8 15.05.2014 14:12
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,828


Predmet:Re: Presmetka DPH (DDV) , (PDV) vo cod so popust
samo odreden racun so odreden ID ,no ne e loso da go imam i periodicno ako e mozno vo drug sql
↑  ↓

#9 16.05.2014 01:32
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: Presmetka DPH (DDV) , (PDV) vo cod so popust
Evo procedura.
Moras je prilagoditi svojoj konekciji i svome ini fajlu.
Ja sam je radio u ovoj bazi sto si ti poslao.

PreuzmiIzvorni kôd (Visual Basic):
  1. Function Smetka_Rekap(SmetkaBroj As Integer, Optional Datum1 As Date, Optional Datum2 As Date)
  2. Dim cn As New ADODB.Connection
  3. Dim rs As New ADODB.Recordset
  4. Dim SQLSmetka As String, SQL1 As String, SQL2 As String
  5. Dim Rb As Integer, PDV As Integer
  6. Dim Naziv As String * 35
  7. Dim Dat1 As String, Dat2 As String
  8. Dim Temp As String, Tekst As String
  9. Dim Suma(2) As Currency
  10.  
  11. SQLSmetka = "SELECT tblsmetki_stavki.Stavka, Sum(tblsmetki_stavki.Kolicina) AS KOL," _
  12.           & " tblsmetki_stavki.Ed_Cena, [KOL]*[Ed_cena] AS VUkupno, " & SQL1 & "," _
  13.           & " tblSmetki.Rabat AS Popust, [suma]-[popust] AS Za_Naplatu" _
  14.           & " FROM tblTarifi INNER JOIN (tblSmetki INNER JOIN tblsmetki_stavki ON" _
  15.           & " tblSmetki.ID_Smetka = tblsmetki_stavki.Smetka_Br) ON tblTarifi.Tarifa = tblsmetki_stavki.DDV" _
  16.           & SQL2 _
  17.           & " GROUP BY tblsmetki_stavki.Stavka, tblsmetki_stavki.Ed_Cena, tblSmetki.Rabat"
  18.  
  19. Tekst = "REKAPITULACIJA"
  20. If SmetkaBroj = 0 Then
  21.      If Datum1 = 0 Then Datum1 = Date
  22.      If Datum2 = 0 Then Datum2 = Datum1 + 1
  23.     Dat1 = "#" & Format(Datum1, "mm-dd-yyyy") & "#"
  24.     Dat2 = "#" & Format(Datum2, "mm-dd-yyyy") & "#"
  25.     SQL1 = "(SELECT Sum([kolicina]*[Ed_cena]) AS suma" _
  26.        & " FROM tblSmetki INNER JOIN tblsmetki_stavki ON tblSmetki.ID_Smetka = tblsmetki_stavki.Smetka_Br" _
  27.        & " WHERE tblSmetki.Data Between " & Dat1 & " And " & Dat2 & ") AS suma"
  28.     SQL2 = "WHERE tblSmetki.Data Between " & Dat1 & " And " & Dat2
  29.     If Datum2 - Datum1 = 1 Then
  30.     Tekst = Tekst & " za " & Datum1
  31.     Else
  32.     Tekst = Tekst & " Od " & Datum1 & " do " & Datum2
  33.     End If
  34. Else
  35.     SQL1 = "(SELECT Sum([kolicina]*[Ed_cena]) AS suma" _
  36.        & " FROM tblSmetki INNER JOIN tblsmetki_stavki ON tblSmetki.ID_Smetka = tblsmetki_stavki.Smetka_Br" _
  37.        & " WHERE tblSmetki.Smetka_Broj=" & SmetkaBroj & ") AS Suma"
  38.     SQL2 = "WHERE tblSmetki.Smetka_Broj=" & SmetkaBroj
  39.     Tekst = Tekst & " za Smetka Br: " & SmetkaBroj
  40. End If
  41. SQLSmetka = "SELECT tblsmetki_stavki.Stavka, Sum(tblsmetki_stavki.Kolicina) AS KOL," _
  42.           & " tblsmetki_stavki.Ed_Cena, [KOL]*[Ed_cena] AS VUkupno, " & SQL1 & "," _
  43.           & " tblSmetki.Rabat, [suma]-[rabat] AS Za_Naplatu" _
  44.           & " FROM tblTarifi INNER JOIN (tblSmetki INNER JOIN tblsmetki_stavki ON" _
  45.           & " tblSmetki.ID_Smetka = tblsmetki_stavki.Smetka_Br) ON tblTarifi.Tarifa = tblsmetki_stavki.DDV " _
  46.           & SQL2 _
  47.           & " GROUP BY tblsmetki_stavki.Stavka, tblsmetki_stavki.Ed_Cena, tblSmetki.Rabat"
  48.          
  49. Set cn = CurrentProject.Connection
  50. Forms!F.T = SQLSmetka
  51. rs.Open SQLSmetka, cn
  52. Close #1
  53. Open CurrentProject.Path & "\stampa.txt" For Output As 1
  54.  
  55. If rs.BOF = True Then
  56. MsgBox "Nema podataka"
  57. Exit Function
  58. End If
  59.  rs.MoveFirst
  60.  Temp = Space(5) & Tekst
  61.  Print #1, Temp
  62.  Temp = " rb    Naziv                          Kol.   Cena   Vkupno "
  63.  Print #1, Temp
  64.  Temp = "--------------------------------------------------------"
  65.  Print #1, Temp
  66.    Do While Not rs.EOF
  67.    Rb = Rb + 1
  68.    Temp = Rb & Space(5)
  69.    Naziv = DLookup("Naziv", "tblArtikli_Prodazba", "ID_ArtikalP=" & rs!Stavka) & Space(5)
  70.    Temp = Temp & Naziv
  71.    Temp = Temp & rs!Kol & Space(5)
  72.    Temp = Temp & rs!Ed_cena & Space(5)
  73.    Temp = Temp & rs!Vukupno
  74.    Print #1, Temp
  75.    rs.MoveNext
  76.    Loop
  77.    rs.MoveFirst
  78.    Temp = "------------------------------------------------------"
  79.     Print #1, Temp
  80.  
  81.    Temp = "Vkupno:" & rs!Suma
  82.    Print #1, Temp
  83.    Temp = "Popust  :" & rs!Rabat
  84.    Print #1, Temp
  85.    Temp = "Za naplata :" & rs!Za_Naplatu
  86.    Print #1, Temp
  87.    rs.Close
  88.    SQLSmetka = "SELECT A.DDV, Sum(A.Kolicina) AS KOL, Avg(A.Ed_Cena) AS Cena, tblTarifi.Koeficient," _
  89.               & " [kol]*[Cena] AS VUkupno," & SQL1 & ", Avg(tblSmetki.Rabat) AS Rab," _
  90.               & " [suma]-[rab] AS Za_Naplatu, [Suma]/[VUkupno] AS Procenat," _
  91.               & " [Za_Naplatu]/[procenat] AS N_Sa_Pdv, [N_Sa_Pdv]/[Koeficient] AS N_Bez_PDV, [N_Sa_PDV]-[N_Bez_Pdv] AS PDV_Iznos" _
  92.               & " FROM tblTarifi INNER JOIN (tblSmetki INNER JOIN tblsmetki_stavki AS A ON tblSmetki.ID_Smetka = A.Smetka_Br) ON tblTarifi.Tarifa = A.DDV " _
  93.               & SQL2 _
  94.               & " GROUP BY A.DDV, tblTarifi.Koeficient"
  95.   rs.Open SQLSmetka, cn
  96.   rs.MoveFirst
  97.  Temp = "-------------------------------------------"
  98.  Print #1, Temp
  99.  Temp = "PDV    BezPDV      VK.PDV     VK.SoPDV"
  100.  Print #1, Temp
  101.  Temp = "-------------------------------------------"
  102.  Print #1, Temp
  103.  Do While Not rs.EOF
  104.     Temp = rs!DDV & Space(5)
  105.     Temp = Temp & Format(rs!N_Sa_PDV, "0.00") & Space(5)
  106.     Temp = Temp & Format(rs!N_Bez_PDV, "0.00") & Space(5)
  107.     Temp = Temp & Format(rs!PDV_Iznos, "0.00") & Space(5)
  108.     Print #1, Temp
  109.     Suma(0) = Suma(0) + rs!N_Sa_PDV
  110.     Suma(1) = Suma(1) + rs!N_Bez_PDV
  111.     Suma(2) = Suma(2) + rs!PDV_Iznos
  112.    
  113.     rs.MoveNext
  114.   Loop
  115.   rs.Close
  116. Temp = "-------------------------------------------"
  117. Print #1, Temp
  118. Temp = Space(7) & Format(Suma(0), "0.00") & Space(5) & Format(Suma(1), "0.00") & Space(5) & Format(Suma(2), "0.00")
  119. Print #1, Temp
  120. Close #1
  121. End Function

ako je pozoves sa:
Cal Smetka_Rekap(0)- Dobijas vrijednosti tekuceg dana
cal Smetka_Rekap(0,"10.05.2014")- dobijas vrijednosti na taj datum
Cal Smetka_Rekap(0,"03.05.2014","17.05.2014") dobijas vriijednosti za period
cal Smetka_Rekap(10)-dobijas vrijednosti za racun br 10
Cal Smetka_Rekap(10,"17.05.2014")-Opet dobijas vrijednosti za racun br 10
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#10 16.05.2014 09:58
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,828


Predmet:Re: Presmetka DPH (DDV) , (PDV) vo cod so popust
Ova funkcionira no ne mozam da se snajdam da ja izdvojam samo rekapitulacijata.
Mi treba da ja vnesam vo gornata funkcija.
↑  ↓

Stranice (3):1,2,3

Sva vremena su GMT +01:00. Trenutno vrijeme: 9: 40 am.