Douglas no comparte sus conocimientos con la comunidad, manda los trucos aqui brother no a corresos
AHI VA UN TIPS CECILIA MI AMOR
PARA RESPALDO A DISKETE
respuesta=messagebox("¿ Desea efectuar el respaldo ?",4+32,"SinConCel")
if respuesta = 6
do while .t.
if diskspace ("A") = -1
res=messagebox("La unidad no esta preparada, Por favor verifique e intente de nuevo",4+64,"SinConCel")
if res = 6
loop
else
return (.f.)
endif
else
set defa to a:
wait window "La unidad esta lista..." Nowait
exit
endif
enddo
if diskspace() < 160
messagebox("Seleccione un disco vacío e intente de nuevo",0+64,"SisConCel")
else
set safety off
set defa to c:\conexion
wait window "Iniciando el respaldo..." nowait
copy file impuesto.dbf to a:\
copy file sccacc.dbf to a:\
copy file scccli.dbf to a:\
copy file scccom.dbf to a:\
copy file sccdet_com.dbf to a:\
copy file sccdet_ven.dbf to a:\
copy file sccprov.dbf to a:\
copy file sccven.dbf to a:\
copy file control_1.dbf to a:\
copy file sccacc.cdx to a:\
copy file scccli.cdx to a:\
copy file scccom.cdx to a:\
copy file sccdet_com.cdx to a:\
copy file sccdet_ven.cdx to a:\
copy file sccprov.cdx to a:\
copy file sccven.cdx to a:\
copy file ind_acce.idx to a:\
copy file ind_cli.idx to a:\
copy file ind_com.idx to a:\
copy file ind_det.idx to a:\
copy file ind_detv.idx to a:\
copy file ind_pro.idx to a:\
copy file ind_ven.idx to a:\
set safety on
wait window "El respaldo ha terminado..." nowait
messagebox("El respaldo ha terminado...",0+64,"SisConCel")
endif
endif
RESTAURACION DE LAS DBF O DB
respuesta=messagebox("¿ Desea efectuar la restauración ?",4+32,"SisConCel")
if respuesta = 6
do while .t.
if diskspace ("A") = -1
res=messagebox("La unidad no esta preparada, Por favor verifique e intente de nuevo",4+64,"SisConCel")
if res = 6
loop
else
return (.f.)
endif
else
set defa to a:
wait window "La unidad esta lista..." Nowait
exit
endif
enddo
set safety off
set defa to a:\
wait window "Restaurando información..." nowait
copy file impuesto.dbf to c:\conexion
copy file sccacc.dbf to c:\conexion
copy file scccli.dbf to c:\conexion
copy file scccom.dbf to c:\conexion
copy file sccdet_com.dbf to c:\conexion
copy file sccdet_ven.dbf to c:\conexion
copy file sccprov.dbf to c:\conexion
copy file sccven.dbf to c:\conexion
copy file control_1.dbf to c:\conexion
copy file sccacc.cdx to c:\conexion
copy file scccli.cdx to c:\conexion
copy file scccom.cdx to c:\conexion
copy file sccdet_com.cdx to c:\conexion
copy file sccdet_ven.cdx to c:\conexion
copy file sccprov.cdx to c:\conexion
copy file sccven.cdx to c:\conexion
copy file ind_acce.idx to c:\conexion
copy file ind_cli.idx to c:\conexion
copy file ind_com.idx to c:\conexion
copy file ind_det.idx to c:\conexion
copy file ind_detv.idx to c:\conexion
copy file ind_pro.idx to c:\conexion
copy file ind_ven.idx to c:\conexion
set defa to c:\conexion
set safety on
wait window "La restitución ha terminado..." nowait
messagebox("La restitución ha terminado...",0+64,"SisConCel")
endif
ESPERO TE SIRVA
[email protected]
Helder martinez
Honduras