Hola, amigo

Podrías poner mas datos para ayudarte

Saludos

gracias por la atencion.

el tema es asi te paso el codigo, todo bien hasta que mando a facturar, no se carga ni el detalle ni la factura en la base de datos. el temporal carga bien sin problemas. uso base sql 2008 todo lo demas funciona ok

Private Sub ComAgregar_Click()
If Val(txtfactura.Text) = 0 Then
MsgBox "Ingrese el numero de Factura", vbInformation, "Aviso": txtfactura.SetFocus: Exit Sub
End If
If Val(txtpedido.Text) = 0 Then MsgBox "Ingrese la cantidad a pedir", vbInformation, "Aviso": txtpedido.SetFocus: Exit Sub
If Label18.Caption = "" Then MsgBox "Debe elegir un Producto de la lista", vbInformation, "Aviso": Exit Sub
If Val(txtpedido.Text) > Val(txtcantidad.Text) Then MsgBox "No hay stock suficiente de este producto", vbInformation, "Aviso": Exit Sub
With RsTemporal
.Requery
.Find "idproducto='" & Val(Label18.Caption) & "'"
If .EOF Then Else MsgBox "Este producto ya fue cargado en la factura", vbInformation, "Aviso": Exit Sub
End With
formatogrillatemporal
With RsTemporal
.Requery
.AddNew
!codfactura = Val(txtfactura.Text)
!codproducto = Val(Label18.Caption)
!producto = Trim(txtproducto.Text)
!canti = Val(txtpedido.Text)
!precio = CDbl(txtprecio.Text)
!importe = Val(txtpedido.Text) * CDbl(txtprecio.Text)
.Update

End With
formatogrillaproductos
formatogrillatemporal

subtotal = subtotal + (Val(txtpedido.Text) * CDbl(txtprecio.Text))
txtsubtotal.Text = subtotal
txtiva.Text = subtotal * 0.21
txttotal.Text = subtotal + (subtotal * 0.21)
End Sub

Private Sub ComFacturar_Click()
If Label21.Caption = "" Then MsgBox "Ingrese un cliente para facturar", vbInformation, "Aviso": Exit Sub
With RsTemporal
.Requery
If .BOF Or .EOF Then MsgBox "No hay ningun producto en el detalle de factura", vbInformation, "Aviso": formatogrillatemporal: Exit Sub Else formatogrillatemporal: Exit Sub
End With
With RsFactura
.Requery
.AddNew
!codigofactura = txtfactura.Text
!fechafactura = Date
!codcliente = Val(Label21.Caption)
!subtotal = subtotal
!iva = subtotal * 0.21
!total = subtotal + (subtotal * 0.21)
.Update
End With

Dim registros As Integer
registros = RsTemporal.RecordCount
RsTemporal.Requery
RsTemporal.MoveFirst
For x = 1 To registros
With RsDetallefactura
.Requery
.AddNew
!codfactura = DataGridDetalleFactura.Columns(1).Text
!codproducto = DataGridDetalleFactura.Columns(2).Text
!canti = DataGridDetalleFactura.Columns(4).Text
!precio = DataGridDetalleFactura.Columns(5).Text
!importe = DataGridDetalleFactura.Columns(6).Text
.Update
End With
If x = registros Then Else RsTemporal.MoveNext
Next

End Sub

Private Sub DataComboClientes_Change()
With RsClientes
.Requery
.Find "apellido='" & Trim(DataComboClientes.Text) & "'"
Label21.Caption = !codclientes
txtNombre.Text = !nombre
txtdireccion.Text = !direccion
txttelefono.Text = !telefono
txtdni.Text = !dni
Label12.Caption = !localidad
With RsLocalidad
.Requery
.Find "idlocalidad='" & Trim(Label12.Caption) & "'"
txtlocalidad.Text = !localidad
End With
End With
End Sub


Private Sub DataGridProductos_Click()
With RsProductos
If .BOF Or .EOF Then Exit Sub
Label18.Caption = DataGrid2.Columns(0).Text
txtproducto.Text = DataGrid2.Columns(1).Text
txtdescripcion.Text = DataGrid2.Columns(2).Text
txtcantidad.Text = DataGrid2.Columns(3).Text
txtprecio.Text = DataGrid2.Columns(4).Text
End With
End Sub

Private Sub Form_Load()
productos
Factura
Detallefactura
Temporal
clientes
localidad

Set DataComboClientes.RowSource = RsClientes
DataComboClientes.BoundColumn = "Apellido"
DataComboClientes.ListField = "Apellido"

Set DataGridDetalleFactura.DataSource = RsTemporal
formatogrillatemporal

Set DataGridProductos.DataSource = RsProductos
formatogrillaproductos
End Sub

Sub formatogrillatemporal()
With RsTemporal
'If .BOF Or .EOF Then Exit Sub
DataGridDetalleFactura.Columns(0).Width = 0
DataGridDetalleFactura.Columns(1).Width = 0
DataGridDetalleFactura.Columns(2).Width = 0

DataGridDetalleFactura.Columns(3).Width = 3500
DataGridDetalleFactura.Columns(4).Width = 1500
DataGridDetalleFactura.Columns(5).Width = 1500
DataGridDetalleFactura.Columns(6).Width = 1500

End With

End Sub

Sub formatogrillaproductos()
With RsProductos
'If .BOF Or .EOF Then Exit Sub
DataGridProductos.Columns(0).Width = 0
DataGridProductos.Columns(1).Width = 2000
DataGridProductos.Columns(2).Width = 3500
DataGridProductos.Columns(3).Width = 1500
DataGridProductos.Columns(4).Width = 1500

End With
End Sub

Hola amigo, a mi me queda duda acá.


With RsTemporal
.Requery
If .BOF Or .EOF Then MsgBox "No hay ningun producto en el detalle de factura", vbInformation, "Aviso": formatogrillatemporal: Exit Sub
Else
formatogrillatemporal: Exit Sub
End With

estas validando que exista un producto en el temporal, si no existe muestras una alerta y terminas el codigo(OK), pero si existen productos igualmente lo terminas con otro exit sub, y esto no aplica.

si existen productos en el temporal debe continuar el resto del codigo.


Saludos...

Nos comentas como te fué.

jajaja hace 3 dias que estaba con esto y no podia darme cuenta, gracias amigo. ya no me daba la cabeza, un abrazo salu2

Gracias amigo igualmente, si tienes mas dudas estamos a la orden