Amigos, tengo el siguiente c贸digo:
Como se puede apreciar estoy pasando todos los registros de un recordset a otro recordset y los pasa bien, pero el problema que tengo es que al final del c贸digo mostrado me env铆a un error que dice as铆:
Me da la impresi贸n de que esta tratando de agregar un registro m谩s alla de los que tiene el recordset or铆gen.
Alguien que me de una idea de por donde buscarle ?
Saludos
IF oRsDoc:BOF() .AND. oRsDoc:EOF()
ELSE
oRsDoc:MoveFirst()
DO WHILE ! oRsDoc:EOF()
oRsWrk:AddNew()
oRsWrk:Fields("WRK_CTD"):Value := oRsDoc:Fields("DET_CTD"):Value
oRsWrk:Fields("WRK_UDM"):Value := oRsDoc:Fields("DET_UDM"):Value
oRsWrk:Fields("WRK_DES"):Value := oRsDoc:Fields("DET_DES"):Value
oRsWrk:Fields("WRK_PUN"):Value := oRsDoc:Fields("DET_PUN"):Value
oRsWrk:Fields("WRK_IMP"):Value := oRsDoc:Fields("DET_IMP"):Value
IF oRsDoc:Fields("DET_FLE"):Value
oRsWrk:Fields("WRK_FLE"):Value := (.T.)
ELSE
oRsWrk:Fields("WRK_FLE"):Value := (.F.)
ENDIF
oRsWrk:Update()
oRsDoc:MoveNext()
ENDDO
ENDIFComo se puede apreciar estoy pasando todos los registros de un recordset a otro recordset y los pasa bien, pero el problema que tengo es que al final del c贸digo mostrado me env铆a un error que dice as铆:
Application
===========
Path and name: C:\SapWin\SapWin.Exe (32 bits)
Size: 868,864 bytes
Time from start: 0 hours 0 mins 11 secs
Error occurred at: 21/05/2008, 21:29:18
Error description: Error adodb.recordset/6 DISP_E_UNKNOWNNAME: FIELDS
Args:
[ 1] = C DET_CTD
Me da la impresi贸n de que esta tratando de agregar un registro m谩s alla de los que tiene el recordset or铆gen.
Alguien que me de una idea de por donde buscarle ?
Saludos
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
