Quote from alangonzalez91 on June 30, 2025, 8:54 am

Disponible formato Semi Comprimido o "Narrow" ver 1.0

Pass: 12345

Quote from Anthony LaTorre on June 30, 2025, 12:04 pm

I tried to download your zip file, but it keeps throwing an error when I try to extract the archive...

Quote from alangonzalez91 on June 30, 2025, 5:56 pm

Try to use winrar, because i was use them to compress the zip

Quote from Anthony LaTorre on June 30, 2025, 8:50 pm

WinRar opened the archive... thank you.

Quote from alangonzalez91 on July 2, 2025, 4:33 am

Redownload the Narrow format because it fixes an issue with anti-aliasing when font sizes are smaller than 14. Greetings from Argentina.

Quote from CN_Iceman on July 9, 2025, 7:04 pm

Awesome font!

Many Thanks!!

Quote from alangonzalez91 on August 13, 2025, 3:42 am

Ejemplo de uso en "dbpSetGridProperties" de tabla. Con el evento "OnRigthClick=Clic menu"

 

:Clic menu
  .SISTEMA SEGURO
  .INTERFAZ
    ClickMouse
    GetMousePos "[mouse x]" "[mouse y]"
    if "[@ GLOBAL-VERSION 4 ACTIVA]" "=" "True"
       MenuEx "[mouse x]" "[mouse y]" ":pen Editar producto|:del Eliminar producto|:inactive Inactivar producto|:folderopen Ver historial|:info Ver información|:edit Editar datos adicionales|:add Agregar a etiquetas|:time Auditar producto (Admin)||:search Buscar / identificar|:filter Ver productos inactivos|:sort2 Orden alfabético|:sort2 Orden por Nº|:slider Mostrar / ocultar código|:slider Mostrar / ocultar colores|:print Imprimir lista detallada||:boxopen Ingresar productos|:folderopen Ver falta de stock|:folderopen Ver stock por [@ PRODUCTOS-Categoria]|:folderopen Ver stock por [@ PRODUCTOS-SubCategoria]|:notes Ver informe (Admin)" "[seleccion]" "320" "-1"
    Else
        MenuEx "[mouse x]" "[mouse y]" ":pen Editar|:del Eliminar|:inactive Inactivar|:folderopen Ver historial|:info Ver información|:edit Editar datos adicionales||:search Buscar / identificar|:filter Ver productos inactivos|:sort2 Orden alfabético|:sort2 Orden por Nº|:print Imprimir lista detallada" "[seleccion]" "270" "-1"
    Endif
  .RUTINA
    if "[seleccion]" "<>" ""
       .Se cierra el menus por seguridad
         GoSub "PRODUCTOS 2.0 - PROC - Cerrar popups"
    Endif
    if "[@ GLOBAL-VERSION 4 ACTIVA]" "=" "True"
       .Se procede segun opcion
         .Editar
           if "[seleccion]" "=" "1"
              GoSub "PRODUCTOS 2.0 - ACC - Editar producto"
           Endif
         .Eliminar
           if "[seleccion]" "=" "2"
              GoSub "PRODUCTOS 2.0 - ACC - Eliminar producto"
           Endif
         .Inactivar
           if "[seleccion]" "=" "3"
              GoSub "PRODUCTOS 2.0 - ACC - Activar Inactivar producto"
           Endif
         .Ver historial
           if "[seleccion]" "=" "4"
              GoSub "PRODUCTOS 2.0 - ACC - Ver historial"
           Endif
         .Ver información
           if "[seleccion]" "=" "5"
              GoSub "PRODUCTOS 2.0 - ACC - Ver informacion"
           Endif
         .Editar datos adicionales
           if "[seleccion]" "=" "6"
              GoSub "PRODUCTOS 2.0 - ACC - Adicional - Agregar o editar"
           Endif
         .Agregar a etiquetas
           if "[seleccion]" "=" "7"
              GoSub "PRODUCTOS 2.0 - ACC - Etiquetas - Agregar el producto seleccionado"
           Endif
    ...

 

 

 

 

Quote from joferar333 on August 15, 2025, 9:28 pm

@alangonzalez91  Increible aporte!!!! felicitaciones realmente muy muy util.

Me gustaria pedirte abusando de tu acrisolada generocidad si podrias resubir el pub del ejemplo ya que el que se incluye esta incompleto y justo lo que mas me gustaria investigar y jugar es con las opciones que faltan...

poder visualizar las acciones y tomar de ejemplo como las has programado

Desde hya mil gracias por este excelente aporte

Saludos

 

Quote from alangonzalez91 on August 16, 2025, 4:02 am

Joferar no había controlado el comprimido correctamente, al parecer el .pub original se habia dañado. Muchas gracias por avisar. Aquí están los archivos. Por favor avísame si puedes abrirlo.

 

 

Quote from joferar333 on August 16, 2025, 4:32 pm

@alangonzalez91  Si perfecto se abrió sin problemas
muchísimas Gracias!

Saludos

Quote from joferar333 on August 18, 2025, 7:06 pm

@alangonzalez91, hola amigo.. te hago una consulta puede ser que no funcionen las fuentes en el texto simple... yo no logro que me tome los iconos....

Quote from alangonzalez91 on August 18, 2025, 9:09 pm

Hola @jofear333

En objeto de texto simple no funciona. Solo funciona en ListBox. RadioButton, Checkbox, Textentry y Botones

Quote from joferar333 on August 18, 2025, 10:44 pm

@alangonzalez91 gracias me lo suponia.

No probe aun pero creo que mencionas que se puede utilizar con neodbpro para las propiedades de la tabla esto es asi?

 

dbpSetGridProperties

dbpSetColumnTitles

 

 

saludos

Quote from alangonzalez91 on August 19, 2025, 12:30 am

Hola, si si, justamente para la próxima versión voy a preparar una demo con aplicación en los plugins que son compatibles. NeoDbPro es uno de ellos.

Quote from joferar333 on August 19, 2025, 1:50 am

@alangonzalez91 SUPER!!!!

No sabes que alegria me das que se pueda usar con neodbpro... justo tengo que armar algo
aguardare pacientemente tu proxima version.

Saludos

 

Quote from joferar333 on August 19, 2025, 4:32 pm

@alangonzalez91 una vez mas abuso de tu acrisolada generocidad a ver si me puedes echar una manito porque la verdad me estoy volviendo loco.
veras tengo una base de datos creada con neodbpro se llama base.mdb

tiene una tabla que se llama stock

dentro de esta tabla hay un campo que es contado y tiene asignaco un valor currency

todo funciona perfecto pero el tema es que no logro por ningun motivo que el valor que tome al ingresar sea un valor formateado con separador de miles y 2 decimales.

Incluso me pasa que si lo edito en el grid de la vista por ejemplo ingreso el valor 12.350 me deja 12.35

Tenes alguna idea que me pueda ayudar a corregir esto que me permita ingresar a ese campo un valor formateado y luego mostrarlo con formato???

desde ya mil gracias

 

Saludos

 

Quote from alangonzalez91 on August 19, 2025, 9:03 pm

Hola Jofer, en este caso, si el problema es meramente de base de datos, tendrías que abrir un Topic nuevo, entonces no quedan mezclados los temas. Pero si estas queriendo asignar un icono por ejemplo :money a los datos vía SQL, entonces deberás formatear con SQL el campo dentro de la consulta y después concatenarlo con el string del icono. Recuerda setear el tipo de fuente "NeoVNIcons" en las propiedades de la tabla.

• Los iconos mostrados no son compatibles con el generador de reportes

SELECT  
  ':money ' & FORMAT( Mi_campo_numerico , "0.000") AS NUMERO_VISTA_USUARIO,
  FORMAT( Mi_campo_numerico , "0.000") AS NUMERO_PARA_CALCULOS

FROM MiTabla;

Por otro lado, si solo estas queriendo formatear el campo via script de Visual Neo, sólo debes usar el comando de NeoDbPro

dbpSetFieldProperties "Base_de_datos" "Mi_tabla" "Mi_campo_numerico" "Alignment=Left;DisplayFormat=#0.000;Visible=Yes"

Quote from alangonzalez91 on October 27, 2025, 10:19 am

Testeado en plugin HPW_Utility (Tabs + ComboBox)

https://visualneo.com/product/hpwutility

Tabs

.Propiedades
  hpwUtilitySetVar "[hpwTabControlFontName]" "ArialVNIcons"
  hpwUtilitySetVar "[hpwTabControlFontSize]" "16"
  hpwUtilitySetVar "[hpwTabControlScaled]" "1"

.Creacion de pestañas
  hpwTabControlCreate "Rectangle1" ":star Prueba1 | :file Archivo" "tpTop" "tsTabs" "200" "35" "1" ""

ComboBox

hpwUtilitySetVar "[Rectangle1_ChangeAction]" "SetVar [#34][#91]P8ImgComboResult1[#93][#34] [#34][#91]RImgCombo1_SelectedRow[#93]=[#91]RImgCombo1_SelectedText[#93][#34]"
.hpwUtilitySetVar "[RImgCombo1_KeyDownAction]" ""

hpwUtilitySetVar "[hpwImgComboFontName]" "ArialVNIcons"
hpwUtilitySetVar "[hpwImgComboFontColor]" "clBlack"
hpwUtilitySetVar "[hpwImgComboFontSize]" "14"
.fsBold,fsItalic,fsUnderline,fsStrikeout
hpwUtilitySetVar "[hpwImgComboFontStyle]" ""
hpwUtilitySetVar "[hpwImgComboFontCharset]" "1"

hpwUtilitySetVar "[Rectangle1_Showhint]" "1"
hpwUtilitySetVar "[Rectangle1_Hint]" "Choose record"

.If not set DefWidth is hardcoded 80
hpwUtilitySetVar "[Rectangle1_DefWidth]" "0"

.If not set DropDownCount is hardcoded 8
.hpwUtilitySetVar "[RImgCombo1_DropDownCount]" "10"

hpwUtilitySetVar "[hpwImgComboTransparent]" "1"

.hpwUtilitySetVar "[hpwImgComboImgMaskColor]" "clRed"
hpwUtilitySetVar "[hpwImgComboSelBackColor]" "clTeal"

hpwUtilitySetVar "[hpwImgComboScaled]" "0"

.Parametros
  SetVar "[P8ItemList1]" ":star Accion 1 | :list2 Descripcion 1[#13]:star Accion 2 | :list2 Descripcion 2[#13]:file Archivo 1 | :list2 Archivo de texto"
  .0 = Width del icono hpw, 140 = Width del 1º columna, (la ultima columna no necesita width)
  setvar "[P8TabulatorList1]" "0|140"
  setvar "[P8ColorList1]" "235,235,235|clWhite"
  setvar "[P8FormatList]" "Left|Left"

hpwImgComboCreate "Rectangle1" "|" "1" "0" "[P8ItemList1]" "[P8TabulatorList1]" "[P8ColorList1]" "[P8SelColorList1]" "[P8FormatList]"
SetVar "[Rectangle1Result1]" ""
hpwListBoxSelectItem "Rectangle1" "1"

 

 

Quote from danito on November 4, 2025, 6:39 am

Hermoso ❤️