Local lnReg As Integer
Local lnArea As Integer
Local lnSubTotal As Decimal, lnIva21 As Decimal, lnIva105 As Decimal, lnIva27 As Decimal
Local lnExento As Decimal, lnTasaVial As Decimal, lnOtrosImp as Decimal

lnArea = Select()
Select("det")
lnReg = Recno()

lnExento        = 0.00
lnSubTotal      = 0.00
lnIva21         = 0.00
lnIva105        = 0.00
lnIva27         = 0.00
lnTasaVial      = 0.00
lnOtrosImp      = 0.00
Scan
    Do Case
    Case det.iva = 0
        lnExento = lnExento + det.importe * det.iva / 100
    Case det.iva = 21
        lnIva21 = lnIva21 + det.importe * det.iva / 100
    Case det.iva = 10.50
        lnIva105 = lnIva105 + det.importe * 0.105
    Case det.iva = 27
        lnIva27 = lnIva27 + det.importe * det.iva / 100
    Otherwise
    Endcase
    lnSubTotal = lnSubTotal + det.importe
Endscan

Thisform.txtSubTotal.txtDato.Value = lnSubTotal
Thisform.txtIVA21.txtDato.Value = lnIva21
Thisform.txtIVA27.txtDato.Value = lnIva27
Thisform.txtIVA105.txtDato.Value = lnIva105
Thisform.txtExentos.txtDato.Value = lnExento