djjack escreveu: Coloquei as seguintes linhas no PRG principal:
Request SIXCDX
# Include "SIXCDX.ch"
RDDSETDEFALT("SIXCDX")
DBSETDRIVER("SIXCDX")
Código: Selecionar todos
REQUEST SIXNSX
RDDSETDEFAULT("SIXNSX")
Código: Selecionar todos
lib SIX2
Código: Selecionar todos
IF !FILE("A16CLI.NSX")
USE A16CLI EXCLUSIVE
INDEX ON CODIGO TAG CHAVE1 TO A16CLI
INDEX ON NOMCLI TAG CHAVE2 TO A16CLI
ENDIF
Código: Selecionar todos
DBSELECTAREA(1)
DBUSEAREA(,,[A16CID],[CIDADE], .T.) // DBF
DBSETINDEX("A16CID") // Índice
Código: Selecionar todos
#include "loja.ch"
REQUEST DESCEND, MTAB, VUF, VCGC, VDV2, EXT, NMES, LTOC, SIXCDX
#include "LOJ_PUBL.ch"
RDDSETDEFAULT("SIXCDX")
// DBSETDRIVER("SIXCDX")
V0=SAVESCREEN(0,0,MAXROW(),79)
CLEA SCREEN
VideoSeg=IF(CARDTYPE()=V_MONO,45056,-18432)
#ifdef COM_TUTOR
PARAM arq_mac, acao_
acao_mac="D"
IF !EMPT(arq_mac) .AND. !EMPT(acao_)
acao_=UPPER(acao_)
IF SUBS(acao_,2,1)$'LGCA'.AND.LEN(acao_)=2
acao_=SUBS(acao_,2,1)
IF acao_ $ "LCA" .AND. !FILE(arq_mac)
ALERTA(2)
? "Arquivo "+arq_mac+" n„o encontrado!"
RETU
ELSE
IF acao_="G"
IF FILE(arq_mac)
ALERTA(2)
x="N"
@ 10,20 SAY "Arquivo "+arq_mac+" j existe sobrepor?" GET x PICT "!"
READ
CLEA SCREEN
IF LASTKEY()=K_ESC .OR. x!="S"
? "Execu‡„o interrompida!"
RETU
ENDI
ERASE (arq_mac)
ENDI
handle_mac=FCREATE(arq_mac)
ELSE
handle_mac=FOPEN(arq_mac,2)
ENDI
IF handle_mac=-1
? "N„o foi poss¡vel utilizar "+arq_mac
RETU
ENDI
fat_mac=5
acao_mac=acao_
END IF
END IF
ENDI
#endi
NAOPISCA()
VAL_AX("6200")
CALLINT("21")
x=VAL_BX()
Sg=PEEK(x,44)+PEEK(x,45)*256
x=0
DO WHIL .t.
IF PEEK(Sg,x)=0
IF PEEK(Sg,x+1)=0
x+=2
EXIT
ENDI
ENDI
x++
ENDD
direxe=""
IF PEEK(Sg,x)=1
x+=2
DO WHIL PEEK(Sg,x)>0
direxe+=CHR(PEEK(Sg,x))
x++
ENDD
ENDI
IF EMPTY(direxe)
direxe=TRATADIR(QUALDIR())
ENDI
direxe=UPPER(LEFT(direxe,RAT("\",direxe)))
arq_sos=direxe+"LOJA.SOS"
SET CENTURY ON
SETCANCEL(.f.)
SET DATE BRIT
SET EXAC OFF
SET SCOREBOARD OFF
SET WRAP ON
SET KEY K_ALT_F2 TO doscom
SETKEY(K_INS,{||;
IF(READINSERT(),SETCURSOR(1),SETCURSOR(3)),;
READINSERT(!READINSERT());
};
)
msg:=cpord:=criterio:=chv_rela:=chv_1:=chv_2:=vr_memo := ""
op_sis:=cod_sos:=nucop:=op_posi:=op_menu :=1
nss=030
exrot:=AFILL(ARRAY(nss),""); usuario:=obs_usuario:=senha:=senhatu:=msg_auto:=pw_grupo:=pw_codigo := ""
quer_sair:=.f.
datac=DATE()
nao_mostra:=l_s:=c_s:=c_i:=l_i := 0
tem_borda:=drvpvdbf:=drvexcl := .t.
v_out:=gr_rela:=ve_outros:=cn:=fgrep:=drvmouse:=drvpesq :=.f.
tem_t:=fgconf:=drvconf:=brw:=drvincl :=.f.
gcr=CHR(17)+CHR(217); nivelop=3
drvdbf:=drvntx:=drverr:=drvpw := TRATADIR(QUALDIR())
drvcara=CHR(176); mold="ÚÄ¿³ÙÄÀ³ÃÄ´"
drvmenucen=.f.; drvfonte=1
drvporta="LPT1"
drvcortna="B+/BG*"; drvtittna="B/BG*"
nemp="NG COMERCIAL DISTRIB. LTDA"
nsis="Sistema Gerencial V1.0"
#ifdef COM_MOUSE
drvmouse=(MOUSE()>0)
#ifdef COM_TUTOR
IF acao_mac!="D"
drvmouse=.f.
ENDI
#endi
drvratH=8; drvratV=16
tpo_mouse=0
#endi
#ifdef COM_LOCK
pr_ok=__PPRJ(arq_sos,"úûá÷åâùòëóêêøþêüáâðù")
IF LEN(pr_ok)>0
CLEAR
? pr_ok
RETU
ENDI
#endi
#ifdef COM_REDE
ms_uso="Arquivo sendo acessado|COM EXCLUSIVIDADE"
#endi
arqgeral="LOJ"
#ifdef COM_REDE
#undef COM_PROTECAO
drvtempo=25
ide_maq=RIGHT(ALLTRIM(NETNAME()),4)
IF EMPTY(ide_maq)
ide_maq=LEFT(GETENV("ESTACAO"),4)
ENDI
IF EMPTY(ide_maq)
cod_sos=49
msgt="IDENTIFICA€ŽO DA ESTA€ŽO"
SET KEY K_F1 TO
ide_maq=DBOX("Nome da esta‡„o",,,,,msgt,SPAC(4),"@!",,"W+/N")
SET KEY K_F1 TO help
IF LASTKEY()=K_ESC .OR.;
EMPTY(ide_maq)
RESTSCREEN(0,0,MAXROW(),79,v0)
SETPOS(MAXROW()-1,1)
RETU
ENDI
ENDI
ide_maq="_"+ALLTRIM(ide_maq)
#else
ide_maq="_temp"
#endi
qualsis={|db_f|db_:=UPPE(db_f),ASCAN(sistema,{|si|si[O_ARQUI,O_NOME]==db_})}
AFILL(sistema:=ARRAY(nss),{})
LOJ_ATRI()
LOJ_ATR1()
arqconf=direxe+arqgeral+;
ide_maq+".sys"
IF FILE(arqconf)
REST FROM (arqconf) ADDI
#ifdef COM_MOUSE
IF drvmouse
drvmouse=(MOUSE()>0)
MOUSERAT(drvratH,drvratV)
ENDI
#else
drvmouse=.f.
#endi
ELSE
drvmarca := "Epson 9 pinos"
drvprn =1
drvpadrao="3"
drvtapg="CHR(27)+'C'+CHR(NNN)"
drvpcom="CHR(15)"
drvtcom="CHR(18)"
drvpc20="CHR(27)+'M'+CHR(15)"
drvtc20="CHR(27)+'P'"
drvpeli="CHR(27)+'M'"
drvteli="CHR(27)+'P'"
drvpenf="CHR(27)+'E'"
drvtenf="CHR(27)+'F'"
drvpexp="CHR(27)+'W'+CHR(1)"
drvtexp="CHR(27)+'W'+CHR(0)"
drvpde8="CHR(27)+'0'"
drvtde8="CHR(27)+'2'"
drvland=""
drvport=""
drvsom=.t.
drvautohelp=.t.
drvcorpad="W+/B*" ; drvcorbox="W+/B"
drvcormsg="GR+/B" ; drvcorenf="BG+/B"
drvcorget="W+/B*" ; drvcortel="BG+/B*"
drvcorhlp="B/W*" ; drvcortna="B+/BG*"
drvtitpad="GR+/B*" ; drvtitbox="GR+/B"
drvtitmsg="BG+/B" ; drvtitenf="W+/B"
drvtitget="GR+/B*" ; drvtittel="GR+/B*"
drvtithlp="B+/W*" ; drvtittna="B/BG*"
CBC1()
ALERTA()
cod_sos=2
IF !PEGADIR(.t.)
RESTSCREEN(0,0,MAXROW(),79,v0)
SETPOS(MAXROW()-1,1)
RETU
ENDI
ENDI
LOJ_ATRI()
LOJ_ATR1()
#ifdef COM_TUTOR
IF acao_mac!="D"
drvmouse=.f.
ENDI
#endi
#ifdef COM_PROTECAO
protdbf={|fg|pt:=fg,;
tel_p:=SAVESCREEN(0,0,MAXROW(),79),;
DBOX("Um momento!",,,,NAO_APAGA),;
AEVAL(sistema,{|sis|;
EDBF(sis[O_ARQUI,O_DIR_DBF]+;
sis[O_ARQUI,O_NOME],pt);
};
),;
RESTSCREEN(0,0,MAXROW(),79,tel_p);
}
EVAL(protdbf,.t.)
#endi
FOR i=nss-2 TO nss
dbf=drvpw+sistema[i,O_ARQUI,O_NOME]
IF FILE(dbf+".dbf")
FOR t=1 TO LEN(sistema[i,O_INDIC])
ntx=drvpw+sistema[i,O_INDIC,t]
IF !FILE(ntx+EXTENSAO())
IF EMPTY(SELECT(sistema[i,O_ARQUI,O_NOME]))
#ifdef COM_REDE
IF !USEARQ(dbf,.t.,5,1,.f.)
#ifdef COM_PROTECAO
EVAL(protdbf,.f.)
#endi
RETU
ENDI
#else
USEARQ(dbf,,,,.f.)
#endi
ENDI
chvind=sistema[i,O_CHAVE,t]
tg_=ALLTRIM(STR(t))
INDE ON &chvind. TAG (tg_) TO (ntx)
ENDI
NEXT
CLOS ALL
ENDI
NEXT
arq_prn=drverr+"PRINTERS.DBF"
IF !FILE(arq_prn)
DBCREATE(arq_prn,{;
{"marca" ,"C",15,0},;
{"porta" ,"C", 4,0},;
{"padrao","C", 1,0},;
{"tapg" ,"C",40,0},;
{"pcom" ,"C",40,0},;
{"tcom" ,"C",40,0},;
{"pc20" ,"C",40,0},;
{"tc20" ,"C",40,0},;
{"peli" ,"C",40,0},;
{"teli" ,"C",40,0},;
{"penf" ,"C",40,0},;
{"tenf" ,"C",40,0},;
{"pexp" ,"C",40,0},;
{"texp" ,"C",40,0},;
{"pde8" ,"C",40,0},;
{"tde8" ,"C",40,0},;
{"land" ,"C",40,0},;
{"port" ,"C",40,0};
};
)
#ifdef COM_REDE
USEARQ(arq_prn,.t.,20,1,.f.)
#else
USE (arq_prn)
#endi
APPE BLAN
REPL marca WITH drvmarca,;
porta WITH drvporta,;
padrao WITH drvpadrao,;
tapg WITH drvtapg,;
pcom WITH drvpcom,;
tcom WITH drvtcom,;
pc20 WITH drvpc20,;
tc20 WITH drvtc20,;
peli WITH drvpeli,;
teli WITH drvteli,;
penf WITH drvpenf,;
tenf WITH drvtenf,;
pexp WITH drvpexp,;
texp WITH drvtexp,;
pde8 WITH drvpde8,;
tde8 WITH drvtde8,;
land WITH drvland,;
port WITH drvport
USE
ENDI
MUDAFONTE(drvfonte)
corcampo=drvtittel
SETCOLOR(drvcorpad+","+drvcorget+",,,"+corcampo)
CBC1()
IF ASC(drvdbf)=65.OR.ASC(drvntx)=65
ALERTA()
cod_sos=1
op_a=DBOX("Disco pronto|Cancelar a opera‡„o",,,E_MENU,,"DISCO DE DADOS EM "+LEFT(drvdbf,1))
IF op_a!=1
#ifdef COM_PROTECAO
EVAL(protdbf,.f.)
#endi
RESTSCREEN(0,0,MAXROW(),79,v0)
SETPOS(MAXROW()-1,1)
RETU
ENDI
ENDI
IF !PEGA_SENHA()
#ifdef COM_PROTECAO
EVAL(protdbf,.f.)
#endi
MUDAFONTE(0)
RESTSCREEN(0,0,MAXROW(),79,v0)
SETPOS(MAXROW()-1,1)
RETU
ENDI
IF !CRIADBF()
#ifdef COM_PROTECAO
EVAL(protdbf,.f.)
#endi
MUDAFONTE(0)
RESTSCREEN(0,0,MAXROW(),79,v0)
SETPOS(MAXROW()-1,1)
RETU
ENDI
SET CONF (drvconf)
CBC1()
LOJ_MENU()
#ifdef COM_PROTECAO
EVAL(protdbf,.f.)
#endi
#ifdef COM_TUTOR
IF acao_mac!="D"
FCLOSE(handle_mac)
acao_mac="D"
END IF
#endi
MUDAFONTE(0)
RESTSCREEN(0,0,MAXROW(),79,v0)
SETPOS(MAXROW()-1,1)
RETU
FUNC PEGA_SENHA() // pega senha de acesso ao sistema
LOCAL ret_val:=.f., v1, t_f4_:=SETKEY(K_F4,{||FIM_PW()})
#ifdef COM_REDE
IF !USEARQ(sistema[nss-1,O_ARQUI,O_NOME],.f.,20,1)
RETU .f.
ENDI
#else
USEARQ(sistema[nss-1,O_ARQUI,O_NOME])
#endi
#ifdef COM_REDE
IF !USEARQ(sistema[nss,O_ARQUI,O_NOME],.f.,20,1)
RETU .f.
ENDI
#else
USEARQ(sistema[nss,O_ARQUI,O_NOME])
#endi
ORDSETFOCUS("2")
cod_sos=15
COLORSELECT(COR_GET)
v1=SAVESCREEN(0,0,MAXROW(),79)
DBOX(PADR(" Nome.:",25)+"|"+PADR(" Senha:",25)+"| F4 para finalizar|ESC para recome‡ar",9,25,,NAO_APAGA,"SENHA DE ACESSO")
cp_=1
usuario=SPACE(15)
DO WHIL .t.
@ 12,36 GET usuario PICT "@!"
READ
IF quer_sair
EXIT
ENDI
IF LASTKEY()=K_ESC
usuario=SPACE(15)
LOOP
ENDI
SETCOLOR(drvcorget)
@ 13,36 SAY SPAC(6)
senha=PADR(PWORD(13,36),6)
SETCOLOR(drvcorbox)
IF quer_sair
EXIT
ENDI
IF EMPTY(senha)
@ 13,36 SAY SPAC(6)
LOOP
ENDI
SEEK ENCRIPT(usuario)+senha
IF FOUND()
usuario=TRIM(DECRIPT(pw_nome))
msg_auto="Opera‡„o n„o autorizada, "+usuario
obs_usuario=TRIM(DECRIPT(TRIM(pw_obs)))
senhatu=senha
nivelop=VAL(DECRIPT(pw_nivel))
M->pw_codigo=DECRIPT(pw_codigo)
M->pw_grupo =DECRIPT(pw_grupo)
SELE PWTABELA
FOR t=1 TO nss-3
SEEK ENCRIPT(M->pw_grupo)+ENCRIPT(PADR(sistema[t,O_MENU],35))
IF FOUND()
exrot[t]=DECRIPT(pw_permis)
ELSE
exrot[t]=REPL("*",30)
ENDI
IF sistema[t,O_OUTROS,O_NIVEL]>5 .AND.;
sistema[t,O_OUTROS,O_NIVEL]<9
sistema[t,O_OUTROS,O_NIVEL]-=5
END IF
IF LEN(ALLTRIM(exrot[t]))>=20
sistema[t,O_OUTROS,O_NIVEL]+=5
ENDI
NEXT
exrot[nss]="VNGA"
exrot[nss-1]=exrot[nss]+"EDR"
exrot[nss-2]=exrot[nss]
IF nivelop>0.AND.nivelop<4
DBOX("Bom trabalho, "+usuario,13,45,2)
ret_val=.t.
RESTSCREEN(0,0,MAXROW(),79,v1)
EXIT
ENDI
ELSE
IF cp_<2
cp_++
ALERTA()
DBOX("Senha inv lida!",,,1)
@ 13,36 SAY SPAC(6)
ELSE
ALERTA()
DBOX("Usu rio n„o autorizado!",,,2)
#ifdef COM_PROTECAO
EVAL(protdbf,.f.)
#endi
RESTSCREEN(0,0,MAXROW(),79,v0)
SETPOS(MAXROW()-1,1)
MUDAFONTE(0)
EXIT
ENDI
ENDI
ENDD
SETKEY(K_F4,t_f4_)
CLOSE ALL
SETCOLOR(drvcorpad)
RETU ret_val
PROC FIM_PW()
quer_sair=.t.
KEYB CHR(K_ESC)
RETU
* \\ Final de LOJA.PRG
Código: Selecionar todos
FOR i=nss-2 TO nss
dbf=drvpw+sistema[i,O_ARQUI,O_NOME]
IF FILE(dbf+".dbf")
FOR t=1 TO LEN(sistema[i,O_INDIC])
ntx=drvpw+sistema[i,O_INDIC,t]
IF !FILE(ntx+EXTENSAO())
IF EMPTY(SELECT(sistema[i,O_ARQUI,O_NOME]))
#ifdef COM_REDE
IF !USEARQ(dbf,.t.,5,1,.f.)
#ifdef COM_PROTECAO
EVAL(protdbf,.f.)
#endi
RETU
ENDI
#else
USEARQ(dbf,,,,.f.)
#endi
ENDI
chvind=sistema[i,O_CHAVE,t]
tg_=ALLTRIM(STR(t))
INDE ON &chvind. TAG (tg_) TO (ntx)
ENDI
NEXT
CLOS ALL
ENDI
NEXT