PC Toledo

pessoal tenho a seguinte rotina e preciso usar macros mas naum pega o caminho \windows e estou guardando na macro &cCam0, entaum teria
que ficar &cCam0\config.dbf.................o que me dizem???

Código: Selecionar todos


While .T.
   Muda=.f.
   If !File("\windows\config.DBF")

       Create \windows\ARQ.TMP

       Criacampo("ULTNOT_CFG","N",6,0)      //1
       Criacampo("ULTPED_CFG","N",6,0)      //2
                                                
       Commit
       Create \windows\config From \windows\Arq.TMP
       Erase  \windows\Arq.TMP

       If File("\windows\config.TMP")
           Use \windows\config
           Append From \windows\config.tmp
           Close Data
           Erase \windows\config.tmp
       Endif
   Else
       Use \windows\config
       If Neterr()
           Alert(" Arquivo esta Ativo em outro Terminal! ")
           Set Color to
           Clear
           Return .F.
       Else
           @ 21,06 Say Space(50)
           @ 21,06 Say DBF()
           @ 21,15 Say "-  #####   Aguarde Verificando Campos   #####   "

           Existestru(01,"ULTNOT_CFG")
           Existestru(02,"ULTPED_CFG")
                         
           If Muda
               Use \windows\config
               Close Data
               !Ren \windows\config.DBF config.TMP
               Loop
           Endif
       Endif
   Endif
   Inkey(1)
   Exit
Enddo
Close All
Return

// Post editado por dudu_xbase
// Favor qdo postarem código utilizem alt+C ou cliquem no botão CODE
// e postem seu código dentro dessa tag

Matrix Bom Dia !!
Analise o código abaixo com alterações no seu código postado com o uso de macros....

Código: Selecionar todos

cDisco := diskname() // Função da ca-tools
cDir   := dirname() // Função da ca-tools
cOrigem := "\windows\" // diretório

set default to &cOrigem.
set path to &cOrigem.

While .T.
        Muda=.f.
        If !File("config.DBF")

           Create ARQ.TMP

           Criacampo("ULTNOT_CFG","N",6,0) //1
           Criacampo("ULTPED_CFG","N",6,0) //2

           Commit
           Create config From Arq.TMP
           Erase Arq.TMP

           If File(config.TMP")
                 Use config
                 Append From config.tmp
                 Close Data
                 Erase config.tmp
           Endif
      Else
         Use config
         If Neterr()
                Alert(" Arquivo esta Ativo em outro Terminal! ")
                Set Color to
                Clear
               Return .F.
         Else
              @ 21,06 Say Space(50)
              @ 21,06 Say DBF()
              @ 21,15 Say "- ##### Aguarde Verificando Campos ##### "

              Existestru(01,"ULTNOT_CFG")
              Existestru(02,"ULTPED_CFG")

              If Muda
                 Use config
                 Close Data
                 !Ren config.DBF config.TMP
                  Loop
              Endif
        Endif
     Endif
     Inkey(1)
     Exit
Enddo
Close All
Return

set path to &cDir
set default to &cDir.
diskchange(cDisco)
dirchange(cDir)

Enviado: **02 Jun 2005 23:28**

dudu, onde posso encontrar a LIB CTP.LIB, pra usar as funcoes diskname() etc....

abraço

Enviado: **05 Jun 2005 14:00**

Pegue em... www.escape.com.br/util/ctp.lib

PC Toledo

macro naum funciona

macro naum funciona