Resultados de búsqueda para “mybussines en red ” – Página 68

Publicado el 11 noviembre, 20115 junio, 2014 por José Félix 2 — 1 comentario

Cancelación de Facturas

Forma_CANCELA_VENTA

6.51 KB 2 descargas

El artículo que a continuación les presentamos aclara las posibilidades para cancelar facturas, evitando así confusiones futuras en el procedimiento.

1. La factura se generó desde el Asistente de Ventas y se envió a cobranza.

Este movimiento genera un registro de ventas, con una salida al inventario y adicionalmente genera un cargo al módulo de cobranza. Usted puede también aplicar un abono en cobranza cuando su cliente le pague la factura.

La cancelación de la factura devolverá al almacén las existencias y saldará el cargo hecho a cobranza pero los abonos que usted haya aplicado a esta factura quedaran pendientes de saldar.

Cuando cancelamos una factura no necesariamente devolvemos al dinero al cliente, en algunos casos lo aplicamos a algún otro documento o bien generamos la factura correcta y le aplicamos este pago, por tal motivo la cancelación de la venta en automático no nos cancela los abonos. Para cancelarlos debe ir a cobranza.

En su flujo de caja y en su corte se verán reflejados los abonos que genere en efectivo.

2. La factura se generó a partir de uno o varios tickets.

a) Desde el módulo de Punto de Venta.

Este movimiento genera un registro de ventas con una salida al inventario y adicionalmente genera un cargo al módulo de cobranza si la venta se hizo a crédito. Usted puede también aplicar un abono en cobranza cuando su cliente le pague la factura.

Cuando usted cancela la factura, considere que sólo se cancelará el documento ‘Factura’. El ticket seguirá en cobranza con sus abonos respectivos. Si usted requiere cancelarlos, también deberá cancelar el ticket e ir a cobranza y cancelar los abonos realizados a esta venta.

En su flujo de caja y en su corte se verán reflejados los abonos que genere en efectivo.

b) Desde el Business Manager.

Si usted ya tiene un ticket que envió a cobranza y realiza la conversión a factura desde el Business Manager, tendrá el mismo efecto que la que se convierte desde el punto de venta considerando que al cancelar este ticket no se verá reflejado en el flujo de caja.

Fuente:

Información obtenida del boletín No. 92 de http://MyBusinessPOS.com

Publicado el 9 noviembre, 20119 octubre, 2012 por José Félix 2 — 6 comentarios

Formato de Tickets

' Mybusiness POS v. 2011 Sub Main() Dim rstSeries


    'Ambiente.Torreta.PortOpen = False

    'Ambiente.Torreta.Settings = "9600,N,8,1"

    'Ambiente.Torreta.RTSEnable = True

    'Ambiente.Torreta.PortOpen = True

    'Ambiente.Torreta.CommPort = 1

    'Ambiente.Torreta.OutPut = "ABC"

    'Eventos

    'Ambiente.Torreta.PortOpen = False
    'cLineaNueva = Chr(13)

    cLineaNueva = Chr(13) & Chr(10)                 
    'If MsgBox( "Desea imprimir el ticket", vbQuestion + vbYesNo + vbDefaultButton2 ) = vbNo Then   '  en caso de que la impresión sea opcional, descomentamos las Tres líneas, quitando el apostrofe.

    '   Exit Sub

    'End If
    ' Creamos el recordSet del encabezado de la venta

    Set rstEncabezado = Rst("SELECT * FROM ventas WHERE venta = " & prn.Documento, Ambiente.Connection )
    ' Verificamos que la venta que se desea imprimir exista

    if rstEncabezado.EOF Then

       MsgBox "No existe la venta seleccionada",vbInformation

       Exit Sub

    end if 
    ' Creamos el recordSet de las partidas que componen la venta

    Set rstPartidas = Rst("SELECT partvta.prcantidad, partvta.iespecial, partvta.id_salida, partvta.kit, partvta.articulo, prods.precio1,prods.descrip, partvta.precio, partvta.cantidad, partvta.descuento, partvta.impuesto, partvta.preciobase, partvta.prdescrip, prods.serie FROM partvta INNER JOIN prods ON prods.articulo = partvta.articulo WHERE venta =" & rstEncabezado.fields("Venta"), Ambiente.Connection )
    ' Traemos todos los datos del cliente

    Set rstCliente = Rst("SELECT * FROM clients WHERE cliente = '" & rstEncabezado.fields("Cliente") & "'", Ambiente.Connection )
    ' Traemos los datos de cobranza si es que existe

    Set rstCobranza = Rst( "SELECT * FROM cobranza WHERE venta = " & rstEncabezado("venta"), Ambiente.Connection )
    cSalida = ""
    'Esto abre el cajon de dinero

    if Ambiente.rstEstacion("Cajon") <> 0 Then

       cSalida = cSalida & Chr(27) & Chr(112) & Chr(48) & Chr(20) & Chr(20)

       cSalida = cSalida & Chr(7)

       ' Sansung de inyección

       ' cSalida = cSalida & Chr(27) & Chr(112) & Chr(48) & Chr(49)

    end if
    Set rstTextTicket = CreaRecordSet( "SELECT * FROM tickettext", Ambiente.Connection )
    If rstTextTicket.EOF Then

       cSalida = cSalida & "" & Ambiente.Empresa & cLineaNueva

       cSalida = cSalida & "" & Trim( Ambiente.Direccion1 ) & cLineaNueva

       cSalida = cSalida & "" & Trim( Ambiente.Direccion2 ) & cLineaNueva

       cSalida = cSalida & "" & Trim( Ambiente.Telefonos ) & cLineaNueva

    Else

       'cSalida = cSalida & Replace(rstTextTicket("textheader"), Chr(10), "" )

       cSalida = cSalida & rstTextTicket("textheader")

    End If
    'cSalida = cSalida & "" & Trim( rstEncabezado("Usuario") ) & " " & Trim( Ambiente.Estacion ) & " Ticket: " & rstEncabezado("No_referen") & cLineaNueva

    cSalida = cSalida & Trim( rstEncabezado("caja") ) & " " & Trim( rstEncabezado("Usuario") ) & " Ticket: " & rstEncabezado("No_referen") & cLineaNueva
    cSalida = cSalida & Formato( rstEncabezado("f_emision"),"dd-MM-yyyy" ) & " Hora: " & rstEncabezado("usuHora") & cLineaNueva
    cDatos = "" & rstEncabezado("datos")
    If clAt( ":", Trim(cDatos) ) = 1 Then

      cSalida = cDatos & cLineaNueva

    Else

      cSalida = cSalida & Trim( rstCliente("cliente") ) & " " & Trim( rstCliente("Nombre") ) & cLineaNueva

      cSalida = cSalida & Trim( rstCliente("calle") ) & " " & Trim( rstCliente("colonia") ) & Chr(13) & Chr(10)

   End If
    cSalida = cSalida & Ambiente.rstEstacion("leyendacomodin") & " " & rstEncabezado("comodin") & cLineaNueva

    'cSalida = cSalida & "Vendedor: " & rstEncabezado("Vend") & cLineaNueva

    'msgbox Ambiente.Var9

    'cSalida = cSalida & Ambiente.Var9 & vbCrLf

    'Ambiente.Var9 = ""
    cSalida = cSalida & "CANT. DESCRIPCION   CODIGO    SUBTOTAL" & cLineaNueva
    nImporteTotal = 0

    nImpuesto = 0

    nCantidadTotal = 0

    nDescuentoTotal = 0

    nImporteOrigen = 0
    'PrintText cSalida
    While Not rstPartidas.EOF 
          nPrecio = rstPartidas("Precio") * ( 1 - (rstPartidas("Descuento")/100) ) * (1 + ( rstPartidas("impuesto") / 100 ) )

          nPrecioBase = Round( rstPartidas("PrecioBase") * (1 + ( rstPartidas("impuesto") / 100 ) ), 2)

          nDescuento = (nPrecioBase - nPrecio) * rstPartidas("Cantidad")
          If nPrecioBase > 0 Then

             nDescPor = ( nPrecio / nPrecioBase ) * 100

          Else

             nDescPor = 0

          End If 
          nDescuentoTotal = nDescuentoTotal + nDescuento

          nImporte = nPrecio * rstPartidas("Cantidad")
          nCantidad = PadL(Formato( rstPartidas("cantidad") / rstPartidas("prCantidad"), "##,##0" ),3)
          cDescrip  = PadR( Mid( rstPartidas("Descrip"), 1, 30 ), 30 )

          nCantidadTotal = nCantidadTotal + ( rstPartidas("cantidad") / rstPartidas("prcantidad") )
          nImporteTotal = nImporteTotal + nImporte

          nImpuesto = nImpuesto + ( nImporteTotal * ( rstPartidas("impuesto") / 100 ) )          
          nPrecio = 0

          nIEspecial = rstPartidas("Precio") * (Val2(rstPartidas("iespecial")) / 100)

          nIVa = rstPartidas("Precio") * (rstPartidas("impuesto") / 100)

          nPrecio = rstPartidas("Precio") + nIEspecial + nIVa
          cPrecio = PadL(Trim(Formato( nPrecio,  Ambiente.FDinero )),8)

          cImporte = PadL(Trim(Formato( Round( nPrecio, 2) * rstPartidas("cantidad") * (1 - (rstPartidas("descuento") / 100)), Ambiente.FDinero )),8)

          nPrecioOrigen = Round( rstPartidas("PrecioBase") * (1 + ( rstPartidas("impuesto") / 100 )),2) * rstPartidas("cantidad")

          nImporteOrigen = nImporteOrigen + nPrecioOrigen
          strSalida = PadL(Formato( nCantidad, "##,##0" ),2) & " " & Trim( rstPartidas("prdescrip") ) & " " & cDescrip & vbCrLf & " P/Pza. " & cPrecio & "    " & rstPartidas("articulo") & "  " & cImporte 
          'If rstPartidas("Precio1") > rstPartidas("Precio") Then

          '   nDescuentoPartida = ( rstPartidas("Precio1") - rstPartidas("Precio") ) * nCantidad

          '   strSalida = strSalida & " Descuento: " & Formato( nDescuentoPartida, "##,##0.00" ) & vbCrLf

          'End If
          cSalida = cSalida & strSalida & cLineaNueva
          'If Not clEmpty( cNull( rstPartidas("prdescrip") ) ) Then

          '   cSalida = cSalida & Trim( rstPartidas("prdescrip") ) & vbCrLf

          'End If            
          If rstPartidas("Kit") <> 0 Then

             Set rstOpciones = CreaRecordSet( "SELECT partvtaopciones.articulo, prods.descrip FROM partvtaopciones INNER JOIN prods ON partvtaopciones.articulo = prods.articulo WHERE id_salida = " & rstPartidas("id_salida"), Ambiente.Connection )
             While Not rstOpciones.EOF

                   cSalida = cSalida & "Opcion:" & rstOpciones("descrip") & Chr(13) & Chr(10)

                  rstOpciones.MoveNext

             Wend

          End If
          If rstPartidas("serie") <> 0 Then                                                      
             If rstEncabezado("ticket") <> 0 Then

                Set rstSeries = CreaRecordSet( _

                "SELECT * FROM series WHERE documento = 'TICKET' AND numeroDocumento = " & rstEncabezado( "no_referen" ) & " AND articulo = '" & rstPartidas("articulo") & "'", _

                Ambiente.Connection )

             Else

                Set rstSeries = CreaRecordSet( _

                "SELECT * FROM series WHERE documento = 'REMISION' AND numeroDocumento = " & rstEncabezado( "no_referen" ) & " AND articulo = '" & rstPartidas("articulo") & "'", _

                Ambiente.Connection )

             End If
             While Not rstSeries.EOF 
                   Serie = Trim( rstSeries("serie") )

                   Serie = PadL( Serie, 11 )

                   Serie = Mid( Serie, Len( Serie ) - 10 )
                   cSalida = cSalida & "SERIE: " & Serie & vbCrLf

                   rstSeries.MoveNext

             Wend
          End If       
          rstPartidas.MoveNext
    Wend
    'PrintText cSalida
    cSalida = cSalida & cLineaNueva

    cSalida = cSalida & cLineaNueva    
    'cSalida = cSalida & "         Importe:            " & PadL(Formato( Val2(rstEncabezado("importe")), Ambiente.FDinero ),10) & cLineaNueva

    'cSalida = cSalida & "        Impuesto:            " & PadL(Formato( Val2(rstEncabezado("impuesto")), Ambiente.FDinero ),10) & cLineaNueva
    'if Val2(rstEncabezado("iespecial")) > 0 Then

    '   cSalida = cSalida & "     Impuesto 2%:            " & PadL(Formato( Val2(rstEncabezado("iespecial")), Ambiente.FDinero ),10) & cLineaNueva

    'end if
    if nDescuentoTotal > 0 Then

       'cSalida = cSalida & "         Importe:            " & PadL(Formato( nImporteOrigen, Ambiente.FDinero ),10) & cLineaNueva

       'cSalida = cSalida & "       Descuento:            " & PadL(Formato( nDescuentoTotal, Ambiente.FDinero ),10) & cLineaNueva

    end if
    'cSalida = cSalida & "         Importe:            " & PadL(Formato( Val2(rstEncabezado("impuesto")) + Val2(rstEncabezado("importe")) + Val2(rstEncabezado("iespecial")), Ambiente.FDinero ),10) & cLineaNueva

    'cSalida = cSalida & "        Redondeo:            " & PadL(Formato( Val2(rstEncabezado("Redondeo")), Ambiente.FDinero ),10) & cLineaNueva

    cSalida = cSalida & cLineaNueva

    cSalida = cSalida & PadL(Formato( nCantidadTotal, "###,###" ),4) & "  ----- TOTALES ----     " & PadL(Formato( (Val2(rstEncabezado("impuesto")) + Val2(rstEncabezado("importe")) + Val2(rstEncabezado("iespecial")) + Val2(rstEncabezado("redondeo"))), "$" & Ambiente.FDinero ),10) & cLineaNueva     
    nPagoTotal = Val2(rstEncabezado("Pago1")) + Val2(rstEncabezado("Pago2")) + Val2(rstEncabezado("Pago3"))
    if rstEncabezado("Pago1") > 0 Then

       cSalida = cSalida & "                  Pago en " & rstEncabezado("Concepto1") & " " & PadL(Formato( Val2(rstEncabezado("Pago1")), "$" & Ambiente.FDinero ),9) & cLineaNueva

    end if 
    if rstEncabezado("Pago2") > 0 Then

       cSalida = cSalida & "                  Pago en " & rstEncabezado("Concepto2") & " " & PadL(Formato( Val2(rstEncabezado("Pago2")), "$" & Ambiente.FDinero ),9) & cLineaNueva

    end if
    if rstEncabezado("Pago3") > 0 Then

       cSalida = cSalida & "                  Pago en " & rstEncabezado("Concepto3") & " " & PadL(Formato( Val2(rstEncabezado("Pago3")), "$" & Ambiente.FDinero ),9) & cLineaNueva

    end if
    Eventos
    If rstEncabezado("Comision") > 0 Then

       cSalida = cSalida & "        Comisión:            " & PadL(Formato( Val2(rstEncabezado("comision")), "$" & Ambiente.FDinero ),10) & cLineaNueva

    End If
    nComision = rstEncabezado("comision")
    if nPagoTotal < (Val2(rstEncabezado("impuesto")) + Val2(rstEncabezado("importe")) + Val2(rstEncabezado("iespecial")) + Val2(rstEncabezado("redondeo"))) Then
       cSalida = cSalida & "                     Credito: " & PadL(Formato( Val2(rstEncabezado("impuesto")) + Val2(rstEncabezado("iespecial")) + Val2(rstEncabezado("importe")) + Val2(rstEncabezado("redondeo")) - nPagoTotal, "$" & Ambiente.FDinero ),9) & cLineaNueva     
    else
       cSalida = cSalida & "                      Cambio: " & PadL(Formato( nPagoTotal - nComision - Val2(rstEncabezado("impuesto")) - Val2(rstEncabezado("iespecial")) - Val2(rstEncabezado("importe")) - Val2(rstEncabezado("redondeo")), "$" & Ambiente.FDinero ),9) & cLineaNueva     
    end if

    Set rstMoneda = CreaRecordSet( "SELECT * FROM monedas WHERE moneda = '" & Ucase(Trim(rstEncabezado("moneda"))) & "'", Ambiente.Connection )


    cSalida = cSalida & cLineaNueva
    cSalida = cSalida & cLineaNueva
    cSalida = cSalida & Letra( Round( Val2(rstEncabezado("impuesto")) + Val2(rstEncabezado("importe")) + Val2(rstEncabezado("iespecial")), 2 ), Trim(rstMoneda("Descrip")), True,rstMoneda("Nombre") ) & cLineaNueva

    If rstTextTicket.EOF Then
       cSalida = cSalida & cLineaNueva
       cSalida = cSalida & cLineaNueva
       cSalida = cSalida & cLineaNueva
  
       cSalida = cSalida & "***** GRACIAS POR SU COMPRA *****" & cLineaNueva
       cSalida = cSalida &  cLineaNueva
       cSalida = cSalida & cLineaNueva
       cSalida = cSalida & cLineaNueva
       cSalida = cSalida & cLineaNueva
       cSalida = cSalida & cLineaNueva
       cSalida = cSalida & cLineaNueva
       cSalida = cSalida & cLineaNueva    
       cSalida = cSalida & cLineaNueva    

    Else
       cSalida = cSalida & rstTextTicket("textend")
    End If
    
    ' Esto manda un corte de papel
                                          
    if Ambiente.rstEstacion("ticketcorte") <> 0 Then

       cSalida = cSalida & Chr(27) & Chr(105)

    end if
    'EstableceImpresora "EPSON TM-U220D Receipt"

    'IniciaDocumento

    'EstableceFuente "Courier New",7.5

    'Say 0,0, cSalida

    'FinDocumento

    'Exit Sub
    If Ambiente.Tag = "HTML" Then
       Ambiente.Tag = ""
       cSalida = Replace( cSalida, cLineaNueva, "
" )

       cSalida = "
" & cSalida & ""

       CreaHtml "", (cSalida)
    Else

       'MsgBox cSalida

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

'       Script.sendToPrinter Ambiente, (cSalida), prn.Pantalla   '  si queremos que se imprima dos veces, descomentamos esta linea, solo quitamos el apostrofe al inicio

    End If            
End Sub

Publicado el 9 noviembre, 201126 diciembre, 2019 por José Félix 2 — 1 comentario

Cómo cambiar la fuente del ticket

Editor de Tickets, impresión y ahorrar papel

1 archivo(s) 17.74 KB

♞Registro
♞Entrar_D
Olvidé_P

Para poder modificar el tamaño de la fuente en el ticket de My Business POS, primero es necesario conocer cómo está conectada la impresora, así como la configuración de la estación de trabajo.

Existen dos formas de modificar el texto de un ticket:

1. Para las impresoras configuradas por puerto LPT:
Se modifica un procedimiento llamado FORMATOTEXTO (En el Business Manager—Configuración—Personalización—Procedimientos y Rutinas del Usuario)
Ahí está un código como este:

Sub Main() Dim p, s

On error resume next


Set p = ImpresoraDefault(Ambiente.rstEstacion("pticket"))
' p.ScaleMode = 7 ' Centimetros

'p.PaintPicture LoadPicture(Ambiente.Path & "\images\logo.jpg"), 0, 0, 3, 4

p.Font.Name = "Courier New"

p.Font.Size = 9

p.FontBold True
For n = 1 To 2

s = s & vbCrLf

Next
' pt (print text) imprime el texto indicado (impresora), (texto)

pt (p),(s)
pt (p),(Script.textToFormat)

p.EndDoc

End Sub
Lo que vamos a hacer es identificar p.Font.Name y p.Font.Size. Puede cambiarlo por una fuente legible y que a la vez se ajuste en el ticket. Se recomienda que utilice los tipos de letra Tahoma o Courier New debido a que estos utilizan caracteres con ancho estándar; sin embargo puede hacer pruebas con la fuente Arial.
Para GUARDAR los cambios, presione F2 o de clic en el botón Guardar.

2. Para impresoras configuradas por puerto USB:

Para este caso, es posible modificar el ticket en la parte final del formato TICKET (En el Business Manager—Configuración—Personalización—FORMATOS) y ubicamos el código, el cual está comentado:

'IniciaDocumento 'Say 0,0, cSalida 'FinDocumento 'Exit Sub
Lo descomentamos, agregamos la fuente y debe quedar de la siguiente manera:

IniciaDocumento EstableceFuente "Courier New", 9 'FontBold True Say 0,0, cSalida FinDocumento Exit Sub
Guardamos (F2) y hacemos la prueba
Para más información por favor visite http://helpmybusinesspos.info/errores-de-mybusiness-pos/como-elegir-la-miniprinter-mas-apropiada-para-su-negocio/

Publicado el 9 noviembre, 201112 agosto, 2020 por jose felix — 3 comentarios

Cómo solucionar el Error de decimales y Reportes en Blanco?

A varios usuarios les ha sucedido que no pueden visualizar los reportes de manera correcta; solo se alcanza a visualizar un poco que se está cargando el reporte, pero al momento de mostrarlo se queda casi en blanco toda la ventana.

La solución que les comparto en esta ocasión tal vez suena muy simple, sin embargo, estoy seguro que a más de uno le va a ser útil.

Debe configurar su equipo al idioma Español (México).

Esto se logra siguiendo la ruta INICIO — PANEL DE CONTROL — CONFIGURACION REGIONAL Y DE IDIOMA.

Ahí Seleccionamos el idioma Español de México y también se recomienda la ubicación México.

Esto además soluciona el problema de que los aprecios de los artículos se ven en miles o millones de pesos (cuando en realidad su valor es unos pesos y algunos centavos).

Este tip también soluciona el problema de los decimales con coma (1,500) y muestra los decimales con el punto decimal(1.5) como lo conocemos en México.

Espero haber aportado algo para todos los visitantes del blog. cualquier duda contactarme a jofelchez@gmail.com

Pagar

¿Cuál es la cuenta bancaria a la que debo hacer mi aportación?

La aportación es a nombre de José Guadalupe Félix Sánchez. El importe recomendado es de $1,500.00 MXN

OXXO (12 pesos comisión)
- Depósito tarjeta BBVA. 4152 3139 1639 5200
A través de PayPal.

BANCOMER
- PractiCaja (disponible las 24 hrs). 0178928320
- Cuenta. 0178928320
- Clabe Interbancaria. 012420001789283207
SANTANDER
- Cuenta 6055627182
- Clabe Interbancaria. 014180605562718206.
BANCOPPEL
- Cuenta. 10166316214
- Clabe Interbancaria. 137180101663162145

Qué garantía existe al hacer la aportación?

Si en dos semanas no se siente satisfecho, su solución será gratuita.

¿Cómo funciona el pago en forma de Pomo?

La forma de pago es a través de Depósito, Transferencia interbancaria o a través de Paypal , por un monto mínimo de $1,000.00 M.N.

¿Qué beneficios tiene el usuario al adquirir por lo menos un parche?

El usuario tiene acceso a soporte relacionado con el mismo parche, así como también puede solicitar otros parches a precios más accesible

¿Dónde identifico el precio de los parches?

La aportación del Pomo es de $749.00 M.N.

¿Qué debo hacer después de hacer el pago?

Notificar al WhatsApp 7222816462 o correo jofelchez@gmail.com sobre este depósito y adjuntar una foto del comprobante de dicho pago.

¿Cuál es el beneficio de pagar casi en el momento que encuentro el archivo que necesito?

Envío mucho más rápido de la solución que buscas.

Resultados de la búsqueda para: mybussines en red

Cancelación de Facturas

Forma_CANCELA_VENTA

Formato de Tickets

Cómo cambiar la fuente del ticket

Editor de Tickets, impresión y ahorrar papel

Cómo solucionar el Error de decimales y Reportes en Blanco?

Pagar

Haz la diferencia… Deja algo para seguir motivados

Forma_CANCELA_VENTA

Te atendemos 24/7 vía WhatsApp:

Te atendemos 24/7 vía WhatsApp:

Editor de Tickets, impresión y ahorrar papel

Te atendemos 24/7 vía WhatsApp:

Te atendemos 24/7 vía WhatsApp:

Haz la diferencia… Deja algo para seguir motivados

Te atendemos 24/7 vía WhatsApp: