Hoy voy a compartir con ustedes el tip sobre la impresión de una remisión o cualquier otro documento en tamaño carta que tenga bastantes partidas.
El código se encuentra en la siguiente ruta, dentro del sistema MyBusinessPOS:
Configuración–Personalización–Formatos del Sistema. Ahi se encuentra el formato REMISIONES
Damos doble clic y podemos modoficarlo. Dentro del reporte encontramos un bloque grande IF. Antes de que termine el bloque IF y FinDocumento, colocamos el siguiente código:
'-----------------------------------------------------------------------------------------------------------------------------------
'-----------------------------------------------------------------------------------------------------------------------------------
'2011-04-01
'Jose Felix jofelchez@gmail.com
'ESTE BLOQUECITO DE CÓDIGO ES EL QUE PERMITE QUE SE REALICE EL SALTO DE PÁGINA
'
if val2(Row( Incremento )) > 0.025 Then 'EN ESTE CASO, EL VALOR 0.025 SON PULGADAS
Incremento = 1
PaginaNueva
end if
'-----------------------------------------------------------------------------------------------------------------------------------
'-----------------------------------------------------------------------------------------------------------------------------------
Incremento = Incremento + 1
rstPartidas.MoveNext
Wend
End If
Guardamos y listo
Pero no se preocupen si les parece confuso, les dejo tambien el código fuente y el archivo .paq; y como siempre les recomiendo que antes de hacer pruebas, se haga un respaldo. Este es el link de descarga:
remision en varias paginas EJEMPLO.paq
REMISION_VARIAS_PAGINAS_Ejemplo_codigo_TEXTO
oyes tengo una duda, al trabajar con el my business pos 2011, al trabajar con las remisiones, y quiero modificar el consepto de un producto no me lo asepta al imprimirla, cosa rara que al cambiarla a factura ahi me aparece e lproducto que modifique, ya modificado., lo que quiero esque me respete en el formato de remisiones, que ahi me aparezca mi producto ya modificado, ejemplo pantalla acer por pantalla lcd acer.
Buenas tardes
Para que le aparezca la descripción modificada, en el formato de REMISION, es necesario que busque (en la linea 138 aprox.) el texto rstArticulo(“Descrip”) y cambiarlo por rstPartidas(“Observ”)
Entonces le quedaria algo asi:
'Say 2.78125 + Row( Incremento ), 1.041667,rstArticulo("Descrip")
Say 2.78125 + Row( Incremento ), 1.041667,rstPartidas("Observ")
Espero que le sea de utilidad y sobre todo que me apoye con un café que valga la pena.
Saludos cordiales a todo Oaxaca.
Buena tarde, me podrías apoyar, al imprimir el ticket no hace el corte hasta que carga como si fuera una hoja tamaño carta, la impresora que se utiliza es una star nx-1001. Saludos y gracias
Hola Buen Día Amigo, fíjate que requiero imprimir una remisión con mas de los renglones requerido por el programa necesito 2 o mas paginas pero nada mas me deja una pagina con 30 renglones como máximo, realice tu procedimiento en el programa pero nada mas se imprime un renglón por hoja no se si realice algo mal, espero tus comentarios SALUDOS.
Buen dia. Este script es para aplicar salto an la primera linea. Intente cambiar
if val2(Row( Incremento )) > 0.025
Por esto
if val2(Row( Incremento )) > 5.025
Gracias José ya imprime a la siguiente hoja pero tiene un detalle el subtotal el iva y el total te lo pone en la primera pagina en la sagunda nada mas te salen los renglones que revasaron los primeros 30 de la primera pagina.
como le ago para que el subtotal el iva y el total aparecieran al final de todos los renglones.
que tal una consulta para ver si me podrias informar si se puede personalizar una nota de remision con logo e imagen del nogocio o empresa y si tu haces ese servicio cuanto me cobrarias gracias espero respuesta.