Untitled

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