Centar za edukaciju-BiH



#11 16.05.2014 10:08
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: Presmetka DPH (DDV) , (PDV) vo cod so popust
Daj zakaci svoj primjer sto radis i napisi gdje treba.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#12 16.05.2014 10:38
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: Presmetka DPH (DDV) , (PDV) vo cod so popust
Evo probaj ovo implementirati:
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 rs = New ADODB.Recordset
  50.  rs.Open SQLSmetkaStavki, cn, adOpenStatic, adLockOptimistic
  51.  
  52. If SelectPrinter(ReadIniValue(App.Path & "\Setup.ini", "Printeri", "Smetka")) = True Then
  53.         Call MsgBox("PRINTER NOT FOUND  ", vbOKOnly + vbExclamation + vbApplicationModal + vbDefaultButton1, "")
  54.         Exit Function
  55.       End If
  56.   '**************************************************************************
  57.    
  58.     With Printer.Font
  59.         .Name = "Times New Roman"
  60.        ' .Name = "Arial"
  61.        .Size = ReadIniValue(App.Path & "\Setup.ini", "SmetkaSetup", "SizeFont")
  62.     End With
  63.     '.....................................zaglavle tvoje
  64. Printer.Print Space(LevMargin) & "*******************************"
  65. Printer.Print Space(LevMargin) & ReadIniValue(App.Path & "\Setup.ini", "SmetkaSetup", "Header1")
  66. Printer.Print Space(LevMargin) & ReadIniValue(App.Path & "\Setup.ini", "SmetkaSetup", "Header2")
  67. Printer.Print Space(LevMargin) & ReadIniValue(App.Path & "\Setup.ini", "SmetkaSetup", "Header3")
  68. Printer.Print Space(LevMargin) & "-----------------------------------------------"
  69. '...........................................................................
  70. If rs.BOF = True Then
  71. MsgBox "Nema podataka"
  72. Exit Function
  73. End If
  74. rs.MoveFirst
  75. Printer.Print Space(LevMargin) & Space(5) & Tekst
  76. Printer.Print Space(LevMargin) & " rb    Naziv                      Kol.   Cena   Vkupno "
  77. Printer.Print Space(LevMargin) & "-----------------------------------------------"
  78.  
  79.    Do While Not rs.EOF
  80.    Rb = Rb + 1
  81.    Temp = Rb & Space(5)
  82.    Naziv = DLookup("Naziv", "tblArtikli_Prodazba", "ID_ArtikalP=" & rs!Stavka) & Space(5)
  83.    Temp = Temp & Naziv
  84.    Temp = Temp & rs!Kol & Space(5)
  85.    Temp = Temp & rs!Ed_cena & Space(5)
  86.    Temp = Temp & rs!Vukupno
  87.    Printer.Print Space(LevMargin) & Temp
  88.    rs.MoveNext
  89.    Loop
  90.    rs.MoveFirst
  91.    Temp = "------------------------------------------------------"
  92.   Printer.Print Space(LevMargin) & Temp
  93.  
  94.    Temp = "Vkupno:" & rs!Suma
  95.    Printer.Print Space(LevMargin) & Temp
  96.    Temp = "Popust  :" & rs!Rabat
  97.    Printer.Print Space(LevMargin) & Temp
  98.    Temp = "Za naplata :" & rs!Za_Naplatu
  99.    Printer.Print Space(LevMargin) & Temp
  100.    rs.Close
  101.    SQLSmetka = "SELECT A.DDV, Sum(A.Kolicina) AS KOL, Avg(A.Ed_Cena) AS Cena, tblTarifi.Koeficient," _
  102.               & " [kol]*[Cena] AS VUkupno," & SQL1 & ", Avg(tblSmetki.Rabat) AS Rab," _
  103.               & " [suma]-[rab] AS Za_Naplatu, [Suma]/[VUkupno] AS Procenat," _
  104.               & " [Za_Naplatu]/[procenat] AS N_Sa_Pdv, [N_Sa_Pdv]/[Koeficient] AS N_Bez_PDV, [N_Sa_PDV]-[N_Bez_Pdv] AS PDV_Iznos" _
  105.               & " FROM tblTarifi INNER JOIN (tblSmetki INNER JOIN tblsmetki_stavki AS A ON tblSmetki.ID_Smetka = A.Smetka_Br) ON tblTarifi.Tarifa = A.DDV " _
  106.               & SQL2 _
  107.               & " GROUP BY A.DDV, tblTarifi.Koeficient"
  108.   rs.Open SQLSmetka, cn
  109.   rs.MoveFirst
  110.  Temp = "-------------------------------------------"
  111.  Printer.Print Space(LevMargin) & Temp
  112.  Temp = "PDV    BezPDV      VK.PDV     VK.SoPDV"
  113.  Printer.Print Space(LevMargin) & Temp
  114.  Temp = "-------------------------------------------"
  115.  Printer.Print Space(LevMargin) & Temp
  116.  Do While Not rs.EOF
  117.     Temp = rs!DDV & Space(5)
  118.     Temp = Temp & Format(rs!N_Sa_PDV, "0.00") & Space(5)
  119.     Temp = Temp & Format(rs!N_Bez_PDV, "0.00") & Space(5)
  120.     Temp = Temp & Format(rs!PDV_Iznos, "0.00") & Space(5)
  121.     Printer.Print Space(LevMargin) & Temp
  122.     Suma(0) = Suma(0) + rs!N_Sa_PDV
  123.     Suma(1) = Suma(1) + rs!N_Bez_PDV
  124.     Suma(2) = Suma(2) + rs!PDV_Iznos
  125.    
  126.     rs.MoveNext
  127.   Loop
  128.   rs.Close
  129. Temp = "-------------------------------------------"
  130. Printer.Print Space(LevMargin) & Temp
  131. Temp = Space(7) & Format(Suma(0), "0.00") & Space(5) & Format(Suma(1), "0.00") & Space(5) & Format(Suma(2), "0.00")
  132. Printer.Print Space(LevMargin) & Temp
  133.  
  134. '...................... Podnozje
  135. Printer.Print Space(LevMargin) & "-----------------------------------------------"
  136.  
  137. Printer.Print Space(LevMargin) & ReadIniValue(App.Path & "\Setup.ini", "SmetkaSetup", "Footer1")
  138. Printer.Print Space(LevMargin) & ReadIniValue(App.Path & "\Setup.ini", "SmetkaSetup", "Footer2")
  139. Printer.Print Space(LevMargin) & ReadIniValue(App.Path & "\Setup.ini", "SmetkaSetup", "Footer3")
  140. Printer.Print Space(LevMargin) & "*******************************"
  141. Printer.EndDoc
  142. End Function

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

#13 16.05.2014 11:46
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,828


Predmet:Re: Presmetka DPH (DDV) , (PDV) vo cod so popust
Mene mi treba nesto vakvo :

SQL_DDV = "SELECT A.DDV, Sum(A.Kolicina) AS KOL, Avg(A.Ed_Cena) AS Cena, tblTarifi.Koeficient, [kol]*[Cena] AS VUkupno, & VkupnaSuma & AS Suma, Avg(" & Rabat & ") AS Rab, [suma]-[rab] AS Za_Naplatu, [Suma]/[VUkupno] AS Procenat, [Za_Naplatu]/[procenat] AS N_Sa_Pdv, [N_Sa_Pdv]/[Koeficient] AS N_Bez_PDV, [N_Sa_PDV]-[N_Bez_Pdv] AS PDV_Iznos" _
& " FROM tblTarifi INNER JOIN (tblSmetki INNER JOIN tblsmetki_stavki AS A ON tblSmetki.ID_Smetka = A.Smetka_Br) ON tblTarifi.Tarifa = A.DDV" _
& " Where (((tblSmetki.ID_Smetka) =" & SmetkaBroj & "))GROUP BY A.DDV, tblTarifi.Koeficient;"

VkupnaSuma = vkupnata suma na racunot so PDV bez popust (Ovaa vrednos ja imam gotova ne mora da se presmetuva)
Rabat = Popustot na racunot ( Isto gotova vrednost)
SmetkaBroj = ID od Racunot za koj treba da se odnesuva rekapitulacijata
↑  ↓

#14 16.05.2014 11:55
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: Presmetka DPH (DDV) , (PDV) vo cod so popust
Citat:
VkupnaSuma = vkupnata suma na racunot so PDV bez popust (Ovaa vrednos ja imam gotova ne mora da se presmetuva)
Rabat = Popustot na racunot ( Isto gotova vrednost)

Ja sam ove vrjednosti stavio da bi sve imao na jednome mjestu i da je lakse napraviti izvjestaj

Citat:
SmetkaBroj = ID od Racunot za koj treba da se odnesuva rekapitulacijata

Ja sam stavio u proceduru kao ulaz broj Smetka umjesto id smetka racunajuci da je lakse i to sam i napisao.
Citat:
" Where (((tblSmetki.ID_Smetka) =" & SmetkaBroj & "))GROUP BY A.DDV, tblTarifi.Koeficient;"

Ovo imas samo sa broj Smetki.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#15 16.05.2014 12:04
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: Presmetka DPH (DDV) , (PDV) vo cod so popust
Evo ti u mdb procedura.
Otvori modu i u prozor immediate kocaj ovo:
?Smetka_Rekap(0)
?Smetka_Rekap(10)
?Smetka_Rekap(0,"10.05.2014","17.05.2014")

Na putanji mdb dobit ces stampa.txt file i pogledaj sta ima.
?Smetka_Rekap(10)
Dobit ces rezultate kao u tvome xls fajlu.

Mogu ti ovo napraviti i u vb ako vidis da je dobro.

Prilozi:
Informacije o tipu datoteke za:zip  BazaRLzxz.zip
Preuzimanja:248
Velicina datoteke:66.72 KB


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

#16 16.05.2014 12:05
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,828


Predmet:Re: Presmetka DPH (DDV) , (PDV) vo cod so popust
vo mojov slucaj e biten ID to od smetkata bideki za sekoja kasa (a ima 3 ) se generira broj na smetka odnosno brojot na smetkata moze da bide isti na tri kasi samo ID to e razlicno.
Pred da se zatvori smetkata prvo se printa a potoa se zatvora,pri zatvorajne na smetkata se zapisuva i vrednosta na rabatot.
Znaci so vakva konstrukcija jas na racunot nikogas ke nemam prikazan rabat.
↑  ↓

#17 16.05.2014 12:15
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: Presmetka DPH (DDV) , (PDV) vo cod so popust
Dobro nije problem promijeniti broj smetka u id kao uslov ali prvo isprobaj i vidi dali ti to pase sto sam napravio.
Napravio sam po onome sto si ti dao.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#18 16.05.2014 12:27
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,828


Predmet:Re: Presmetka DPH (DDV) , (PDV) vo cod so popust
Ova sve jas go rabotam vo VB ne e Access samo bazata e Access
↑  ↓

#19 16.05.2014 12:30
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: Presmetka DPH (DDV) , (PDV) vo cod so popust
Znam ali posto nemam tovoj ini file niti tvoju konekciju na bazu u vb kod sam ostavio u accessu samo da ti probas da vidis jeli dobro.

Ako zakaci vb app. postavit cu ti to i u vb.

Mogu ti napraviti u vb ali bez tvoga ini filea i bez tvoj cn konekcije nego da napravim moju ali onda opet neces moci ubaciti u svoju app.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#20 16.05.2014 12:45
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,828


Predmet:Re: Presmetka DPH (DDV) , (PDV) vo cod so popust
eve primer kako sve treba da izgleda

Prilozi:
Informacije o tipu datoteke za:rar  Primer.rar
Preuzimanja:295
Velicina datoteke:111.22 KB

↑  ↓

Stranice (3):1,2,3

Sva vremena su GMT +01:00. Trenutno vrijeme: 12: 32 pm.