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