Ferramentas são feitas para facilitar o trabalho manual e convenhamos, durante os anos juntamos muitas ferramentas, umas simples outras complexas, mas enfim, sempre estamos atras delas.
Bom uso por muito tempo algumas ferramentas que eu mesmo desenvolvi para facilitar uma adapatação ou integração de arquivos .DBFs com outras linguagens.
Coloco a disposição mais douas de minhas ferramentas e espero que ela ajude aos amigos em tarefas que provavelmente seriam complicadas de fazer manualmente e sacais quando feitas por um desenhador de formularios profissionais.
As ferramentas aqui espostas irão pegar a estrutura de seu DBF e criar os controles em uma tela muito bem formatadinha e de quebra criar o codigo ASP necessario para o cadastro dos dados em uma tabela remota ou que esteja rodando em um servidor Web.
Arquivo de compilação. Usa o Blinker para compilar:
Código: Selecionar todos
del temp.dbf
clipper dbf2htm
clipper dbf2asp
blinker fi dbf2htm
blinker fi dbf2asp
del *.ppo
del *.obj
del *.bif
Codigo fonte do gerador de .HTML
Código: Selecionar todos
PARA cFile,p1,p2,p3,p4,p5,p6,p7,p8,p9,p10
p1 := iif(p1=NIL,"",p1)
p2 := iif(p2=NIL,"",p2)
p3 := iif(p3=NIL,"",p3)
p4 := iif(p4=NIL,"",p4)
p5 := iif(p5=NIL,"",p5)
p6 := iif(p6=NIL,"",p6)
p7 := iif(p7=NIL,"",p7)
p8 := iif(p8=NIL,"",p8)
p9 := iif(p9=NIL,"",p9)
p10 := iif(p10=NIL,"",p10)
? 'MAKEhtm 1.0 Direiros Reservados 1999-2000 Soft Clever Informatica ME.'
if cFile = NIL
// ? 'Uso : MAKEhtm <NomeDohtm> [op‡”es] '
// ? ' '
// ? 'Exemplo: MAKEhtm <NomeDohtm> /m/n'
// QUIT
? ' '
numprg={}
numprg=Adir("*.dbf")
numopt=p1+p2+p3+p4+p5+p6+p7+p8+p9+p10
declare prg_files[numprg]
Adir("*.dbf",prg_files)
Asort(prg_files)
endif
//
// -> Arquivo temporario
iprg_files = 1
do while .t.
if cFile = NIL
prg_name := alltrim(substr(prg_files[iprg_files],1,at(".",prg_files[iprg_files])-1))
else
prg_name := cFile
endif
? 'Criando... '+prg_name
use (prg_name)
copy structure extend to temp
use
use temp
go top
cFile := alltrim(prg_name) + ".HTM"
ret_line := "chr(13)+chr(10)"
errhandle = fcreate(cFile)
fwrite(errhandle,[<html>]+&ret_line.)
fwrite(errhandle,[<body bgcolor="#FFFFFF">]+&ret_line.)
fwrite(errhandle,[<table border=0 cellpadding=0 cellspacing=0 valign="top" align="center" width="70%">]+&ret_line.)
fwrite(errhandle,[ <table width="100%" border="0" cellspacing="0" cellpadding="0">]+&ret_line.)
fwrite(errhandle,[ <tr>]+&ret_line.)
fwrite(errhandle,[ <td colspan="2" bgcolor="#FFFFFF" valign="center" align="center">]+&ret_line.)
fwrite(errhandle,[ <!-- START FORM HERE -->]+&ret_line.)
fwrite(errhandle,[ <form action="]+prg_name+[.asp" method="POST" onSubmit="">]+&ret_line.)
//fwrite(errhandle,[ <form action="]+prg_name+[.asp" method="POST" onSubmit="">]+&ret_line.)
fwrite(errhandle,[ <input type="hidden" name="acao" value="inclusao">]+&ret_line.)
fwrite(errhandle,[ <input type="hidden" name="origem" value="IP">]+&ret_line.)
fwrite(errhandle,[ <!-- BR -->]+&ret_line.)
fwrite(errhandle,[ <!-- p align="center" -->]+&ret_line.)
fwrite(errhandle,[ <table border="0" cellpadding="2" cellspacing="1" width="600" bgcolor="#FFFFFF">]+&ret_line.)
fwrite(errhandle,[ <tr bgcolor="#330066" align="center">]+&ret_line.)
fwrite(errhandle,[ <td colspan="2">]+&ret_line.)
fwrite(errhandle,[ <b>]+&ret_line.)
fwrite(errhandle,[ <font color="#FFFFFF" size="4" face="Arial, Helvetica, sans-serif">]+&ret_line.)
fwrite(errhandle,[ <strong>Atenção:</strong>]+&ret_line.)
fwrite(errhandle,[ </font>]+&ret_line.)
fwrite(errhandle,[ <font color="#FFFFFF" size="2" face="Arial, Helvetica, sans-serif">Contamos com sua atenção no preenchimento do formulário abaixo.</font> ]+&ret_line.)
fwrite(errhandle,[ </b>]+&ret_line.)
fwrite(errhandle,[ </td>]+&ret_line.)
fwrite(errhandle,[ </tr>]+&ret_line.)
fwrite(errhandle,[ <tbody> ]+&ret_line.)
fwrite(errhandle,[ </table>]+&ret_line.)
fwrite(errhandle,[ <!-- ------------- INICIO DO BLOCO DE CAMPOS ------------ -->]+&ret_line.)
fwrite(errhandle,[ <table border="0" cellpadding="2" cellspacing="1" width="600" bgcolor="#FFFFFF">]+&ret_line.)
do while .not. eof()
if field_type = 'L' .or. (field_type = 'C' .and. field_len = 1)
// Cria controle checkbox
fwrite(errhandle,[ <tr bgcolor="#CCCCFF">]+&ret_line.)
fwrite(errhandle,[ <td width="135" align="right" bgcolor="#9999CC">]+&ret_line.)
fwrite(errhandle,[ <font size="2" face="Arial, Helvetica, sans-serif">]+NewCapfirst(alltrim(field_name))+[</font>]+&ret_line.)
fwrite(errhandle,[ </td>]+&ret_line.)
fwrite(errhandle,[ <td width="452">]+&ret_line.)
fwrite(errhandle,[ <input align=left maxlength="135" type="checkbox" name="]+alltrim(field_name)+[" size="1" tabindex="]+str(recno(),2)+[">]+&ret_line.)
fwrite(errhandle,[ </td>]+&ret_line.)
fwrite(errhandle,[ </tr>]+&ret_line.)
skip
loop
endif
if field_type = 'C' .or. field_type = 'N'
// Cria controle text
fwrite(errhandle,[ <tr bgcolor="#CCCCFF">]+&ret_line.)
fwrite(errhandle,[ <td width="135" align="right" bgcolor="#9999CC">]+&ret_line.)
fwrite(errhandle,[ <font size="2" face="Arial, Helvetica, sans-serif">]+NewCapfirst(alltrim(field_name))+[</font>]+&ret_line.)
fwrite(errhandle,[ </td>]+&ret_line.)
if field_len > 45
// Cria controle textarea
fwrite(errhandle,[ <td width="452"> ]+&ret_line.)
fwrite(errhandle,[ <textarea align=left rows="3" cols="50" maxlength="300" type="text" name="]+alltrim(field_name)+[" size="50" tabindex="]+str(recno(),2)+["></textarea>]+&ret_line.)
fwrite(errhandle,[ </td>]+&ret_line.)
else
fwrite(errhandle,[ <td width="452"> ]+&ret_line.)
fwrite(errhandle,[ <input align=left maxlength="135" type="text" name="]+alltrim(field_name)+[" size="]+str(field_len,2)+[" tabindex="]+str(recno(),2)+[">]+&ret_line.)
fwrite(errhandle,[ </td>]+&ret_line.)
endif
fwrite(errhandle,[ </tr>]+&ret_line.)
endif
if field_type = 'M'
// Cria controle textarea
fwrite(errhandle,[ <tr bgcolor="#CCCCFF">]+&ret_line.)
fwrite(errhandle,[ <td width="135" align="right" bgcolor="#9999CC">]+&ret_line.)
fwrite(errhandle,[ <font size="2" face="Arial, Helvetica, sans-serif">Nome</font>]+&ret_line.)
fwrite(errhandle,[ </td>]+&ret_line.)
fwrite(errhandle,[ <td width="452"> ]+&ret_line.)
fwrite(errhandle,[ <textarea align=left rows="3" cols="50" maxlength="300" type="text" name="]+alltrim(field_name)+[" size="50" tabindex="]+str(recno(),2)+["></textarea>]+&ret_line.)
fwrite(errhandle,[ </td>]+&ret_line.)
fwrite(errhandle,[ </tr>]+&ret_line.)
endif
skip
enddo
fwrite(errhandle,[ </table>]+&ret_line.)
fwrite(errhandle,[ <!-- ---------- INICIO DE PAGINA COMPLEMENTAR -------- -->]+&ret_line.)
fwrite(errhandle,[ <table border="0" cellpadding="2" cellspacing="1" width="600" bgcolor="#FFFFFF">]+&ret_line.)
/*
fwrite(errhandle,[ <tr bgcolor="#330066" align="center">]+&ret_line.)
fwrite(errhandle,[ <td colspan="3"><font face="Arial, Helvetica, sans-serif">]+&ret_line.)
fwrite(errhandle,[ <b><font color="#FFFFFF">Marque os tipos de informativos gostaria de receber em sua caixa de mensagem!</font></b></font>]+&ret_line.)
fwrite(errhandle,[ </td>]+&ret_line.)
fwrite(errhandle,[ </tr>]+&ret_line.)
fwrite(errhandle,[ <tr bgcolor="#CCCCFF">]+&ret_line.)
fwrite(errhandle,[ <td width="200"> <input type="checkbox" name="ezines" value="SB" > <font size="2" face="Arial, Helvetica, sans-serif">Produtos</font></td>]+&ret_line.)
fwrite(errhandle,[ <td width="200"> <input type="checkbox" name="ezines" value="WP" > <font size="2" face="Arial, Helvetica, sans-serif">Servicos</font></td>]+&ret_line.)
fwrite(errhandle,[ <td width="200"> <input type="checkbox" name="ezines" value="TR" > <font size="2" face="Arial, Helvetica, sans-serif">Internet</font></td></tr><tr bgcolor="#9999CC"> <td align="right" bgcolor="#330066" colspan="3"><img src="../imagens/spacer.gif" width="3" height="3"></td>]+&ret_line.)
fwrite(errhandle,[ </tr>]+&ret_line.)
fwrite(errhandle,[ <!-- ---------- INICIO DE BLOCO INFORMATIVO -------- -->]+&ret_line.)
fwrite(errhandle,[ <tr bgcolor="#9999CC">]+&ret_line.)
fwrite(errhandle,[ <td colspan="3"> ]+&ret_line.)
fwrite(errhandle,[ <input type="checkbox" name="is_HTML_reader" value="Y" >]+&ret_line.)
fwrite(errhandle,[ <font size="2" face="Arial, Helvetica, sans-serif">Gostaria de receber minhas mensagem atraves de minha area privativa no site.<br>]+&ret_line.)
fwrite(errhandle,[ <font face="arial, helvetica" size="2" color="#660066"> Obs: Somente para clientes cadastrados via site.</font></font>]+&ret_line.)
fwrite(errhandle,[ </td>]+&ret_line.)
fwrite(errhandle,[ </tr>]+&ret_line.)
*/
fwrite(errhandle,[ <tr bgcolor="#9999CC"> ]+&ret_line.)
fwrite(errhandle,[ <td colspan="3"> ]+&ret_line.)
fwrite(errhandle,[ <input type="checkbox" name="is_HTML_reader" value="Y" checked>]+&ret_line.)
fwrite(errhandle,[ <font size="2" face="Arial, Helvetica, sans-serif">Pelo envio deste formulario quero garantir a atualizacao de meus dados nos cadastros SoftClever.</font>]+&ret_line.)
fwrite(errhandle,[ </td>]+&ret_line.)
fwrite(errhandle,[ </tr>]+&ret_line.)
fwrite(errhandle,[ <tr bgcolor="#330066">]+&ret_line.)
fwrite(errhandle,[ <td colspan="3"> ]+&ret_line.)
fwrite(errhandle,[ <div align="center"><b>]+&ret_line.)
fwrite(errhandle,[ <font face="Arial, Helvetica, sans-serif">]+&ret_line.)
fwrite(errhandle,[ <font face="Arial, Helvetica, sans-serif" color="#FFFFFF"><br>]+&ret_line.)
fwrite(errhandle,[ Clicando em '<b>Enviar formulario</b>!' seus dados serao armazenados em nossos cadastros on-line e uma saudacao lhe sera enviado o mais breve possivel.]+&ret_line.)
fwrite(errhandle,[ </font>]+&ret_line.)
fwrite(errhandle,[ <font face="Arial, Helvetica, sans-serif"><br>]+&ret_line.)
fwrite(errhandle,[ </font>]+&ret_line.)
fwrite(errhandle,[ <font size="2" face="Arial, Helvetica, sans-serif">]+&ret_line.)
fwrite(errhandle,[ <font size="2" face="Arial, Helvetica, sans-serif">]+&ret_line.)
fwrite(errhandle,[ <p>]+&ret_line.)
fwrite(errhandle,[ <input type="submit" value=" Enviar formulario! " name="submit">]+&ret_line.)
fwrite(errhandle,[ <input type="reset" value=" Cancelar envio " name="reset">]+&ret_line.)
fwrite(errhandle,[ </font>]+&ret_line.)
fwrite(errhandle,[ </font>]+&ret_line.)
fwrite(errhandle,[ <font face="Arial, Helvetica, sans-serif">]+&ret_line.)
fwrite(errhandle,[ </font>]+&ret_line.)
fwrite(errhandle,[ </font>]+&ret_line.)
fwrite(errhandle,[ </b>]+&ret_line.)
fwrite(errhandle,[ </div>]+&ret_line.)
fwrite(errhandle,[ </td>]+&ret_line.)
fwrite(errhandle,[ </tr>]+&ret_line.)
fwrite(errhandle,[ </table>]+&ret_line.)
fwrite(errhandle,[ </form>]+&ret_line.)
fwrite(errhandle,[ <!-- END FORM HERE -->]+&ret_line.)
fwrite(errhandle,[ </td> ]+&ret_line.)
fwrite(errhandle,[ </tr> ]+&ret_line.)
fwrite(errhandle,[ </table>]+&ret_line.)
fwrite(errhandle,[</table>]+&ret_line.)
fwrite(errhandle,[</html>]+&ret_line.)
fclose(errhandle)
use
if cFile = NIL
iprg_files = iprg_files + 1
? iprg_files
else
exit
endif
enddo
RETURN
FUNCTION NewCapFirst
parameter string
declare excesao[7]
excesao[1] = " Do "
excesao[2] = " Dos "
excesao[3] = " Da "
excesao[4] = " Das "
excesao[5] = " De "
excesao[6] = " E "
excesao[7] = " Del "
novotexto = space(1)+lower(string)
fim = len(string)
for i = 1 to fim
if substr(novotexto,i,1) = " "
novotexto = stuff(novotexto,i+1,1,upper(substr(novotexto,i+1,1)))
endif
next
tamanho = len(excesao)
for i = 1 to tamanho
if excesao[i]$novotexto && tamanho
novotexto = stuff(novotexto,AT(excesao[i],novotexto),;
len(excesao[i]),lower(excesao[i]))
endif
next
RETURN(ltrim(novotexto))
Código: Selecionar todos
PARA cFile,p1,p2,p3,p4,p5,p6,p7,p8,p9,p10
p1 := iif(p1=NIL,"",p1)
p2 := iif(p2=NIL,"",p2)
p3 := iif(p3=NIL,"",p3)
p4 := iif(p4=NIL,"",p4)
p5 := iif(p5=NIL,"",p5)
p6 := iif(p6=NIL,"",p6)
p7 := iif(p7=NIL,"",p7)
p8 := iif(p8=NIL,"",p8)
p9 := iif(p9=NIL,"",p9)
p10 := iif(p10=NIL,"",p10)
? 'MAKEhtm 1.0 Direiros Reservados 1999-2000 Soft Clever Informatica ME.'
if cFile = NIL
? 'Uso : MAKEhtm <NomeDohtm> [op‡”es] '
? ' '
? 'Exemplo: MAKEhtm <NomeDohtm> /m/n'
QUIT
endif
? ' '
//numprg={}
//numprg=Adir("*.dbf")
numopt=p1+p2+p3+p4+p5+p6+p7+p8+p9+p10
//declare prg_files[numprg]
//Adir("*.dbf",prg_files)
//Asort(prg_files)
//
// -> Arquivo temporario
iprg_files = 1
//do while .t.
prg_name := cFile
//prg_name := alltrim(substr(prg_files[iprg_files],1,at(".",prg_files[iprg_files])-1))
? 'Criando... '+prg_name
use (prg_name)
copy structure extend to temp
use
use temp
go top
cFile := alltrim(prg_name) + ".HTM"
ret_line := "chr(13)+chr(10)"
errhandle = fcreate(cFile)
fwrite(errhandle,[<html>]+&ret_line.)
fwrite(errhandle,[<body bgcolor="#FFFFFF">]+&ret_line.)
fwrite(errhandle,[<table border=0 cellpadding=0 cellspacing=0 valign="top" align="center" width="70%">]+&ret_line.)
fwrite(errhandle,[ <table width="100%" border="0" cellspacing="0" cellpadding="0">]+&ret_line.)
fwrite(errhandle,[ <tr>]+&ret_line.)
fwrite(errhandle,[ <td colspan="2" bgcolor="#FFFFFF" valign="center" align="center">]+&ret_line.)
fwrite(errhandle,[ <!-- START FORM HERE -->]+&ret_line.)
fwrite(errhandle,[ <form name="frm]+NewCapFirst(prg_name)+[" action="]+prg_name+[.asp" method="POST" onSubmit="">]+&ret_line.)
fwrite(errhandle,[ <input type="hidden" name="acao" value="inclusao">]+&ret_line.)
fwrite(errhandle,[ <!-- BLOCO DE MANUTENCAO -->]+&ret_line.)
fwrite(errhandle,[ <input type="hidden" name="origem" value="IP">]+&ret_line.)
fwrite(errhandle,[ <!-- BR -->]+&ret_line.)
fwrite(errhandle,[ <!-- p align="center" -->]+&ret_line.)
fwrite(errhandle,[ <table border="0" cellpadding="2" cellspacing="1" width="600" bgcolor="#FFFFFF">]+&ret_line.)
fwrite(errhandle,[ <tr bgcolor="#386898" align="center">]+&ret_line.)
fwrite(errhandle,[ <td colspan="2">]+&ret_line.)
fwrite(errhandle,[ <b>]+&ret_line.)
fwrite(errhandle,[ <font color="#FFFFFF" size="4" face="Arial, Helvetica, sans-serif">]+&ret_line.)
fwrite(errhandle,[ <strong>Atenção:</strong>]+&ret_line.)
fwrite(errhandle,[ </font>]+&ret_line.)
fwrite(errhandle,[ <font color="#FFFFFF" size="2" face="Arial, Helvetica, sans-serif">Contamos com sua atenção no preenchimento do formulário abaixo.</font> ]+&ret_line.)
fwrite(errhandle,[ </b>]+&ret_line.)
fwrite(errhandle,[ </td>]+&ret_line.)
fwrite(errhandle,[ </tr>]+&ret_line.)
fwrite(errhandle,[ <tbody> ]+&ret_line.)
fwrite(errhandle,[ </table>]+&ret_line.)
fwrite(errhandle,[ <!-- ------------- INICIO DO BLOCO DE CAMPOS ------------ -->]+&ret_line.)
fwrite(errhandle,[ <table border="0" cellpadding="2" cellspacing="1" width="600" bgcolor="#FFFFFF">]+&ret_line.)
do while .not. eof()
if field_type = 'L' .or. (field_type = 'C' .and. field_len = 1)
// Cria controle checkbox
fwrite(errhandle,[ <tr bgcolor="#E8F0FF">]+&ret_line.)
fwrite(errhandle,[ <td width="135" align="right" bgcolor="#A8C8E8">]+&ret_line.)
fwrite(errhandle,[ <font size="2" face="Arial, Helvetica, sans-serif">]+NewCapfirst(alltrim(field_name))+[</font>]+&ret_line.)
fwrite(errhandle,[ </td>]+&ret_line.)
fwrite(errhandle,[ <td width="452">]+&ret_line.)
fwrite(errhandle,[ <input align=left maxlength="135" type="checkbox" name="]+alltrim(field_name)+[" size="1" tabindex="]+str(recno(),2)+[">]+&ret_line.)
fwrite(errhandle,[ </td>]+&ret_line.)
fwrite(errhandle,[ </tr>]+&ret_line.)
skip
loop
endif
/*
if field_type = 'D'
// Cria controle data
fwrite(errhandle,[ <tr bgcolor="#E8F0FF">]+&ret_line.)
fwrite(errhandle,[ <td align="right" width="135" bgcolor="#A8C8E8">]+&ret_line.)
fwrite(errhandle,[ <font size="2" face="Arial, Helvetica, sans-serif">]+alltrim(NewCapFirst(field_name))+[ <small>(dd/mm/yy)</small></font>]+&ret_line.)
fwrite(errhandle,[ <font size="1"><small><br></small></font>]+&ret_line.)
fwrite(errhandle,[ </td>]+&ret_line.)
fwrite(errhandle,[ <td width="452"> ]+&ret_line.)
fwrite(errhandle,[ <select name="DIA_]+alltrim(field_name)+[" size="1" tabindex="]+str(recno(),2)+[">]+&ret_line.)
fwrite(errhandle,[ <option selected value=""></option>]+&ret_line.)
fwrite(errhandle,[ <option value="01">01</option>]+&ret_line.)
fwrite(errhandle,[ <option value="02">02</option>]+&ret_line.)
fwrite(errhandle,[ <option value="03">03</option>]+&ret_line.)
fwrite(errhandle,[ <option value="04">04</option>]+&ret_line.)
fwrite(errhandle,[ <option value="05">05</option>]+&ret_line.)
fwrite(errhandle,[ <option value="06">06</option>]+&ret_line.)
fwrite(errhandle,[ <option value="07">07</option>]+&ret_line.)
fwrite(errhandle,[ <option value="08">08</option>]+&ret_line.)
fwrite(errhandle,[ <option value="09">09</option>]+&ret_line.)
fwrite(errhandle,[ <option value="10">10</option>]+&ret_line.)
fwrite(errhandle,[ <option value="11">11</option>]+&ret_line.)
fwrite(errhandle,[ <option value="12">12</option>]+&ret_line.)
fwrite(errhandle,[ <option value="13">13</option>]+&ret_line.)
fwrite(errhandle,[ <option value="14">14</option>]+&ret_line.)
fwrite(errhandle,[ <option value="15">15</option>]+&ret_line.)
fwrite(errhandle,[ <option value="16">16</option>]+&ret_line.)
fwrite(errhandle,[ <option value="17">17</option>]+&ret_line.)
fwrite(errhandle,[ <option value="18">18</option>]+&ret_line.)
fwrite(errhandle,[ <option value="19">19</option>]+&ret_line.)
fwrite(errhandle,[ <option value="20">20</option>]+&ret_line.)
fwrite(errhandle,[ <option value="21">21</option>]+&ret_line.)
fwrite(errhandle,[ <option value="22">22</option>]+&ret_line.)
fwrite(errhandle,[ <option value="23">23</option>]+&ret_line.)
fwrite(errhandle,[ <option value="24">24</option>]+&ret_line.)
fwrite(errhandle,[ <option value="25">25</option>]+&ret_line.)
fwrite(errhandle,[ <option value="26">26</option>]+&ret_line.)
fwrite(errhandle,[ <option value="27">27</option>]+&ret_line.)
fwrite(errhandle,[ <option value="28">28</option>]+&ret_line.)
fwrite(errhandle,[ <option value="29">29</option>]+&ret_line.)
fwrite(errhandle,[ <option value="30">30</option>]+&ret_line.)
fwrite(errhandle,[ <option value="31">31</option>]+&ret_line.)
fwrite(errhandle,[ </select> ]+&ret_line.)
fwrite(errhandle,[ <select name="MES_]+alltrim(field_name)+[" size="1" tabindex="]+str(recno(),2)+[">]+&ret_line.)
fwrite(errhandle,[ <option selected value=""></option>]+&ret_line.)
fwrite(errhandle,[ <option value="01">Janeiro</option>]+&ret_line.)
fwrite(errhandle,[ <option value="02">Fevereiro</option>]+&ret_line.)
fwrite(errhandle,[ <option value="03">Marco</option>]+&ret_line.)
fwrite(errhandle,[ <option value="04">Abril</option>]+&ret_line.)
fwrite(errhandle,[ <option value="05">Maio</option>]+&ret_line.)
fwrite(errhandle,[ <option value="06">Junho</option>]+&ret_line.)
fwrite(errhandle,[ <option value="07">Julho</option>]+&ret_line.)
fwrite(errhandle,[ <option value="08">Agosto</option>]+&ret_line.)
fwrite(errhandle,[ <option value="09">Setembro</option>]+&ret_line.)
fwrite(errhandle,[ <option value="10">Outubro</option>]+&ret_line.)
fwrite(errhandle,[ <option value="11">Novembro</option>]+&ret_line.)
fwrite(errhandle,[ <option value="12">Dezembro</option>]+&ret_line.)
fwrite(errhandle,[ </select> ]+&ret_line.)
fwrite(errhandle,[ <select name="ANO_]+alltrim(field_name)+[" size="1" tabindex="]+str(recno(),2)+[">]+&ret_line.)
fwrite(errhandle,[ <option selected value=""></option>]+&ret_line.)
fwrite(errhandle,[ <option value="2000">2000</option>]+&ret_line.)
fwrite(errhandle,[ <option value="2001">2001</option>]+&ret_line.)
fwrite(errhandle,[ <option value="2002">2002</option>]+&ret_line.)
fwrite(errhandle,[ <option value="2003">2003</option>]+&ret_line.)
fwrite(errhandle,[ </select>]+&ret_line.)
fwrite(errhandle,[ </td>]+&ret_line.)
fwrite(errhandle,[ </tr>]+&ret_line.)
endif
*/
if field_type = 'C' .or. field_type = 'N' .or. field_type = 'D'
// Cria controle text
fwrite(errhandle,[ <tr bgcolor="#E8F0FF">]+&ret_line.)
fwrite(errhandle,[ <td width="135" align="right" bgcolor="#A8C8E8">]+&ret_line.)
fwrite(errhandle,[ <font size="2" face="Arial, Helvetica, sans-serif">]+NewCapfirst(alltrim(field_name))+[</font>]+&ret_line.)
fwrite(errhandle,[ </td>]+&ret_line.)
if field_len > 45
// Cria controle textarea
fwrite(errhandle,[ <td width="452"> ]+&ret_line.)
fwrite(errhandle,[ <textarea align=left rows="3" cols="50" maxlength="300" size="50" tabindex="]+str(recno(),2)+[" type="text" name="]+alltrim(field_name)+["></textarea>]+&ret_line.)
fwrite(errhandle,[ </td>]+&ret_line.)
else
fwrite(errhandle,[ <td width="452"> ]+&ret_line.)
fwrite(errhandle,[ <input align=left maxlength="135" type="text" name="]+alltrim(field_name)+[" size="]+str(field_len,2)+[" tabindex="]+str(recno(),2)+[">]+&ret_line.)
fwrite(errhandle,[ </td>]+&ret_line.)
endif
fwrite(errhandle,[ </tr>]+&ret_line.)
endif
if field_type = 'M'
// Cria controle textarea
fwrite(errhandle,[ <tr bgcolor="#E8F0FF">]+&ret_line.)
fwrite(errhandle,[ <td width="135" valign="top" align="right" bgcolor="#A8C8E8">]+&ret_line.)
fwrite(errhandle,[ <font size="2" face="Arial, Helvetica, sans-serif">]+NewCapfirst(alltrim(field_name))+[</font>]+&ret_line.)
fwrite(errhandle,[ </td>]+&ret_line.)
fwrite(errhandle,[ <td width="452"> ]+&ret_line.)
fwrite(errhandle,[ <textarea align=left rows="3" cols="50" maxlength="300" size="50" tabindex="]+str(recno(),2)+[" type="text" name="]+alltrim(field_name)+["></textarea>]+&ret_line.)
fwrite(errhandle,[ </td>]+&ret_line.)
fwrite(errhandle,[ </tr>]+&ret_line.)
endif
skip
enddo
fwrite(errhandle,[ </table>]+&ret_line.)
fwrite(errhandle,[ <!-- ---------- INICIO DE PAGINA COMPLEMENTAR -------- -->]+&ret_line.)
fwrite(errhandle,[ <table border="0" cellpadding="2" cellspacing="1" width="600" bgcolor="#FFFFFF">]+&ret_line.)
/*
fwrite(errhandle,[ <tr bgcolor="#330066" align="center">]+&ret_line.)
fwrite(errhandle,[ <td colspan="3"><font face="Arial, Helvetica, sans-serif">]+&ret_line.)
fwrite(errhandle,[ <b><font color="#FFFFFF">Marque os tipos de informativos gostaria de receber em sua caixa de mensagem!</font></b></font>]+&ret_line.)
fwrite(errhandle,[ </td>]+&ret_line.)
fwrite(errhandle,[ </tr>]+&ret_line.)
fwrite(errhandle,[ <tr bgcolor="#CCCCFF">]+&ret_line.)
fwrite(errhandle,[ <td width="200"> <input type="checkbox" name="ezines" value="SB" > <font size="2" face="Arial, Helvetica, sans-serif">Produtos</font></td>]+&ret_line.)
fwrite(errhandle,[ <td width="200"> <input type="checkbox" name="ezines" value="WP" > <font size="2" face="Arial, Helvetica, sans-serif">Servicos</font></td>]+&ret_line.)
fwrite(errhandle,[ <td width="200"> <input type="checkbox" name="ezines" value="TR" > <font size="2" face="Arial, Helvetica, sans-serif">Internet</font></td></tr><tr bgcolor="#9999CC"> <td align="right" bgcolor="#330066" colspan="3"><img src="../imagens/spacer.gif" width="3" height="3"></td>]+&ret_line.)
fwrite(errhandle,[ </tr>]+&ret_line.)
fwrite(errhandle,[ <!-- ---------- INICIO DE BLOCO INFORMATIVO -------- -->]+&ret_line.)
fwrite(errhandle,[ <tr bgcolor="#9999CC">]+&ret_line.)
fwrite(errhandle,[ <td colspan="3"> ]+&ret_line.)
fwrite(errhandle,[ <input type="checkbox" name="is_HTML_reader" value="Y" >]+&ret_line.)
fwrite(errhandle,[ <font size="2" face="Arial, Helvetica, sans-serif">Gostaria de receber minhas mensagem atraves de minha area privativa no site.<br>]+&ret_line.)
fwrite(errhandle,[ <font face="arial, helvetica" size="2" color="#660066"> Obs: Somente para clientes cadastrados via site.</font></font>]+&ret_line.)
fwrite(errhandle,[ </td>]+&ret_line.)
fwrite(errhandle,[ </tr>]+&ret_line.)
*/
fwrite(errhandle,[ <tr bgcolor="#A8C8E8"> ]+&ret_line.)
fwrite(errhandle,[ <td colspan="3"> ]+&ret_line.)
fwrite(errhandle,[ <input type="checkbox" name="is_HTML_reader" value="Y" checked>]+&ret_line.)
fwrite(errhandle,[ <font size="2" face="Arial, Helvetica, sans-serif">Pelo envio deste formulario quero garantir a atualizacao de meus dados nos cadastros SoftClever.</font>]+&ret_line.)
fwrite(errhandle,[ </td>]+&ret_line.)
fwrite(errhandle,[ </tr>]+&ret_line.)
fwrite(errhandle,[ <tr bgcolor="#386898">]+&ret_line.)
fwrite(errhandle,[ <td colspan="3"> ]+&ret_line.)
fwrite(errhandle,[ <div align="center"><b>]+&ret_line.)
fwrite(errhandle,[ <font face="Arial, Helvetica, sans-serif">]+&ret_line.)
fwrite(errhandle,[ <font face="Arial, Helvetica, sans-serif" color="#FFFFFF"><br>]+&ret_line.)
fwrite(errhandle,[ Clicando em '<b>Enviar formulario</b>!' seus dados serao armazenados em nossos cadastros on-line e uma saudacao lhe sera enviado o mais breve possivel.]+&ret_line.)
fwrite(errhandle,[ </font>]+&ret_line.)
fwrite(errhandle,[ <font face="Arial, Helvetica, sans-serif"><br>]+&ret_line.)
fwrite(errhandle,[ </font>]+&ret_line.)
fwrite(errhandle,[ <font size="2" face="Arial, Helvetica, sans-serif">]+&ret_line.)
fwrite(errhandle,[ <font size="2" face="Arial, Helvetica, sans-serif">]+&ret_line.)
fwrite(errhandle,[ <p>]+&ret_line.)
fwrite(errhandle,[ <input type="submit" value=" Enviar formulario! " name="submit" style="color: #ffffff background-color: #3399ff" onClick="javascript:Cadastrar]+alltrim(NewCapFirst(prg_name))+[()">]+&ret_line.)
fwrite(errhandle,[ <input type="reset" value=" Cancelar envio " name="reset" style="color: #ffffff background-color: #3399ff">]+&ret_line.)
fwrite(errhandle,[ </font>]+&ret_line.)
fwrite(errhandle,[ </font>]+&ret_line.)
fwrite(errhandle,[ <font face="Arial, Helvetica, sans-serif">]+&ret_line.)
fwrite(errhandle,[ </font>]+&ret_line.)
fwrite(errhandle,[ </font>]+&ret_line.)
fwrite(errhandle,[ </b>]+&ret_line.)
fwrite(errhandle,[ </div>]+&ret_line.)
fwrite(errhandle,[ </td>]+&ret_line.)
fwrite(errhandle,[ </tr>]+&ret_line.)
fwrite(errhandle,[ </table>]+&ret_line.)
fwrite(errhandle,[ <script language="javascript">]+&ret_line.)
fwrite(errhandle,[ function Cadastrar]+alltrim(NewCapFirst(prg_name))+[()]+&ret_line.)
fwrite(errhandle,[ {]+&ret_line.)
go top
do while .not. eof()
if field_type = 'N'
fwrite(errhandle,[ if (isNaN(document.frm]+alltrim(NewCapFirst(prg_name))+[.]+alltrim(field_name)+[.value))]+&ret_line.)
fwrite(errhandle,[ {]+&ret_line.)
fwrite(errhandle,[ alert("O campo (]+alltrim(field_name)+[) deve ser numérico.")]+&ret_line.)
fwrite(errhandle,[ document.frm]+alltrim(NewCapFirst(prg_name))+[.]+alltrim(field_name)+[.focus()]+&ret_line.)
fwrite(errhandle,[ return]+&ret_line.)
fwrite(errhandle,[ }]+&ret_line.)
endif
if field_type = 'C' .or. field_type = 'M'
fwrite(errhandle,[ if (document.frm]+alltrim(NewCapFirst(prg_name))+[.]+alltrim(field_name)+[.value == "")]+&ret_line.)
fwrite(errhandle,[ {]+&ret_line.)
fwrite(errhandle,[ alert("Favor informar o conteudo do campo (]+alltrim(field_name)+[).")]+&ret_line.)
fwrite(errhandle,[ document.frm]+alltrim(NewCapFirst(prg_name))+[.]+alltrim(field_name)+[.focus()]+&ret_line.)
fwrite(errhandle,[ return]+&ret_line.)
fwrite(errhandle,[ }]+&ret_line.)
endif
skip
enddo
fwrite(errhandle,[ document.frm]+alltrim(NewCapFirst(prg_name))+[.submit();]+&ret_line.)
fwrite(errhandle,[ }]+&ret_line.)
fwrite(errhandle,[ </script>]+&ret_line.)
fwrite(errhandle,[ </form>]+&ret_line.)
fwrite(errhandle,[ <!-- END FORM HERE -->]+&ret_line.)
fwrite(errhandle,[ </td> ]+&ret_line.)
fwrite(errhandle,[ </tr> ]+&ret_line.)
fwrite(errhandle,[ </table>]+&ret_line.)
fwrite(errhandle,[</table>]+&ret_line.)
fwrite(errhandle,[</html>]+&ret_line.)
fclose(errhandle)
cFile := alltrim(prg_name) + ".ASP"
ret_line := "chr(13)+chr(10)"
errhandle = fcreate(cFile)
fwrite(errhandle,[<table border=0 width=100%>]+&ret_line.)
fwrite(errhandle,[<tr width=100%><td width=100% valign=top><h2>Cadastro de Cliente</h2></td></tr>]+&ret_line.)
fwrite(errhandle,[<% DIM acao,usuario_id, ])
go top
do while .not. eof()
fwrite( errhandle,lower(alltrim(field_name)) )
skip
if eof()
fwrite(errhandle,&ret_line.)
else
fwrite(errhandle,[,])
endif
enddo
fwrite(errhandle,['acao = Request.QueryString("acao")]+&ret_line.)
fwrite(errhandle,[acao = Request.Form("acao")]+&ret_line.)
fwrite(errhandle,['Checa o preenchimento do formulário]+&ret_line.)
fwrite(errhandle,[If acao="inclusao" OR acao="atualizar" Then]+&ret_line.)
//fwrite(errhandle,[ If acao="incluir" Then]+&ret_line.)
//fwrite(errhandle,[ If (Request.Form("usuario") = "") Then erro = "XX" End If]+&ret_line.)
//fwrite(errhandle,[ usuario = Request.Form("usuario")]+&ret_line.)
//fwrite(errhandle,[ End If]+&ret_line.)
go top
do while .not. eof()
fwrite(errhandle,[ If (Request.Form("]+upper(alltrim(field_name))+[") = "") Then erro = "XX" End If]+&ret_line.)
skip
enddo
go top
do while .not. eof()
fwrite(errhandle,[ ]+lower(field_name)+[ = Request.Form("]+upper(alltrim(field_name))+[")]+&ret_line.)
skip
enddo
go top
fwrite(errhandle,[End If]+&ret_line.)
fwrite(errhandle,[If erro = "XX" Then ]+&ret_line.)
fwrite(errhandle,[ response.write ("<script>")]+&ret_line.)
fwrite(errhandle,[ response.write (" alert('Por favor, preencha todas informações.')")]+&ret_line.)
fwrite(errhandle,[ response.write ("</script>")]+&ret_line.)
fwrite(errhandle,[End If]+&ret_line.)
fwrite(errhandle,[ ]+&ret_line.)
fwrite(errhandle,['Se há algum erro no formulário volta para edição]+&ret_line.)
fwrite(errhandle,[If erro = "XX" Then]+&ret_line.)
fwrite(errhandle,[ Select Case acao]+&ret_line.)
fwrite(errhandle,[ Case "atualizar"]+&ret_line.)
fwrite(errhandle,[ acao = "editar"]+&ret_line.)
fwrite(errhandle,[ Case "incluir"]+&ret_line.)
fwrite(errhandle,[ acao = ""]+&ret_line.)
fwrite(errhandle,[ End Select]+&ret_line.)
fwrite(errhandle,[End If]+&ret_line.)
fwrite(errhandle,[ ]+&ret_line.)
fwrite(errhandle,['Inclui cliente]+&ret_line.)
fwrite(errhandle,[If acao = "inclusao" AND erro = "" Then]+&ret_line.)
fwrite(errhandle,[ pos = instrrev(lcase(request.servervariables("path_translated")),lcase(scriptrelativefolder) & "\" & lcase(formaction))]+&ret_line.)
fwrite(errhandle,[ db_dir = left(request.servervariables("path_translated"), pos-1 )]+&ret_line.)
fwrite(errhandle,[ db = db_dir & "\"]+&ret_line.)
fwrite(errhandle,[ set cnn= server.createobject("adodb.connection")]+&ret_line.)
fwrite(errhandle,[ cnn.open "Driver={Microsoft dBase Driver (*.dbf)};;DBQ=" & db & ";"]+&ret_line.)
fwrite(errhandle,[ cnn.execute("INSERT INTO ]+alltrim(prg_name)+[(])
go top
do while .not. eof()
fwrite(errhandle,lower(alltrim(field_name)))
skip
if eof()
fwrite(errhandle,[)" &_]+&ret_line.)
else
fwrite(errhandle,[,])
endif
enddo
fwrite(errhandle,[ "VALUES ('"&_]+&ret_line.)
go top
do while .not. eof()
fwrite(errhandle,[ ]+upper(alltrim(field_name)))
skip
if eof()
fwrite(errhandle,[&"')" )]+&ret_line.)
else
fwrite(errhandle,[&"','"&_]+&ret_line.)
endif
enddo
fwrite(errhandle,[ set cnn= nothing]+&ret_line.)
fwrite(errhandle,[ response.write ("<script>")]+&ret_line.)
fwrite(errhandle,[ response.write (" alert('Operacao efetuada com sucesso!')")]+&ret_line.)
fwrite(errhandle,[ response.write ("</script>")]+&ret_line.)
fwrite(errhandle,[End If]+&ret_line.)
fwrite(errhandle,['Atualiza informações]+&ret_line.)
fwrite(errhandle,[If acao = "atualizar" Then]+&ret_line.)
fwrite(errhandle,[ pos = instrrev(lcase(request.servervariables("path_translated")),lcase(scriptrelativefolder) & "\" & lcase(formaction))]+&ret_line.)
fwrite(errhandle,[ db_dir = left(request.servervariables("path_translated"), pos-1 )]+&ret_line.)
fwrite(errhandle,[ db = db_dir & "\"]+&ret_line.)
fwrite(errhandle,[ set cnn= server.createobject("adodb.connection")]+&ret_line.)
fwrite(errhandle,[ cnn.open "Driver={Microsoft dBase Driver (*.dbf)};;DBQ=" & db & ";"]+&ret_line.)
fwrite(errhandle,[ cnn.execute("UPDATE ]+alltrim(prg_name)+[ set " &_]+&ret_line.)
go top
do while .not. eof()
fwrite(errhandle,[ "]+lower(alltrim(field_name))+[=']+lower(alltrim(field_name))+['])
skip
if eof()
fwrite(errhandle,[ WHERE id=" & Session("usuario_id"))]+&ret_line.)
//fwrite(errhandle,[ WHERE id=" & Session("usuario_id"))]+&ret_line.)
else
fwrite(errhandle,[" &_]+&ret_line.)
endif
enddo
fwrite(errhandle,[ set cnn= nothing]+&ret_line.)
fwrite(errhandle,[ response.write ("<script>")]+&ret_line.)
fwrite(errhandle,[ response.write (" alert('Atualizacao efetuada com sucesso!')")]+&ret_line.)
fwrite(errhandle,[ response.write ("</script>")]+&ret_line.)
fwrite(errhandle,[End If]+&ret_line.)
fwrite(errhandle,[%>]+&ret_line.)
fclose(errhandle)
use
RETURN