Public Sub viewSumar()

    On Error GoTo chyba

    Screen.MousePointer = vbHourglass

    txtdfa(9) = "0": txtdfa(10) = "0": txtdfa(11) = "0": txtdfa(16) = "0": txtdfa(19) = "0"
    txtdfa(15) = "0": txtdfa(18) = "0": txtdfa(17) = "0": txtdfa(20) = "0": txtdfa(21) = "0": txtSumasDPH = "0"

    Dim cunt As Integer
    Dim rst As New ADODB.Recordset

    Call Get_Dph(dtpDatumZdanPln.Value)

    txtdfa(12) = glDph_nizsia
    txtdfa(13) = glDph_vyssia
    txtdfa(14) = 0

    For cunt = 1 To grdDD.RowCount

        Select Case varPredmet(2, cunt)

        Case CInt(glDph_vyssia)

            If cmbCur.Text <> gsMenaDomaca And varPredmet(14, cunt) = gsMenaDomaca Then
                txtdfa(10) = CCur(txtdfa(10)) + RoundNCC(CCur(varPredmet(3, cunt) / CDbl(txtKurz.Tag)), 2) ' zakl_dph nizs
                txtdfa(16) = CCur(txtdfa(16)) + RoundNCC(CCur(varPredmet(4, cunt) / CDbl(txtKurz.Tag)), 2)
                txtdfa(19) = CCur(txtdfa(19)) + RoundNCC(CCur(varPredmet(5, cunt) / CDbl(txtKurz.Tag)), 2)
            ElseIf cmbCur.Text = gsMenaDomaca And varPredmet(14, cunt) <> gsMenaDomaca Then
                txtdfa(10) = CCur(txtdfa(10)) + RoundNCC(CCur(varPredmet(3, cunt) * CDbl(varPredmet(13, cunt))), 1) ' zakl_dph nizs
                txtdfa(16) = CCur(txtdfa(16)) + RoundNCC(CCur(varPredmet(4, cunt) * CDbl(varPredmet(13, cunt))), 1)
                txtdfa(19) = CCur(txtdfa(19)) + RoundNCC(CCur(varPredmet(5, cunt) * CDbl(varPredmet(13, cunt))), 1)
            ElseIf cmbCur.Text = varPredmet(14, cunt) Then
                txtdfa(10) = CCur(txtdfa(10)) + CCur(varPredmet(3, cunt))  ' zakl_dph nizs
                txtdfa(16) = CCur(txtdfa(16)) + CCur(varPredmet(4, cunt))
                txtdfa(19) = CCur(txtdfa(19)) + CCur(varPredmet(5, cunt))
            Else
                txtdfa(10) = CCur(txtdfa(10)) + RoundNCC(CCur(varPredmet(3, cunt) * CDbl(txtKurz.Tag)), 1) ' zakl_dph nizs
                txtdfa(16) = CCur(txtdfa(16)) + RoundNCC(CCur(varPredmet(4, cunt) * CDbl(txtKurz.Tag)), 1)
                txtdfa(19) = CCur(txtdfa(19)) + RoundNCC(CCur(varPredmet(5, cunt) * CDbl(txtKurz.Tag)), 1)
            End If

        Case CInt(glDph_nizsia)

            If cmbCur.Text <> gsMenaDomaca And varPredmet(14, cunt) = gsMenaDomaca Then
                txtdfa(9) = CCur(txtdfa(9)) + RoundNCC(CCur(varPredmet(3, cunt) / CDbl(txtKurz.Tag)), 2) ' zakl_dph nizs
                txtdfa(15) = CCur(txtdfa(15)) + RoundNCC(CCur(varPredmet(4, cunt) / CDbl(txtKurz.Tag)), 2)
                txtdfa(18) = CCur(txtdfa(18)) + RoundNCC(CCur(varPredmet(5, cunt) / CDbl(txtKurz.Tag)), 2)
            ElseIf cmbCur.Text = gsMenaDomaca And varPredmet(14, cunt) <> gsMenaDomaca Then
                txtdfa(9) = CCur(txtdfa(9)) + RoundNCC(CCur(varPredmet(3, cunt) * CDbl(varPredmet(13, cunt))), 1) ' zakl_dph nizs
                txtdfa(15) = CCur(txtdfa(15)) + RoundNCC(CCur(varPredmet(4, cunt) * CDbl(varPredmet(13, cunt))), 1)
                txtdfa(18) = CCur(txtdfa(18)) + RoundNCC(CCur(varPredmet(5, cunt) * CDbl(varPredmet(13, cunt))), 1)
            ElseIf cmbCur.Text = varPredmet(14, cunt) Then
                txtdfa(9) = CCur(txtdfa(9)) + CCur(varPredmet(3, cunt))  ' zakl_dph nizs
                txtdfa(15) = CCur(txtdfa(15)) + CCur(varPredmet(4, cunt))
                txtdfa(18) = CCur(txtdfa(18)) + CCur(varPredmet(5, cunt))
            Else
                txtdfa(9) = CCur(txtdfa(9)) + RoundNCC(CCur(varPredmet(3, cunt) * CDbl(txtKurz.Tag)), 1) ' zakl_dph nizs
                txtdfa(15) = CCur(txtdfa(15)) + RoundNCC(CCur(varPredmet(4, cunt) * CDbl(txtKurz.Tag)), 1)
                txtdfa(18) = CCur(txtdfa(18)) + RoundNCC(CCur(varPredmet(5, cunt) * CDbl(txtKurz.Tag)), 1)
            End If

        Case 0

            If cmbCur.Text <> gsMenaDomaca And varPredmet(14, cunt) = gsMenaDomaca Then
                txtdfa(11) = CCur(txtdfa(11)) + RoundNCC(CCur(varPredmet(3, cunt) / CDbl(txtKurz.Tag)), 2) ' zakl_dph nizs
                txtdfa(17) = CCur(txtdfa(17)) + RoundNCC(CCur(varPredmet(4, cunt) / CDbl(txtKurz.Tag)), 2)
                txtdfa(20) = CCur(txtdfa(20)) + RoundNCC(CCur(varPredmet(5, cunt) / CDbl(txtKurz.Tag)), 2)
            ElseIf cmbCur.Text = gsMenaDomaca And varPredmet(14, cunt) <> gsMenaDomaca Then
                txtdfa(11) = CCur(txtdfa(11)) + RoundNCC(CCur(varPredmet(3, cunt) * CDbl(varPredmet(13, cunt))), 1) ' zakl_dph nizs
                txtdfa(17) = CCur(txtdfa(17)) + RoundNCC(CCur(varPredmet(4, cunt) * CDbl(varPredmet(13, cunt))), 1)
                txtdfa(20) = CCur(txtdfa(20)) + RoundNCC(CCur(varPredmet(5, cunt) * CDbl(varPredmet(13, cunt))), 1)
            ElseIf cmbCur.Text = varPredmet(14, cunt) Then
                txtdfa(11) = CCur(txtdfa(11)) + CCur(varPredmet(3, cunt))  ' zakl_dph nizs
                txtdfa(17) = CCur(txtdfa(17)) + CCur(varPredmet(4, cunt))
                txtdfa(20) = CCur(txtdfa(20)) + CCur(varPredmet(5, cunt))
            Else
                txtdfa(11) = CCur(txtdfa(11)) + RoundNCC(CCur(varPredmet(3, cunt) * CDbl(txtKurz.Tag)), 1) ' zakl_dph nizs
                txtdfa(17) = CCur(txtdfa(17)) + RoundNCC(CCur(varPredmet(4, cunt) * CDbl(txtKurz.Tag)), 1)
                txtdfa(20) = CCur(txtdfa(20)) + RoundNCC(CCur(varPredmet(5, cunt) * CDbl(txtKurz.Tag)), 1)
            End If

        End Select

        txtdfa(21) = CCur(txtdfa(18)) + CCur(txtdfa(19)) + CCur(txtdfa(20))
        txtSumasDPH = FormatNumber(txtdfa(21), 2)

    Next cunt

    Dim i As Integer
    For i = 0 To txtdfa.Count

        Select Case i

            Case 10, 9, 11, 16, 15, 17, 19, 18, 20, 21
                If IsNumeric(txtdfa(i)) = True Then
                    txtdfa(i) = FormatInt_Txt(txtdfa(i), True)
                End If

            Case Else

        End Select

    Next i

    Call txtSumasDPH_LostFocus

    Screen.MousePointer = vbDefault
    Exit Sub

chyba:

    Screen.MousePointer = vbDefault
    frmError.O_popis = err.Description
    frmError.txtDetail = "Nastala chyba pri zobrazení detailu položky DD!"
    frmError.Show 1

End Sub