Preciso de ajuda para converter para CDX
Enviado: 15 Jun 2008 14:17
Ganhei umas funções prontas e estou com dificuldade para converter elas para cdx.
Se alguem puder me ajudar desde ja agradeço.
Se alguem puder me ajudar desde ja agradeço.
Código: Selecionar todos
#include "acesso.ch"
#include "inkey.ch"
/*
DEFAULT PARA GERAۂO DO ARQUIVO DE SENHAS
*/
#define USER_ID '¶®©¨º¹'
#define USER_PW '°§º©'
#define USER_ACCESS 'šš›š'
// - DECLARA CAMPOS DE ARQUIVO(S)
FIELD TITULO, VERIFICA, CGC, CORMENU, CORWORK, CORJANELA, PATHDBF,;
PATHNTX, PATHBACK, PATHSPOOL, SPOOL, COMPRIME, NEGRITO, PICOTE,;
LINHAS, BOXTOP, BOXLEFT, BOXBOTTOM, BOXRIGHT, BOXIMP,;
CABL1, CABL2, CABL3, CABL4, CABL5, CABL6, CABL7, CABL8
FIELD USERID , USERPW, USERACCESS
/*
* GeraConfig() - Procedure para gera‡Æo autom tica do arquivo
* de configura‡Æo do sistema.
*/
FUNCTION GeraConfig()
LOCAL tSelect:= SELECT()
LOCAL tCfg:= MainPrg() + ".CFG"
LOCAL tTitulo:= "SISTEMA PRE-GERADO - Gilson Paulo Schuck"
// Array contendo campos do arquivo a ser gerado
LOCAL aStruc:= { { "TITULO", "C", 78, 0 },;
{ "PATHDBF", "C", 50, 0 },;
{ "PATHNTX", "C", 50, 0 },;
{ "PATHSPOOL", "C", 50, 0 },;
{ "PATHBACK", "C", 20, 0 },;
{ "CORMENU", "C", 30, 0 },;
{ "CORWORK", "C", 30, 0 },;
{ "CORJANELA", "C", 30, 0 },;
{ "BOXTOP", "N", 1, 0 },;
{ "BOXLEFT", "N", 1, 0 },;
{ "BOXBOTTOM", "N", 1, 0 },;
{ "BOXRIGHT", "N", 1, 0 },;
{ "BOXIMP", "C", 6, 0 },;
{ "LINHAS", "N", 3, 0 },;
{ "COMPRIME", "L", 1, 0 },;
{ "NEGRITO", "L", 1, 0 },;
{ "PICOTE", "L", 1, 0 },;
{ "SPOOL", "L", 1, 0 },;
{ "CABL1", "C", 79, 0 },;
{ "CABL2", "C", 79, 0 },;
{ "CABL3", "C", 79, 0 },;
{ "CABL4", "C", 79, 0 },;
{ "CABL5", "C", 79, 0 },;
{ "CABL6", "C", 79, 0 },;
{ "CABL7", "C", 79, 0 },;
{ "CABL8", "C", 79, 0 },;
{ "VERIFICA", "C", 13, 0 },;
{ "CGC", "C", 14, 0 } }
IF !FILE( tCfg )
DBCREATE( tCfg, aStruc )
ENDIF
USE ( tCfg ) NEW
APPEND BLANK
REPLACE TITULO WITH tTitulo,;
PATHBACK WITH "A:\",;
PATHNTX WITH '.\INDICES\',;
PATHDBF WITH '.\DADOS\',;
PATHSPOOL WITH '.\SPOOL\',;
BOXTOP WITH 1,;
BOXLEFT WITH 1,;
BOXBOTTOM WITH 1,;
BOXRIGHT WITH 1,;
BOXIMP WITH "-=+*|-",;
LINHAS WITH 40,;
COMPRIME WITH .F.,;
NEGRITO WITH .F.,;
PICOTE WITH .F.,;
VERIFICA WITH clKey( STRZERO( ChecaString(;
TRIM( tTitulo)), 13), ENCRIPT )
USE
SELECT( tSelect )
RETURN( NIL )
/*
* GERASYS() - Procedure para a gera‡ao autom tica do arquivos de senha
* e c¢digos de acesso
*/
FUNCTION GeraSys()
LOCAL tSelect:= SELECT()
LOCAL tArqSys:= PathDbf() + MAINPRG() + ".SYS"
LOCAL tTitulo:= "SISTEMA PRE-GERADO - Gilson Paulo Schuck"
LOCAL aStruc:= { { "USERID", "C", 12, 0 },;
{ "USERPW", "C", 8, 0 },;
{ "USERACCESS", "C", 5, 0 } }
IF ( !FILE( tArqSys ))
DBCREATE( tArqSys, aStruc )
ENDIF
USE ( tArqSys ) SHARED NEW
APPEND BLANK
REPLACE USERID WITH USER_ID,;
USERPW WITH USER_PW,;
USERACCESS WITH USER_ACCESS
COMMIT
USE
SELECT( tSelect )
RETURN( NIL )
/*
* GeraMsg() - Gera‡Æo autom tica das mensagens do sistema
*/
FUNCTION GeraMsg()
LOCAL tArq:= PATHDBF() + MAINPRG() + ".MSG"
LOCAL aStruc:= { { "CODMESSAGE", "C", 4, 0 },;
{ "MESSAGE", "C", 68, 0 } }
DBCREATE( tArq, aStruc )
COMMIT
RETURN( NIL )
/*
* SetUp() - Inicializa os principais flags do sistema
*/
FUNCTION SetUp()
LOCAL tMain:= MAINPRG() + ".CFG"
IF !FILE( tMain )
GeraConfig()
ENDIF
SET SCOREBOARD OFF
SET CONFIRM ON
SET MESSAGE TO 23
SET EXACT OFF
SET WRAP ON
SET DELETED ON
SET DATE BRITISH
SET SOFTSEEK ON
// SET KEY K_ALT_C TO
// SET KEY K_ALT_S TO SENHA
// SET KEY K_ALT_T TO ALTSENHA
USE ( tMain ) SHARED NEW READONLY
SysId( TRIM( TITULO ))
SysVerify( VAL( clKey( VERIFICA, DECRIPT )))
SysCgc( CGC )
CorMenu( TRIM( CORMENU ))
CorWork( TRIM( CORWORK ))
CorJan( TRIM( CORJANELA ))
PathDbf( TRIM( PATHDBF ))
PathNtx( TRIM( PATHNTX ))
PathBack( TRIM( PATHBACK ))
PathSpool( TRIM( PATHSPOOL ))
Spool( SPOOL )
Comprime( COMPRIME )
Bold( NEGRITO )
SaltaPicote( PICOTE )
FormSize( LINHAS )
BoxFrame( SetBoxFrame( BOXTOP, BOXLEFT, BOXBOTTOM, BOXRIGHT ))
BordaFrame( SetBordaFrame( BOXTOP, BOXLEFT, BOXBOTTOM, BOXRIGHT ))
BoxImpFrame( BOXIMP )
ClearCab()
AddCabLine( CABL1 )
AddCabLine( CABL2 )
AddCabLine( CABL3 )
AddCabLine( CABL4 )
AddCabLine( CABL5 )
AddCabLine( CABL6 )
AddCabLine( CABL7 )
AddCabLine( CABL8 )
USE
IF ( !FILE( PathDbf() + MainPrg() + ".MSG" ) )
GeraMsg()
ENDIF
IF ( !FILE( PathDbf() + MainPrg() + ".SYS" ) )
GeraSys()
ENDIF
SetMsg()
RETURN( NIL )
// eof - RVLStart.prg