Untitled
plain_text
23 days ago
1.1 kB
1
Indexable
Never
Private Sub CmdMoja_Click() Dim rs As Recordset If VarVeleprodaja = 1 And (VarVrstaUlaza = 1 Or VarVrstaUlaza = 2 Or VarVrstaUlaza = 3) Then Set rs = RobeDe.konRobe.Execute("Select * from ulazi where id='" & VarUlaz & "'") VarBrojFakture = Trim(IIf(IsNull(rs("brojfakture")), "", rs("brojfakture"))) VarPartner = Trim(IIf(IsNull(rs("sifrapartnera")), "", rs("sifrapartnera"))) If VarPartner = 17481 Then Call ImportHerbalis End If If VarPartner = 120 Then Call ImportPHTR End If If VarPartner = 91 Then Call ImportBL End If If VarPartner = 1846 Then Call ImportHF End If If VarPartner = 51 Then Call ImportMGM End If If VarPartner = 14444 Then Call ImportHL End If If VarPartner = 2113 Then Call ImportICM End If If VarPartner = 1734 Then Call ImportAbbott End If If VarPartner = 13218 Then Call ImportMedis End If If VarPartner = 16784 Then Call ImportFarmalogist End If End If End Sub