no siempre graba registro
Publicado por vz (1 intervención) el 25/09/2008 08:06:39
buenos días,
Tengo problemas con una parte del código en la que graba un registro en una tabla SQL.
En algunos equipos, con el mismo código, graba y en otros no.
Y en los equipos en los que no llega a grabar el registro, lo hace bien con otras tablas.
No sé si me he explicado bien.
Os adjunto el código, aunque no sé si puede ser un problema del SQL, de la conexión o de la versión de SO????
Private Sub GenerarAlbaranLineaDetallRAN(OBJADO As clsADO, rcs As ADOR.Recordset, rcsLinea As ADOR.Recordset)
Dim rcsRan As ADOR.Recordset
Dim rcsPedido As ADOR.Recordset
Dim sql As String
sql = "SELECT * FROM dbo.tbLogisticaCabecera INNER JOIN"
sql = sql & " dbo.TbLogisticaLinea ON dbo.tbLogisticaCabecera.IdLogistica = dbo.TbLogisticaLinea.IdLogistica"
sql = sql & " where dbo.tbLogisticaCabecera.IdArticulo = '" & rcs.Fields("IdArticulo") & "'"
sql = sql & " and dbo.TbLogisticaLinea.RutaTransporte = '" & rcs.Fields("RutaTransporte") & "'"
Set rcsPedido = OBJADO.CrearRecordset("tbPedidoVentaRANLinea", "IdArticulo = '" & rcs.Fields("IdArticulo") & "' and PedidoCliente = '" & rcs.Fields("rutatransporte") & "'")
If Not rcsPedido Is Nothing Then
If rcsPedido.RecordCount > 0 Then
While Not rcsPedido.EOF
Set rcsRan = OBJADO.CrearRecordsetVacio("TbAlbaranVentaLineaDetalleRAN")
rcsRan.AddNew
rcsRan.Fields("IdLineaALbaran") = rcsLinea.Fields("IdLineaAlbaran")
rcsRan.Fields("IdALbaran") = rcsLinea.Fields("IdAlbaran")
rcsRan.Fields("RanNumber") = Nz(rcsPedido.Fields("RanNumber"), "")
rcsRan.Fields("UltimoRanNumber") = rcsPedido.Fields("UltimoRanNumber")
rcsRan.Fields("Cantidad") = rcsPedido.Fields("QPedida")
rcsRan.Fields("RutaTransporte") = rcs.Fields("RutaTransporte")
rcsRan.Fields("FechaInicioRecogida") = rcsPedido.Fields("FechaInicioRecogida")
rcsRan.Fields("HoraInicioRecogida") = rcsPedido.Fields("HoraInicioRecogida")
rcsRan.Fields("FechaFinRecogida") = rcsPedido.Fields("FechaFinRecogida")
rcsRan.Fields("HoraFinRecogida") = rcsPedido.Fields("HoraFinRecogida")
rcsRan.Fields("FechaMinLLegada") = rcsPedido.Fields("FechaMinLLegada")
rcsRan.Fields("HoraMinLLegada") = rcsPedido.Fields("HoraMinLLegada")
rcsRan.Fields("FechaMaxLLegada") = rcsPedido.Fields("FechaMaxLLegada")
rcsRan.Fields("HoraMaxLLegada") = rcsPedido.Fields("HoraMaxLLegada")
rcsRan.Update
rcsPedido.MoveNext
OBJADO.GrabarRecordset rcsRan
Wend
End If
End If
Set rcsPedido = Nothing
Set rcsRan = Nothing
End Sub
Gracias de antemano.
Tengo problemas con una parte del código en la que graba un registro en una tabla SQL.
En algunos equipos, con el mismo código, graba y en otros no.
Y en los equipos en los que no llega a grabar el registro, lo hace bien con otras tablas.
No sé si me he explicado bien.
Os adjunto el código, aunque no sé si puede ser un problema del SQL, de la conexión o de la versión de SO????
Private Sub GenerarAlbaranLineaDetallRAN(OBJADO As clsADO, rcs As ADOR.Recordset, rcsLinea As ADOR.Recordset)
Dim rcsRan As ADOR.Recordset
Dim rcsPedido As ADOR.Recordset
Dim sql As String
sql = "SELECT * FROM dbo.tbLogisticaCabecera INNER JOIN"
sql = sql & " dbo.TbLogisticaLinea ON dbo.tbLogisticaCabecera.IdLogistica = dbo.TbLogisticaLinea.IdLogistica"
sql = sql & " where dbo.tbLogisticaCabecera.IdArticulo = '" & rcs.Fields("IdArticulo") & "'"
sql = sql & " and dbo.TbLogisticaLinea.RutaTransporte = '" & rcs.Fields("RutaTransporte") & "'"
Set rcsPedido = OBJADO.CrearRecordset("tbPedidoVentaRANLinea", "IdArticulo = '" & rcs.Fields("IdArticulo") & "' and PedidoCliente = '" & rcs.Fields("rutatransporte") & "'")
If Not rcsPedido Is Nothing Then
If rcsPedido.RecordCount > 0 Then
While Not rcsPedido.EOF
Set rcsRan = OBJADO.CrearRecordsetVacio("TbAlbaranVentaLineaDetalleRAN")
rcsRan.AddNew
rcsRan.Fields("IdLineaALbaran") = rcsLinea.Fields("IdLineaAlbaran")
rcsRan.Fields("IdALbaran") = rcsLinea.Fields("IdAlbaran")
rcsRan.Fields("RanNumber") = Nz(rcsPedido.Fields("RanNumber"), "")
rcsRan.Fields("UltimoRanNumber") = rcsPedido.Fields("UltimoRanNumber")
rcsRan.Fields("Cantidad") = rcsPedido.Fields("QPedida")
rcsRan.Fields("RutaTransporte") = rcs.Fields("RutaTransporte")
rcsRan.Fields("FechaInicioRecogida") = rcsPedido.Fields("FechaInicioRecogida")
rcsRan.Fields("HoraInicioRecogida") = rcsPedido.Fields("HoraInicioRecogida")
rcsRan.Fields("FechaFinRecogida") = rcsPedido.Fields("FechaFinRecogida")
rcsRan.Fields("HoraFinRecogida") = rcsPedido.Fields("HoraFinRecogida")
rcsRan.Fields("FechaMinLLegada") = rcsPedido.Fields("FechaMinLLegada")
rcsRan.Fields("HoraMinLLegada") = rcsPedido.Fields("HoraMinLLegada")
rcsRan.Fields("FechaMaxLLegada") = rcsPedido.Fields("FechaMaxLLegada")
rcsRan.Fields("HoraMaxLLegada") = rcsPedido.Fields("HoraMaxLLegada")
rcsRan.Update
rcsPedido.MoveNext
OBJADO.GrabarRecordset rcsRan
Wend
End If
End If
Set rcsPedido = Nothing
Set rcsRan = Nothing
End Sub
Gracias de antemano.
Valora esta pregunta
0