Portal    Foro    Buscar    FAQ    Registrarse    Conectarse

Portal » Foro » Gambas » General

Fecha y hora actual: Domingo, 28 Abril 2024, 06:58 • Todas las horas son UTC + 1 Hora
Ver tema anterior Temas recientes Habilitar biblioteca Descargar tema Versión imprimible Correo a un amigo Ver siguiente tema

Error al Importar Proyecto de Gambas 2 a Gambas 3.1


Publicar nuevo tema  Responder al tema  		Página 1 de 1
 
 
Error al Importar Proyecto de Gambas 2 a Gambas 3.1
Autor Mensaje
Desconectado homny Sexo: Masculino
Usuario
Usuario
avatar
Registrado: Enero 2011
Mensajes: 18
Edad: 40
Ubicación: venezuela.png Cumaná, edo. Sucre
 
 
Responder citando   Descargar mensaje  
Mensaje Error al Importar Proyecto de Gambas 2 a Gambas 3.1 
 
al tratar de convetir el proyecto de gambas2 a gambas 3.1 me da un error: No es posible abrir un archivo binario (imposible convertir planteles.class  not an objet  CComponent.GetClassSymbols.1241)

hay una incompatibilidad, me dice que lo va a convertir y luego da este error.

Ayuda por favor, a todos los gamberos...
 



 
#1  Domingo, 15 Abril 2012, 17:43
homny - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Desconectado jguardon Sexo: Masculino
Administrador
Administrador
avatar
Registrado: Septiembre 2009
Mensajes: 2708
Edad: 57
Ubicación: spain.png Granada
 
 
Responder citando   Descargar mensaje  
Mensaje Re: Error al Importar Proyecto de Gambas 2 a Gambas 3.1 
 
¿Qué ocurre entonces?. Finalmente ¿importa el proyecto o se queda a medias? Normalmente la importación intenta corregir algunas diferencias en el lenguaje e introduce comentarios donde haya habido cambios. Puede que haya encontrado algo imprevisto...

Sin ver el código de la clase implicada (planteles.class), es difícil saber qué está pasando, aunque reconozco que el error no es demasiado explicativo.

Saludos
 




===================
Jesús Guardón

Por favor, usemos el corrector ortográfico antes de pulsar el botón "Enviar".

"uo ǝs ʇɐu pıɟıɔıן ɐdɹǝupǝɹ ɐ dɹoƃɹɐɯɐɹ, soןo ɥɐʎ bnǝ dɹodouǝɹsǝןo"
 
#2  Domingo, 15 Abril 2012, 18:56
jguardon - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Desconectado homny Sexo: Masculino
Usuario
Usuario
avatar
Registrado: Enero 2011
Mensajes: 18
Edad: 40
Ubicación: venezuela.png Cumaná, edo. Sucre
 
 
Responder citando   Descargar mensaje  
Mensaje Re: Error Al Importar Proyecto De Gambas 2 A Gambas 3.1 
 
este es el código hermano...

Código: [Descargar] [Ocultar]
  1. ' gambas class file
      
  2. PUBLIC hconn AS Connection
      
  3. PUBLIC hresult AS Result
      
  4. PUBLIC hresultparro AS Result
      
  5. PUBLIC hresultcontar AS Result
      
  6. PUBLIC buscaregis AS Result
      
  7. PUBLIC regisfiltrado AS Result
      
  8. PUBLIC buscaregisparroquia AS Result
      
  9. PRIVATE clave AS String
      
  10. PUBLIC plantel AS String
      
  11. PUBLIC ubicacion AS String
      
  12. PUBLIC ner AS String
      
  13. PUBLIC telefono AS String
      
  14. PUBLIC correo AS String
      
  15. PUBLIC observacion AS String
      
  16. PUBLIC s AS Integer
      
  17. PUBLIC valor1 AS String
      
  18. PUBLIC sw AS Integer
      
  19. PRIVATE sumando AS Integer
      
  20. PRIVATE sumando2 AS Integer
      
  21. PUBLIC textoparroquia AS String
      
  22. PRIVATE suiche AS Integer
      
  23.  
  24. PUBLIC SUB abriendo()
      
  25.   tablaplanteles.Clear()
      
  26.  IF conectarbase() THEN RETURN
      
  27.   tablaplanteles.Columns.Count = 4
      
  28.  '---------definir los campos---------------
      
  29.   tablaplanteles.Columns[0].Text = "Escuela"
      
  30.  'tablaplanteles.Columns[0].Alignment = 2
      
  31.   tablaplanteles.Columns[1].Text = "Ner"
      
  32.   tablaplanteles.Columns[2].Text = "Ubicación"
      
  33.   tablaplanteles.Columns[3].Text = "Observación"
      
  34.  
      
  35.  IF combomuni.Text = "TODOS" THEN
      
  36.     hresult = hconn.Exec("select * from escuelas order by escuela asc")
      
  37.     sw = 0
      
  38.  ELSE
      
  39.     IF variablesglobales.sw2 = 0 THEN  
      
  40.       hresultparro = hconn.Exec("select * from parroquia where codigomunicipio = '" & txtmuni.Text & "' and parroquia = '" & comboparroquia.Text & "'")
      
  41.     ELSE
      
  42.       hresultparro = hconn.Exec("select * from parroquia where codigomunicipio = '" & txtmuni.Text & "' and parroquia = '" & nuevo.txtparroquia.Text & "'")
      
  43.     ENDIF  
      
  44.     IF hresultparro.Count <> 0 THEN
      
  45.       hresult = hconn.Exec("select * from escuelas where codigomunicipio = '" & txtmuni.Text & "' and codigoparroquia = '" & hresultparro!codigoparroquia & "' order by escuela asc")
      
  46.       IF variablesglobales.sw2 = 1 THEN
      
  47.         comboparroquia.Text = nuevo.txtparroquia.Text
      
  48.       ENDIF  
      
  49.     ELSE
      
  50.         sw = 1
      
  51.     ENDIF 
      
  52.  ENDIF
      
  53.  
      
  54.  IF sw = 0 THEN
      
  55.     DO WHILE hresult.Available
      
  56.  
      
  57.       clave = hresult["codigoescuelagenerado"]
      
  58.     
      
  59.       tablaplanteles.Add(clave, clave)
      
  60.       tablaplanteles[clave][0] = hresult["escuela"]
      
  61.       tablaplanteles[clave][1] = hresult["plner"]
      
  62.       tablaplanteles[clave][2] = hresult["ubicacion"]
      
  63.       tablaplanteles[clave][3] = hresult["observacion"]
      
  64.     
      
  65.       hresult.MoveNext
      
  66.     LOOP
      
  67.     tablaplanteles.SetFocus()
      
  68.  ELSE
      
  69.     sw = 0
      
  70.  ENDIF
      
  71. END
      
  72.  
  73.  
  74. PUBLIC SUB abriendo2()
      
  75.   tablaplanteles.Clear()
      
  76.  IF conectarbase() THEN RETURN
      
  77.   tablaplanteles.Columns.Count = 4
      
  78.  '---------definir los campos---------------
      
  79.   tablaplanteles.Columns[0].Text = "Escuela"
      
  80.  'tablaplanteles.Columns[0].Alignment = 2
      
  81.   tablaplanteles.Columns[1].Text = "PlNer"
      
  82.   tablaplanteles.Columns[2].Text = "Ubicación"
      
  83.   tablaplanteles.Columns[3].Text = "Observación"
      
  84.  
      
  85.  IF combomuni.Text = "TODOS" THEN
      
  86.     hresult = hconn.Exec("select * from escuelas order by escuela asc")
      
  87.  ELSE 
      
  88.     hresultparro = hconn.Exec("select * from parroquia where codigomunicipio = '" & txtmuni.Text & "' and parroquia = '" & comboparroquia.Text & "' ")
      
  89.     IF hresultparro.Count <> 0 THEN
      
  90.       hresult = hconn.Exec("select * from escuelas where codigomunicipio = '" & txtmuni.Text & "' and codigoparroquia = '" & hresultparro!codigoparroquia & "' order by escuela asc")
      
  91.     ELSE
      
  92.         sw = 1
      
  93.     ENDIF
      
  94.  ENDIF
      
  95.  
      
  96.  IF sw = 0 THEN
      
  97.     DO WHILE hresult.Available
      
  98.     
      
  99.       clave = hresult["codigoescuelagenerado"]
      
  100.       
      
  101.       tablaplanteles.Add(clave, clave)
      
  102.       
      
  103.       tablaplanteles[clave][0] = hresult["escuela"]
      
  104.       tablaplanteles[clave][1] = hresult["plner"]
      
  105.       tablaplanteles[clave][2] = hresult["ubicacion"]
      
  106.       tablaplanteles[clave][3] = hresult["observacion"]
      
  107.       
      
  108.       hresult.MoveNext
      
  109.     LOOP
      
  110.  ELSE
      
  111.     sw = 0
      
  112.  ENDIF
      
  113. END
      
  114.  
  115. PUBLIC SUB abriendofiltrar()
      
  116.   tablaplanteles.Clear()
      
  117.  IF conectarbase() THEN RETURN
      
  118.   tablaplanteles.Columns.Count = 4
      
  119.  '---------definir los campos---------------
      
  120.   tablaplanteles.Columns[0].Text = "Escuela"
      
  121.  'tablaplanteles.Columns[0].Alignment = 2
      
  122.   tablaplanteles.Columns[1].Text = "PlNer"
      
  123.   tablaplanteles.Columns[2].Text = "Ubicación"
      
  124.   tablaplanteles.Columns[3].Text = "Observación"
      
  125.  
      
  126.  IF combofiltro.Text = "Escuela" THEN
      
  127.     hresult = hconn.Exec("select * from escuelas where escuela like '" & txtfiltro.Text & "%" "' and codigomunicipio = '" & txtmuni.Text & "' order by escuela asc")
      
  128.  ELSE IF combofiltro.Text = "Ner" THEN
      
  129.     hresult = hconn.Exec("select * from escuelas where ner like '" & (txtfiltro.Text) & "%" "' and codigomunicipio = '" & txtmuni.Text & "' order by ner asc")
      
  130.  ELSE IF combofiltro.Text = "Ubicación" THEN
      
  131.     hresult = hconn.Exec("select * from escuelas where ubicacion like '" & txtfiltro.Text & "%" "' and codigomunicipio = '" & txtmuni.Text & "' order by ubicacion asc")
      
  132.  ELSE IF combofiltro.Text = "Observación" THEN
      
  133.     hresult = hconn.Exec("select * from escuelas where observacion like '" & txtfiltro.Text & "%" "' and codigomunicipio = '" & txtmuni.Text & "' order by observacion asc")
      
  134.  ENDIF
      
  135.  
      
  136.  DO WHILE hresult.Available
      
  137.     clave = hresult["codigoescuelagenerado"]
      
  138.     
      
  139.     tablaplanteles.Add(clave, clave)
      
  140.     tablaplanteles[clave][0] = hresult["escuela"]
      
  141.     tablaplanteles[clave][1] = hresult["plner"]
      
  142.     tablaplanteles[clave][2] = hresult["ubicacion"]
      
  143.     tablaplanteles[clave][3] = hresult["observacion"]
      
  144.     
      
  145.     hresult.MoveNext
      
  146.  LOOP
      
  147.  
      
  148. END
      
  149.  
  150. PUBLIC SUB totales()
      
  151.  IF combomuni.Text = "TODOS" THEN
      
  152.     hresultcontar = hconn.Exec("select count(*) as total from escuelas")
      
  153.     lblescuelas.Text = "Total Escuelas Mcpio.:" & " " & hresultcontar!total
      
  154.     lblescuelas2.Text = "Total Escuelas Parroq.:" & " " & hresultcontar!total
      
  155.  ELSE
      
  156.     hresultcontar = hconn.Exec("select count(*) as total from escuelas where codigomunicipio = '" & txtmuni.Text & "' ")
      
  157.     IF hresultcontar.Count <> 0 THEN
      
  158.       lblescuelas.Text = "Total Escuelas Mcpio.:" & " " & hresultcontar!total
      
  159.     ELSE
      
  160.       lblescuelas.Text = "Total Escuelas Mcpio.:" & " " & "0"
      
  161.     ENDIF
      
  162.     buscaregisparroquia = hconn.Exec("select * from parroquia where parroquia = '" & comboparroquia.Text & "' and codigomunicipio = '" & txtmuni.Text & "'")
      
  163.     IF buscaregisparroquia.Count <> 0 THEN
      
  164.       hresultparro = hconn.Exec("select count(*) as total from escuelas where codigomunicipio = '" & txtmuni.Text & "' and codigoparroquia = '" & buscaregisparroquia!codigoparroquia & "' ")
      
  165.       IF hresultparro.Count <> 0 THEN
      
  166.         lblescuelas2.Text = "Total Escuelas Parroq.:" & " " & hresultparro!total
      
  167.       ENDIF
      
  168.     ELSE
      
  169.         lblescuelas2.Text = "Total Escuelas Parroq.:" & " " & "0"
      
  170.     ENDIF 
      
  171.  ENDIF
      
  172.  'cuenta matrículas--------------------------------------------------------------
      
  173.   hresultcontar = hconn.Exec("select sum(matriculainihembras) AS suma1, sum(matriculafinihembras) AS suma2, sum(matriculainivarones) AS suma3, sum(matriculafinivarones) as suma4 from matriculas where codigoescuelagenerado = '" & txtcodigoescugene.Text & "' ")
      
  174.  IF hresultcontar.Count <> 0 THEN
      
  175.       sumando = 0
      
  176.       sumando2 = 0
      
  177.       suiche = 0
      
  178.       IF NOT IsNull(hresultcontar!suma1) OR hresultcontar!suma1 <> "" THEN
      
  179.         sumando = hresultcontar!suma1
      
  180.       ENDIF
      
  181.         
      
  182.       IF NOT IsNull(hresultcontar!suma2) OR hresultcontar!suma2 <> "" THEN
      
  183.         sumando2 = sumando2 + hresultcontar!suma2
      
  184.         suiche = 1
      
  185.       ENDIF 
      
  186.       
      
  187.       IF NOT IsNull(hresultcontar!suma3) OR hresultcontar!suma3 <> "" THEN
      
  188.         sumando = sumando + hresultcontar!suma3
      
  189.       ENDIF
      
  190.       
      
  191.       IF NOT IsNull(hresultcontar!suma4) OR hresultcontar!suma4 <> "" THEN
      
  192.         sumando2 = sumando2 + hresultcontar!suma4
      
  193.         suiche = 1
      
  194.       ENDIF
      
  195.       'IF (NOT IsNull(hresultcontar!suma2) OR (hresultcontar!suma2)) <> "" OR (NOT IsNull(hresultcontar!suma4) OR (hresultcontar!suma4) <> "") THEN
      
  196.       IF suiche = 1 THEN
      
  197.         lblmatricula.Text = "Total Matrícula:" & " " & sumando2
      
  198.       ELSE
      
  199.         lblmatricula.Text = "Total Matrícula:" & " " & sumando
      
  200.       ENDIF
      
  201.  ELSE
      
  202.       lblmatricula.Text = "Total Matrícula:" & " " & "0"
      
  203.  ENDIF
      

  204.   
  205.   hresultcontar = hconn.Exec("select count(*) as total from personal where codigoescuelagenerado = '" & txtcodigoescugene.Text & "' ")
      
  206.  IF hresultcontar.Count <> 0 THEN
      
  207.       lbldocente.Text = "Total Docentes:" & " " & hresultcontar!total
      
  208.  ELSE
      
  209.       lbldocente.Text = "Total Docentes:" & " " & "0"
      
  210.  ENDIF
      
  211. END
      
  212.  
  213. 'cuenta personal--------------------------------
      
  214. PUBLIC SUB totalesfiltro()
      
  215.  IF combomuni.Text = "TODOS" THEN
      
  216.     hresultcontar = hconn.Exec("select count(*) as total from escuelas where escuela like '" & txtfiltro.Text & "%" "'")
      
  217.     lblescuelas.Text = "Total Escuelas:" & " " & hresultcontar!total
      
  218.  ELSE
      
  219.       IF combofiltro.Text = "Escuela" THEN
      
  220.         hresultcontar = hconn.Exec("select count(*) as total from escuelas where escuela like '" & txtfiltro.Text & "%" "' and codigomunicipio = '" & txtmuni.Text & "' order by escuela asc")
      
  221.       ELSE IF combofiltro.Text = "Ner" THEN
      
  222.         hresultcontar = hconn.Exec("select count(*) as total from escuelas where ner like '" & (txtfiltro.Text) & "%" "' and codigomunicipio = '" & txtmuni.Text & "' order by ner asc")
      
  223.       ELSE IF combofiltro.Text = "Ubicación" THEN
      
  224.         hresultcontar = hconn.Exec("select count(*) as total from escuelas where ubicacion like '" & txtfiltro.Text & "%" "' and codigomunicipio = '" & txtmuni.Text & "' order by ubicacion asc")
      
  225.       ELSE IF combofiltro.Text = "Observación" THEN
      
  226.         hresultcontar = hconn.Exec("select count(*) as total from escuelas where observacion like '" & txtfiltro.Text & "%" "' and codigomunicipio = '" & txtmuni.Text & "' order by observacion asc")
      
  227.       ENDIF
      
  228.       IF hresultcontar.Count <> 0 THEN
      
  229.         lblescuelas.Text = "Total Escuelas:" & " " & hresultcontar!total
      
  230.       ELSE
      
  231.         lblescuelas.Text = "Total Escuelas:" & " " & "0"
      
  232.       ENDIF
      
  233.  ENDIF
      
  234. END
      
  235.  
  236. PUBLIC SUB LIMPIAR()
      
  237.  
      
  238.   txtcodigomuni.Text = ""
      
  239.   txtcodigoescu.Text = ""
      
  240.   txtcodigoescugene.Text = ""
      
  241.   txtplanteles.Text = ""
      
  242.   txtubicacion.Text = ""
      
  243.  'txtner.Text = ""
      
  244.   txttelefono.Text = ""
      
  245.   txtcorreo.Text = ""
      
  246.   txtobservacion.Text = ""
      
  247.   txtcodigoparroquia.Text = ""
      
  248.   txtplner.Text = ""
      
  249.  
      
  250. END
      
  251.  
  252. PRIVATE FUNCTION conectarbase() AS Boolean
      
  253.  
      
  254.     IF hconn <> NULL THEN RETURN FALSE
      
  255.     
      
  256.       hconn = NEW Connection
      
  257.       'hconn.Host = "/home/homny/programgambas/menuprobar/basedatos"
      
  258.       'hconn.Host = "/home/homny/programacióngambas/menuprobar/basedatos"
      
  259.       hconn.Host = Application.Path &/ "basedatos"
      
  260.       hconn.Type = "sqlite3"
      
  261.       hconn.Name = "matricula"
      
  262.       
      
  263.       'arch = OPEN Application.Path &/ "Data/partidos.fwc" FOR OUTPUT
      
  264.       TRY hconn.Open()
      
  265.       IF ERROR THEN
      
  266.         hconn = NULL
      
  267.         Message.Error("Error al conectar con la base de datos")
      
  268.         ME.Close
      
  269.         RETURN TRUE
      
  270.       ENDIF
      
  271.       RETURN FALSE
      
  272.  
      
  273. END
      
  274.  
  275. PRIVATE SUB cerrarconexion()
      
  276.     IF hconn = NULL THEN RETURN
      
  277.     hconn.Close()
      
  278.     hconn = NULL
      
  279. END
      
  280.  
  281. PUBLIC SUB bloquear()
      
  282.   txtcodigomuni.ReadOnly = TRUE
      
  283.   txtcodigoescu.ReadOnly = TRUE
      
  284.   txtcodigoescugene.ReadOnly = TRUE
      
  285.   txtplanteles.ReadOnly = TRUE
      
  286.   txtubicacion.ReadOnly = TRUE
      
  287.  'txtner.ReadOnly = TRUE
      
  288.   txttelefono.ReadOnly = TRUE
      
  289.   txtcorreo.ReadOnly = TRUE
      
  290.   txtobservacion.ReadOnly = TRUE
      
  291. END
      
  292.  
  293. PUBLIC SUB mostrardatosparroquia()
      
  294.  
      
  295.   hresultparro = hconn.Exec("select * from parroquia where codigomunicipio = '" & txtmuni.Text & "' and parroquia = '" & comboparroquia.Text & "'")
      
  296.  IF hresultparro.Count <> 0 THEN
      
  297.     hresult = hconn.Exec("select * from escuelas where codigomunicipio = '" & txtmuni.Text & "' and codigoparroquia = '" & hresultparro!codigoparroquia & "' order by escuela asc")
      
  298.  ELSE
      
  299.     
      
  300.  ENDIF 
      
  301.  IF hresult.Count = 0 THEN
      
  302.     Message.Info("Debes registrar escuela en el botón nuevo")
      
  303.     
      
  304.  ELSE
      
  305.     hresult.MoveFirst
      
  306.     txtcodigomuni.Text = hresult!codigomunicipio
      
  307.     txtcodigoescu.Text = hresult!codigoescuela
      
  308.     txtcodigoescugene.Text = hresult!codigoescuelagenerado
      
  309.     txtplanteles.Text = hresult!escuela
      
  310.     txtubicacion.Text = hresult!ubicacion
      
  311.     txtcodigoparroquia.Text = hresult!codigoparroquia
      
  312.     txtplner.Text = hresult!plner
      
  313.     txttelefono.Text = buscaregis!telefono
      
  314.     txtcorreo.Text = buscaregis!correo
      
  315.     txtobservacion.Text = hresult!observacion
      
  316.  ENDIF
      
  317. END
      
  318.  
  319. PUBLIC SUB mostrardatos2()
      
  320.  IF tablaplanteles.Current = NULL THEN
      
  321.     IF variablesglobales.activaformu = FALSE THEN
      
  322.       Message.Info("No hay escuelas en la base de datos, Verifique Administrador")
      
  323.       'QUIT
      
  324.       variablesglobales.var_muni = txtmuni.Text
      
  325.       variablesglobales.activaformu = TRUE
      
  326.       nuevo.Show
      
  327.       
      
  328.     ENDIF 
      
  329.     btnuevo.SetFocus
      
  330.  ELSE
      
  331.     hresult.MoveFirst
      
  332.     txtcodigomuni.Text = hresult!codigomunicipio
      
  333.     txtcodigoescu.Text = hresult!codigoescuela
      
  334.     txtcodigoescugene.Text = hresult!codigoescuelagenerado
      
  335.     txtplanteles.Text = hresult!escuela
      
  336.     txtubicacion.Text = hresult!ubicacion
      
  337.     txtcodigoparroquia.Text = hresult!codigoparroquia
      
  338.     txtplner.Text = hresult!plner
      
  339.     txttelefono.Text = buscaregis!telefono
      
  340.     txtcorreo.Text = buscaregis!correo
      
  341.     txtobservacion.Text = hresult!observacion
      
  342.     'tablaplanteles.Current.Selected
      
  343.  ENDIF
      
  344.   variablesglobales.activaformu = TRUE
      
  345. END
      
  346.  
  347. PUBLIC SUB mostrardatos3()
      
  348.   buscaregis = hconn.Exec("select * from escuelas where codigoescuelagenerado  = &1", tablaplanteles.Current.Key)
      
  349.   txtcodigomuni.Text = buscaregis!codigomunicipio
      
  350.   txtcodigoescu.Text = buscaregis!codigoescuela
      
  351.   txtcodigoescugene.Text = buscaregis!codigoescuelagenerado
      
  352.   txtplanteles.Text = buscaregis!escuela
      
  353.   txtubicacion.Text = buscaregis!ubicacion
      
  354.   txtcodigoparroquia.Text = buscaregis!codigoparroquia
      
  355.   txtplner.Text = buscaregis!plner
      
  356.   txttelefono.Text = buscaregis!telefono
      
  357.   txtcorreo.Text = buscaregis!correo
      
  358.   txtobservacion.Text = buscaregis!observacion
      
  359. END
      
  360.  
  361. PUBLIC SUB mostrardatosfiltro()
      
  362.  IF hresult.Count = 0 THEN
      
  363.     'combofiltro.Text = valor1
      
  364.     LIMPIAR
      
  365.  ELSE
      
  366.     hresult.MoveFirst
      
  367.     txtcodigomuni.Text = hresult!codigomunicipio
      
  368.     txtcodigoescu.Text = hresult!codigoescuela
      
  369.     txtcodigoescugene.Text = hresult!codigoescuelagenerado
      
  370.     txtplanteles.Text = hresult!escuela
      
  371.     txtubicacion.Text = hresult!ubicacion
      
  372.     txtcodigoparroquia.Text = buscaregis!codigoparroquia
      
  373.     txtplner.Text = buscaregis!plner
      
  374.     txttelefono.Text = buscaregis!telefono
      
  375.     txtcorreo.Text = buscaregis!correo
      
  376.     txtobservacion.Text = hresult!observacion
      
  377.  ENDIF
      
  378. END
      
  379.  
  380.  
  381. PUBLIC SUB mostrardatos()
      
  382.  
      
  383.  DIM s AS Integer
      
  384.  IF tablaplanteles.Current = NULL THEN RETURN
      
  385.  IF tablaplanteles.Current.Selected = FALSE THEN
      
  386.     Message.Info("Para eliminar, debe seleccionar un registro")
      
  387.     RETURN
      
  388.  ENDIF
      
  389.   s = Message.Question("¿Esta seguro desea borrar registro?", "Si", "No")
      
  390.  
      
  391.  IF s = 1 THEN
      
  392.     
      
  393.     IF conectarbase() THEN RETURN
      
  394.     
      
  395.     buscaregis = hconn.Exec("select * from escuelas  where codigoescuelasgenerado  = &1", tablaplanteles.Current.Key)
      
  396.     
      
  397.     IF ERROR THEN
      
  398.       Message.Error("Imposible borrar el registro")
      
  399.     ELSE
      
  400.       IF tablaplanteles.Current.Selected = FALSE THEN
      
  401.         Message.Info("Para eliminar seleccione un registro")
      
  402.       ELSE
      
  403.         'tablaplanteles.Current.Delete()
      
  404.       ENDIF
      
  405.       
      
  406.     ENDIF
      
  407.     'cerrarconexion()
      
  408.  ENDIF  
      
  409.  'tabla.Refresh()
      
  410.  'tabla.SetFocus()
      
  411.  'tabla.Current.MoveFirst
      
  412.   txtcodigomuni.Text = buscaregis!codigomunicipio
      
  413.   txtcodigoescu.Text = buscaregis!codigoescu
      
  414.  
      
  415. END
      
  416.  
  417. PUBLIC SUB cargaparroquia()
      
  418.  'comboparroquia.Enabled = TRUE
      
  419.   comboparroquia.Clear()
      
  420.  IF conectarbase() THEN RETURN
      
  421.   buscaregisparroquia = hconn.Exec("select * from parroquia")
      
  422.  IF buscaregisparroquia.Count = 0 THEN
      
  423.  ELSE 
      
  424.     'hresultparro = hconn.Exec("select codigomunicipio, parroquia from parroquia group by parroquia having count(parroquia) > 0 and codigomunicipio = '" & txtmuni.text & "' ")
      
  425.     hresultparro = hconn.Exec("select codigomunicipio, parroquia from parroquia group by parroquia having count(parroquia) > 0 ")
      
  426.     WHILE hresultparro.Available
      
  427.       comboparroquia.Add(hresultparro!parroquia)
      
  428.       hresultparro.MoveNext
      
  429.     WEND 
      
  430.     'comboparroquia.ReadOnly = FALSE
      
  431.     'comboparroquia.Text = comboparroquia.List(0)
      
  432.  ENDIF
      
  433. END
      
  434.  
  435. PUBLIC SUB cargaparroquia2()
      
  436.   comboparroquia.Clear()
      
  437.  IF conectarbase() THEN RETURN
      
  438.   buscaregisparroquia = hconn.Exec("select * from parroquia where codigomunicipio = '" & txtmuni.Text & "' ")
      
  439.  IF buscaregisparroquia.Count = 0 THEN
      
  440.     Message.Info("Municipio sin parroquia, registre en botón nuevo")
      
  441.     desactivabotonestotal
      
  442.     btnuevo.Enabled = TRUE
      
  443.  ELSE 
      
  444.     activabotones
      
  445.     hresultparro = hconn.Exec("select codigomunicipio, parroquia from parroquia group by parroquia having count(parroquia) > 0 and codigomunicipio = '" & txtmuni.Text & "' ")
      
  446.     WHILE hresultparro.Available
      
  447.       comboparroquia.Add(hresultparro!parroquia)
      
  448.       hresultparro.MoveNext
      
  449.     WEND 
      
  450.     'comboparroquia.ReadOnly = FALSE
      
  451.     'comboparroquia.Text = comboparroquia.List(0)
      
  452.  ENDIF
      
  453.  
      
  454. END
      
  455.  
  456. PUBLIC SUB Form_Open()
      
  457.  
  458.  ME.Center
      
  459.   sw = 0
      
  460.   variablesglobales.sw2 = 0
      
  461.   vercodimuni
      
  462.   cargaparroquia2
      
  463.   abriendo
      
  464.  'totales
      
  465.   bloquear
      
  466.   variablesglobales.activaformu = FALSE
      
  467.   variablesglobales.var_matriparro = FALSE
      
  468. END
      
  469.  
  470. PUBLIC SUB Form_Activate()
      
  471.   mostrardatos2
      
  472.   totales
      
  473.   bloquear
      
  474.   vercodiparroquia
      
  475.  'IF variablesglobales.sw3 = 0 AND variablesglobales.sw2 = 0 THEN
      
  476.  IF nuevo.Enabled = FALSE
      
  477.     cargaparroquia2
      
  478.  ELSE
      
  479.     'variablesglobales.sw3 = 1
      
  480.  ENDIF
      
  481.  IF variablesglobales.var_matriparro = TRUE THEN
      
  482.     comboparroquia.Text = textoparroquia
      
  483.     variablesglobales.var_matriparro = FALSE
      
  484.  ENDIF
      
  485. END
      
  486.  
  487.  
  488. PUBLIC SUB vercodimuni()
      
  489.  
      
  490.  IF combomuni.Text = "ANDRÉS ELOY BLANCO" THEN
      
  491.     txtmuni.Text = "01"
      
  492.  ELSE IF combomuni.Text = "ANDRÉS MATA" THEN
      
  493.     txtmuni.Text = "02"
      
  494.  ELSE IF combomuni.Text = "ARISMENDI" THEN
      
  495.     txtmuni.Text = "03"
      
  496.  ELSE IF combomuni.Text = "BENÍTEZ" THEN
      
  497.     txtmuni.Text = "04"
      
  498.  ELSE IF combomuni.Text = "BERMÚDEZ" THEN
      
  499.     txtmuni.Text = "05"
      
  500.  ELSE IF combomuni.Text = "BOLÍVAR" THEN
      
  501.     txtmuni.Text = "06"
      
  502.  ELSE IF combomuni.Text = "CAJIGAL" THEN
      
  503.     txtmuni.Text = "07"
      
  504.  ELSE IF combomuni.Text = "CRUZ SALMERÓN ACOSTA" THEN
      
  505.     txtmuni.Text = "08"
      
  506.  ELSE IF combomuni.Text = "LIBERTADOR" THEN
      
  507.     txtmuni.Text = "09"
      
  508.  ELSE IF combomuni.Text = "MARIÑO" THEN
      
  509.     txtmuni.Text = "10"
      
  510.  ELSE IF combomuni.Text = "MEJIA" THEN
      
  511.     txtmuni.Text = "11"
      
  512.  ELSE IF combomuni.Text = "MONTES" THEN
      
  513.     txtmuni.Text = "12"
      
  514.  ELSE IF combomuni.Text = "RIBERO" THEN
      
  515.     txtmuni.Text = "13"
      
  516.  ELSE IF combomuni.Text = "SUCRE" THEN
      
  517.     txtmuni.Text = "14"
      
  518.  ELSE IF combomuni.Text = "VALDEZ" THEN
      
  519.     txtmuni.Text = "15"
      
  520.  ENDIF
      
  521. END
      
  522.  
  523. PUBLIC SUB vercodiparroquia()
      
  524.  
      
  525.   buscaregisparroquia = hconn.Exec("select * from parroquia")
      
  526.  IF buscaregisparroquia.Count = 0 THEN
      
  527.     
      
  528.     'Message.Question("Debes Registrar Parroquia en botón nuevo")
      
  529.     desactivabotonestotal
      
  530.     btnuevo.Enabled = TRUE
      
  531.     tablaplanteles.Clear()
      
  532.     LIMPIAR
      
  533.     combomuni.Enabled = TRUE
      
  534.     comboparroquia.Enabled = FALSE
      
  535.     
      
  536.  ELSE
      
  537.     btmodificar.Enabled = TRUE
      
  538.     btelimina.Enabled = TRUE
      
  539.     btmatricula.Enabled = TRUE
      
  540.     btpersonal.Enabled = TRUE
      
  541.  
      
  542.  ENDIF
      
  543. END
      
  544.  
  545. PUBLIC SUB combomuni_Click()
      
  546.   vercodimuni
      
  547.   cargaparroquia2
      
  548.   LIMPIAR
      
  549.   abriendo
      
  550.   totales
      
  551.   combofiltro.Visible = FALSE
      
  552.   txtfiltro.Visible = FALSE
      
  553.   txtfiltro.Text = ""
      
  554.   tablaplanteles.Refresh
      
  555.  
      
  556.   bloquear
      
  557. END
      
  558.  
  559. PUBLIC SUB tablaplanteles_Click()
      
  560.  
  561.   mostrardatos3
      
  562.   totales
      
  563.  
      
  564. END
      
  565.  
  566. PUBLIC SUB btsalida_Click()
      
  567.  
      
  568.   cerrarconexion
      
  569.   Planteles.Close
      
  570.  
  571. END
      
  572.  
  573. PUBLIC SUB desbloquea()
      
  574.   txtplanteles.ReadOnly = FALSE
      
  575.   txtubicacion.ReadOnly = FALSE
      
  576.   txttelefono.ReadOnly = FALSE
      
  577.   txtcorreo.ReadOnly = FALSE
      
  578.   txtobservacion.ReadOnly = FALSE
      
  579. END
      
  580.  
  581.  
  582. PUBLIC SUB btmodificar_Click()
      
  583.   desactivabotones
      
  584.   plantel = txtplanteles.Text
      
  585.   ubicacion = txtubicacion.Text
      
  586.   telefono = txttelefono.Text
      
  587.   correo = txtcorreo.Text
      
  588.   observacion = txtobservacion.Text
      
  589.   desbloquea
      
  590.   txtplanteles.SetFocus
      
  591. END
      
  592.  
  593. PUBLIC SUB desactivafiltro()
      
  594.  IF combofiltro.Visible = TRUE THEN
      
  595.     combofiltro.Enabled = FALSE
      
  596.     txtfiltro.Enabled = FALSE
      
  597.  ELSE
      
  598.  ENDIF
      
  599. END
      
  600.  
  601. PUBLIC SUB desactivabotonestotal()
      
  602.   btaceptar.Enabled = FALSE
      
  603.   btcancelar.Enabled = FALSE
      
  604.   btmodificar.Enabled = FALSE
      
  605.   btelimina.Enabled = FALSE
      
  606.   btnuevo.Enabled = FALSE
      
  607.   btmatricula.Enabled = FALSE
      
  608.   btpersonal.Enabled = FALSE
      
  609.   btimprimir.Enabled = FALSE
      
  610.   btfiltrar.Enabled = FALSE
      
  611.   desactivafiltro
      
  612. END
      
  613.  
  614. PUBLIC SUB desactivabotones()
      
  615.   btaceptar.Enabled = TRUE
      
  616.   btcancelar.Enabled = TRUE
      
  617.   btmodificar.Enabled = FALSE
      
  618.   btelimina.Enabled = FALSE
      
  619.   btnuevo.Enabled = FALSE
      
  620.   btmatricula.Enabled = FALSE
      
  621.   btpersonal.Enabled = FALSE
      
  622.   btimprimir.Enabled = FALSE
      
  623.   btfiltrar.Enabled = FALSE
      
  624.   desactivafiltro
      
  625. END
      
  626.  
  627. PUBLIC SUB activabotones()
      
  628.   btaceptar.Enabled = FALSE
      
  629.   btcancelar.Enabled = FALSE
      
  630.   btmodificar.Enabled = TRUE
      
  631.   btelimina.Enabled = TRUE
      
  632.   btnuevo.Enabled = TRUE
      
  633.   btmatricula.Enabled = TRUE
      
  634.   btpersonal.Enabled = TRUE
      
  635.   btimprimir.Enabled = TRUE
      
  636.   btfiltrar.Enabled = TRUE
      
  637.  IF combofiltro.Enabled = FALSE THEN
      
  638.     combofiltro.Enabled = TRUE
      
  639.     txtfiltro.Enabled = TRUE
      
  640.  ENDIF
      
  641. END
      
  642.  
  643. PUBLIC SUB cancelando()
      
  644.   activabotones
      
  645.   txtplanteles.Text = plantel
      
  646.   txtubicacion.Text = ubicacion
      
  647.   txttelefono.Text = telefono
      
  648.   txtcorreo.Text = correo
      
  649.   txtobservacion.Text = observacion
      
  650.   bloquear
      
  651.   btmodificar.SetFocus
      
  652. END
      
  653.  
  654. PUBLIC SUB cancelando2()
      
  655.   activabotones
      
  656.   bloquear
      
  657.   btmodificar.SetFocus
      
  658. END
      
  659.  
  660. PUBLIC SUB btcancelar_Click()
      
  661.   cancelando
      
  662. END
      
  663.  
  664. PUBLIC SUB txtplanteles_Change()
      
  665.   txtplanteles.Text = UCase(txtplanteles.Text)
      
  666. END
      
  667.  
  668. PUBLIC SUB txtplanteles_KeyPress()
      
  669.  
  670.  IF Key.Code = Key.Enter THEN
      
  671.     IF txtplanteles.Text = "" THEN
      
  672.       txtplanteles.SetFocus
      
  673.     ELSE
      
  674.       txtubicacion.SetFocus
      
  675.     ENDIF
      
  676.  ENDIF
      
  677.  
  678. END
      
  679.  
  680. PUBLIC SUB txtubicacion_Change()
      
  681.   txtubicacion.Text = UCase(txtubicacion.Text)
      
  682. END
      
  683.  
  684. PUBLIC SUB txtubicacion_KeyPress()
      
  685.  IF Key.Code = Key.Enter THEN
      
  686. '    txtner.SetFocus
      
  687.  ENDIF
      
  688. END
      
  689.  
  690. PUBLIC SUB txtner_KeyPress()
      
  691.  
  692.  IF Key.Code = Key.Enter OR Key.Code = 65293 THEN
      
  693.     txttelefono.SetFocus
      
  694.  ELSE
      
  695.     Solo_Numeros(Key.Code)
      
  696.  ENDIF
      
  697.  
  698. END
      
  699.  
  700. PUBLIC SUB txtobservacion_Change()
      
  701.   txtobservacion.Text = UCase(txtobservacion.Text)
      
  702. END
      
  703.  
  704. PUBLIC SUB txtobservacion_KeyPress()
      
  705.  IF Key.Code = Key.Enter OR Key.Code = 65293 THEN
      
  706.     btaceptar.SetFocus
      
  707.  ENDIF
      
  708. END
      
  709.  
  710. PUBLIC SUB btaceptar_Click()
      
  711.     IF txtplanteles.Text = "" THEN
      
  712.       Message.Info("Debe registrar nombre escuela")
      
  713.       txtplanteles.Text = plantel
      
  714.       txtplanteles.SetFocus
      
  715.     ELSE
      
  716.       s = Message.Question("¿Realmente desea modificar datos ?", "Si", "No")
      
  717.       IF s = 1 THEN
      
  718.         IF txtplanteles.Text = "" THEN
      
  719.           Message.Info("Debe llenar la casilla planteles")
      
  720.           txtplanteles.SetFocus
      
  721.         ELSE 
      
  722.           buscaregis = hconn.Edit("escuelas", "codigoescuelagenerado = '" & txtcodigoescugene.Text & "' ")
      
  723.           buscaregis["codigomunicipio"] = txtcodigomuni.Text
      
  724.           buscaregis["codigoescuela"] = txtcodigoescu.Text
      
  725.           buscaregis["codigoescuelagenerado"] = txtcodigoescugene.Text
      
  726.           buscaregis["escuela"] = txtplanteles.Text
      
  727.           buscaregis["ubicacion"] = txtubicacion.Text
      
  728.           buscaregis["plner"] = txtplner.Text
      
  729.           buscaregis["telefono"] = txttelefono.Text
      
  730.           buscaregis["correo"] = txtcorreo.Text
      
  731.           buscaregis["observacion"] = txtobservacion.Text
      
  732.           buscaregis.Update
      
  733.           abriendo2
      
  734.           cancelando2
      
  735.         ENDIF
      
  736.       ELSE
      
  737.       ENDIF
      
  738.     ENDIF
      
  739. END
      
  740.  
  741. PUBLIC SUB btelimina_Click()
      
  742.  
  743.  DIM s AS Integer
      
  744.  IF tablaplanteles.Current = NULL THEN RETURN
      
  745.  IF tablaplanteles.Current.Selected = FALSE THEN
      
  746.     Message.Info("Para eliminar, debe seleccionar un registro")
      
  747.     RETURN
      
  748.  ENDIF
      
  749.   s = Message.Question("¿Esta seguro desea borrar registro?", "Si", "No")
      
  750.  
      
  751.  IF s = 1 THEN
      
  752.     
      
  753.     TRY hconn.Exec("delete from escuelas where codigoescuelagenerado =&1", tablaplanteles.Current.Key)
      
  754.     IF ERROR THEN
      
  755.       Message.Error("Imposible borrar el registro")
      
  756.     ELSE
      
  757.       IF tablaplanteles.Current.Selected = FALSE THEN
      
  758.         Message.Info("Para eliminar seleccione un registro")
      
  759.       ELSE
      
  760.         tablaplanteles.Current.Delete()
      
  761.         abriendo
      
  762.       ENDIF
      
  763.       
      
  764.     ENDIF
      
  765.  ENDIF 
      
  766.  
  767. END
      
  768.  
  769. PUBLIC SUB btnuevo_Click()
      
  770.  IF combomuni.Text = "TODOS" THEN
      
  771.     Message.Warning("Debe seleccionar un Municipio")
      
  772.     combomuni.SetFocus
      
  773.  ELSE
      
  774.     variablesglobales.var_muni = txtmuni.Text
      
  775.     variablesglobales.activaformu = TRUE
      
  776.     variablesglobales.sw2 = 1
      
  777.     nuevo.Show()
      
  778.  ENDIF
      
  779. END
      
  780.  
  781. PUBLIC SUB btfiltrar_Click()
      
  782.  IF combofiltro.Visible = FALSE THEN
      
  783.     abriendo
      
  784.     combofiltro.Visible = TRUE
      
  785.     txtfiltro.Visible = TRUE
      
  786.     combofiltro.Text = "Escuela"
      
  787.     txtfiltro.SetFocus
      
  788.  ELSE
      
  789.     abriendo
      
  790.     combofiltro.Visible = FALSE
      
  791.     txtfiltro.Visible = FALSE
      
  792.  ENDIF
      
  793. END
      
  794.  
  795. PUBLIC SUB txtfiltro_Change()
      
  796.   totalesfiltro
      
  797.  IF combofiltro.Text = "Escuela" THEN
      
  798.     txtfiltro.Text = UCase(txtfiltro.Text)
      
  799.     abriendofiltrar
      
  800.     mostrardatosfiltro
      
  801.  ELSE IF combofiltro.Text = "plNer" THEN
      
  802.     abriendofiltrar
      
  803.     mostrardatosfiltro
      
  804.  ELSE IF combofiltro.Text = "Ubicación" THEN
      
  805.     txtfiltro.Text = UCase(txtfiltro.Text)
      
  806.     abriendofiltrar
      
  807.     mostrardatosfiltro
      
  808.  ELSE IF combofiltro.Text = "Observación" THEN
      
  809.     txtfiltro.Text = UCase(txtfiltro.Text)
      
  810.     abriendofiltrar
      
  811.     mostrardatosfiltro
      
  812.  ENDIF
      
  813. END
      
  814.  
  815. PUBLIC SUB combofiltro_Click()
      
  816.   abriendo
      
  817.   valor1 = combofiltro.Text
      
  818.   txtfiltro.Text = ""
      
  819.   txtfiltro.SetFocus
      
  820. END
      
  821.  
  822. PUBLIC SUB txttelefono_Change()
      
  823.  'CInt(txttelefono.Text) 'Convierte el numero en entero
      
  824.  'CATCH
      
  825.  'txttelefono.Text = Mid$(txttelefono.Text, 1, -1) 'Si no es un numero borra el caracter
      
  826.  'STOP EVENT
      
  827. END
      
  828.  
  829. PUBLIC SUB txttelefono_KeyPress()
      
  830.  IF Key.Code = Key.Enter OR Key.Code = 65293 THEN
      
  831.     txtcorreo.SetFocus
      
  832.  ELSE
      
  833.     Solo_Numerostelefono(Key.Code)
      
  834.  ENDIF
      
  835. END
      
  836.  
  837. PUBLIC SUB txtcorreo_KeyPress()
      
  838.  IF Key.Code = Key.Enter THEN
      
  839.     txtobservacion.SetFocus
      
  840.  ENDIF
      
  841. END
      
  842.  
  843. PUBLIC SUB txtcorreo_Change()
      
  844.   txtcorreo.Text = LCase(txtcorreo.Text)
      
  845. END
      
  846.  
  847.  
  848. PUBLIC SUB txtfiltro_KeyPress()
      
  849.  
  850.  IF combofiltro.Text = "PlNer" THEN
      
  851.     IF Key.Code = Key.Enter OR Key.Code = 65293 THEN
      
  852.     ELSE
      
  853.       Solo_Numeros(Key.Code)
      
  854.     ENDIF
      
  855.  ENDIF
      
  856.  
      
  857. END
      
  858.  
  859. PUBLIC SUB btmatricula_Click()
      
  860.   variablesglobales.activaformu = TRUE
      
  861.   variablesglobales.var_matriparro = TRUE
      
  862.   textoparroquia = comboparroquia.Text
      
  863.   matricula.Show()
      
  864.  
  865. END
      
  866.  
  867. PRIVATE FUNCTION Solo_Numeros(KeyTecla AS Integer)
      
  868.  
      
  869.  IF KeyTecla >= 48 AND KeyTecla <= 57 OR KeyTecla >= 65456 AND KeyTecla <= 65465 OR KeyTecla = 65288 OR KeyTecla = 65293 OR KeyTecla = 65421 THEN
      
  870.  ELSE
      
  871.     STOP EVENT
      
  872.  END IF
      
  873.  
      
  874. END
      
  875.  
  876. PRIVATE FUNCTION Solo_Numerostelefono(KeyTecla AS Integer)
      
  877.  
      
  878.  IF KeyTecla >= 48 AND KeyTecla <= 57 OR KeyTecla >= 65456 AND KeyTecla <= 65465 OR KeyTecla = 65288 OR KeyTecla = 65293 OR KeyTecla = 65421 OR KeyTecla = 45 OR KeyTecla = 65453 OR KeyTecla = 65455 OR KeyTecla = 32 THEN
      
  879.  ELSE
      
  880.     STOP EVENT
      
  881.  END IF
      
  882.  
      
  883. END
      
  884.  
  885. PUBLIC SUB btpersonal_Click()
      
  886.  
  887.   personal.Show()
      
  888.  
  889. END
      
  890.  
  891. PUBLIC SUB comboparroquia_Click()
      
  892.  IF variablesglobales.sw2 = 0 THEN
      
  893.   abriendo2
      
  894.   mostrardatosparroquia
      
  895.   totales
      
  896.  ENDIF
      
  897. END
      
  898.  
  899.  
  900. PUBLIC SUB btimprimir_Click()
      
  901.  
  902.  
      
  903. END
      
  904.  

 



 
#3  Domingo, 15 Abril 2012, 21:51
homny - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Desconectado willicab Sexo: Masculino
Aprendiz
Aprendiz
avatar
Registrado: Septiembre 2009
Mensajes: 64
Edad: 39
Ubicación: venezuela.png Caracas, Distrito Capital
 
 
Responder citando   Descargar mensaje  
Mensaje Re: Error Al Importar Proyecto De Gambas 2 A Gambas 3.1 
 
Hola, acabo de probar convertir el código y n me ha dado problemas, tal vez el problema es del formulario, pasa el archivo .form para comprobar si es eso
 




===================
William Cabrera
Mi Blog
Mi Twitter
IRC de Gambas en Español
 
#4  Domingo, 15 Abril 2012, 22:52
willicab - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Desconectado Shell Sexo: Masculino
Analista Programador
Analista Programador
avatar
Registrado: Marzo 2010
Mensajes: 5278
Edad: 53
Ubicación: spain.png Al otro lado de la pantalla
 
 
Responder citando   Descargar mensaje  
Mensaje Re: Error Al Importar Proyecto De Gambas 2 A Gambas 3.1 
 
Entonces.

Comentabais de que había cierto problema de "incompatibilidad" dentro de la propia versión 3 con sus derivadas. 3.1 y las futuras. ¿No ?.
Si fuese de la 2 al convertir a la 3.1 ya seria pedir demasiado.Esto quizás se pierda fácilmente.

Como aun tengo la 2 y uso poco la 3.0.(No tengo inconvenientes en usar una u otra).
Me gustaría tener cierta compatibilidad aunque haya que retocar algo luego.
Por ahora deberían convertirse de la 2 a la 3.1 sin muchos problemas.Supongo.

Saludos.
 




===================
Gambas Básico
"No es un bug, es una característica no documentada"
 
#5  Lunes, 16 Abril 2012, 08:55
Shell - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Desconectado jousseph Sexo: Masculino
jousseph germaine celis zambrano
Analista Programador
Analista Programador
avatar
Registrado: Julio 2010
Mensajes: 434
Edad: 38
Ubicación: venezuela.png Tachira
 
 
Responder citando   Descargar mensaje  
Mensaje Re: Error Al Importar Proyecto De Gambas 2 A Gambas 3.1 
 
Holas quiero comentarles que hice 2 pruebas de convertir mi proyecto de gambas 2 a gambas 3 y noto que sucede ese error es en linux canaima instalado en forma tar.bz2 cuando probe en un ubuntu con el gambas 3 instalado desde el script si me convirtio toooodo el proyecto de gambas 2 a gambas 3 sin problemas pienso que es el gambas del tar.bz.
 



 
#6  Domingo, 26 Agosto 2012, 23:30
jousseph - Ver perfil del usuarioEnviar mensaje privadoVer la galería personal del usuario 
Volver arribaPágina inferior
Desconectado jsbsan Sexo: Masculino
Analista Programador
Analista Programador
avatar
Registrado: Septiembre 2009
Mensajes: 4175
Edad: 51
Ubicación: spain.png dos hermanas, sevilla
 
 
Responder citando   Descargar mensaje  
Mensaje Re: Error Al Importar Proyecto De Gambas 2 A Gambas 3.1 
 
jousseph:
Citar:
el gambas 3 instalado desde el script

Cuando instalas con el script de jguardon, estas instalando la ultima version, SVN, en pruebas. Que no es la misma que descargas desde la pagina de gambas.
Seguramente esta version SVN tenga ya corregido algunos bugs, y por eso no te da problemas...

Saludos
 




===================
Blog personal
Web: SoloGambas seleccion de articulos dedicados a Gambas
Visita el Curso de Gambas3 ¡¡¡Gratuito!!!
 
última edición por jsbsan el Lunes, 27 Agosto 2012, 00:08; editado 2 veces 
#7  Lunes, 27 Agosto 2012, 00:07
jsbsan - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 
OcultarTemas parecidos
Tema Autor Foro Respuestas último mensaje
No hay nuevos mensajes ¿Como Abrir (o Importar) Proyectos De VB6... ariel General 10 Sabado, 02 Octobre 2010, 17:44 Ver último mensaje
fabianfv
No hay nuevos mensajes Como Importar Un Form(formulario) Sobre Ot... metalgearxd General 3 Jueves, 07 Febrero 2013, 20:46 Ver último mensaje
metalgearxd
No hay nuevos mensajes Importar Componente En Gambas 3.5.2 cabustos General 1 Jueves, 10 Abril 2014, 17:24 Ver último mensaje
jsbsan
No hay nuevos mensajes Cerrar Gambas Para Abrir Otro Proyecto De ... Shell General 5 Jueves, 21 Septiembre 2017, 19:42 Ver último mensaje
shordi
 

Publicar nuevo tema  Responder al tema  Página 1 de 1
 

Portal » Foro » Gambas » General

Fecha y hora actual: Domingo, 28 Abril 2024, 06:58 • Todas las horas son UTC + 1 Hora
Ver tema anterior Temas recientes Habilitar biblioteca Descargar tema Versión imprimible Correo a un amigo Ver siguiente tema

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado
Usuarios registrados conectados: Ninguno

 
Lista de permisos
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario


  

 
cron