No me sale el reporte en foxpro

Cuando guardo el documento no me manda al reporte automáticamente el cual esta establecido por condición.

Uso este código

select (thisform.detalle_factura)
scan
df1 = nun_fact
df2 = cod_items
df3 = cantidad
df4 = precio
df5 = costo
df6 = Itebis
df7 = descuento
df8 = dgii
df9 = descripción
ENDSCAN
IF thisform.fImprimir.ListItemId = 1
programa = 'cuerpofactura()'
&PROGRAMA
ELSE
IF thisform.fImprimir.ListItemId = 2
Report FORM rep_facturacion_sp500.frx noconsole preview
ELSE
IF thisform.fImprimir.ListItemId = 3
Report Form rep_facturacion noconsole preview
ENDIF
ENDIF
ENDIF
SET PRINTER TO
RETURN

1 Respuesta

Respuesta
1

Y que condición se cumple al ejecutar este procedimiento, digo cual de las 3:

thisform.fImprimir.ListItemId = 3

1, 2 o 3? cuál?

Además solo para hacer más simple el código; por que no esas en vez de varios IF ENDIF un DO CASE ENDCASE..

Do case
Case thisform.fImprimir.ListItemId = 1
    programa = 'cuerpofactura()'
    &PROGRAMA
Case thisform.fImprimir.ListItemId = 2 
    Report FORM rep_facturacion_sp500.frx noconsole preview 
Case thisform.fImprimir.ListItemId = 3
    Report Form rep_facturacion noconsole preview 
Endcase

En realidad, me parece que esto resolvería tu problema; pruébalo y dime.

Con tu código me funciona después que hago una selecciono en el combo de forma manual .

cuando es  thisform.fImprimir.ListItemId = 1

me ejecuta a un código en dos para imprimir en imprimir en impresora por código

en el  thisform.fImprimir.ListItemId = 2

es un reporte normal 

thisform.fImprimir.ListItemId = 3

Igual que el 2 pero otro reporte

Si selecciono por clic todo funciona bien pero si intento imprimir sin a ser clic sobre en combo solo me guarda el documento.

Entiendo que dependiendo del valor que selecciones en el combo hará lo que necesitas y quieres que haya una selección del combo por defecto, por ejemplo el ítem 2 del combo quede seleccionado, haces...

Dentro del método INIT del combo escribes lo siguiente:

This.ListIndex = 2

Esto hara que al ejecutar el formulario tomará automáticamente el valor 2 del combobox.

Dime si esto es lo que necesitas o sino ampliamos.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Ingresar información en una hoja y rescatar los datos principales en otra hoja ordenadamente.

Debo hacer cotizaciones y necesito guardar la información de los datos de las personas en una BD, sin ocupar Tablas. Lo principal de esto es que queden ordenada según el número de la cotización y mantener el número correlativo de la cantidad de...
1 respuesta

¿Cómo ajustar con VBA un rango de impresión a partir de un rango dinámico?

Recurro a su amplia experiencia para resolver un inconveniente: He creado una plantilla para hacer una consulta de ordenes de pedido por medio del RFC del cliente, la plantilla esta dividida en tres rangos: Primer rango B1:I22 se ubican los datos...
1 respuesta

How do you perform Change Data Capture when replicating Salesforce data?

A challenge that comes with using these cloud-based CRMs is in integrating them with the internal data systems and reporting modules that rely upon getting up to date data from the CRM.
4 respuestas

Macro eliminar filas con valor

Tengo esta macro que me elimina las filas cuando el valor es #N/D, pero me ha dejado de funcionar cuando el valor es #CALC! Me podéis echar una mano. Muchas gracias. Sub Borrar_Filas() Dim ultifila As Integer 'guardo la última fila utilizada en la...
2 respuestas

¿Cómo ajustar texto automáticamente en celdas combinadas en Excel 2019?

Solicito amablemente su valiosa ayuda para ajustar automáticamente un rango de celdas de una columna, he intentado con la opción de ajuste autamático de filas, también con al opción de ajustar texto de la pestaña inicio e incluso con la siguiente...
1 respuesta

Conversión de números a letras en LPP

Necesito desarrollar un algoritmo con la función MIENTRAS que permita la entrada de un numero de un dígito y escriba su valor en letras, el algoritmo se debe repetir hasta que se ingrese una letra. Ejemplo: si el usuario digita el número 4, el...
3 respuestas

Macro para copiar valor de texbox a hoja2

Necesito un poco de ayuda con una macro estoy aprendiendo mi duda es la siguiente tengo una hoja llamada Principal utilizo un botón de comando para llamar a userform1 el cual tiene varios texbox numerados 1,2,3,4,5,6,7,8,9,10,11 aquí utilizo solo...
1 respuesta

Poner contraseña en visual basic thisworkbook

Tengo una función en ThisWorkbook que elimina el libro al llegar a una fecha de caducidad, ahora requiero colocar una contraseña para protección, la cual, al colocar una contraseña errónea, ejecute el borrado de la hoja
2 respuestas

Macro exportar excel a sentencia SQL

Desde un archivo excel necesito crear un archivo *.txt para incorporar a mi base sql. Te adjunto lo que necesitaría en una imagen. (En este caso son dos filas pero podrían ser más). Se que traspasa lo que es una duda, pero es que los conocimientos en...
2 respuestas

Calcular Mantenimiento preventivo de automóvil

Antes que nada hola a todos!. Bueno hoy tengo un pequeño problema a resolver con un programa que se me solicito desarrollar en php. Por ejemplo a cada automóvil se le debe realizar mantenimiento a los 10, 000 Km. Y mandar una notificación o alerta de...
3 respuestas