PC Toledo

Código: Selecionar todos

//////////////////
//use a HBZIP.LIB
/////////////////
#include "Directry.ch"
#include "common.ch"

PROC GCOMPAC
   local mcaminho,marqarj,marqarja,marq,mtot:=0,mtamdisk,mdisco
   local aDir1:=Directory(DRVDBF+"*.db?")
   local aDir2:=Directory(DRVDBF+"*.mem")
   local aDir3:=Directory(DRVDBF+"*.jpg")
   local aDir4:=Directory(DRVDBF+"DB*.*")
   local afiles:={},aTamanho:={}
   Local x
   local nLen
   local aGauge

   mcaminho:=DRVdbf
   marqzip :='BKSCP_M'+M->pe_mm+'_'+alltrim(M->par_rota)
   mtamdisk:=if(mdrv $ 'AB','-v1440000','-v20000000')

   For x:=1 to len(aDir1)
      aadd(aFiles  ,drvdbf+adir1[x,1])
      aadd(aTamanho,adir1[x,2])
   next
   For x:=1 to len(aDir2)
      aadd(aFiles  ,drvdbf+adir2[x,1])
      aadd(aTamanho,adir2[x,2])
   next
   For x:=1 to len(aDir3)
      aadd(aFiles  ,drvdbf+adir3[x,1])
      aadd(aTamanho,adir3[x,2])
   next
   For x:=1 to len(aDir4)
      aadd(aFiles  ,drvdbf+adir4[x,1])
      aadd(aTamanho,adir4[x,2])
   next

   nLen=len(afiles)  // quantidade de arquivos
   mtotBytes:=0      // total de bytes, vai acrescentando

   if hb_zipfile( drvdbf+marqzip, afiles, 9, {|cFile,nPos| eProgresso( cFile, nPos, nLen) },.t., ,.f.,.f., {|cFile,nPos2| cProgressoFile( cFile, nPos2) } )
      mOrigem :=drvdbf+marqzip+'.zip'
      mDestino:=mDrv  +':\'+'BKSCP_A'+M->ps_aa+'_'+Alltrim(M->par_rota)+'.zip'

      COPY FILE (mOrigem) TO (mDestino)

      if fError() = 0                  // se nÆo teve nenhum erro ao copiar
         dbox("BACKUP COMPACTADO FOI EFETUADO COM SUCESSO.|O arquivo "+mDestino+" foi copiado na Unidade de Disco "+mdrv+':\',13,,,,"ATENۂO "+ALLTRIM(USUARIO)+'!')
      else
         dbox('A OPERAۂO FALHOR.|Erro encontrado ao tentar copiar|o arquivo gerado para o disco de destino.',13,,,,"ATENۂO "+ALLTRIM(USUARIO)+'!')
      endif
   else
      dbox("A OPERAۂO FALHOR.|ERROS FORAM DETECTADOS DURANTE O BACKUP.",13,,,,"ATENۂO "+ALLTRIM(USUARIO)+'!')
   endif
   cbc1()
   CHDIR(direxe)
   RETU              // FIM DE GCOMPAC

Código: Selecionar todos

   Static Function eProgresso(vtxt,xPerc,wTot)
      ************************************
      @ l_s+06,c_s+13 SAY space(80)
      @ l_s+06,c_s+13 SAY vtxt      // nome do arquivo
      @ l_s+08,c_s+13 SAY tran((xPerc/wTot)*100, '@E 999.99')+" %"
      @ l_s+09,c_s+66 SAY tran( xPerc, '@E 99,999') + ' / ' + tran( wTot, '@E 99,999') + ' Arqs'
      return nil

      ************************************
   Static Function cProgressoFile( cFile, nPos2 )
      @ l_s+09,c_s+13 SAY space(50)
      @ l_s+09,c_s+13 SAY Alltrim(tran( cFile, '@E 999,999,999'))+" / "+alltrim(tran( nPos2, '@E 999,999,999'))+' bytes'
      if cFile = nPos2
         mTotBytes+=nPos2
         @ l_s+08,c_s+66 SAY tran( mTotBytes, '@E 999,999,999') + ' bytes'
      endif
      return nil