21 Mar 2014 12:34
{|M,X| X[3]:VarPut(VAL(SUBSTR(M:VarGet(),5,1))*3 ),X[3]:Assign,X[3]:UpdateBuffer(),X[3]:Display(),.T.}
{|M,X| X[3]:VarPut(VAL(SUBSTR(M:VarGet(),4,1))+X[3]:VarGet()),X[3]:Assign,X[3]:UpdateBuffer(),X[3]:Display(),.T.}
{|M,X| X[3]:VarPut(VAL(SUBSTR(M:VarGet(),3,1))*3+X[3]:VarGet()),X[3]:Assign,X[3]:UpdateBuffer(),X[3]:Display(),.T.}
SELECT('CAMPOS')
CAMPOS->( DBGOTOP() )
DO WHILE !CAMPOS->( EOF() )
FDPREVAL := ALLTRIM(STRTRAN(CAMPOS->FD_PREVAL, CHR(13)+CHR(10),"CHR(13)+CHR(10)"))
FDPOSVAL := ALLTRIM(STRTRAN(CAMPOS->FD_POSVAL, CHR(13)+CHR(10),"CHR(13)+CHR(10)"))
FDUSERS := ALLTRIM(STRTRAN(CAMPOS->FD_USERS, CHR(13)+CHR(10),"CHR(13)+CHR(10)"))
FDHELP := ALLTRIM(STRTRAN(CAMPOS->FD_HELP, CHR(13)+CHR(10),"CHR(13)+CHR(10)"))
ARQTXT += ;
IIF( EMPTY( CAMPOS->FD_FILE ),"NULL", CAMPOS->FD_FILE ) + CHR(9) + ;
STRZERO( CAMPOS->FD_NUMBER,3 ) + CHR(9) + ;
IIF( EMPTY( CAMPOS->FD_NAME ),"NULL", CAMPOS->FD_NAME ) + CHR(9) + ;
IIF( EMPTY( CAMPOS->FD_TYPE ),"NULL",CAMPOS->FD_TYPE ) + CHR(9) + ;
STRZERO( CAMPOS->FD_WIDTH,4 ) + CHR(9) + ;
STRZERO( CAMPOS->FD_DECIMAL,3 ) + CHR(9) + ;
IIF( CAMPOS->FD_LAYOUT=.T., ".T.",".F." ) + CHR(9) + ;
IIF( CAMPOS->FD_SYSTEM=.T., ".T.",".F." ) + CHR(9) + ;
IIF( CAMPOS->FD_PRINT =.T., ".T.",".F." ) + CHR(9) + ;
IIF( CAMPOS->FD_CHANGE=.T., ".T.",".F." ) + CHR(9) + ;
IIF( CAMPOS->FD_CRYPT =.T., ".T.",".F." ) + CHR(9) + ;
STRZERO( CAMPOS->FD_EDIT,1 ) + CHR(9) + ;
IIF( EMPTY( CAMPOS->FD_DESCR ),"NULL", CAMPOS->FD_DESCR ) + CHR(9)+ ;
IIF( EMPTY( FDPREVAL ),"NULL",FDPREVAL )+CHR(9)+ ;
IIF( EMPTY( FDPOSVAL ),"NULL",FDPOSVAL )+CHR(9)+ ;
IIF( EMPTY( FDUSERS ),"NULL",FDUSERS )+CHR(9)+ ;
IIF( EMPTY( FDHELP ),"NULL",FDHELP )+QUEBRA
CAMPOS->( DBSKIP() )
ENDDO
NHANDLE := FCREATE( VPASTA + "CAMPOS.TXT" )
FWRITE( NHANDLE , @ARQTXT , LEN( ARQTXT ) )
FCLOSE( NHANDLE )
ARQTXT := ""
INSERT_QUERY := OSERVER:QUERY( 'LOAD DATA LOCAL INFILE "CAMPOS.TXT" INTO TABLE CAMPOS;')
IF INSERT_QUERY:NetErr()
erros := INSERT_QUERY:Error()
ARQERR := VPASTA + "CAMPOS.ERR"
IF FILE( ARQERR )
DELETE FILE ( ARQERR )
ENDIF
NHANDLE := FCREATE( ARQERR )
FWRITE( NHANDLE , @erros , LEN( erros ) )
FCLOSE( NHANDLE )
ENDIF
INSERT_QUERY:DESTROY()
21 Mar 2014 13:57
21 Mar 2014 15:04
INSERT_QUERY := OSERVER:QUERY( ' INSERT INTO CAMPOS SET FD_FILE = FDFILE, FD_NUMBER = FDNUMBER, FD_NAME = FDNAME, FD_TYPE = FDTYPE, FD_WIDTH = FDWIDTH, FD_DECIMAL = FDDECIMAL, FD_LAYOUT = FDLAYOUT, FD_SYSTEM = FDSYSTEM ; ' )
21 Mar 2014 15:19
21 Mar 2014 19:08
You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near 'J",ValidaCGC(g:VarGet()),ValidaCPF(g:VarGet()))}", FD_USERS = "", FD_HELP = ""' at line 1
FDFILE := CLIENTES
FDNUMBER := 18
FDNAME := CGC_CPF
FDTYPE := C
FDWIDTH := 20
FDDECIMAL := 0
FDLAYOUT := 1
FDSYSTEM := 1
FDPRINT := 1
FDCHANGE := 1
FDCRYPT := 2
FDEDIT := 0
FDDESCR :=
FDPREVAL := {|oGet,aGets| MudaPicture(aGets[1]:VarGet(),aGets[14]),oGet:UpdateBuffer(),.T.}
FDPOSVAL := {|g,a| IIf(a[1]:VarGet()=="J",ValidaCGC(g:VarGet()),ValidaCPF(g:VarGet()))}
FDUSERS :=
FDHELP :=
You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near '7IjFeAdk" ),X[7]:Assign,X[7]:UpdateBuffer(),X[7]:Display(),.T.}
{|M,X| X[7]:Var' at line 1
FDFILE := EAN13
FDNUMBER := 40
FDNAME := COD_PRODUT
FDTYPE := C
FDWIDTH := 10
FDDECIMAL := 0
FDLAYOUT := 1
FDSYSTEM := 1
FDPRINT := 1
FDCHANGE := 1
FDCRYPT := 2
FDEDIT := 0
FDDESCR :=
FDPREVAL :=
FDPOSVAL := {|M,X| X[3]:VarPut(VAL(SUBSTR(M:VarGet(),5,1))*3 ),X[3]:Assign,X[3]:UpdateBuffer(),X[3]:Display(),.T.}
{|M,X| X[3]:VarPut(VAL(SUBSTR(M:VarGet(),4,1))+X[3]:VarGet()),X[3]:Assign,X[3]:UpdateBuffer(),X[3]:Display(),.T.}
{|M,X| X[3]:VarPut(VAL(SUBSTR(M:VarGet(),3,1))*3+X[3]:VarGet()),X[3]:Assign,X[3]:UpdateBuffer(),X[3]:Display(),.T.}
{|M,X| X[3]:VarPut(VAL(SUBSTR(M:VarGet(),2,1))+X[3]:VarGet()),X[3]:Assign,X[3]:UpdateBuffer(),X[3]:Display(),.T.}
{|M,X| X[3]:VarPut(VAL(SUBSTR(M:VarGet(),1,1))*3+X[3]:VarGet()),X[3]:Assign,X[3]:UpdateBuffer(),X[3]:Display(),.T.}
{|M,X| X[3]:VarPut(VAL(SUBSTR(X[2]:VarGet(),7,1))+X[3]:VarGet() ),X[3]:Assign,X[3]:UpdateBuffer(),X[3]:Display(),.T.}
{|M,X| X[3]:VarPut(VAL(SUBSTR(X[2]:VarGet(),6,1))*3+X[3]:VarGet() ),X[3]:Assign,X[3]:UpdateBuffer(),X[3]:Display(),.T.}
{|M,X| X[3]:VarPut(VAL(SUBSTR(X[2]:VarGet(),5,1))+X[3]:VarGet() ),X[3]:Assign,X[3]:UpdateBuffer(),X[3]:Display(),.T.}
{|M,X| X[3]:VarPut(VAL(SUBSTR(X[2]:VarGet(),4,1))*3+X[3]:VarGet() ),X[3]:Assign,X[3]:UpdateBuffer(),X[3]:Display(),.T.}
{|M,X| X[3]:VarPut(VAL(SUBSTR(X[2]:VarGet(),3,1))+X[3]:VarGet() ),X[3]:Assign,X[3]:UpdateBuffer(),X[3]:Display(),.T.}
{|M,X| X[3]:VarPut(VAL(SUBSTR(X[2]:VarGet(),2,1))*3+X[3]:VarGet() ),X[3]:Assign,X[3]:UpdateBuffer(),X[3]:Display(),.T.}
{|M,X| X[3]:VarPut(STR(VAL(SUBSTR(X[2]:VarGet(),1,1))+X[3]:VarGet(),10) ),X[3]:Assign,X[3]:UpdateBuffer(),X[3]:Display(),.T.}
{|M,X| X[4]:VarPut( STRZERO(INT(VAL(X[3]:VarGet())/10+0.9)*10,2) ),X[4]:Assign,X[4]:UpdateBuffer(),X[4]:Display(),.T.}
{|M,X| X[5]:VarPut( STRZERO(VAL(X[4]:VarGet()) - VAL(X[3]:VarGet()),2) ),X[5]:Assign,X[5]:UpdateBuffer(),X[5]:Display(),.T.}
{|M,X| X[6]:VarPut(SUBSTR(X[2]:VarGet(),1,7) + SUBSTR(X[1]:VarGet(),1,5) + SUBSTR(X[5]:VarGet(),2,1) ),X[6]:Assign,X[6]:UpdateBuffer(),X[6]:Display(),.T.}
{|M,X| X[7]:VarPut( "7IjFeAdk" ),X[7]:Assign,X[7]:UpdateBuffer(),X[7]:Display(),.T.}
{|M,X| X[7]:VarPut(ALLTRIM(X[7]:VarGet()) + SUBSTR(X[1]:VarGet(),1,1) ),X[7]:Assign,X[7]:UpdateBuffer(),X[7]:Display(),.T.}
FDUSERS :=
FDHELP :=
You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near 'Tipo......: "+ALLTRIM(EVENTOS->TIPO)),.T.}
{|a,b,c|DevPos(c[19,1]+08,c[19,2]+04' at line 1
FDFILE := MATRICUL
FDNUMBER := 5
FDNAME := EVENTO
FDTYPE := C
FDWIDTH := 20
FDDECIMAL := 0
FDLAYOUT := 1
FDSYSTEM := 1
FDPRINT := 1
FDCHANGE := 1
FDCRYPT := 2
FDEDIT := 0
FDDESCR :=
FDPREVAL :=
FDPOSVAL := {|a,b| EVENTOS->(DBSeek(b[4]:VarGet()))}
{|a,b,c|DevPos(c[19,1]+07,c[19,2]+38),DevOut("Tipo......: "+ALLTRIM(EVENTOS->TIPO)),.T.}
{|a,b,c|DevPos(c[19,1]+08,c[19,2]+04),DevOut("Modalidade..: "+ALLTRIM(EVENTOS->MODALIDADE)),.T.}
{|a,b,c|DevPos(c[19,1]+08,c[19,2]+38),DevOut("Assunto...: "+SUBS(EVENTOS->ASSUNTO,1,20)),.T.}
{|a,b,c|DevPos(c[19,1]+09,c[19,2]+04),DevOut("Dia Semana: "+EVENTOS->DIA_SEMANA),.T.}
{|a,b,c|DevPos(c[19,1]+09,c[19,2]+26),DevOut("Data Inicio.: "+DTOC(EVENTOS->DATA_INI)),.T.}
{|a,b,c|DevPos(c[19,1]+09,c[19,1]+48),DevOut("Hr. Inicial..: "+EVENTOS->HORA_INI),.T.}
{|a,b,c|DevPos(c[19,1]+10,c[19,2]+04),DevOut("N. Vagas..: "+STRZERO(EVENTOS->NUM_VAGAS,2)),.T.}
{|a,b,c|DevPos(c[19,1]+10,c[19,2]+26),DevOut("N. Inscritos: "+STRZERO(EVENTOS->INSCRITOS,2)),.T.}
{|a,b,c|DevPos(c[19,1]+11,c[19,2]+04),DevOut("Vlr do Evento: "+TRANSFORM(EVENTOS->VLR_COBRAR, "999,999.99")),.T.}
{|a,b,c,d,e|e:=CONDPAG->SALDO+IIF(CONDPAG->VALORSINAL>0,1,0),DevPos(c[19,1]+11,c[19,2]+38),DevOut("Parcelas..: "+STRZERO(e,2)+" X R$"+ TRANSFORM((EVENTOS->VLR_COBRAR/e), "999,999.99")),.T.}
//{|a,b,c,d|b[7]:VarPut( IIF(d=="I",EVENTOS->COND_PAGAM,MATRICUL->COND_PAGAM) ),b[7]:Assign(),b[7]:UpdateBuffer(),b[7]:Display(),.T.}
FDUSERS :=
FDHELP :=
You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near 'I",EVENTOS->VLR_COBRAR,MATRICUL->SUBTOTAL)),b[5]:Assign(),b[5]:UpdateBuffer(),b[' at line 1
FDFILE := MATRICUL
FDNUMBER := 9
FDNAME := SUBTOTAL
FDTYPE := N
FDWIDTH := 14
FDDECIMAL := 4
FDLAYOUT := 1
FDSYSTEM := 1
FDPRINT := 1
FDCHANGE := 1
FDCRYPT := 2
FDEDIT := 0
FDDESCR :=
FDPREVAL := {|a,b,c,d| b[5]:VarPut(IIf(d=="I",EVENTOS->VLR_COBRAR,MATRICUL->SUBTOTAL)),b[5]:Assign(),b[5]:UpdateBuffer(),b[5]:Display(),.T.}
FDPOSVAL :=
FDUSERS :=
FDHELP :=
Truncated incorrect DOUBLE value: '{|a|SetPos(a:row,a:col+4),DevOut('
FDFILE := ORD_PROD
FDNUMBER := 7
FDNAME := NUMERO
FDTYPE := C
FDWIDTH := 4
FDDECIMAL := 0
FDLAYOUT := 1
FDSYSTEM := 1
FDPRINT := 1
FDCHANGE := 1
FDCRYPT := 2
FDEDIT := 0
FDDESCR :=
FDPREVAL := {|a|SetPos(a:row,a:col+4),DevOut("/"+Right(AllTrim(Str(Year(Date()))),2)),.T.}
FDPOSVAL :=
FDUSERS :=
FDHELP :=
22 Mar 2014 07:56
22 Mar 2014 08:05
22 Mar 2014 15:57
31 Mar 2014 18:32