- Logeo por usuario
- Alta de Caducidad de Medicamentos y datos
- Alta de Doctores
- Consultas a Pacientes
- Expediente digital de Pacientes
- Ofertas de Medicamento por Fecha /Horas
- Manejo de recetas Medicas
- Reportes
Resultados de la búsqueda para: my business imprimir dos ticket
Solución a error: La conversión de datos char a datetime
Muchas gracias por visitarnos. Trataremos de contestar tus preguntas a la brevedad.
Envíanos un whatsapp al 7222816462
Canal oficial de Vídeo Tutoriales
Estamos en espera de tus comentarios. Contáctanos por correo a jofelchez@gmail.com y por ese mismo medio te enviaremos los tips para mejorar el rendimiento de Mybusiness Pos
La conversión de datos char a datetime produjo un valor datetime fuera de intervalo
error en linea 304
Solución a Código de Error 29506
En alguna ocasión al instalar el sql Managment Studio les ha desplegado la siguiente Imagen.
Como Resolver:
1.-cmd abrir como Administrador.. cd..cd..Ejecutar la aplicación desde el Cmd nos evitara este molesto mensaje de Privilegios.
2.-Click derecho sobre la aplicación , seleccionar Propiedades /ficha compatibilidad , activar la casilla de verificacion que dice Modo de Compatibilidad y Listo
Nota: es Importante verificar la Arquitectura de nuestro Equipo.El instalador encontró un error inesperado al instalar este paquete.
Esto puede indicar un problema con este paquete. El código de error es 29506.
PuntoV014, Antes de una partida nueva
Public Sub Main()
Dim rstCantidad
Dim nCantidad
Dim rstProd
Dim Articulo
Dim rstArticulo
Dim Precio
Dim Cantidad
Dim Descripcion
‘Call buscaReceta()
‘Set rstSuma = CreaRecordSet( “SELECT SUM( cantidad * precio * ( 1 – (descuento / 100) ) * ( 1 + (impuesto / 100) ) ) As importe FROM partvta WHERE venta = ” & Me.Venta, Ambiente.Connection )
‘nCantidad = Val2( rstSuma(0) )
‘If nCantidad >= 1500 Then
‘ CambiaDescuento 30
‘ Eventos
‘Else
‘ txtFields(3) = “En ventas de mas de $1,500.00 descuento del 30%”
‘ CambiaDescuento 0
‘ Eventos
‘End If
‘ identifica el precio de lista del primer producto
IdentificaPrecio_Principal
‘ coloca la lista de precio como la primera partida
CambiaPrecio fg2.TextMatrix(1, 9) ‘Precio de lista de la primera partida
if UltimaPartida > 0 Then
Articulo = fg2.TextMatrix( UltimaPartida, 0 )
Cantidad = fg2.TextMatrix( UltimaPartida, 1 )
Precio = fg2.TextMatrix( UltimaPartida, 2 )
Importe = Val2( fg2.TextMatrix( UltimaPartida, 16 ) )
Descripcion = Mid( Trim(fg2.TextMatrix( UltimaPartida, 6 )), 1, 30 )
end if
if Ambiente.rstEstacion(“torreta”) <> 0 Then
if clAt( “LPT”, Ambiente.rstEstacion(“ptorreta”) ) > 0 Then
Out Trim(Ambiente.rstEstacion(“ptorreta”)), Chr( 12 ) & Descripcion & ” $” & Importe
else
if Ambiente.torreta.PortOpen Then
Ambiente.Torreta.OutPut = Chr( 12 ) & Descripcion & ” $” & Importe
end if
end if
end if
On Error Resume Next
ColocaAsociados
End Sub
Sub CambiaDescuento( nDescuento )
‘ La variable venta contiene el número de venta de la operación que se esta
‘ realizando
Ambiente.Connection.Execute “UPDATE partvta SET descuento = ” & nDescuento & ” WHERE venta = ” & venta
For n = 1 To fg2.Rows – 1
If clEmpty( fg2.TextMatrix( n, 0 ) ) Then
Exit For
End If
fg2.TextMatrix( n, 3 ) = nDescuento
Next
CalculaImportes
End Sub
Public Sub CambiaPrecio( nPrecio )
Set rstPartidas = CreaRecordSet( “SELECT prods.articulo, partvta.impuesto, partvta.id_salida, prods.precio2, prods.precio1, precio3, precio4, precio5, precio6, precio7, precio8, precio9, precio10 FROM partvta INNER JOIN prods ON partvta.articulo = prods.articulo WHERE partvta.venta = ” & Me.Venta, Ambiente.Connection )
While Not rstPartidas.EOF
if rstPartidas(“Precio” & nPrecio) > 0 Then
Query.Reset
Query.strState = “UPDATE”
Query.AddField “partvta”, “precio”, rstPartidas(“Precio” & nPrecio)
Query.Condition = “id_salida = ” & rstPartidas(“id_salida”)
Query.CreateQuery
Query.Execute
For n = 1 To fg2.Rows – 1
If clEmpty(fg2.TextMatrix(n, 0)) Then
Exit For
End If
If Trim(fg2.TextMatrix(n, 0)) = Trim(rstPartidas(“articulo”)) Then
‘fg2.TextMatrix(n, 2) = Formato(rstPartidas(“Precio” & nPrecio) * ( 1 + (rstPartidas(“impuesto”) / 100) ), Ambiente.FDinero)
fg2.TextMatrix(n, 2) = Formato(rstPartidas(“Precio” & nPrecio) , Ambiente.FDinero)
fg2.TextMatrix(n, 9) = val2(nPrecio)
End If
Next
end if
rstPartidas.MoveNext
Wend
CalculaImportes
End Sub
Sub ColocaAsociados()
Dim rstAsociados
Dim cAsociado
cAsociado = “”
Set rstAsociados = CreaRecordSet(“SELECT asociados.articulo, asociados.observ, prods.descrip FROM asociados INNER JOIN prods ON asociados.articulo = prods.articulo WHERE padre = ‘” & rstArticulo(“Articulo”) & “‘”, Ambiente.Connection)
While Not rstAsociados.EOF
cAsociado = cAsociado & ” ” & Trim(rstAsociados(“articulo”)) & ” ” & Trim(rstAsociados(“descrip”)) & ” ” & Trim(rstAsociados(“Observ”)) & vbCrLf
rstAsociados.MoveNext
Wend
If Not clEmpty( (cAsociado) ) Then
cAsociado = “Recomendaciones: ” & cAsociado
EnviaMensajeGrid (cAsociado)
End If
End Sub
Sub buscaReceta()
Set rstPartida = CreaRecordSet( “SELECT * FROM partvta WHERE id_salida = ” & fg2.TextMatrix(UltimaPartida, 7), Ambiente.Connection )
If Not rstPartida.EOF Then
Set rstReceta = CreaRecordSet( “SELECT * FROM recetas WHERE articulo = ‘” & rstPartida(“articulo”) & “‘”, Ambiente.Connection )
If Not rstReceta.EOF Then
Call SetSessionValue( Ambiente, “ID_SALIDA”, fg2.TextMatrix(UltimaPartida, 7) )
Script.RunForm “RECETASDISPLAY”, Me, Ambiente,, True
Call SetSessionValue( Ambiente, “ID_SALIDA”, 0 )
End If
End If
End Sub
sub identificaPrecio_Principal()
cArticulo = fg2.TextMatrix( 1, 0 ) ‘Precio del primer renglón
Set rstArticulo = CreaRecordSet(“SELECT descrip, donativo, iespecial, oferta,precio1, precio2, precio3, precio4, precio5, precio6, precio7, precio8, precio9, precio10, impuesto, c2, c3, c4, c5, c6, c7, c8, c9, c10 FROM prods WHERE articulo = ‘” & cArticulo & “‘ AND sinvolumen = 0”, Ambiente.Connection)
If rstArticulo.EOF Then
Exit Sub
End If
‘Set rstImpuesto = CreaRecordSet(“SELECT valor FROM impuestos WHERE impuesto = ‘” & rstArticulo(“Impuesto”) & “‘”, Ambiente.Connection)
Set rstSuma = CreaRecordSet(“SELECT Sum( cantidad ) As suma FROM partvta WHERE venta = ” & Me.Venta & ” AND articulo = ‘” & cArticulo & “‘ AND prcantidad = 1”, Ambiente.Connection)
If rstSuma.eof Then
Exit Sub
End If
nSuma = rstSuma(“Suma”)
nPrecio = rstArticulo(“Precio1”)
nLista = 1
‘If rstArticulo(“c2”) > 0 Then
‘ nPrecioBaja = rstArticulo(“Precio2”)
‘ nCantidadBaja = rstArticulo(“c2”)
‘End If
For n = 2 To 10
If rstArticulo(“C” & n) > 0 Then
If rstArticulo(“C” & n).Value <= nSuma Then
nPrecio = rstArticulo(“Precio” & n)
nLista = n
End If
End If
Next
fg2.TextMatrix(1, 9) = nLista ‘ colica el precio de lista corregido
end sub
Solución a error Button_CIIck CatalogoSAT Se ha terminado la conexión: Error Inesperado de envio.
Button_CIIck CatalogoSAT Se ha terminado la conexión:
Error Inesperado de envio. –> 0 -2146233079 En linea:
264