HIERICALFLEXGRID GUARDAR ITEMS

Question

Hola amigos quiero guardar varios items que estan en un hiericalflexgrid pero me sale error en el insert del detalle solo estoy capturando el numero de factura no se como armar el código por favor una ayuda.

Private Sub btnGuardar_Click()
  Dim numeroFac As Integer, codigoPro As Integer, precioDet As Double, cantidadDet As Integer
  Dim strSQL  As String
  
  
  strSQL = "INSERT INTO Factura(facRazonSocial,facRUC)VALUES('" & txtRazonSocial.Text & "', '" & txtRuc.Text & "')"
  rs.Open strSQL, cn, adOpenStatic, adLockOptimistic


  
  strSQL = "SELECT MAX(facNumero) AS Codigo FROM Factura"
  rs.Open strSQL, cn, adOpenStatic, adOpenStatic
  numeroFac = rs.Fields("Codigo")
  lblFacNumero.Caption = numeroFac


  With flex
    .Row = 1
    Do While .Row <= .Rows
      .Col = 1
      .Text = CInt(numeroFac)
      .Col = 2
      .Text = CInt(codigoPro)
      .Col = 3
      .Text = CDbl(precioDet)
      .Col = 4
      .Text = CInt(cantidadDet)


      strSQL = "INSERT INTO Detalle VALUES(" & numeroFac & ", " & codigoPro & ", " & precioDet & ", " & cantidadDet & ")"
      rs.Open strSQL, cn, adOpenStatic, adLockOptimistic
      
      strSQL = "UPDATE Producto SET proStock = proStock - " & cantidadDet & " WHERE proCodigo = " & codigoPro & ""
      rs.Open strSQL, cn, adOpenStatic, adLockOptimistic
      .Row = .Row + 1
    Loop
  End With


End Sub

---

Pedro Avila

Answer 1

Estimado Pedro Avila

               podria decirnos cual es el error que te genera, podrias generar el script de tus tablas, para darnos cuenta el tipo de dato que quieres ingresa.

Saludos

---

Capacitaciones Corporativas
Si pequeña es la Patria, uno grande la sueña
Rubén Darío
Principe de las letras Castellanas
Poeta Nicaragüense
Ay Nicaragua, Nicaraguita Video Clip

Answer 2

Ya lo solucione muchas gracias de todas maneras aca muestro la corrección.

Private Sub btnGuardar_Click()
  Dim numeroFac As Integer, codigoPro As Integer, precioDet As Double, cantidadDet As Integer
  Dim strSQL  As String
  
  
  strSQL = "INSERT INTO Factura(facRazonSocial,facRUC)VALUES('" & txtRazonSocial.Text & "', '" & txtRuc.Text & "')"
  rs.Open strSQL, cn, adOpenStatic, adLockOptimistic


  
  strSQL = "SELECT MAX(facNumero) AS Codigo FROM Factura"
  rs.Open strSQL, cn, adOpenStatic, adOpenStatic
  numeroFac = rs.Fields("Codigo")
  lblFacNumero.Caption = numeroFac
  rs.Close


  With flex
    .Row = 1
    Do While .Row <= .Rows - 1


      codigoPro = .TextMatrix(.Row, 0)
      precioDet = .TextMatrix(.Row, 2)
      cantidadDet = .TextMatrix(.Row, 3)


      strSQL = "INSERT INTO Detalle(facNumero, proCodigo, detPrecio, detCantidad) VALUES(" & numeroFac & ", " & codigoPro & ", " & precioDet &                      ", " & cantidadDet & ")"
      rs.Open strSQL, cn, adOpenStatic, adLockOptimistic
      
      strSQL = "UPDATE Producto SET proStock = proStock - " & cantidadDet & " WHERE proCodigo = " & codigoPro & ""
      rs.Open strSQL, cn, adOpenStatic, adLockOptimistic
      If .Row + 1 = .Rows Then Exit Do
      .Row = .Row + 1
    Loop
  End With
'  Call Desconectar
End Sub

---

Pedro Avila