Author: cgr Language: text
Description: Not specified Timestamp: 2017-10-09 07:24:30 +0000
View raw paste Reply
#include <Constants.au3>
#include <Date.au3>
#include <File.au3>
#include <FileConstants.au3>
#include <MsgBoxConstants.au3>
#include <WinAPIFiles.au3>
#include <GUIConstantsEx.au3>
#include <EditConstants.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
#include <ListviewConstants.au3>
#include <StringConstants.au3>
#include <WinAPI.au3>
#include <Timers.au3>
#include <GuiEdit.au3>
#AutoIt3Wrapper_UseX64=N
Global $oErrorHandler = ObjEvent("AutoIt.Error", "_ErrFunc")
Global $_Descripcion=""
Global $_Error=""
Dim $Server, $Database, $UserID, $PWD, $DB_CONNECT_STRING

Func Consulta($con,$tipo,$numerotx)
   Local $consulta = $GRuta&"consulta.sql"
   Local $resultado = $GRuta&"resultado"
   FileDelete($consulta)
   Local $archivo = FileOpen($consulta, $FO_APPEND)
   If $archivo = -1 Then
          MsgBox($MB_SYSTEMMODAL, "", "Revise permisos de escritura.")
   EndIf
   FileWrite($archivo, $con & @CRLF)
   FileWrite($archivo, "go")
   FileClose($archivo)
   Run("isql -U"&$GUsuario&" -P" &$GContrasena& " -S" &$GServidor& " -D"&$GBD&" -i" & $consulta & " -o" & $resultado)
   WinWaitClose($titulo_isql)
   If $tipo="multi" then
          ;For $i = 3 to _FileCountLines($resultado)-2 ;Inicia en la linea 3 y finaliza 2 lineas antes de EOF
                 $GValor=StringReplace(FileReadLine($resultado,3+$numerotx)," ","")
          ;Next
   Else ;unico
          ;For $i = 3 to _FileCountLines($resultado)-2 ;Inicia en la linea 3 y finaliza 2 lineas antes de EOF
                 $GValor=StringReplace(FileReadLine($resultado,3)," ","")
          ;Next
   EndIf
   Return $GValor
EndFunc
Func GUI()
        Local $colabel = 60
        Local $relabel = 20
        Local $rilabel = 410
        Local $colinpt = 70
    Global $hGUI = GUICreate("Compilador para Sybase", 800, 600,-1,-1);,$WS_POPUP)
        GUICtrlCreateGroup("RUTA", $colabel+220, $rilabel-20, 470, 115)
        Local $idRuta = GUICtrlCreateInput("", $colabel+$colinpt+180, $rilabel+30, 410, 20)
   Local $idEdit=GUICtrlCreateEdit("",50,50,700,300);, $ES_READONLY)
   ;
   GUICtrlCreateGroup("CONEXION CON B.D.", $colabel-10, $rilabel-$relabel, 210, 115)
        GUICtrlCreateLabel("Servidor", $colabel, $rilabel, 100, 20)
        Local $idServ = GUICtrlCreateCombo("Instancia",$colabel+$colinpt,$rilabel,120,20)
        ;GUICtrlSetData($idServ, $Cat)
        GUICtrlCreateLabel("Base de datos", $colabel, $rilabel+$relabel, 100, 20)
        Global $idBD = GUICtrlCreateInput("INVDBPREP", $colabel+$colinpt, $rilabel+$relabel, 120, 20)
        GUICtrlCreateLabel("Usuario", $colabel, $rilabel+$relabel*2, 80, 20)
        Local $idUsuario = GUICtrlCreateInput("DESA", $colabel+$colinpt, $rilabel+$relabel*2, 120, 20)
        GUICtrlCreateLabel("Contraseņa", $colabel, $rilabel+$relabel*3, 80, 20)
        Local $idContrasena = GUICtrlCreateInput("666666", $colabel+$colinpt, $rilabel+$relabel*3, 120, 20,BitOR($ES_AUTOHSCROLL,$ES_PASSWORD))
    Local $idFire = GUICtrlCreateButton("Compilar Objetos", $colabel-10, 510, 700, 45)
    ;Forma
    GUISetState(@SW_SHOW, $hGUI)
        ;GUISetIcon("\automatico\imagen\ico.ico")
        Local $iPID = 0
    While 1
           Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE ;, $idClose
                ExitLoop
                         Case $idFire ;DISPARADOR
                           SplashTextOn("Compilador", "Iniciando...", 250, 70)
                           Sleep(800)
                           SplashOff()
                           $GBD=GUICtrlRead($idBD)
                           $GUsuario=GUICtrlRead($idUsuario)
                           $GContrasena=GUICtrlRead($idContrasena)
                           $GServidor=GUICtrlRead($idServ)
                           $GRuta=GUICtrlRead($idRuta)
                           ;Run("isql -U"&$GUsuario&" -P" &$GContrasena& " -S" &$GServidor& " -D"&$GBD&" -i" & $consulta & " -o" & $resultado & " -s""|"" -b -w1000")
                           ;ciclo
                           ;$GRuta
                           Local $Modulos = _FileListToArray($GRuta, "*" ,2)

                           Sleep(100)
                           Local $Terminal=0
                           For $i = 1 to $Modulos[0] step 1
                                  $Terminal=$Terminal&@CRLF&$Modulos[$i]
                           Next
                           _GUICtrlEdit_SetText($idEdit,"")
                           Sleep(100)
                           _GUICtrlEdit_SetText($idEdit,$Terminal & @CRLF)
                           Sleep(3000)
                           ;--
                           ;==== Server = ====
                           ;$DB_CONNECT_STRING = "Provider=ASEOLEDB; Data Source=SYBASE; Port=5000; Database=INVDBPREP; Uid=DESA; Pwd=666666;Charset=utf8;"
                           $DB_CONNECT_STRING = "Provider=ASEOLEDB; Data Source=SYBASE; Port=5000; Database="&$GBD&"; Uid="&$GUsuario&"; Pwd="&$GContrasena&";Charset=iso_1;"
                           $Conn = ObjCreate("ADODB.Connection")
                           $RS = ObjCreate("ADODB.Recordset")
                           ;$RS.CursorType = 3
                           $RS.CursorType = 1
                           $RS.LockType = 3
                           $Conn.Open($DB_CONNECT_STRING)
                   ;--

                           For $i = 1 to $Modulos[0] Step 1
                                  Local $Queries=_FileListToArray($GRuta&"\"&$Modulos[$i],"*",1)
                                  For $ii = 1 to $Queries[0] Step 1
                                         $_Error=""
                                         ;Compilar Objeto
                                         $arc=$GRuta&"\"&$Modulos[$i]&"\"&$Queries[$ii]
                                         ;$arcc=FileOpen($arc,256) ;256 with no bom
                                         $RS.Open(FileRead($arc),$Conn)
                                         Sleep(100)
                                         _GUICtrlEdit_AppendText($idEdit,$_Descripcion & @CRLF)
                                         ;FileClose($arc)
                                         If $_Error="" Then MsgBox(0,"","Archivo ok",1),
                                         If $_Error<>"" Then MsgBox(0,"","Archivo fail",1)
                                  Next
                           Next

                          ;ciclo
                          MsgBox("","Terminado",0)
                          ;
        EndSwitch

This paste is large and only partially shown.
View full paste

View raw paste Reply