FoxPro/Visual FoxPro - Mi sistema en red una de las PC con mensaje de tabla en uso al salir y hacer el backup

PROCEDURE SALIRCBACK

TR

xt=MESSAGEBOX("Desea realizar un Backup al salir?",4,"Mensaje ")

IF xt=6

IF DIRECTORY("d:\Backupsist")=.f.

MKDIR("d:\Backupsist")

ENDIF

WAIT WINDOW "Creando respaldo de Seguridad..." TIMEOUT .8

SET DEFAULT TO "\\usuario-pc\d\redsistv\sistemvet\"

***(USUARIO-PC ES ESTÁ EN RED)*

SET PATH TO backupsist

 COPY FILE *.dbf TO d:\backupsist\*.dbf

 COPY FILE *.cdx TO d:\backupsist\*.cdx

 COPY FILE *.dcx TO d:\backupsist\*.dcx

 COPY FILE *.dct TO d:\backupsist\*.dct

 COPY FILE *.fpt TO d:\backupsist\*.fpt

WAIT WINDOW "Terminó el respaldo de datos con éxito..." TIMEOUT .8

MESSAGEBOX("COPIA DE BACKUP FUE CREADA CON EXITO",64,"Mensaje")

ENDIF

Catch To oError

	Wait Window "Tabla en uso"+Chr(13)+oError.Message Timeout 0.5

ENDTRY

ENDPROC

Procedure SALIRCBACK

Try

   If Messagebox("Desea realizar un Backup al salir?",4,"Mensaje ")=6

      If Directory("d:\Backupsist")=.F.

         Mkdir("d:\Backupsist")

      Endif

      Wait Window "Creando respaldo de Seguridad..." Timeout .8

      cRuta = "\\usuario-pc\d\redsistv\sistemvet\"

      ***(USUARIO-PC ES ESTÁ EN RED)*

      Set Safety Off

      Copy File(cRuta+"*.dbf") To d:\backupsist

      Copy File(cRuta+"*.cdx") To d:\backupsist

      Copy File(cRuta+"*.dcx") To d:\backupsist

      Copy File(cRuta+"*.dct") To d:\backupsist

      Copy File(cRuta+"*.fpt") To d:\backupsist

      Set Safety On

      Wait Window "Terminó el respaldo de datos con éxito..." Timeout .8

      Messagebox("COPIA DE BACKUP FUE CREADA CON EXITO",64,"Mensaje")

   Endif

Catch To oError

   Wait Window "Tabla en uso"+Chr(13)+oError.Message Timeout 0.5

Endtry

Endproc

Procedure SALIRCBACK

Try

   If Messagebox("Desea realizar un Backup al salir?",4,"Mensaje ")=6

      Close Tables All

      Close Databases All

      If Directory("d:\Backupsist")=.F.

         Mkdir("d:\Backupsist")

      Endif

...

cRuta = Addbs(""\\usuario-pc\d\redsistv\sistemvet\"")

cDest = Addbs("d:\backupsist")

For nX=1 To Adir(aArchos,cRuta+"*.D*")

    cArchivo = aArchos(nX,1)

    If Justext(cArchivo)="DBF"

        Use (cRuta+cArchivo) Shared

        Copy To (cDest+cArchivo) With Production

    Endif

Next

wdesc=art1rec.desc

wunid=art1rec.unid

wprec_u=art1rec.prec_u

wprec_u=art1rec.prec_u

wpdesc=art1rec.pdesc

wimporte=art1rec.importe

wimporte=(wprec_u*wunid)

wpdesc=(wimporte*wdesc)/100

wimporte=wimporte-wpdesc

replace importe WITH wimporte  (aqui siempre graba el importe todas las veces)

IF art1rec.unid=0 OR art1rec.unid>0

SELECT 2

wart=art1rec.articulo

wunid=art1rec.unid

wgan=art1rec.gan

SELECT 4

SEEK CODART

wart=xartm.codart

IF wart=xartm.codart

wgan=((xartm.ganancia)*wunid)

replace art1rec.gan WITH wgan

*****

en la ultima vuelta NO graba la gan.......

sólo Graba la gan en la última vuelta de elegir el artículo  si hago un click en importe de la fila del grid

*****

thisform.txtganancia.Value=wgan

ENDIF

ENDIF

SELECT arti1rec

GO top

DO WHILE NOT EOF()

SELECT xrec

*(es la tabla del formulario principal recibos)

SET FILTER TO nrocomb == ThisForm.txtnrocomb.Value IN "art1rec"

*aqui combino el el grid1 (tabla art1rec) con la tabla xrec del formulario principal ,

IF nrocomb=thisform.txtnrocomb.value

***ATENCIÓN NO ESCRIBIR CON EL ALIAS PORQUE NO GRABA

SELECT art1rec

warticulo=art1rec.articulo

wdesc=art1rec.desc

wunid=art1rec.unid

wprec_u=art1rec.prec_u

wprec_u=art1rec.prec_u

wpdesc=art1rec.pdesc

wimporte=art1rec.importe

wimporte=(wprec_u*wunid)

wpdesc=(wimporte*wdesc)/100

wimporte=wimporte-wpdesc

replace articulo WITH warticulo

replace unid WITH wunid

replace prec_u WITH wprec_u

replace desc WITH wdesc

replace pdesc WITH wpdesc

replace importe WITH wimporte

****en la tabla art1rec

ENDIF

SKIP

LOOP

EXIT

ENDDO

thisform.txtganancia.Value=0

WAIT WINDOW "Calculando Ganancia..." TIMEOUT .8

SUM ALL art1rec.gan TO wgan FOR art1rec.nrocomb=thisform.txtnrocomb.value

thisform.txtganancia.Value=wgan

*debe haber una mejor forma pero ésta me sirvió.-

Cualquier siugerencia se acepta.

(Cualquier otro problema te consulto)

Saludos y muchas gracias!

***************************************************************************

SELECT 4 para referirte a la tabla "xartm"; podrías usar:

SELECT xartm ;

SELECT 4

SEEK CODART

IF FOUND()

    wganu=(xartm.ganancia)

ENDIF

Select 1

If Messagebox("Confirma modificar los Datos?",4,"Mensaje")=6

    Select 2

    Scan For nrocomb=Thisform.txtnrocomb.Value  && Scan no necesita Go Top, siempre inciará.

        Select 4

         If Seek(CODART,<NombreTablaDondeBuscar>,<NombreDelIndice>)   && Corrige esos datos que faltan.

             wganu=(xartm.ganancia)

            SELECT  2

            warticulo = art1rec.articulo

            wdesc     = art1rec.Desc

            wunid     = art1rec.unid

            wprec_u   = art1rec.prec_u

            wpdesc    = art1rec.pdesc

            wimporte  = art1rec.importe

            wimporte  = (wprec_u*wunid)

            wpdesc    = (wimporte*wdesc)/100

            wimporte  = wimporte-wpdesc

            wgan      = (wganu*wunid)

            Replace ;

                articulo With warticulo, ;

               unid     With wunid, ;

               prec_u   With wprec_u, ;

              desc     With wdesc, ;

              pdesc    With wpdesc, ;

              importe  With wimporte

           Replace art1rec.ganu With wganu, art1rec.gan With wgan

           Thisform.txtganancia.Value=wgan

        Endif

    Endscan

    Sum All art1rec.gan To wgan For art1rec.nrocomb=Thisform.txtnrocomb.Value

    Thisform.txtganancia.Value=wgan

    Select 1

    Replace ganancia With Thisform.txtganancia.Value

Endif

Select xartm

Set Order To codart

Select art1rec

Ser order to articulo

Select xartm

Scan

    If Seek (xartm.codart,"art1rec")

        Replace art1rec.ganu with xartm.ganancia

        Replace art1rec.gan with art1rec.gan * art1rec.unid

    Endif

Endscan

Select xartm

Scan

    If Seek (xartm.codart,"art1rec","articulo")

        Select art1rec

        Replace art1rec.ganu with xartm.ganancia

        Replace art1rec.gan with art1rec.gan * art1rec.unid

    Endif

Endscan

Replace art1rec.gan with art1rec.ganu * art1rec.unid