Publicado el Dejar un comentario

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

Publicado el Dejar un comentario

Donde pagar factura telcel


Puede pagar su factura en línea marcando *111 desde su Telcel, en www.mitelcel.com o en la App Mi Telcel. Proporcionando su número celular en:

  • Centros de Atención a Clientes, Centro de ventas Telcel, Distribuidores autorizados, Sanborns, Bancomer, Banamex y Cadenas de autoservicio autorizadas*. También puede solicitar domiciliar su servicio con tarjeta de crédito o débito en los Centros de atención a Clientes Telcel. O puede pagar presentando su factura en:                 Convenio – Referencia BANCOMER – 182251 – 0909 2767 92680 SANTANDER – 4565 – 0909 2767 92680 HSBC – 2904 – 0909 2767 92680 BANORTE – IXE – 37478 – 0909 2767 92680 SEARS 0909 2767 9267 OXXO 0909 2767 9267 Referencia única: 0909 2767 92680 BANBAJÍO, TELECOMM, 7ELEVEN, CI BANCO, BANAMEX *Para mayor información de lugares de pago ingrese a: www.telcel.com/formasdepago
Publicado el 1 comentario

Cómo habilitar la venta a Granel

En la ventana de artículo buscamos al pestaña “información adicional” y habilitamos dos casillas:

Vende a granel. Esta casilla permite que las ventas del artículo se puedan efectuar en cantidades decimales (0.250, 0.100, 0.5, etc.). Aplica para los casos como venta de productos pesados.

Icono

Ticket Con Cantidad Decimal 112.00 KB 576 downloads

Este Formato muestra las unidades en forma decimal (2.00, 3.25, 0.25) los artículos...

Solicitud de peso. Esta casilla se habilita para que, al momento de que se realice la venta del artículo, de inmediato aparezca una ventana solicitando la cantidad  del producto que se ofrece al cliente. En caso de que tuviese una báscula conectada y configurada al sistema, en ese momento debería colocar el producto en la tara para que la cantidad aparezca en automático en el sistema y se cierre la ventana. En caso contrario, puede colocar la cantidad de forma manual y presionar [enter] para cerrar la ventana. Si usted cuenta con una báscula que genera códigos de barra, no es necesaria esta opción debido a que en el mismo código ya lleva implícito la cantidad de producto a vender.

Publicado el 2 comentarios

Cumplimos Diez años

Feliz Aniversario!!!

Cumplimos 10 años de ayudar a los compañeros distribuidores y usuarios finales.

Las cifras hasta la fecha son:

  • 500 visitas diarias
  • 440,00 visitas totales de usuarios únicos
  • 1,180,000 reproducciones en youtube
  • 770 suscriptores en youtube
  • 320 posts
  • 2,060 comentarios
  • 110 GB en descargas cada mes
  • 130 parches y programas
  • Muchos pomos, suficientes para pagar los servicios del portal , tanto mensualidades de hospedaje como dominio

Les mando un fuerte abrazo, ojalá haya aportado cosas buenas para usted en este blog.

Saludos y vamos por un año más de publicaciones a favor de sus negocios.

José Félix