• Lunes 29 de Abril de 2024, 01:02

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Temas - webflash

Páginas: [1]
1
Clipper / Confección pantalla de facturación
« en: Viernes 18 de Diciembre de 2009, 18:18 »
Estoy realizando en clipper un sistema de ventas, tengo todo bastante completo pero me tranque con las facturas, lo que quiero hacer es que después de seleccionar el cliente pase a un estilo de grilla donde en la primer columna seleccione un numero de producto y aparezca la descripción etc. Esto si logre pero no puedo hacer que sean 5 líneas, o sea poder seleccionar 5 productos para después facturar.
Ejemplo de la pantalla que trato de realizar,

Static Function Pantalla()
*---------------------------------------
        @ 24,0 say ' Ingreso de datos de la Venta                       Esc->Salir     F1->Ayuda          '
        BoxSombra(5,9,22,72,'B','N')  
        @ 5,12 say '[Venta]' color 'W+/N'
        @ 6,11 clear to 19,71
        @ 7,12 say  'Cliente    :'
        @ 8,12 say  'Nro.  de Venta : [     ]'
   @ 9,12 say  '----------------------------------------------------------'
        @ 10,12 say 'CODIGO  PRODUCTO               CANT.   VALOR      TOTAL'
   @ 11,12 say "[     ]_____________________[    ][         ][         ]"
   @ 12,12 say "[     ]_____________________[    ][         ][         ]"
   @ 13,12 say "[     ]_____________________[    ][         ][         ]"
   @ 14,12 say "[     ]_____________________[    ][         ][         ]"
   @ 15,12 say "[     ]_____________________[    ][         ][         ]"
        @ 16,12 say '----------------------------------------------------------'
        @ 17,12 SAY 'Cuotas   : [   ] Moneda : [ ]     SUB TOTAL [         ]'
        @ 18,12 say 'Adelanto : [         ]                    IMPUESTO [         ]'
        @ 19,12 say 'Fecha    : [  /  /    ]                        OTROS [         ]'
        @ 20,12 say 'Vence    : [  /  /    ]                        TOTAL [         ]'

return
*------------------------------------------------------
Si me pueden guiar les agradecería como así también si tienen una idea mejor con el modelo de factura

2
Visual Basic para principiantes / no puedo filtrar fecha tomada de bDatos
« en: Sábado 23 de Mayo de 2009, 06:26 »
De antemano gracias por leer este mensaje de ayuda.
Hola me gustaría poder mostrar en un MsFlexGrid las fechas de cumpleaños,  mejor dicho las personas que cumplen años en el día. Probé de todo un poco pero no logro dar con el problema.
Hay que darle forma dd/mm sacando el año para que pueda mostrar los que cumplen hoy. No?
Ahora el código de esta forma

Set TablaCumpleaños = MiBase.OpenRecordset("select CliCod, CliNom, CliDir, CliLoca, CliEmail, CliFecha from tClientes ")
i = 1
TablaCumpleaños.MoveFirst
 
   While TablaCumpleaños.EOF = False
       
        flex.TextMatrix(i, 0) = TablaCumpleaños!clicod
        flex.TextMatrix(i, 1) = TablaCumpleaños!clinom
        flex.TextMatrix(i, 2) = TablaCumpleaños!CliDir
        flex.TextMatrix(i, 3) = TablaCumpleaños!CliLoca
        flex.TextMatrix(i, 4) = TablaCumpleaños!CliEmail
        flex.TextMatrix(i, 5) = TablaCumpleaños!CliFecha
         i = i + 1
        flex.AddItem ("")
        TablaCumpleaños.MoveNext
     Wend
 
 Antes trataba de hacer la consulta con where pero cundo realizaba el filtrado daba error.
Codigo:
FechaHoy = Format(Date, "dd/mm")

Set TablaCumpleaños = MiBase.OpenRecordset("select CliCod, CliNom, CliDir, CliLoca, CliTel, CliEmail, CliFecha from tClientes where CliFecha = " & FechaHoy & ";")

Y probé con esta forma de consulta y no sale nada en el msflexgrid.
Set TablaCumpleaños = MiBase.OpenRecordset("select CliCod, CliNom, CliDir, CliLoca, CliEmail, CliFecha from tClientes where " & Format(TablaCliente("CliFecha"), "dd/MM") & " = " & FechaHoy & ";")

Si en la consulta quito todo lo que esta después de where o realizo otro tipo de filtrado, que no sea el de mostrar todas las fechas (días/meses) igual a Date, el msflexgrid muestra todos los registros.

Agradecería si me pudiera guiarme en este tema
Saludos Marcelo

Páginas: [1]