Menu

  • slider04-vb6sqlhd
  • slider01-vb6sqlhd
  • slider01-vb6sqlhd
  • slider01-vb6sqlhd
  • slider01
  • slider01
  • slider01
  • slider01

Suscríbete a Aprende-Viendo 5.0

Content

DESCONTAR LA CANTIDAD DE STOCK DESPUES DE CANCELAR LOS ABONOS

0
Como esta Grupo de aprende viendo... Mi consulta es la siguiente. tengo las tablas PRODUCTOS, APARTADOPRODUCTOS (datos del apartado osea fecha, entre otros), ABONOPRODUCTOS EL cual realizo apartados oh pagos por abono de la prenda y el cliente me hace un abono y queda restando X monto esto lo reflejo en la tabla ABONOPRODUCTOS el cliente al terminar de cancelar la prenda en la tabla ABONO lo que restaba queda en 0 y en la tabla DETALLEPRODUCTO (detalle de la prenda) el ESTADO "SIN CANCELAR O CANCELADO" hasta alli voy bien pero para descontarme el stock de cada prenda en la tabla PRODUCTOS es aqui donde nose como aplicar o como hacer... NECESITO UNA AYUDAAAA PLISSS
       
  • Respuesta de laura el Domingo, Abril 08 2018, 05:55 PM · Ocultar · #1
    hola Jose Ramirez aqui te voy adjuntar la imagen del From y el codigo para que explicarme mejor. eso de mandar a traer el estatus a CANCELADO esta listo lo que no consigo es como restar las prendas que estan en la tabla detalleproductos de la tabla productos
    CODIGO DEL BOTON
    Private Sub CmdPagos_Click()
    'On Error GoTo probando
    Set rs = New ADODB.Recordset
    rs.CursorLocation = adUseClient
    rs.Open "Select * from pagoapart", CN, adOpenDynamic, adLockOptimistic
    ''''''''''''''''

    Dim I
    If Text5.Text = "" Then
    MsgBox "¡Debe Buscar el Cliente y Colocar el Monto que Desea Abonar!", vbInformation
    CmdBusc.SetFocus
    Exit Sub
    End If
    If Txtabono.Text = "" Then
    MsgBox ("!Ingrese el Monto que Desea Abonar¡")
    Txtabono.SetFocus
    Else
    If MsgBox("¿Desea Abonar a la Cuota?", 4 + vbQuestion + vbDefaultButton1, "Grabar") = 6 Then
    ''''''''''''''''
    With rs
    .Requery
    .AddNew
    !fecha = Text8.Text
    !abono = Txtabono.Text
    !cod_apart = Text7.Text
    !cod_cliente = ldlcod.Caption
    !debe = Text6.Text
    !estado = Text4.Text
    .UpdateBatch
    .Requery
    End With
    Txtabono = ""
    Txtdebe = ""
    Text6 = ""
    ''''AQUI ACTUALIZA LA GRILLA DE LOS ABONOS'''
    Adodc3.Refresh
    Set MSHFlexGrid2.DataSource = Adodc3
    formatopagoabonos
    MSHFlexGrid2.Refresh
    '''''''''''''''''''''''''''''
    Set rs = New ADODB.Recordset
    rs.Open "SELECT CASE WHEN EXISTS (Select * From pagoapart WHERE cod_cliente= '" & ldlcod.Caption & "' and estado = 'ABONADO') Then CAST(1 As BIT) Else CAST(0 As BIT) End", CN
    Set DataGrid5.DataSource = rs
    If DataGrid5.Text = 0 Then
    MsgBox "!Tiene Abonos Pendientes¡"
    Else
    CN.Execute "UPDATE apartados SET estado='CANCELADO' WHERE cod_cliente='" + ldlcod.Caption + "' and cod_apart='" + Text7.Text + "'"

    '''''''''VERIFICAR SI HAY APARTADOS CANCELADOS''''''''''''''''''''
    Set rs = New ADODB.Recordset
    rs.Open "SELECT CASE WHEN EXISTS (Select * From apartados WHERE cod_cliente= '" & ldlcod.Caption & "' and estado = 'CANCELADO') Then CAST(1 As BIT) Else CAST(0 As BIT) End", CN
    Set DataGrid5.DataSource = rs
    If DataGrid5.Text = 0 Then
    MsgBox "!Tiene Apartados Pendientes¡"
    Else
    CN.Execute "UPDATE detapartados SET estado='CANCELADO' WHERE cod_cliente='" + ldlcod.Caption + "' and cod_apart='" + Text7.Text + "'"
    CN.Execute "UPDATE pagoapart SET estado='CANCELADO' WHERE cod_cliente='" + ldlcod.Caption + "' and cod_apart='" + Text7.Text + "'"
    '''''''''ACTUALIZAR STOCK DE PRODUCTOS''''''''''''''''''''


    'cn.Execute "Update productos Set stock = stock - cantidad.vendido FROM productos prod INNER JOIN (SELECT cod_prod, SUM(cantidad) AS vendido FROM detapartados WHERE cod_cliente>='" + ldlcod.Caption + "' GROUP BY cod_prod) AS cantidad ON prod.cod_prod = detapartados.cod_prod"

    limp
    Text5.SetFocus
    'Exit Sub
    'probando:
    'MsgBox Err.Description, vbInformation, "Aviso"
    End If
    End If
    End If
    End If
    End Sub
    • laura - more than a month ago
      Claro que la imagen de las tablas no les coloque la relacion pero si las tengo relacionadas
  •  
  •  
    Respuesta de Jose Ramirez el Martes, Abril 03 2018, 11:40 AM · Ocultar · #2
    hola,

    http://aprende-viendo.com/preguntas-respuestas/actualizar-stock-al-realizar-una-compra

    lo que habría que hacer es que al realizar un abono, mandar traer el estatus y si es "CANCELADO" proceder a rebajar el stock
Agregar Tu Respuesta
Por favor registrese o ingrese para poder publicar su respuesta.

Agradesco tu Paciencia. Muchas Gracias por la espera! Somos Aprende Viendo 5.0

Grupo AprendeViendo & Ronald López agradecen a todos sus fieles seguidores por la larga espera. Basados en nuestro nuevo concepto, Grupo Aprendeviendo les ofrece un sin fin de posibilidades en sus largas horas de adiestramiento y soluciones de problemas tanto empresariales como cotidianos. Sigamos siendo un portal de enseñanza de virtual gratuito y más que eso!

Copyright © 2006 - 2014 - Grupo AprendeViendo & Ronald López. Todos los Derechos Reservados

Grupo AprendeViendo a sido desarrollado por Ronald López - Kalizron. Esta prohibida su reproducción total o parcial sin previa autorización de parte de sus autores. Ronald López Bahamonde - Resolución: 1024-768 - Aviso Legal - Términos de Uso

Log In or Register

fb iconLog in with Facebook