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
