Option Explicit
Sub GrabaClientes()
Dim cn As Object
Dim Datos As Object
Dim consultaSql As String
Dim Conexion As String
Dim AAPP As String
Dim NUM_DOC As String
Dim EMPRESA As String
Dim PARENT_COMPANY As String
Dim GP_LP As String
Dim GESTOR_PERSONAL As String
Dim IN_PLANT As String
Dim SERVICE_MANAGER As String
Dim KAM As String
Dim TIPO_CONTRATO As String
Dim RENOVACION As String
Dim COTERMINO As String
Dim FECHA_INICIO_CTO As Date
Dim DURACION_CTO As Integer
Dim FECHA_FIN_CTO As Date
Dim NUM_LINEAS As Integer
Dim PLAZO_AMORT_TERMINALES As Integer
Dim BOLSAS_TERMINALES As String
Dim POLITICA_RENOVE As String
Dim PENALIZACION As String
Dim ANEXO_VALOR_TERMINALES As String
Dim TABLA_PENAL_TERMINALES As String
Dim VALOR_ENTRE_T1 As Integer
Dim VALOR_Y_T1 As Integer
Dim IMPORTE_TRAMO_1 As Integer
Dim VALOR_ENTRE_T2 As Integer
Dim VALOR_Y_T2 As Integer
Dim IMPORTE_TRAMO_2 As Integer
Dim VALOR_ENTRE_T3 As Integer
Dim VALOR_Y_T3 As Integer
Dim IMPORTE_TRAMO_3 As Integer
Dim VALOR_ENTRE_T4 As Integer
Dim VALOR_Y_T4 As Integer
Dim IMPORTE_TRAMO_4 As Integer
Dim VALOR_ENTRE_T5 As Integer
Dim VALOR_Y_T5 As Integer
Dim IMPORTE_TRAMO_5 As Integer
Dim VALOR_ENTRE_T6 As Integer
Dim VALOR_Y_T6 As Integer
Dim IMPORTE_TRAMO_6 As Integer
Dim CARGO_ADICIONAL_TER_IPHONE_ALTA_GAMA As String
Dim IMPORTE_CARGO_ADICIONAL_MODELO As Integer
Dim CARGO_ADICIONAL_T_VOZ_DATOS_MAYOR_2GB As String
Dim IMPORTE_CARGO_ADICIONAL_T_VOZ_DATOS As Integer
Dim DEV_EQUIPOS_OFICINA_PLUS As String
Dim IMPORTE_DEV_OFICINA_PLUS As Integer
Dim DEV_EQUIPOS_INTERNET_MOVIL As String
Dim IMPORTE_DEV_INTERNET_MOVIL As Integer
Dim TABLA_PENAL_LINEA As String
Dim PORC_12_M_D1 As Integer
Dim PORC_12_M_D2 As Integer
Dim PORC_12_M_D3 As Integer
Dim PORC_12_M_D4 As Integer
Dim PORC_24_18_M_D1 As Integer
Dim PORC_24_18_M_D2 As Integer
Dim PORC_24_18_M_D3 As Integer
Dim PORC_24_18_M_D4 As Integer
Dim PORC_36_M_D1 As Integer
Dim PORC_36_M_D2 As Integer
Dim PORC_36_M_D3 As Integer
Dim PORC_36_M_D4 As Integer
Dim PORC_PLUS_36_M_D1 As Integer
Dim PORC_PLUS_36_M_D2 As Integer
Dim PORC_PLUS_36_M_D3 As Integer
Dim PORC_PLUS_36_M_D4 As Integer
Dim DURANTE_PRORROGAS_PREAVISO As String
Dim MESES_FACTURACION As Integer
Dim T_VOZ As String
Dim IMPORTE_T_VOZ As Integer
Dim T_INTERNET_MOVIL As String
Dim IMPORTE_T_INTERNET_MOVIL As Integer
Dim PORC_BAJAS_LINEAS As String
Dim PORC_BAJA As Integer
Dim EXCEPCION_PEN As String
Dim TIPO_EXCEPCION As String
Dim PRIMARY_K As String
Dim COMENT As String
AAPP = Range("B2") NUM_DOC = Range("C2") EMPRESA = Range("D2") PARENT_COMPANY = Range("E2") GP_LP = Range("F2") GESTOR_PERSONAL = Range("G2") IN_PLANT = Range("H2") SERVICE_MANAGER = Range("I2") KAM = Range("J2") TIPO_CONTRATO = Range("K2") RENOVACION = Range("L2") COTERMINO = Range("M2") FECHA_INICIO_CTO = Range("N2") DURACION_CTO = Range("O2") FECHA_FIN_CTO = Range("P2") NUM_LINEAS = Range("Q2") PLAZO_AMORT_TERMINALES = Range("R2") BOLSAS_TERMINALES = Range("S2") POLITICA_RENOVE = Range("T2") PENALIZACION = Range("U2") ANEXO_VALOR_TERMINALES = Range("V2") TABLA_PENAL_TERMINALES = Range("W2") VALOR_ENTRE_T1 = Range("X2") VALOR_Y_T1 = Range("Y2") IMPORTE_TRAMO_1 = Range("Z2") VALOR_ENTRE_T2 = Range("AA2") VALOR_Y_T2 = Range("AB2") IMPORTE_TRAMO_2 = Range("AC2") VALOR_ENTRE_T3 = Range("AD2") VALOR_Y_T3 = Range("AE2") IMPORTE_TRAMO_3 = Range("AF2") VALOR_ENTRE_T4 = Range("AG2") VALOR_Y_T4 = Range("AH2") IMPORTE_TRAMO_4 = Range("AI2") VALOR_ENTRE_T5 = Range("AJ2") VALOR_Y_T5 = Range("AK2") IMPORTE_TRAMO_5 = Range("AL2") VALOR_ENTRE_T6 = Range("AM2") VALOR_Y_T6 = Range("AN2") IMPORTE_TRAMO_6 = Range("AO2") CARGO_ADICIONAL_TER_IPHONE_ALTA_GAMA = Range("AP2") IMPORTE_CARGO_ADICIONAL_MODELO = Range("AQ2") CARGO_ADICIONAL_T_VOZ_DATOS_MAYOR_2GB = Range("AR2") IMPORTE_CARGO_ADICIONAL_T_VOZ_DATOS = Range("AS2") DEV_EQUIPOS_OFICINA_PLUS = Range("AT2") IMPORTE_DEV_OFICINA_PLUS = Range("AU2") DEV_EQUIPOS_INTERNET_MOVIL = Range("AV2") IMPORTE_DEV_INTERNET_MOVIL = Range("AW2") TABLA_PENAL_LINEA = Range("AX2") PORC_12_M_D1 = Range("AY2") PORC_12_M_D2 = Range("AZ2") PORC_12_M_D3 = Range("BA2") PORC_12_M_D4 = Range("BB2") PORC_24_18_M_D1 = Range("BC2") PORC_24_18_M_D2 = Range("BD2") PORC_24_18_M_D3 = Range("BE2") PORC_24_18_M_D4 = Range("BF2") PORC_36_M_D1 = Range("BG2") PORC_36_M_D2 = Range("BH2") PORC_36_M_D3 = Range("BI2") PORC_36_M_D4 = Range("BJ2") PORC_PLUS_36_M_D1 = Range("BK2") PORC_PLUS_36_M_D2 = Range("BL2") PORC_PLUS_36_M_D3 = Range("BM2") PORC_PLUS_36_M_D4 = Range("BN2") DURANTE_PRORROGAS_PREAVISO = Range("BO2") MESES_FACTURACION = Range("BP2") T_VOZ = Range("BQ2") IMPORTE_T_VOZ = Range("BR2") T_INTERNET_MOVIL = Range("BS2") IMPORTE_T_INTERNET_MOVIL = Range("BT2") PORC_BAJAS_LINEAS = Range("BU2") PORC_BAJA = Range("BV2") EXCEPCION_PEN = Range("BW2") TIPO_EXCEPCION = Range("BX2") PRIMARY_K = Range("BY2") COMENT = Range("BZ2")
Falta = False
For a=2 to 77
If Len(Cels(2, Col)) = 0 Then Falta=True: Exit For
Next
If Falta Then
MsgBox "Datos Incompletos"
Exit Sub
End If
Set cn = CreateObject("ADODB.connection") Conexion = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=C:\Users\fderr\Documents\Proyecto Penalizaciones\Penalizacciones_GGCC.mdb"
consultaSql = "insert into Clientes values(" & Chr(34) & AAPP & Chr(34) & "," & _ Chr(34) & NUM_DOC & Chr(34) & "," & _
Chr(34) & EMPRESA & Chr(34) & "," & _
Chr(34) & PARENT_COMPANY & Chr(34) & "," & _
Chr(34) & GP_LP & Chr(34) & "," & _
Chr(34) & GESTOR_PERSONAL & Chr(34) & "," & _
Chr(34) & IN_PLANT & Chr(34) & "," & _
Chr(34) & SERVICE_MANAGER & Chr(34) & "," & _
Chr(34) & KAM & Chr(34) & "," & _
Chr(34) & TIPO_CONTRATO & Chr(34) & "," & _
Chr(34) & RENOVACION & Chr(34) & "," & _
Chr(34) & COTERMINO & Chr(34) & "," & _
"#" & FECHA_INICIO_CTO & "#" & "," & _
DURACION_CTO & "," & _
"#" & FECHA_FIN_CTO & "#" & "," & _
NUM_LINEAS & "," & _
PLAZO_AMORT_TERMINALES & "," & _
Chr(34) & BOLSAS_TERMINALES & Chr(34) & "," & _
Chr(34) & POLITICA_RENOVE & Chr(34) & "," & _
Chr(34) & PENALIZACION & Chr(34) & "," & _
Chr(34) & ANEXO_VALOR_TERMINALES & Chr(34) & "," & _
Chr(34) & TABLA_PENAL_TERMINALES & Chr(34) & "," & _
VALOR_ENTRE_T1 & "," & _
VALOR_Y_T1 & "," & _
IMPORTE_TRAMO_1 & "," & _
VALOR_ENTRE_T2 & "," & _
VALOR_Y_T2 & "," & _
IMPORTE_TRAMO_2 & "," & _
VALOR_ENTRE_T3 & "," & _
VALOR_Y_T3 & "," & _
IMPORTE_TRAMO_3 & "," & _
VALOR_ENTRE_T4 & "," & _
VALOR_Y_T4 & "," & _
IMPORTE_TRAMO_4 & "," & _
VALOR_ENTRE_T5 & "," & _
VALOR_Y_T5 & "," & _
IMPORTE_TRAMO_5 & "," & _
VALOR_ENTRE_T6 & "," & _
VALOR_Y_T6 & "," & _
IMPORTE_TRAMO_6 & "," & _
Chr(34) & CARGO_ADICIONAL_TER_IPHONE_ALTA_GAMA & Chr(34) & "," & _
IMPORTE_CARGO_ADICIONAL_MODELO & "," & _
Chr(34) & CARGO_ADICIONAL_T_VOZ_DATOS_MAYOR_2GB & Chr(34) & "," & _
IMPORTE_CARGO_ADICIONAL_T_VOZ_DATOS & "," & _
Chr(34) & DEV_EQUIPOS_OFICINA_PLUS & Chr(34) & "," & _
IMPORTE_DEV_OFICINA_PLUS & "," & _
Chr(34) & DEV_EQUIPOS_INTERNET_MOVIL & Chr(34) & "," & _
IMPORTE_DEV_INTERNET_MOVIL & "," & _
Chr(34) & TABLA_PENAL_LINEA & Chr(34) & "," & _
PORC_12_M_D1 & "," & _
PORC_12_M_D2 & "," & _
PORC_12_M_D3 & "," & _
PORC_12_M_D4 & "," & _
PORC_24_18_M_D1 & "," & _
PORC_24_18_M_D2 & "," & _
PORC_24_18_M_D3 & "," & _
PORC_24_18_M_D4 & "," & _
PORC_36_M_D1 & "," & _
PORC_36_M_D2 & "," & _
PORC_36_M_D3 & "," & _
PORC_36_M_D4 & "," & _
PORC_PLUS_36_M_D1 & "," & _
PORC_PLUS_36_M_D2 & "," & _
PORC_PLUS_36_M_D3 & "," & _
PORC_PLUS_36_M_D4 & "," & _
Chr(34) & DURANTE_PRORROGAS_PREAVISO & Chr(34) & "," & _
MESES_FACTURACION & "," & _
Chr(34) & T_VOZ & Chr(34) & "," & _
IMPORTE_T_VOZ & "," & _
Chr(34) & T_INTERNET_MOVIL & Chr(34) & "," & _
IMPORTE_T_INTERNET_MOVIL & "," & _
Chr(34) & PORC_BAJAS_LINEAS & Chr(34) & "," & _
PORC_BAJA & "," & _
Chr(34) & EXCEPCION_PEN & Chr(34) & "," & _
Chr(34) & TIPO_EXCEPCION & Chr(34) & "," & _
Chr(34) & PRIMARY_K & Chr(34) & "," & _
Chr(34) & COMENT & Chr(34) & ")"
cn.Open Conexion
Set Datos = cn.Execute(consultaSql)
MsgBox "Datos Guardados en BdD", vbInformation, "Nueva penalización"
End Sub
Sub ConsultaDatos()
'Borramos datos de consultas previas
Range("B2").Select Range(Selection, Selection.End(xlToRight)).Select
Range("B2:BZ32").Select Selection.ClearContents
Dim cn As Object
Dim Datos As Object
Dim ConsSQL As String
Dim Conexion As String
Dim DOC As String
Dim Cont As Long
Dim Campo1 As String
Dim DatoCampo1 As String
Dim ComplementoBusqueda1 As String
Dim TipoBusqueda As String
TipoBusqueda = Cells(35, 3)
Campo1 = Cells(1, 3)
DatoCampo1 = Cells(54, 3)
If Len(TipoBusqueda) = 0 Or Len(Campo1) = 0 Or Len(DatoCampo1) = 0 Then
Exit Sub
End If
If TipoBusqueda = "Exacta" Then
ComplementoBusqueda1 = " = "
Else
ComplementoBusqueda1 = " like "
End If
Set cn = CreateObject("ADODB.connection") Conexion = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=C:\Users\fderr\Documents\Proyecto Penalizaciones\Penalizacciones_GGCC.mdb"
DOC = Range("C24") ConsSQL = "Select * From Clientes where " & Campo1 & ComplementoBusqueda1 & "'" & DatoCampo1 & "'"
cn.Open Conexion
Set Datos = cn.Execute(ConsSQL)
Cont = 2
Do While Not Datos.EOF
For a=0 to 76
Cells(Cont, a+1) = Datos.Fields(a)
Next
Cont = Cont + 1
Datos.MoveNext
Loop
Datos.Close
Set Datos = Nothing
cn.Close
Set cn = Nothing
End Sub
