In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

Copiar campos

Foro público de Xailer en español
Responder
Paco V
Mensajes: 380
Registrado: Jue Oct 27, 2005 9:08 am

Copiar campos

Mensaje por Paco V »

Quiero copiar todos loa campos de una DBF a otra DBF
Intento hacer esto:
For n := 1 to 20
::oDbfDataSet2:Fieldput(n):=::oDbfDataSet1:Fieldgetn) next n
Van por aqui los tiros?
Paco V
Arriba
Avatar de Usuario
ignacio
Site Admin
Mensajes: 9253
Registrado: Lun Abr 06, 2015 8:00 pm
Ubicación: Madrid, Spain
Contactar:
Contactar ignacio

Copiar campos

Mensaje por ignacio »

Paco,
oDbfDestino:SaveFrom( oDbfOrigen )
Saludos
"Paco V" <ssi@ono.com> escribió en el mensaje
news:447f1f2d$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>
> Quiero copiar todos loa campos de una DBF a otra DBF
>
> Intento hacer esto:
>
> For n := 1 to 20
> ::oDbfDataSet2:Fieldput(n):=::oDbfDataSet1:Fieldgetn) next n
>
> Van por aqui los tiros?
>
> Paco V
Ignacio Ortiz de Zúñiga
[Equipo de Xailer / Xailer team]
https://www.xailer.com
Arriba
Manu Exposito
Mensajes: 116
Registrado: Mié Feb 08, 2006 4:41 pm

Copiar campos

Mensaje por Manu Exposito »

Como te dice Ignacio copias la tabla como tal sin cambios, incluso podrias
hacer una copia directamente cuando sepas que estan cerradas con la funcion
FileCopy() de CT o wrappeando la del API de windows...
Ahora bien si quieres copiarla de una manera especial controlando tu... si
vas bien encaminado pero lo que tu pones esta erroneo, seria algo asi:
while !::oDbfDataSet1:Eof()
for n := 1 to 20
::oDbfDataSet2:Fieldput(n, ::oDbfDataSet1:Fieldget(n) )
next
::oDbfDataSet1:Skip()
end
Mas o menos ;-)
"Paco V" <ssi@ono.com> escribió en el mensaje
news:447f1f2d$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>
> Quiero copiar todos loa campos de una DBF a otra DBF
>
> Intento hacer esto:
>
> For n := 1 to 20
> ::oDbfDataSet2:Fieldput(n):=::oDbfDataSet1:Fieldgetn) next n
>
> Van por aqui los tiros?
>
> Paco V
Arriba
Paco V
Mensajes: 380
Registrado: Jue Oct 27, 2005 9:08 am

Copiar campos

Mensaje por Paco V »

Me ha servido las dos opciones, y he hecho esto:
WITH OBJECT oFrm := TForm5():CreateForm( Self )
:cText := "Traspasar AGENTES a Histórico"
::oDbfDataSet1:edit() //Dejo editar para cambiar
:ShowModal()
if :nModalResult == mrOK
::oDbfDataSet2:AddNew()
if ::oDbfDataset2:RecLock()
for n := 1 to 91
::oDbfDataSet2:Fieldput(n, ::oDbfDataSet1:Fieldget(n) )
next n
:oDbfDataSet2:modi :=APPDATA:usuarop
::oDbfDataSet2:mome :=dtos(date())+"-"+time()+"/A"
::oDbfDataSet2:Update()
::oDbfDataset2:RecUnLock()
endif
endif
:END()
END WITH
Y me falla el bloqueo de registros. ¿Creo que bajo mi lógica esta bien pero
que puede estar mal?
Gracias
Paco V
"Manu Exposito" <messoft@gmail.com> wrote:
>Como te dice Ignacio copias la tabla como tal sin cambios, incluso podrias
>hacer una copia directamente cuando sepas que estan cerradas
Arriba
Avatar de Usuario
ignacio
Site Admin
Mensajes: 9253
Registrado: Lun Abr 06, 2015 8:00 pm
Ubicación: Madrid, Spain
Contactar:
Contactar ignacio

Copiar campos

Mensaje por ignacio »

Paco,
No tiene sentido hacer un Addnew() después de un Edit(). O el uno o el otro,
pero no los dos a la vez.
Un saludo,
"Paco V" <ssi@ono.com> escribió en el mensaje
news:4486edde$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>
> Me ha servido las dos opciones, y he hecho esto:
>
> WITH OBJECT oFrm := TForm5():CreateForm( Self )
> :cText := "Traspasar AGENTES a Histórico"
> ::oDbfDataSet1:edit() //Dejo editar para cambiar
> :ShowModal()
> if :nModalResult == mrOK
> ::oDbfDataSet2:AddNew()
> if ::oDbfDataset2:RecLock()
> for n := 1 to 91
> ::oDbfDataSet2:Fieldput(n, ::oDbfDataSet1:Fieldget(n) )
> next n
> :oDbfDataSet2:modi :=APPDATA:usuarop
> ::oDbfDataSet2:mome :=dtos(date())+"-"+time()+"/A"
> ::oDbfDataSet2:Update()
> ::oDbfDataset2:RecUnLock()
> endif
> endif
> :END()
> END WITH
>
> Y me falla el bloqueo de registros. ¿Creo que bajo mi lógica esta bien
> pero
> que puede estar mal?
>
> Gracias
> Paco V
>
>
> "Manu Exposito" <messoft@gmail.com> wrote:
>>Como te dice Ignacio copias la tabla como tal sin cambios, incluso podrias
>
>>hacer una copia directamente cuando sepas que estan cerradas
Ignacio Ortiz de Zúñiga
[Equipo de Xailer / Xailer team]
https://www.xailer.com
Arriba
Paco V
Mensajes: 380
Registrado: Jue Oct 27, 2005 9:08 am

Copiar campos

Mensaje por Paco V »

El edit va sobre ::odBfDataSet1
y despues addnew lo hago sobre ::odBfDataSet2
Es correcto?
"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> wrote:
>Paco,
>
>No tiene sentido hacer un Addnew() después de un Edit(). O el uno o el otro,
>pero no los dos a la vez.
>
>Un saludo,
>
>"Paco V" <ssi@ono.com> escribió en el mensaje
>news:4486edde$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>>
>> Me ha servido las dos opciones, y he hecho esto:
>>
>> WITH OBJECT oFrm := TForm5():CreateForm( Self )
>> :cText := "Traspasar AGENTES a Histórico"
>> ::oDbfDataSet1:edit() //Dejo editar para cambiar
>> :ShowModal()
>> if :nModalResult == mrOK
>> ::oDbfDataSet2:AddNew()
>> if ::oDbfDataset2:RecLock()
>> for n := 1 to 91
>> ::oDbfDataSet2:Fieldput(n, ::oDbfDataSet1:Fieldget(n) )
>> next n
>> :oDbfDataSet2:modi :=APPDATA:usuarop
>> ::oDbfDataSet2:mome :=dtos(date())+"-"+time()+"/A"
>> ::oDbfDataSet2:Update()
>> ::oDbfDataset2:RecUnLock()
>> endif
>> endif
>> :END()
>> END WITH
>>
>> Y me falla el bloqueo de registros. ¿Creo que bajo mi lógica esta bien
>> pero
>> que puede estar mal?
>>
>> Gracias
>> Paco V
>>
>>
>> "Manu Exposito" <messoft@gmail.com> wrote:
>>>Como te dice Ignacio copias la tabla como tal sin cambios, incluso podrias
>>
>>>hacer una copia directamente cuando sepas que estan cerradas
>
>
Arriba
Avatar de Usuario
ignacio
Site Admin
Mensajes: 9253
Registrado: Lun Abr 06, 2015 8:00 pm
Ubicación: Madrid, Spain
Contactar:
Contactar ignacio

Copiar campos

Mensaje por ignacio »

Paco,
Entiendo. No me habí­a fijado que eran distintos DataSets.
Este código
>>> if :nModalResult == mrOK
>>> ::oDbfDataSet2:AddNew()
>>> if ::oDbfDataset2:RecLock()
>>> for n := 1 to 91
>>> ::oDbfDataSet2:Fieldput(n, ::oDbfDataSet1:Fieldget(n) )
>>> next n
>>> :oDbfDataSet2:modi :=APPDATA:usuarop
>>> ::oDbfDataSet2:mome :=dtos(date())+"-"+time()+"/A"
>>> ::oDbfDataSet2:Update()
>>> ::oDbfDataset2:RecUnLock()
se debe sustituir por este:
if :nModalResult == mrOK
WITH OBJECT ::oDbfDataSet2
:AddNew()
for n := 1 to 91
:VarPut(n, ::oDbfDataSet1:Fieldget(n) )
next n
:modi :=APPDATA:usuarop
:mome :=dtos(date())+"-"+time()+"/A"
:Update()
END WITH
Endif
Saludos
"Paco V" <ssi@ono.com> escribió en el mensaje news:4486fbbd$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>
> El edit va sobre ::odBfDataSet1
> y despues addnew lo hago sobre ::odBfDataSet2
>
> Es correcto?
>
>
>
> "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> wrote:
>>Paco,
>>
>>No tiene sentido hacer un Addnew() después de un Edit(). O el uno o el otro,
>
>>pero no los dos a la vez.
>>
>>Un saludo,
>>
>>"Paco V" <ssi@ono.com> escribió en el mensaje
>>news:4486edde$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>>>
>>> Me ha servido las dos opciones, y he hecho esto:
>>>
>>> WITH OBJECT oFrm := TForm5():CreateForm( Self )
>>> :cText := "Traspasar AGENTES a Histórico"
>>> ::oDbfDataSet1:edit() //Dejo editar para cambiar
>>> :ShowModal()
>>> if :nModalResult == mrOK
>>> ::oDbfDataSet2:AddNew()
>>> if ::oDbfDataset2:RecLock()
>>> for n := 1 to 91
>>> ::oDbfDataSet2:Fieldput(n, ::oDbfDataSet1:Fieldget(n) )
>>> next n
>>> :oDbfDataSet2:modi :=APPDATA:usuarop
>>> ::oDbfDataSet2:mome :=dtos(date())+"-"+time()+"/A"
>>> ::oDbfDataSet2:Update()
>>> ::oDbfDataset2:RecUnLock()
>>> endif
>>> endif
>>> :END()
>>> END WITH
>>>
>>> Y me falla el bloqueo de registros. ¿Creo que bajo mi lógica esta bien
>
>>> pero
>>> que puede estar mal?
>>>
>>> Gracias
>>> Paco V
>>>
>>>
>>> "Manu Exposito" <messoft@gmail.com> wrote:
>>>>Como te dice Ignacio copias la tabla como tal sin cambios, incluso podrias
>>>
>>>>hacer una copia directamente cuando sepas que estan cerradas
>>
>>
>
--
Ignacio Ortiz de Zúñiga
[Equipo de Xailer / Xailer team]
https://www.xailer.com
Arriba
Paco V
Mensajes: 380
Registrado: Jue Oct 27, 2005 9:08 am

Copiar campos

Mensaje por Paco V »

Ignacio:
Como Siempre, mucho mas sencillo y funciona mejor.
Gracias por tu tiempo.
Paco V
=?iso-8859-1?Q?Ignacio_Ortiz_de_Z=FA=F1iga?= <NoName@xailer.com> wrote:
>
>
>Paco,=20
>
>Entiendo. No me hab=EDa fijado que eran distintos DataSets.=20
>
>Este c=F3digo=20
>
>>>> if :nModalResult =3D=3D mrOK
>>>> ::oDbfDataSet2:AddNew()
>>>> if ::oDbfDataset2:RecLock()
>>>> for n :=3D 1 to 91
>>>> ::oDbfDataSet2:Fieldput(n, ::oDbfDataSet1:Fieldget(n) )
>>>> next n
>>>> :oDbfDataSet2:modi :=3DAPPDATA:usuarop
>>>> ::oDbfDataSet2:mome :=3Ddtos(date())+"-"+time()+"/A"
>>>> ::oDbfDataSet2:Update()
>>>> ::oDbfDataset2:RecUnLock()
>
>se debe sustituir por este:
>
>if :nModalResult =3D=3D mrOK
> WITH OBJECT ::oDbfDataSet2
> :AddNew()
> for n :=3D 1 to 91
> :VarPut(n, ::oDbfDataSet1:Fieldget(n) )
> next n
> :modi :=3DAPPDATA:usuarop
> :mome :=3Ddtos(date())+"-"+time()+"/A"
> :Update()
> END WITH
>Endif
>
>Saludos
>
>"Paco V" <ssi@ono.com> escribi=F3 en el mensaje =
>news:4486fbbd$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>>=20
>> El edit va sobre ::odBfDataSet1
>> y despues addnew lo hago sobre ::odBfDataSet2
>>=20
>> Es correcto?
>>=20
>>=20
>>=20
>> "Ignacio Ortiz de Z=FA=F1iga" <NoName@xailer.com> wrote:
>>>Paco,
>>>
>>>No tiene sentido hacer un Addnew() despu=E9s de un Edit(). O el uno o
=
>el otro,
>>=20
>>>pero no los dos a la vez.
>>>
>>>Un saludo,
>>>
>>>"Paco V" <ssi@ono.com> escribi=F3 en el mensaje=20
>>>news:4486edde$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>>>>
>>>> Me ha servido las dos opciones, y he hecho esto:
>>>>
>>>> WITH OBJECT oFrm :=3D TForm5():CreateForm( Self )
>>>> :cText :=3D "Traspasar AGENTES a Hist=F3rico"
>>>> ::oDbfDataSet1:edit() //Dejo editar para cambiar
>>>> :ShowModal()
>>>> if :nModalResult =3D=3D mrOK
>>>> ::oDbfDataSet2:AddNew()
>>>> if ::oDbfDataset2:RecLock()
>>>> for n :=3D 1 to 91
>>>> ::oDbfDataSet2:Fieldput(n, ::oDbfDataSet1:Fieldget(n) )
>>>> next n
>>>> :oDbfDataSet2:modi :=3DAPPDATA:usuarop
>>>> ::oDbfDataSet2:mome :=3Ddtos(date())+"-"+time()+"/A"
>>>> ::oDbfDataSet2:Update()
>>>> ::oDbfDataset2:RecUnLock()
>>>> endif
>>>> endif
>>>> :END()
>>>> END WITH
>>>>
>>>> Y me falla el bloqueo de registros. =BFCreo que bajo mi l=F3gica =
>esta bien
>>=20
>>>> pero
>>>> que puede estar mal?
>>>>
>>>> Gracias
>>>> Paco V
>>>>
>>>>
>>>> "Manu Exposito" <messoft@gmail.com> wrote:
>>>>>Como te dice Ignacio copias la tabla como tal sin cambios, incluso =
>podrias
>>>>
>>>>>hacer una copia directamente cuando sepas que estan cerradas=20
>>>
>>>
>>
>
><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
><HTML><HEAD>
><META http-equiv=3DContent-Type content=3D"text/html; =
>charset=3Diso-8859-1">
><META content=3D"MSHTML 6.00.2900.2873" name=3DGENERATOR>
><STYLE></STYLE>
></HEAD>
><BODY>
><DIV><FONT face=3DArial size=3D2>Paco, </FONT></DIV>
><DIV><FONT face=3DArial size=3D2></FONT> </DIV>
><DIV><FONT face=3DArial size=3D2>Entiendo. No me hab=EDa fijado que eran
=
>distintos=20
>DataSets. </FONT></DIV>
><DIV><FONT face=3DArial size=3D2></FONT> </DIV>
><DIV><FONT face=3DArial size=3D2>Este c=F3digo </FONT></DIV>
><DIV><FONT face=3DArial size=3D2></FONT> </DIV>
><DIV><FONT face=3DArial size=3D2>>>> if :nModalResult =3D=3D=20
>mrOK<BR>>>>  ::oDbfDataSet2:AddNew()<BR>>>>  =
>if=20
>::oDbfDataset2:RecLock()<BR>>>>   for n :=3D 1 to=20
>91<BR>>>>    ::oDbfDataSet2:Fieldput(n,=20
>::oDbfDataSet1:Fieldget(n) )<BR>>>>   next=20
>n<BR>>>>   :oDbfDataSet2:modi=20
>:=3DAPPDATA:usuarop<BR>>>>   ::oDbfDataSet2:mome=20
>:=3Ddtos(date())+"-"+time()+"/A"<BR>>>>  =20
>::oDbfDataSet2:Update()<BR>>>>  =20
>::oDbfDataset2:RecUnLock()<BR></FONT></DIV>
><DIV><FONT face=3DArial size=3D2>se debe sustituir por =
>este:</FONT></DIV>
><DIV><FONT face=3DArial size=3D2></FONT> </DIV>
><DIV><FONT face=3DArial size=3D2><FONT face=3D"Courier New">if =
>:nModalResult =3D=3D=20
>mrOK</FONT></FONT></DIV>
><DIV><FONT face=3DArial size=3D2><FONT face=3D"Courier =
>New">    WITH=20
>OBJECT ::oDbfDataSet2<BR>       =20
>:AddNew()<BR>        for n :=3D 1 to=20
>91<BR>            =
>:VarPut(n,=20
>::oDbfDataSet1:Fieldget(n) )</FONT></FONT></DIV>
><DIV><FONT face=3DArial size=3D2><FONT face=3D"Courier =
>New">    =20
>   next =
>n<BR>        :modi=20
>:=3DAPPDATA:usuarop<BR>        :m=
>ome=20
>:=3Ddtos(date())+"-"+time()+"/A"<BR>      &=
>nbsp; :Update()<BR>   =20
>END WITH</FONT></FONT></DIV>
><DIV><FONT face=3DArial size=3D2><FONT face=3D"Courier =
>New">Endif</FONT></FONT></DIV>
><DIV><FONT face=3DArial size=3D2><FONT face=3D"Courier =
>New"></FONT></FONT> </DIV>
><DIV><FONT face=3DArial size=3D2><FONT=20
>face=3D"Courier New">Saludos</FONT></DIV></FONT>
><DIV><FONT face=3DArial size=3D2></FONT> </DIV>
><DIV><FONT face=3DArial size=3D2>"Paco V" <</FONT><A=20
>href=3D"mailto:ssi@ono.com"><FONT face=3DArial =
>size=3D2>ssi@ono.com</FONT></A><FONT=20
>face=3DArial size=3D2>> escribi=F3 en el mensaje </FONT><A=20
>href=3D"news:4486fbbd$1@ozsrvnegro.ozlan.local"><FONT face=3DArial=20
>size=3D2>news:4486fbbd$1@ozsrvnegro.ozlan.local</FONT></A><FONT =
>face=3DArial=20
>size=3D2>...</FONT></DIV><FONT face=3DArial size=3D2>> <BR>> El =
>edit va sobre=20
>::odBfDataSet1<BR>> y despues addnew  lo hago sobre=20
>::odBfDataSet2<BR>> <BR>> Es correcto?<BR>> <BR>> <BR>> =
><BR>>=20
>"Ignacio Ortiz de Z=FA=F1iga" <</FONT><A =
>href=3D"mailto:NoName@xailer.com"><FONT=20
>face=3DArial size=3D2>NoName@xailer.com</FONT></A><FONT face=3DArial =
>size=3D2>>=20
>wrote:<BR>>>Paco,<BR>>><BR>>>No tiene sentido hacer un =
>
>Addnew() despu=E9s de un Edit(). O el uno o el otro,<BR>> =
><BR>>>pero no=20
>los dos a la vez.<BR>>><BR>>>Un =
>saludo,<BR>>><BR>>>"Paco=20
>V" <</FONT><A href=3D"mailto:ssi@ono.com"><FONT face=3DArial=20
>size=3D2>ssi@ono.com</FONT></A><FONT face=3DArial size=3D2>> =
>escribi=F3 en el mensaje=20
><BR>>>news:4486edde$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]<BR>>>><BR>=
>>>>=20
>Me ha servido las dos opciones, y he hecho =
>esto:<BR>>>><BR>>>>=20
>WITH OBJECT oFrm :=3D TForm5():CreateForm( Self )<BR>>>> :cText =
>:=3D=20
>"Traspasar AGENTES a Hist=F3rico"<BR>>>>=20
>::oDbfDataSet1:edit()    //Dejo editar para=20
>cambiar<BR>>>> :ShowModal()<BR>>>> if :nModalResult =
>=3D=3D=20
>mrOK<BR>>>>  ::oDbfDataSet2:AddNew()<BR>>>>  =
>if=20
>::oDbfDataset2:RecLock()<BR>>>>   for n :=3D 1 to=20
>91<BR>>>>    ::oDbfDataSet2:Fieldput(n,=20
>::oDbfDataSet1:Fieldget(n) )<BR>>>>   next=20
>n<BR>>>>   :oDbfDataSet2:modi=20
>:=3DAPPDATA:usuarop<BR>>>>   ::oDbfDataSet2:mome=20
>:=3Ddtos(date())+"-"+time()+"/A"<BR>>>>  =20
>::oDbfDataSet2:Update()<BR>>>>  =20
>::oDbfDataset2:RecUnLock()<BR>>>>  endif<BR>>>>=20
>endif<BR>>>> :END()<BR>>>> END=20
>WITH<BR>>>><BR>>>> Y me falla el bloqueo de registros. =
>=BFCreo=20
>que bajo mi l=F3gica esta bien<BR>> <BR>>>> =
>pero<BR>>>> que=20
>puede estar mal?<BR>>>><BR>>>> Gracias<BR>>>> =
>Paco=20
>V<BR>>>><BR>>>><BR>>>> "Manu Exposito" =
><</FONT><A=20
>href=3D"mailto:messoft@gmail.com"><FONT face=3DArial=20
>size=3D2>messoft@gmail.com</FONT></A><FONT face=3DArial size=3D2>>=20
>wrote:<BR>>>>>Como te dice Ignacio copias la tabla como tal =
>sin=20
>cambios, incluso podrias<BR>>>><BR>>>>>hacer una =
>copia=20
>directamente cuando sepas que estan cerradas=20
><BR>>><BR>>><BR>></FONT></BODY></HTML>
>
>
Arriba
Responder

Volver a “Spanish”