Codigo duro 460

Este parche se utiliza cuando nos aparece el error 460 en la estación de trabajo.

10:54:23 Ocurrió un error:
Module: frmEstaciones
Function: Form_Load
Description: No se encontró el elemento en la colección que corresponde con el nombre o el ordinal pedido. código duro: 460
Error número: 3265

 

10:55:26 Ocurrió un error:
Module: frmEstaciones
Function: btnSalvar_Click
Description: Object variable or With block variable not set código duro: 47
Error número: 91

código duro: 3955
Error número: 91

Importe este procedimiento desde el Business Manager—configuración—personalización —procedimientos y rutinas de Usuario.

Ejecútelo una vez con clic derecho — ejecutar

Aparecerá un mensaje de que se ejecutó correctamente.

Nuevamente configure su estación de trabajo

Saludos

jofelchez@gmail.com

Publicado el 5 comentarios

Funciones para impresión de Ticket

Existen varias formas imprimir un ticket de venta tanto en pantalla como en la miniptinter.
El formato de ticket se encuentra en la ruta del business manager: configuración–personalizacion–formatos del sistema–TICKET. Abrir el código con doble clic e ir al final de este hasta identificar esta línea que se refiere a la impresión; ahí es posible aplicar diferentes opciones de impresión:

Script.sendToPrinter Ambiente, (cSalida), prn.Pantalla

Si queremos imprimir en USB, colocar:

'Código para impresora conectada por cable USB
'o para la impresora predeterminada de Windows).
IniciaDocumento
' EstableceImpresora "Mi Impresora laser" 'esta linea permite elegir impresora USB destino
EstableceFuente "Courier New", 8 'Fuente que tendra el ticket USB
Say 0,.2, cSalida 'Alineación del texto, en pulgadas. cSalida es el texto a imprimir
FinDocumento 'Termina la Impresión USB
'Exit Sub
'Exit Sub es por si deseamos que termine el proceso y saltar las lineas de código que le preceden
'

Si deseamos imprimir en impresora conectada por cable LPT:

'Función para impresora conectada por cable LPT
'Impresión de ticket, corteX y CorteZ _
Enviamos a la impresorade tickets que está configurada en ESTACION01
Script.sendToPrinter Ambiente, (cSalida), prn.Pantalla 'cSalida es el texto que se imprimirá
'

Si deseamos ver el texto del ticket en una ventana emergente:

MsgBox ("" & cSalida) 'cSalida es el texto que se visualizará
'

Una segunda opción para visualizar el el texto del ticket en una ventana emergente.

Mymessage "" & cSalida 'cSalida es el texto que se visualizará
'