Ingeniero

Dim PrimeraFila As Long
Dim UltimaFila As Long
Dim PrimeraColumna As Long
Dim UltimaColumna As Long

Dim RangoTotal As String
Dim PrimeraCelda As String
Dim UltimaCelda As String
Dim sTabla As String

Dim CN As ADODB.Connection
Dim RS As ADODB.Recordset
Dim sSql As String
Dim sServidor As String
Dim sAmbiente As String
DimsCondicion As String
Const sUsuario As String = "pruebas1"
Const sPassWord As String = "calidad"


Private Sub CopiarHojaDesproteger()
Sheets(ActiveSheet.Name).Copy Before:=Sheets(ActiveSheet.Name)
ActiveSheet.Unprotect ("BBVA")
End Sub

Private Sub QuitarValidacion()
With Selection.Validation
.Delete
.Add Type:=xlValidateInputOnly,AlertStyle:=xlValidAlertStop, Operator _
:=xlBetween
.IgnoreBlank = True
.InCellDropdown = True
.ShowInput = True
.ShowError = True
End With
End Sub

Private Function CeldaTieneValidacion() As Boolean
On Error Resume Next
If Selection.Validation.Type = 3 Then
If Err = 0 Then
CeldaTieneValidacion = True
End IfEnd If
End Function

'Este Procedimiento Realiza lo siguiente:
'1.- Busca el PK de la Tabla
'2.- Recorre los registros de la matriz, verificando por PK si existe o no el registro dependiendo del ambiente
'3.- Si No existe Genera un Insert, en caso contrario genera un Insert.
'4.- Todo esto lo genera en un archivo .SQL en el directorio seleccionado por el usuario.
Sub ExportarDatosDB()If Servidor = True Then
Dim Respuesta As Integer
Dim aPk As Variant
Dim sPk As String
Dim sCampos As String
Dim aCampos As Variant
Dim sTipo As String
Dim aTipo As Variant
Dim j As Long
Dim nFilas As Long


Dim aSQL As Variant
Dim TipoRegistro As String

'Respuesta =MsgBox("¿Desea generar el archivo para exportar a BD?", vbYesNo + vbQuestion, "Generar Archivo")
'If Respuesta = vbYes Then
If ActiveCell.Value "" Then
Application.ScreenUpdating = False
PrepararHoja
If sServidor = "PRE" Then
AbrirConexion "ORCL", "PRUEBA5", "T3MP0R4L"
ElseAbrirConexion sServidor, sUsuario, sPassWord
End If
sPk = BuscarPK(sTabla)
If sPk = "" Then
MsgBox ("No se puede generar Script para esta hoja, porque la tabla no posee PK")
CerrarHoja (ActiveSheet.Name)
Exit Sub
End If
aPk = Split(sPk, ",")sCampos = BuscarCampos(sTabla)
sTipo = Mid(Mid(sCampos, InStr(1, sCampos, "|") + 1), 1, InStr(1, Mid(sCampos, InStr(1, sCampos, "|") + 1), "|") - 1)
aTipo = Split(sTipo, ";")
sCampos = Mid(sCampos, 1, InStr(1, sCampos, "|") - 1)
aCampos = Split(sCampos, ";")
nFilas = UltimaFila - PrimeraFilaReDim aSQL(nFilas) As String
For j = 0 To nFilas
BarraEstado ("Procesando Registro " & j + 1 & " de " & nFilas + 1)
TipoRegistro = VerificarRegistro(aPk, aTipo, aCampos, sPk)
If TipoRegistro = "I" Then
aSQL(j) = HacerInsert(aTipo, aCampos)
ElseIf TipoRegistro = "U"Then
'aSql(j) = HacerUpdate(aTipo, aCampos)
aSQL(j) = HacerUpdateReverso(aTipo, aCampos)
End If
ActiveCell.Offset(1).Select
Next j
CerrarHoja (ActiveSheet.Name)
Call GenerarSql(aSQL)
BarraEstado ("Archivo Generado Satisfactoriamente")...