Resultados de la búsqueda para: configuracion de sucursales mybusinesspos

Publicado el por — Dejar un comentario

¿Cómo importar un Procedimiento a MyBusiness POS?

Enfocado a: Distribuidores y Usuarios.

1. Entrar a MyBusiness POS y damos un clic en la carpeta configuracion del business manager.

2. Dentro de esta ventana buscar la carpeta personalización, y posteriormente el icono “formatos del sistema”

3. Se abrirá la herramienta Business Manager con la lista de todos los formatos

4. Clic derecho sobre cualquiera de los formatos y aparecerá una lista de opciones de la cual debe elegir la opción: Importar paquete de procedimientos.

5. Buscar el directorio donde esta guardado el archivo y selecciónalo.

6. Aparecerá una mensaje que te dice:
”Paquete importado”. Oprime un clic en Aceptar.

7. Cerramos la ventana. Para mayor seguridad, se recomienda dar mantenimiento a la base de datos y cerrar el programa.

Publicado el por — 2 comentarios

Formato de etiquetas para zebra 2844

' El siguiente procedimiento imprime las etiquetas de cada uno de los articulos
Public Sub Main ()

Icono

Editor de Etiquetas, generar e imprimir código de barras

1 archivo(s) 16.34 KB
Descarga

Set rstPartidas = CreaRecordSet( “SELECT articulo, descrip, etiquetas, precio1, precio2, precio10 FROM prods WHERE etiquetas > 0”, Ambiente.Connection )

While Not rstPartidas.EOF

For i = 1 to rstPartidas(“etiquetas”)
ImprimeEtiqueta “LPT1”, rstPartidas(“articulo”), “”,rstPartidas(“descrip”) , Formato(rstPartidas(“precio1”), “##,##0.00” ), Formato(rstPartidas(“precio2”), “##,##0.00” ), Formato(rstPartidas(“precio10”), “##,##0.00” )
Next

rstPartidas.MoveNext

Wend

Set rstPartidas = CreaRecordSet( “SELECT clavesadd.clave, prods.descrip, clavesadd.etiquetas, prods.precio1, prods.precio2, prods.precio10 FROM clavesadd INNER JOIN prods ON clavesadd.articulo = prods.articulo WHERE clavesadd.etiquetas > 0”, Ambiente.Connection )

While Not rstPartidas.EOF

For i = 1 to rstPartidas(“etiquetas”)
ImprimeEtiqueta “LPT1”, rstPartidas(“clave”), “”,rstPartidas(“descrip”) , Formato(rstPartidas(“precio1”), “##,##0.00” ), Formato(rstPartidas(“precio2”), “##,##0.00” ), Formato(rstPartidas(“precio10”), “##,##0.00” )
Next

rstPartidas.MoveNext

Wend

End sub

Public Sub ImprimeEtiqueta( cPuerto, cArticulo, cDato1, cDescrip, cPrecioDeLista, cMayoreo, cSugerido )

cPuerto = Trim( cPuerto )
cArticulo = Trim( cArticulo )
cDescrip = Trim( cDescrip )
cDato1 = Trim( cDato1 )

cSalida = “”

‘ Aqui se puede modificar la etiqueta utiliza un lenguaje llamado EPL2 le adjunto manual del
‘ lenguaje, tambien si tienen la información del formato de la etiqueta y quieren que la
‘ diseñe por favor mandemelo
‘ Aqui se muestran los comandos basicos
‘ El comando N inicia la etiqueta
‘ El comando A muestra un dato de texto en donde el 250 es la posición en el eje de las X
‘ y el 15 la posición en el eje de las Y
‘ El comando B muestra el código de barras donde 250 es la posición en el eje de las X y 45
‘ Es la posición de inicio del eje de las Y
‘ El comando P Finaliza la etiqueta y el nunero 1 indica cuantas etiquetas se van a imprimir

cSalida = cSalida & “N” & Chr(13) & Chr(10)
cSalida = cSalida & “D14” & Chr(13) & Chr(10)
cSalida = cSalida & “A220,15,0,1,1,1,N,” & Chr(34) & Formato( Date, “dd-MM-yyyy” ) & Chr(34) & Chr(13) & Chr(10)
cSalida = cSalida & “A05,11,0,2,1,1,N,” & Chr(34) & Mid( cDescrip,1, 12 ) & Chr(34) & Chr(13) & Chr(10)
cSalida = cSalida & “B05,30,0,2,1,6,25,B,” & Chr(34) & cArticulo & Chr(34) & Chr(13) & Chr(10)
cSalida = cSalida & “A220,55,0,4,1,1,N,” & Chr(34) & “$” & cPrecioDeLista & Chr(34) & Chr(13) & Chr(10)
‘cSalida = cSalida & “A250,95,0,2,1,1,N,” & Chr(34) & cMayoreo & Chr(34) & Chr(13) & Chr(10)
cSalida = cSalida & “P1” & Chr(13) & Chr(10)

if Ambiente.rstEstacion(“ietiquetas”) <> 0 Then
if clAt( “LPT”, Ambiente.rstEstacion(“ietiquetaspuerto”) ) > 0 Then
Out Trim(Ambiente.rstEstacion(“ietiquetaspuerto”)), cSalida
else
if Ambiente.ImpresoraDeEtiquetas.PortOpen Then
Ambiente.ImpresoraDeEtiquetas.Output = cSalida
end if
end if
end if

Dormir 100
Eventos

End Sub

 

Publicado el por — Dejar un comentario

Al iniciar el sistema

Este es el código fuente del Procedimiento INICIO001
INICIO001 almacena todos los iconos y procedimientos necesarios en la ventana principal del sistema.
Aqui podemos hacer algunos ajustes para agregar iconos de nuestras Formas desarrolladas con el Editor de “Ambiente de desarrollo”
' Mybusiness POS v. 2011
Sub Main()
Dim adXactReadSerializable
Dim adXactReadUncommitted
Dim adXactReadCommitted
Dim adXactRepeatableRead

adXactReadSerializable = 1048576
adXactReadUncommitted = 256
adXactReadCommitted = 4096
adXactRepeatableRead = 65536

‘ Establecemos el modo de Aislamiento
‘Ambiente.Connection.Execute “SET TRANSACTION ISOLATION LEVEL SERIALIZABLE”
Ambiente.Connection.IsolationLevel = adXactReadSerializable

Parent.Timer.Enabled = True
Ambiente.eventRowReports = true
Ambiente.ModoDeDepuracion = True

‘ Cargamos el listado de Iconos
ModoAvanzado

‘ Vemos si el usuario tiene pendientes
‘Call buscaPendientes

‘Set NodX = bmForm.tvTreeView.Nodes.Add(“Business”, 4, “CarpetaDeUsuario1”, “Carpeta Personalizada”, 1, 2)

End Sub

Sub ModoAvanzado()

Dim rstUsuario

On Error Resume Next
vbalListBar1.Width = Me.Width / 4
On Error Goto 0

‘ Vemos si el usuario es supervisor
Set rstUsuario = CreaRecordSet( “SELECT supervisor FROM usuarios WHERE usuario = ‘” & Ambiente.Uid & “‘”, Ambiente.Connection )

‘Me.vbalImageList1.AddFromFile Ambiente.Path & “\images\recostear.ico”, 1, “recostear”
‘Eventos

vbalListBar1.Bars.Clear

With vbalListBar1

If parent.bIconosNuevos = True Then
.ImageList = imgBarra
Else
.ImageList = vbalImageList1
End If

.Bars.Add ,”Ventas”, “Ventas”
.Bars.Add ,”Restaurante”, “Restaurante”

.Bars.Add ,”Compras”, “Compras”
.Bars.Add ,”Inventario”, “Inventario”
.Bars.Add ,”Utilerias”, “Utilerias”
.Bars.Add ,”TiempoAire”, “Tiempo Aire”
.Bars.Add ,”FacElectronica”, “Factura Electrónica”
.Bars.Add ,”Mobile Business”, “Mobile Business”

‘.Bars.Add ,”Produccion”, “Producción”

‘ Bars.Add agrega una pestaña a la barra de tareas
‘ Opcional 1.- El indice de la barra, 2.- La llave
‘ de la barra, 3.- El titulo de la barra
‘.Bars.Add ,”cursoveracruz”, “Curso Veracruz”

‘ Items.Add agrega un icono a la pestaña indicada
‘ Opcional 1.- El indice, 2.- La llave del icono,
‘ 3.- Titulo del icono, 4.- Un indice que representa
‘ un icono entre 1 y 140
‘.Bars(“cursoveracruz”).Items.Add ,”existenciaremota”, _
‘”Existencias en sucursales”, 110

‘ Le damos acceso a la parte de programación solo si es supervisor
If rstUsuario(“supervisor”) <> 0 Then
.Bars.Add ,”Configuracion”, “Configuración”
.Bars.Add ,”Programacion”, “Programación”
End If

For n = 1 To .Bars.Count
.Bars(n).State = 0
Next

.Bars(“ventas”).State = 1

.Bars(“Inventario”).Items.Add ,”Articulos”, “Artículos”, 2
.Bars(“Inventario”).Items.Add ,”AltaRapida”, “Alta Rápida (Artículos)”, 45
.Bars(“Inventario”).Items.Add ,”Tallas”, “Tallas y Colores por Modelo”, 19
.Bars(“Inventario”).Items.Add ,”InvExcel”, “Importar artículos y existencia desde excel(tm)”, 98
.Bars(“Inventario”).Items.Add ,”Entradas”, “Entradas al Inventario”, 25
.Bars(“Inventario”).Items.Add ,”Salidas”, “Salidas al Inventario”, 26
.Bars(“Inventario”).Items.Add ,”Fisico”, “Inventario físico”, 27
.Bars(“Inventario”).Items.Add ,”Recalcular”, “Recalcular Inventario (Promedio)”, 29

.Bars(“Inventario”).Items.Add ,”UEPS”, “Recalcular Costeo (UEPS)”, 130
.Bars(“Inventario”).Items.Add ,”PEPS”, “Recalcular Costeo (PEPS)”, 128

.Bars(“Inventario”).Items.Add ,”HojaInventario”, “Resumen de operaciones”, 65

‘.Bars(“Inventario”).Items.Add ,”Recostear”, “Recostear Inventario”, 99

‘.Bars(“Inventario”).Items.Add ,”PedidosOrdenes”, “Recalcular por surtir y por recibir”, 35
‘.Bars(“Inventario”).Items.Add ,”Cerrar”, “Cerrar inventario”, 30

‘Rosy 08-Noviembre-2006
‘If clAt(“MySQL”,Ambiente.Connection.ConnectionString) Then
.Bars(“Inventario”).Items.Add ,”CalidadInventario”, “Informe de Calidad de Inventario”, 34
‘.Bars(“Inventario”).Items.Add ,”CalidadInventario2″, “Informe de Calidad de Inventario (Solo nuevos)”, 62
‘End If
‘Rosy

.Bars(“Inventario”).Items.Add ,”series”, “Números de serie”, 101
.Bars(“Inventario”).Items.Add ,”lotes”, “Lotes”, 51
.Bars(“Inventario”).Items.Add ,”Analisis”, “Analisis de Inventario”, 121

.Bars(“Ventas”).Items.Add ,”PuntoVenta”, “Punto de venta”, 7
.Bars(“Ventas”).Items.Add ,”CierreTienda”, “Resumen general de operaciones”, 136
.Bars(“Ventas”).Items.Add ,”RemisionFactura”, “Convertir remisiones a factura”, 137

.Bars(“Ventas”).Items.Add ,”Pedidos”, “Pedidos de clientes”, 4
.Bars(“Ventas”).Items.Add ,”Facturas”, “Facturas”, 5
.Bars(“Ventas”).Items.Add ,”Remisiones”, “Remisiones”, 6
.Bars(“Ventas”).Items.Add ,”Clientes2″, “Clientes”, 16
.Bars(“Ventas”).Items.Add ,”ImpClientes”, “Importar catálogo de clientes desde Excel(tm)”, 130
.Bars(“Ventas”).Items.Add ,”Cobranza”, “Cobranza”, 10
.Bars(“Ventas”).Items.Add ,”Devoluciones”, “Devoluciones / Notas de crédito”, 22

.Bars(“Compras”).Items.Add ,”OrdenesDeCompra”, “Ordenes de Compra”, 8
.Bars(“Compras”).Items.Add ,”Compras”, “Compra”, 9
.Bars(“Compras”).Items.Add ,”DevComp”, “Devolución de compra”, 24
.Bars(“Compras”).Items.Add ,”Proveedores2″, “Proveedores”, 17
.Bars(“Compras”).Items.Add ,”ImpProveedores”, “Importar catálogo de proveedores desde Excel(tm)”, 130
.Bars(“Compras”).Items.Add ,”Cxp”, “Cuentas por pagar”, 11

.Bars(“Utilerias”).Items.Add ,”EditarTicket”, “Editar texto del ticket”, 96

.Bars(“Utilerias”).Items.Add ,”Etiquetas”, “Etiquetas de código de barras”, 39
.Bars(“Utilerias”).Items.Add ,”FPersonalizados”, “Formatos personalizados (Requiere Microsoft Word)”, 139

.Bars(“Utilerias”).Items.Add ,”Ofertas”, “Ofertas”, 134
.Bars(“Utilerias”).Items.Add ,”CambioPrecio”, “Cambios de precios”, 65
.Bars(“Utilerias”).Items.Add ,”Bitacoras”, “Bitacoras”, 41
.Bars(“Utilerias”).Items.Add ,”SubirBitacora”, “Subir Bitacoras”, 98
‘.Bars(“Utilerias”).Items.Add ,”Telemercadeo”, “Telemercadeo”, 13
‘.Bars(“Utilerias”).Items.Add ,”Pendientes”, “Pendientes”, 14
.Bars(“Utilerias”).Items.Add ,”EditarFacturas”, “Editar formato de factura”, 7
.Bars(“Utilerias”).Items.Add ,”EditarRemisiones”, “Editar formato de remisiones”, 7
.Bars(“Utilerias”).Items.Add ,”EditarNc”, “Editar formato de Notas de Crédito”, 7
‘.Bars(“Utilerias”).Items.Add ,”EditarClientes”, “Cartas personalizadas”, 7
‘.Bars(“Utilerias”).Items.Add ,”Pls2001″, “Generar PLU Para Torrey PLS 2001”, 94
.Bars(“Utilerias”).Items.Add ,”Verificador”, “Verificador”, 36
.Bars(“Utilerias”).Items.Add ,”Backup”, “Respaldo”, 142
.Bars(“Utilerias”).Items.Add ,”Huella”, “Registro de entradas/Salidas de personal”, 144
.Bars(“Utilerias”).Items.Add ,”PruebaHuella”, “Prueba Huella”, 144
.Bars(“Utilerias”).Items.Add ,”MBInventario”, “MyBusiness Inventario”, 129

‘.Bars(“Produccion”).Items.Add ,”ordenproduccion”, “Orden de producción”, 119
‘.Bars(“Produccion”).Items.Add ,”capturaetiquetas”, “Captura de etiquetas”, 120
‘.Bars(“Produccion”).Items.Add ,”seguimiento”, “Seguimiento del proceso”, 121
‘.Bars(“Produccion”).Items.Add ,”destajo”, “Pago del destajo”, 122

.Bars(“TiempoAire”).Items.Add ,”ActualizarMontos”, “Actualizar montos para venta de tiempo aire”, 69

.Bars(“FacElectronica”).Items.Add ,”ConfigSucursal”, “Configuración de Sucursales”, 102
.Bars(“FacElectronica”).Items.Add ,”FacturaElectronica”, “Emisión de Facturas Electrónicas”, 102

.Bars(“Mobile Business”).Items.Add ,”configpocket”, “Configurar Pocket PC”, 48
.Bars(“Mobile Business”).Items.Add ,”inventariopocket”, “Capturar Inventario de la Pocket PC”, 2
.Bars(“Mobile Business”).Items.Add ,”pocket”, “Exportar/Importar datos a Pocket PC”, 71
‘.Bars(“Mobile Business”).Items.Add ,”confirmaventas”, “Confirmar ventas de Pocket PC”, 5
.Bars(“Mobile Business”).Items.Add ,”creanotas”, “Asistente de devoluciones en Pocket PC”, 6
‘.Bars(“Mobile Business”).Items.Add ,”creainventariofisico”, “Aplicar Inventario Físico de Pocket PC”, 27
.Bars(“Mobile Business”).Items.Add ,”reportepedidospk”, “Reporte de Pedidos de la Pocket PC”, 121
.Bars(“Mobile Business”).Items.Add ,”cargainicial”, “Reporte de productos cargados inicialmente a la Pocket PC”, 22
.Bars(“Mobile Business”).Items.Add ,”ventaspendientes”, “Reporte de ventas generadas por la Pocket PC”, 4
.Bars(“Mobile Business”).Items.Add ,”articulosvendidos”, “Reporte de artículos vendidos desde la Pocket PC”, 108

If rstUsuario(“supervisor”) <> 0 Then

‘.Bars(“Configuracion”).Items.Add ,”DatosGenerales”, “Conexión a la base de datos”, 100
.Bars(“Configuracion”).Items.Add ,”ConfigGeneral”, “Datos generales de la empresa”, 109

If clAt( “MySQL”, Ambiente.Connection ) Then
.Bars(“Configuracion”).Items.Add ,”Mantenimiento”, “Mantenimiento a la base de datos”, 101
End If

.Bars(“Configuracion”).Items.Add ,”FormatosImpresion”, “Establecer Formatos de Impresión”, 102
.Bars(“Configuracion”).Items.Add ,”Consecutivos”, “Consecutivos de impresión”, 103
.Bars(“Configuracion”).Items.Add ,”GeneralConsecutivos”, “General de consecutivos de impresión”, 117
.Bars(“Configuracion”).Items.Add ,”BorrarBase”, “Borrar Base de Datos”, 104
.Bars(“Configuracion”).Items.Add ,”AltaEmpresa”, “Manejo de conexiones a base de datos”, 105
.Bars(“Configuracion”).Items.Add ,”CambiarEmpresa”, “Cambiar de conexión”, 106
.Bars(“Configuracion”).Items.Add ,”SincronizarProcedimientos”, “Sincronizar Procedimientos”, 110
.Bars(“Configuracion”).Items.Add ,”Rangos”, “Rangos de vista del Business Manager”, 111
.Bars(“Configuracion”).Items.Add ,”RegistroDeLicencia”, “Acerca de…”, 107
.Bars(“Programacion”).Items.Add ,”EditorFormas”, “Ambiente de desarrollo”, 42
.Bars(“Programacion”).Items.Add ,”Busquedas”, “Editor de busquedas”, 18
.Bars(“Programacion”).Items.Add ,”EditorSQL”, “Editor de SQL”, 19
.Bars(“Programacion”).Items.Add ,”ImportarMySQL”, “Importar de MySQL”, 101
End If

.Bars(“Restaurante”).Items.Add ,”Secciones”, “Secciones”, 137
.Bars(“Restaurante”).Items.Add ,”r_impresoras”, “Impresoras”, 143

.Bars(“Restaurante”).Items.Add ,”Touch”, “Caja”, 53
.Bars(“Restaurante”).Items.Add ,”Comandas”, “Comandas”, 136
.Bars(“Restaurante”).Items.Add ,”Reservaciones”, “Reservaciones”, 140
.Bars(“Restaurante”).Items.Add ,”Menu”, “Definición de menú”, 141

If rstUsuario(“supervisor”) <> 0 Then
If clAt( “MySQL”, Ambiente.Connection ) > 0 Then
.Bars(“Utilerias”).Items.Add ,”MySQLPass”, “Establecer password de MySQL”, 46
End If
End If

End With

End Sub

Sub buscaPendientes()

Set rstPendientes = CreaRecordSet( “SELECT * FROM pendient WHERE para = ‘” & Ambiente.Uid & “‘ AND estado = ‘PE’ AND fecha = ” & fechaSQL( fecha ), _
Ambiente.Connection )

If Not rstPendientes.EOF Then
Set Clientes = CreateObject( “MyBClientes.Clientes” )
Set Clientes.Ambiente = Me.Ambiente
Clientes.MuestraPendientes
End If

End Sub

 

También podemos solucionar este error, desde whatsapp 7222816462:
Error Número 429

Module: frminicio
Function: vbalListBar1_ItemClick
Description: ActiveX Component can´t create object
Código duro 24
Error Número 429


Error Número 429

IniciaAplicacion
ActiveX component can't create object 429 Linea:6

El problema de este error es el antivirus.
Contáctanos

Publicado el por — Dejar un comentario

Recibo de efectivo

flujoEn esta ocasión mostramos el código del formato Recibo, el cual se imprime al tener un ingreso de efectivo por conceptos de cobranza tanto en punto de venta como en el asistente de cobranza. En algunas versiones se llama Abono y en las anteriores se llama Recibo.
'mybusiness pos 2011
Sub Main()
'mymessage "imprimir"
'PlaySound "c:\desarrollo\ScorpionMyBusiness.wav"
'MyMessage "Gracias por su pago"
ImprimeEnHojaCarta
'ImprimeEnTicket

End Sub

Sub ImprimeEnTicket()
Dim c

' Creamos el recordSet del encabezado de la venta
Set rstRecibo = CreaRecordSet("SELECT * FROM caja WHERE abono = " & prn.Documento, Ambiente.Connection )
' Traemos los datos del cliente
Set rstClientes = CreaRecordSet( "SELECT * FROM clients WHERE cliente = '" & rstRecibo("cliente") & "'", Ambiente.Connection )
' Traemos la moneda con la que se realizo el movimiento
Set rstMoneda = CreaRecordSet( "SELECT * FROM monedas WHERE moneda = '" & rstRecibo("moneda") & "'", Ambiente.Connection )

'Esto abre el cajon de dinero
if Ambiente.rstEstacion("Cajon") <> 0 Then
c = c & Chr(27) & Chr(112) & Chr(48) & Chr(20) & Chr(20)
c = c & Chr(7)
' Sansung de inyección
' cSalida = cSalida & Chr(27) & Chr(112) & Chr(48) & Chr(49)
end if

c = c & Ambiente.Empresa & vbCrLf
c = c & Ambiente.Direccion1 & vbCrLf
c = c & Ambiente.Direccion2 & vbCrLf
c = c & Ambiente.Telefonos & vbCrLf
c = c & vbCrLf
c = c & vbCrLf
c = c & vbCrLf
c = c & "COMPROBANTE DE INGRESOS" & vbCrLf
c = c & "CLIENTE: " & rstClientes("nombre") & vbCrLf
c = c & "DIRECCION: " & rstClientes("calle") & vbCrLf
c = c & rstClientes("colonia") & vbCrLf
c = c & rstClientes("pobla") & vbCrLf
c = c & rstClientes("pais") & vbCrLf
c = c & "C.P.: " & rstClientes("cp") & vbCrLf
c = c & vbCrLf
c = c & "Fecha: " & Formato( rstRecibo("fecha_dep"), "Long Date" ) & vbCrLf
c = c & "Usuario: " & rstRecibo("usuario") & " " & Ambiente.Estacion & " " & rstRecibo("usuhora") & vbCrLf
c = c & vbCrLf
c = c & "IMPORTE " & Formato( rstRecibo("importe"), "##,##0.00" ) & vbCrLf
c = c & Letra( rstRecibo("Importe"), Trim(rstMoneda("Descrip")), True,rstMoneda("Nombre") )
c = c & vbCrLf
c = c & vbCrLf
c = c & vbCrLf
c = c & " Autorizo " & vbCrLf
c = c & " ________________________" & vbCrLf
c = c & vbCrLf
c = c & vbCrLf
c = c & vbCrLf
c = c & vbCrLf

if Ambiente.rstEstacion("ticketcorte") <> 0 Then
c = c & Chr(27) & Chr(105)
end if

if Ambiente.rstEstacion("ticket") <> 0 Then
if clAt( "LPT", Ambiente.rstEstacion("pticket") ) > 0 Then
Out Trim(Ambiente.rstEstacion("pticket")), c
else
if Ambiente.Ticket.PortOpen Then
Ambiente.Ticket.Output = c
end if
end if
End if

End Sub

Sub ImprimeEnHojaCarta()
' Formato de recibos
' Por() Daniel
Dim rstRecibo ' Los datos del cobro
Dim rstCliente ' Los datos del cliente
Dim rstCobranza ' El dato de cobranza
Dim rstCobdet ' Detalle de cobranza

' Creamos el recordSet del encabezado de la venta
Set rstRecibo = Rst("SELECT * FROM caja WHERE abono = " & prn.Documento, Ambiente.Connection )

If rstRecibo.EOF Then
MsgBox "El movimiento no existe",vbInformation
Exit Sub
end if

' Traemos los datos del cliente
Set rstCliente = Rst("SELECT * FROM clients WHERE cliente = '" & rstRecibo.fields("CLIENTE") & "'",Ambiente.Connection )

' Traemos los datos de cobranza
Set rstCobdet = Rst( "SELECT * FROM cobdet WHERE abono = " & rstRecibo.fields( "Abono" ), Ambiente.Connection )

if Not rstCobdet.EOF Then
' Traemos los datos de cobranza
Set rstCobranza = Rst( "SELECT * FROM cobranza WHERE cobranza = " & rstCobdet.fields( "Cobranza" ), Ambiente.Connection )
end if

' Iniciamos la Impresión del encabezado de la forma
IniciaDocumento

EstableceFuente "Courier New", 20
FontBold True

' Imprimimos el Nombre de la empres
FilledBox Col(3),0.2,Col(77),0.33, RGB( 200, 200, 200 )
Say Row(1),Col(3), Ambiente.Empresa

EstableceFuente "Courier New", 12
FontBold True

Say Row(3),Col(32), "RECIBO DE INGRESOS"

EstableceFuente "Courier New", 10
FontBold False

if Not rstCliente.EOF Then
Linea Col(3), Row(4), Col(74), Row(4)
Say Row(5),Col(3), "Fecha: " & rstRecibo.fields("Fecha_dep")
Say Row(6),Col(3), rstCliente.fields("Nombre")
Say Row(7),Col(3), rstCliente.fields("Calle") & " " & rstCliente.fields("Colonia")
Say Row(8),Col(3), rstCliente.fields("Pobla") & " " & rstCliente.fields("Estado") & " " & rstCliente.fields("Pais")
Say Row(9),Col(3), rstCliente.fields("RFC")

if Not rstCobdet.EOF Then
Say Row(10), Col(3), "AFECTA DOCUMENTO: " & rstCobranza.fields("TIPO_DOC" ) & " " & rstCobranza.fields("No_referen" )
Say Row(11), Col(3), "SALDO : " & Formato( rstCobranza.fields("SALDO" ), "###,###,###.00" )
end if
end if

Linea Col(3), Row(12), Col(74), Row(12)

Say Row(13),Col(3), "Pago No. " & rstRecibo.fields("Abono")
Say Row(14),Col(3), "Documento de pago: " & rstRecibo.fields("Tipo_doc") & " " & rstRecibo.fields("No_referen")
Say Row(15),Col(3), "Pago con : " & rstRecibo.fields("Moneda") & " " & Formato(rstRecibo.fields("Pago"),Ambiente.FDinero)
Say Row(16),Col(3), "Importe Neto : " & rstRecibo.fields("Moneda") & " " & Formato(rstRecibo.fields("Importe"),Ambiente.FDinero)
Say Row(17),Col(3), "Cambio : " & rstRecibo.fields("Moneda") & " " & Formato(rstRecibo.fields("Pago") - rstRecibo.fields("Importe"),Ambiente.FDinero)

nRenglon = 18

' Imprimimos las observaciones de la operacion
nLineas = CuantasLineas( rstRecibo.Fields("Observ") )

' Imprimimos cada una de ellas
For n = 1 to nLineas
nRenglon = nRenglon + 1
Say Row(nRenglon), Col(16), strLinea( rstRecibo.Fields("Observ"), n)
Next

nRenglon = nRenglon + 1
Linea Col(3), Row(nRenglon), Col(74), Row(nRenglon)

FinDocumento

End Sub

Publicado el por — 3 comentarios

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

wpid-12921860_959637817437617_1017869236_o.png.jpg

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