Listin Gambas2: Bugs Corregidos....

- Correcciones de bug:

Corregido: fecha 07/Nov/2011

Menu Archivo Gargar	Stop Event no es correcto usarlo hay que usar Return
Error reportado por:	Shell

Enlace:	http://www.gambas-es.org/viewtopic.php?t=1701&p=10306#p10306
Corregido:	fecha 07/Nov/2011

PUBLIC SUB abrir(OPTIONAL ruta AS String)
  DIM a AS Integer 'contador de conjunto de datos
  DIM b AS Integer 'contador de dato
  DIM arr_cadenas AS String[]
  DIM codigofinline AS String
  DIM numero_de_datos AS Integer

  codigofinline = "|"
  IF ruta = "" THEN
   Dialog.Title = "Seleccione un archivo de datos listin"
   Dialog.Filter = ["*.lis", "Datos de Listin"]

   IF NOT Dialog.OpenFile() THEN
   ruta = Dialog.Path
   ELSE
   'STOP EVENT
   RETURN 'Lo añadi para solucionar el problema
   ENDIF
  ENDIF
  arr_cadenas = Split(File.Load(ruta), codigofinline)
.......

Corregido: si, fecha 30/Julio/2011

Importar Datos:	Los datos importados no se pueden posteriormente editar....
Error reportado por:	sasogu

Enlace:	http://www.gambas-es.org/viewtopic.php?t=1701&p=10306#p10306
Corregido:	si, fecha 30/Julio/2011

Si encuentra errores, bugs, o malfuncionamiento del programa, reportalos para corregirlos en: Foro gambas-es.org: post de presentación del blog del "listin telefonico"

Nota:
No copies y peques el codigo fuente desde la pagina web a tu programa, ya que te dará errores en las comillas y signos "-". Lo que debes hacer es descargarte el código fuente y trabajar directamente con el (por ejemplo lo abres con Gambas2 y alli si puedes usar copiar y pegar)

------------------------------------------------------------------------------------------------------------------------
En la versión francesa e inglesa J.Bamiere corregió estos bugs:

[BUGS]
Fmain : moviendonos por el formulario
---------------------------------------------------
no necessita manejar Key.code = Key.Tab

filtro : Le falta una estrella, la selection .png no funcionaba
---------------------------------------------------
Dialog.Filter = ["*.jpg", "JPG", "*.png", "PNG", "*.bmp", "BMP"]

[MEJORIA]Fecha "wysiwyg" ... ---------------------------------------------------
para ver en el "datechooser" lo que sera en la ficha
PUBLIC SUB DateChooserfecha_Change()
ME.Caption = Format(Ffechadia.DateChooserfecha.Value, "yyyy/mm/dd")
END
PUBLIC SUB Form_Open()
ME.Caption = Format(Ffechadia.DateChooserfecha.Value, "yyyy/mm/dd")
END
...
PUBLIC SUB ButtonAceptar_Click()
FMain.TextBoxFecha.text = Format(Ffechadia.DateChooserfecha.Value, "yyyy/mm/dd")
ME.Close
END

Salir sin salvar
---------------------------------------------------
1) Me parece mejor que la repuesta por defecto sea NO, para evitar de perder datos
...
IF var.cambio = "si" THEN
res = Message.Question("¿Desea salir sin salvar?", "no", "si")
IF res = 2 THEN

2) si la repuesta es no, tenemos de salvar

PUBLIC SUB Form_Close()
....
      IF res = 1 THEN
        ME.CLOSE
      ELSE
        STOP EVENT   'paramos este evento y no salgo del programa
        archivo.salva()
      ENDIF

Páginas

Bugs Corregidos....