PC Toledo

Código: Selecionar todos

CLS
USE EMPRESA ALIAS EMP NEW // Cadastro de empresas
IF .NOT. FILE("EMPRESA.NTX")
   INDEX ON CODIGO TO EMPRESA
ELSE
   SET INDEX TO EMPRESA
ENDIF

EMPRESA=0
@ 02,00 SAY "Selecione a Empresa : "
@ 03,00 TO 03,79
@ 05,00 SAY PADC("Dados da Empresa Selecionada",80)
@ 07,00 SAY "Nome da Empresa       : "
@ 08,00 SAY "Diretorio de Trabalho : "
DO WHIL .T.
   @ 02,22 GET EMPRESA PICT "999" VALID VEREMP(EMPRESA)
   READ
   IF LASTKEY()=27
      DBCLOSEALL()
      CLS
      RETURN
   ENDIF
ENDDO

*********************
FUNCTION VEREMP(MEMP)
IF MEMP=0
   EDITAEMP()
   RETURN(.T.)
ELSE
   DBSEEK(MEMP)
   IF EOF()
      @ 24,00 SAY PADC("Empresa nao cadastrada...",80)
      INKEY(2)
      @ 24,00 CLEAR TO 24,79
      RETURN(.F.)
   ENDIF
   @ 07,24 SAY NOME
   @ 08,24 SAY EMPPATH
   @ 24,00 SAY PADC("Pressione uma tecla para selecionar outra empresa...",80)
   @ 07,24 CLEAR TO 08,79
   INKEY(0)
   MPATH=ALLTRIM(EMPPATH)
   MNOME=ALLTRIM(NOME)
   // Neste caso a empresa teria sido selecionada e bastaria agora
   // abrir os arquivos normalmente para trabalho, sendo que eles
   // serao abertos no respectivo diretorio. Exemplo :
   //  USE "&MPATH"+"CLIENTES.DBF"
   //  USE "&MPATH"+"LFISCAL.DBF"
   //  USE "&MPATH"+"FORNECED.DBF"
   //  NÆo esquecendo que isso deve ser usado tambem na criacao
   //  e abertura dos arquivos de indices
   //
   // Para trabalhar com diretorios voce pode usar as funcoes da FAST.LIB
   // DIRCHANGE() Ir para um diretorio
   // DIREXIST()  Verificar se um diretorio existe
   // DIRCREATE() Criar um diretorio
   // DIRDEL()    Excluir um diretorio
ENDIF
RETURN(.T.)

*******************
FUNCTION EDITAEMP()
SAVE SCREEN TO SALVAEDIT

DECLARE CAMPOS[3]
DECLARE WPICTU[3]
DECLARE WCABEC[3]

CAMPOS[1]="CODIGO"
CAMPOS[2]="NOME"
CAMPOS[3]="EMPPATH"

WPICTU[1]="999"
WPICTU[2]="@!"
WPICTU[3]="@!"

WCABEC[1]="Codigo"
WCABEC[2]="Nome da Empresa"
WCABEC[3]="Diretorio de Trabalho"

DBEDIT(10,00,22,79,CAMPOS,"",WPICTU,WCABEC,"Ä","³","Ä")
RESTORE SCREEN FROM SALVAEDIT
RETURN(NIL)

Código: Selecionar todos

PUBLIC DIREMP,DIRPADRAO
// DIREMP = Diretorio dos dados da empresa selecionada
// DIRPADRAO = Diretorio dos dados comuns a todas as empresas
PRIVATE EMPRESA
CLS
DIRPADRAO=DISKNAME()+":\"+CURDIR()+"\"

USE "&DIRPADRAO"+"CFOP" ALIAS CFO NEW // Cadastro de CFOPS - de cortesia... :-)
IF .NOT. FILE("&DIRPADRAO"+"CFOP"+INDEXEXT())
   INDEX ON CFOCOD TO "&DIRPADRAO"+"CFOP"+INDEXEXT()
ELSE
   SET INDEX TO "&DIRPADRAO"+"CFOP"+INDEXEXT()
ENDIF

USE "&DIRPADRAO"+"EMPRESA" ALIAS EMP NEW // Cadastro de empresas
IF .NOT. FILE("&DIRPADRAO"+"EMPRESA"+INDEXEXT())
   INDEX ON CODIGO TO "&DIRPADRAO"+"EMPRESA"+INDEXEXT()
ELSE
   SET INDEX TO "&DIRPADRAO"+"EMPRESA"+INDEXEXT()
ENDIF

EMPRESA=0

@ 02,00 SAY "Selecione a Empresa : "
@ 03,00 TO 03,79
@ 05,00 SAY PADC("Dados da Empresa Selecionada",80)
@ 07,00 SAY "Nome da Empresa       : "
@ 08,00 SAY "Diretorio de Trabalho : "
@ 09,00 SAY "Local e nome do EXE   : "+EXENAME()
@ 10,00 SAY "Diretorio atual       : "+DIRPADRAO

DO WHIL .T.
   EMPRESA=0
   @ 02,22 GET EMPRESA PICT "999" 
   READ
   IF LASTKEY()=27
      DBCLOSEALL()
      CLS
      RETURN
   ENDIF
   VEREMP(EMPRESA)
ENDDO

*********************
FUNCTION VEREMP(MEMP)
IF MEMP=0
   EDITAEMP()
   RETURN(.T.)
ELSE
   DBSEEK(MEMP)
   IF EOF()
      CAD=SPACE(1)
      @ 23,02 SAY "Msg : Empresa nao cadastrada..."
      @ 24,02 SAY "Cadastrar (S/N) ? " GET CAD PICT "@!" VALID CAD$"SN"
      READ
      IF LASTKEY()=27 .OR. CAD="N"
         @ 23,02 CLEAR TO 24,79
         RETURN(.F.)
      ENDIF
      @ 23,02 CLEAR TO 24,79
      SAVE SCRE TO SALVATELA
      CLS
      MNOME:=SPACE(40) ; MPATH:=SPACE(8)
      @ 02,00 SAY "Nome da Empresa    : " GET MNOME PICT "@!"
      @ 03,00 SAY "Diretorio de dados : " GET MPATH PICT "@! AAAAAAAA" VALID VERPATH(MPATH)
      READ
      IF LASTKEY()=27
         RESTORE SCRE FROM SALVATELA
         RETURN(.F.)
      ENDIF
      DBAPPEND()
      REPLACE CODIGO  WITH EMPRESA
      REPLACE NOME    WITH MNOME
      REPLACE EMPPATH WITH MPATH
      DBCOMMIT()
      DIRMAKE("\"+CURDIR()+"\"+ALLTRIM(MPATH))
      DIREMP="\"+CURDIR()+"\"+MPATH+"\"
      CRIADBFS()
      RESTORE SCRE FROM SALVATELA
   ELSE
      @ 07,24 SAY NOME
      @ 08,24 SAY DISKNAME()+":\"+CURDIR()+"\"+EMPPATH
      @ 24,00 SAY PADC("Pressione uma tecla para selecionar outra empresa...",80)
      INKEY(0)
      @ 24,00 CLEAR TO 24,79
      @ 07,24 CLEAR TO 10,79
      MPATH=ALLTRIM(EMPPATH)
      MNOME=ALLTRIM(NOME)
      DIREMP="\"+CURDIR()+"\"+MPATH+"\"
   ENDIF
   // Agora e so abrir/criar os arquivos especificando o path
   // O ideal e ter uma variavel publica com o path completo
   // Exemplo :
   // DIREMP="\"+CURDIR()+ALLTRIM(EMPPATH)+"\"
   // USE "&DIREMP"+"CLIENTES" ALIAS CLI NEW 
   // INDEX ON CODIGO TO "&DIREMP"+"CLICOD"+INDEXEXT() 
ENDIF
RETURN(.T.)

************************
FUNCTION VERPATH(MMPATH)
DDIR="\"+CURDIR()
IF DIRCHANGE(DDIR+"\"+ALLTRIM(MMPATH))=0
   @ 24,00 SAY PADC("Diretorio ja existe...",80)
   INKEY(2)
   @ 24,00 CLEAR TO 24,79
   DIRCHANGE(DDIR)
   RETURN(.F.)
ENDIF
RETURN(.T.)

*******************
FUNCTION EDITAEMP()
SAVE SCREEN TO SALVAEDIT

DBGOTOP()
DECLARE CAMPOS[3]
DECLARE WPICTU[3]
DECLARE WCABEC[3]

CAMPOS[1]="CODIGO"
CAMPOS[2]="NOME"
CAMPOS[3]="EMPPATH"

WPICTU[1]="999"
WPICTU[2]="@!"
WPICTU[3]="@!"

WCABEC[1]="Codigo"
WCABEC[2]="Nome da Empresa"
WCABEC[3]="Diretorio de Trabalho"

DBEDIT(12,00,22,79,CAMPOS,"",WPICTU,WCABEC,"Ä","³","Ä")
RESTORE SCREEN FROM SALVAEDIT
RETURN(NIL)

*****************
FUNCTION CRIADBFS
DBCREATE( "&DIREMP"+"CLIENTES.DBF", {{ "CLICOD", "N",   6,  0 }, ;
{ "CLIRAZAO", "C",  50,  0 }, ;
{ "CLICNPJ", "C",  14,  0 }} )
//Cria o arquivo de clientes no diretorio da empresa selecionada

DBCREATE( "&DIREMP"+"FONECED.DBF", {{ "FORCOD", "N",   6,  0 }, ;
{ "FORRAZAO", "C",  50,  0 }, ;
{ "FORCNPJ", "C",  14,  0 }} )
//Cria o arquivo de fornecedores no diretorio da empresa selecionada
RETURN(.T.)