Private Sub BorraConcepto(iRow As Integer)
Dim NumeroConfirmacion As String
Dim strDelete As String
Dim strInsert As String
Dim ConceptoPago As String
Dim Formapago As String
Dim CuponTour As String
Dim ImporteTarjetaCredito As Single
Dim ImporteTarjetaCreditoDolares As Single
Dim TipoCambioTarjetaCreditoDolares As Single
Dim ComisionTarjetaCredito As Single
Dim ComisionTarjetaCreditoDolares As Single
Dim SiguienteConsecutivo As Integer
Dim i As Integer

NumeroConfirmacion = frmPagoTour.txtConfirmacion
    Si no esta el enfoque en alguna fila no hace nada
    If iRow < 0 Then Exit Sub
    Si el registro es nuevo o no se ha seleccionado alguna fila no hace nada
    If blnNewRow Or SCGrid1.CellPicture(iRow, -1) Is Nothing Then Exit Sub
    If SCGrid1.Rows = 1 Then
    MsgBox "No puede borrar el ultimo concepto, debe dejar por lo menos un pago"
    Exit Sub
    End If
    On Error GoTo ErrorHandle
Borra el registro de la tabla CflowTemporal, el campo llave es Consecutivo
    strDelete = "delete * from CFlowTemporal where "
    strDelete = strDelete & SCGrid1.Key(-1, 0) & "=" & CStr(SCGrid1.Text(iRow, 0))
    db.Execute strDelete
        
    strInsert = "Eliminacin de la fila " & iRow
    
Se borra del Grid la fila, se despliega el Grid con los nuevos datos y se
inicializan las variables        
    On Error GoTo 0
    Set SCGrid1.CellPicture(iRow, -1) = Nothing
    SCGrid1.CurrentRow = -1
    SCGrid1.DeleteRows iRow
    displayList
    initVariables
    StatusBar1.Panels(2).Text = "Pago borrado"
        se inserta un registro en la tabla Userlog, donde se indica que se borro
la fila X
            dbUlog.Recordset.AddNew
            dbUlog.Recordset.Fields("Confirmacion").Value = NumeroConfirmacion
            dbUlog.Recordset.Fields("Computadora").Value = FindComputerName
            dbUlog.Recordset.Fields("UsuarioWindows").Value = FindUserName
            dbUlog.Recordset.Fields("UsuarioSicres").Value = RsvUsuario.Text
            dbUlog.Recordset.Fields("Fecha").Value = Format(Now(), "dd/mm/yyyy")
            dbUlog.Recordset.Fields("Hora").Value = Format(Now(), "HH:MM:SS")
            dbUlog.Recordset.Fields("Actividad").Value = strInsert
            dbUlog.Recordset.Update
            dbUlog.Refresh
        
    se borran todos las filas de la tabla CFlowTemporal donde exista un
concepto de pago de Comisiones Tarjeta Crdito
    strDelete = "delete * from CFlowTemporal where CPago = 'Comisiones Tarjeta Credito' Or CPago = 'Comisiones Tarjeta Credito Dol'"
        db.Execute strDelete
        Refresca el Grid
        displayList
    Calcula cuanto se ha pagado en Tarjeta de crdito, para obtener cuanto
corresponde a Comisiones de Tarjeta de Crdito e insertarlo en automtico
        For i = 0 To SCGrid1.Rows - 1
        ConceptoPago = SCGrid1.Text(i, 1)
        Formapago = SCGrid1.Text(i, 2)
                
        If Formapago = "Tarjeta de credito" Then
            If ConceptoPago <> "Comisiones Tarjeta Credito" Then
            ImporteTarjetaCredito = ImporteTarjetaCredito + SCGrid1.Text(i, 7)
            End If
        End If
        If Formapago = "Tarjeta de credito dolares" Then
            If ConceptoPago <> "Comisiones Tarjeta Credito Dol" Then
            ImporteTarjetaCreditoDolares = ImporteTarjetaCreditoDolares + SCGrid1.Text(i, 7)
            End If
        End If
        
        Next i
        
        If ImporteTarjetaCredito <> 0 Then
            inserta a CflowTemporal, lo que corresponde a Comisiones de
Tarjeta de crdito. Inserta tambin en Userlog que se eliminaron todos los
pagos de Comisiones de Tarjeta de Crdito, y se insertaron una vez mas
 pero con la cantidad correcta
            CuponTour = frmPagoTour.txtCupon
            ComisionTarjetaCredito = ImporteTarjetaCredito * 0.06
            rcds.Open "select max([Consecutivo]) as [UltimoConsecutivo] from CFlowTemporal", db
            SiguienteConsecutivo = rcds![UltimoConsecutivo] + 1
             rcds.Close
            strInsert = "INSERT INTO CFlowTemporal VALUES (" & SiguienteConsecutivo & ",'Comisiones Tarjeta Credito', " & _
        "'Tarjeta de credito', '" & CuponTour & "','0',0,0," & ComisionTarjetaCredito & ",1,0" & ")"
             db.Execute strInsert
           strInsert = "IA:" & SiguienteConsecutivo & ",Comis. Tarj. Cred., " & _
        "Tarj. de cred.," & CuponTour & ",0,0,0," & ComisionTarjetaCredito & ",1,0"
        displayList
        Sleep 1000
        dbUlog.Recordset.AddNew
            dbUlog.Recordset.Fields("Confirmacion").Value = NumeroConfirmacion
            dbUlog.Recordset.Fields("Computadora").Value = FindComputerName
            dbUlog.Recordset.Fields("UsuarioWindows").Value = FindUserName
            dbUlog.Recordset.Fields("UsuarioSicres").Value = RsvUsuario.Text
            dbUlog.Recordset.Fields("Fecha").Value = Format(Now(), "dd/mm/yyyy")
            dbUlog.Recordset.Fields("Hora").Value = Format(Now(), "HH:MM:SS")
            dbUlog.Recordset.Fields("Actividad").Value = "Borrado autom. todos los conceptos de pago:Comis. Tarj. Cred."
            dbUlog.Recordset.Update
            dbUlog.Refresh
            Sleep 1000
            dbUlog.Recordset.AddNew
            dbUlog.Recordset.Fields("Confirmacion").Value = NumeroConfirmacion
            dbUlog.Recordset.Fields("Computadora").Value = FindComputerName
            dbUlog.Recordset.Fields("UsuarioWindows").Value = FindUserName
            dbUlog.Recordset.Fields("UsuarioSicres").Value = RsvUsuario.Text
            dbUlog.Recordset.Fields("Fecha").Value = Format(Now(), "dd/mm/yyyy")
            dbUlog.Recordset.Fields("Hora").Value = Format(Now(), "HH:MM:SS")
            dbUlog.Recordset.Fields("Actividad").Value = Left(strInsert, 80)
            dbUlog.Recordset.Update
            dbUlog.Refresh
        End If
        
        If ImporteTarjetaCreditoDolares <> 0 Then
inserta a CflowTemporal, lo que corresponde a Comisiones de
Tarjeta de crdito en Dlares. Inserta tambin en Userlog que se eliminaron
todos los pagos de Comisiones de Tarjeta de Crdito, y se insertaron una
vez mas pero con la cantidad correcta
           
            TipoCambioTarjetaCreditoDolares = DLookup("Ftc", "FPagos", "FIdent='Tarjeta de credito dolares'")
            CuponTour = frmPagoTour.txtCupon
            ComisionTarjetaCreditoDolares = ImporteTarjetaCreditoDolares * 0.06
            rcds.Open "select max([Consecutivo]) as [UltimoConsecutivo] from CFlowTemporal", db
            SiguienteConsecutivo = rcds![UltimoConsecutivo] + 1
              rcds.Close
            strInsert = "INSERT INTO CFlowTemporal VALUES (" & SiguienteConsecutivo & ",'Comisiones Tarjeta Credito Dolares', " & _
        "'Tarjeta de credito dolares', '" & CuponTour & "','0',0,0," & ComisionTarjetaCreditoDolares & "," & TipoCambioTarjetaCreditoDolares & ",0" & ")"
            db.Execute strInsert
            strInsert = "IA:" & SiguienteConsecutivo & ",Comis. Tarj. Cred. Dol.," & _
        "Tarj. de cred. dol.," & CuponTour & ",0,0,0," & ComisionTarjetaCreditoDolares & "," & TipoCambioTarjetaCreditoDolares & ",0"
             
            displayList
            Sleep 1000
            dbUlog.Recordset.AddNew
            dbUlog.Recordset.Fields("Confirmacion").Value = NumeroConfirmacion
            dbUlog.Recordset.Fields("Computadora").Value = FindComputerName
            dbUlog.Recordset.Fields("UsuarioWindows").Value = FindUserName
            dbUlog.Recordset.Fields("UsuarioSicres").Value = RsvUsuario.Text
            dbUlog.Recordset.Fields("Fecha").Value = Format(Now(), "dd/mm/yyyy")
            dbUlog.Recordset.Fields("Hora").Value = Format(Now(), "HH:MM:SS")
            dbUlog.Recordset.Fields("Actividad").Value = "Borrado autom. todos los conceptos de pago:Comis. Tarj. Cred."
            dbUlog.Recordset.Update
            dbUlog.Refresh
            Sleep 1000
            dbUlog.Recordset.AddNew
            dbUlog.Recordset.Fields("Confirmacion").Value = NumeroConfirmacion
            dbUlog.Recordset.Fields("Computadora").Value = FindComputerName
            dbUlog.Recordset.Fields("UsuarioWindows").Value = FindUserName
            dbUlog.Recordset.Fields("UsuarioSicres").Value = RsvUsuario.Text
            dbUlog.Recordset.Fields("Fecha").Value = Format(Now(), "dd/mm/yyyy")
            dbUlog.Recordset.Fields("Hora").Value = Format(Now(), "HH:MM:SS")
            dbUlog.Recordset.Fields("Actividad").Value = Left(strInsert, 80)
            dbUlog.Recordset.Update
            dbUlog.Refresh
            End If
    Exit Sub
    
ErrorHandle:
    MsgBox err.Description
End Sub
