Moderador: Moderadores
...
PROCEDURE MAIN
...
cMenu := Achoice(...
do case
case cMenu = "bla"
do Modulo01()
case cMenu = "blabla"
do Modulo02()
...
endcase
...
...
PROCEDURE MAIN
parameter cQModulo, cQAcao
...
// cQAcao pode ser: "EXCLUIR", "INCLUIR", "ALTERAR", "DELETAR" etc
if .not. empty( cQModulo )
do case
case cQModulo = "bla"
do Modulo01(cQAcao)
case cQModulo = "blabla"
do Modulo02(cQAcao)
...
endcase
else
cMenu := Achoice(...
do case
case cMenu = "bla"
do Modulo01()
case cMenu = "blabla"
do Modulo02()
...
endcase
endif
...
//----------------------------------------
// Constantes
//----------------------------------------
#define CR CHR(13)
#define LF CHR(10)
#define CRLF CHR(13) + CHR(10)
//----------------------------------------
// Archivos estandares de Entrada y Salida
//----------------------------------------
#define STDIN 0
#define STDOUT 1
//-----------------------------------------
// Arreglo para guardar los controles y sus
// valores del formulario HTML
//-----------------------------------------
STATIC acParametros
FUNCTION main()
local nStartTime := seconds()
local nStopTime := 0
CgiInit()
ESTRU_DBF := {}
AADD( ESTRU_DBF, { ALLTRIM("IDESTACAO "), "N", 5, 0 } )
AADD( ESTRU_DBF, { ALLTRIM("IDEMPRESA "), "N", 5, 0 } )
AADD( ESTRU_DBF, { ALLTRIM("IDBANCO "), "N", 3, 0 } )
AADD( ESTRU_DBF, { ALLTRIM("DIGITO "), "N", 1, 0 } )
AADD( ESTRU_DBF, { ALLTRIM("TAXA "), "N", 14, 0 } )
AADD( ESTRU_DBF, { ALLTRIM("BANCO "), "C", 30, 0 } )
IF ! FILE("BANCOS.DBF")
DBCREATE( "BANCOS", ESTRU_DBF )
ENDIF
set date brit
send(" ")
use BANCOS alias BANCOS NEW SHARED
select BANCOS
m->operacao := upper(alltrim(CGIField("ACAO")))
m->registro := val(CGIField("REGISTRO"))
m->erro := .t.
if m->operacao = 'NOVO'
PutTitle('')
EditFile := memoread( "BANCOS.HTM" )
m->tam_memo := MLCOUNT( EditFile, 132 )
EditFile := strtran(EditFile,"<!-- BLOCO DE MANUTENCAO -->",;
'<input type="hidden" name="ACAO" value="INCLUSAO">')
for i = 1 to m->tam_memo
put(ALLTRIM(memoline( EditFile, 132 ,i))+CHR(13)+CHR(10))
next
closeCGISession()
CLOSE DATA
RETURN(NIL)
elseif m->operacao = 'INCLUSAO'
append blank
IF Rlock()
BANCOS_SV()
COMMIT
m->erro := .f.
ENDIF
elseif m->operacao = 'SALVAR'
go m->registro // val(CGIField("RECNO()"))
IF Rlock()
BANCOS_SV()
COMMIT
m->erro := .f.
ENDIF
elseif m->operacao = 'EXCLUSAO'
go m->registro // val(CGIField("RECNO()"))
IF Rlock()
DELETE
COMMIT
m->erro := .f.
ENDIF
elseif m->operacao = 'ALTERAR'
go m->registro // val(CGIField("RECNO()"))
EditFile := memoread( "BANCOS.HTM" )
m->tam_memo := MLCOUNT( EditFile, 132 )
EditFile := strtran(EditFile,"<!-- BLOCO DE MANUTENCAO -->",;
'<input type="hidden" name="ACAO" value="SALVAR">'+;
'<input type="hidden" name="REGISTRO" value="'+STRZERO(m->registro,6)+'">')
for i = 1 to len(ESTRU_DBF)
EditFile := strtran(EditFile,'text" name="'+ESTRU_DBF[i,1]+'" size="',;
'text" name="'+ESTRU_DBF[i,1]+'" value="'+ALLTRIM(REQUEST(&(ESTRU_DBF[i,1])))+'"')
EditFile := strtran(EditFile,'<option selected value="">'+ESTRU_DBF[i,1]+'<',;
'<option selected value="'+ALLTRIM(REQUEST(&(ESTRU_DBF[i,1])))+'">'+ALLTRIM(REQUEST(&(ESTRU_DBF[i,1])))+'<')
EditFile := strtran(EditFile,'text" name="'+ESTRU_DBF[i,1]+'"></textarea>',;
'text" name="'+ESTRU_DBF[i,1]+'">'+ALLTRIM(REQUEST(&(ESTRU_DBF[i,1])))+'</textarea>')
next
for i = 1 to m->tam_memo
put(ALLTRIM(memoline( EditFile, 132 ,i))+CHR(13)+CHR(10))
next
m->erro := .f.
closeCGISession()
CLOSE DATA
RETURN(NIL)
elseif m->operacao = 'LISTAGEM'
IF RECCO() > 0
Send('.')
put(ALLTRIM('<HTML>'))
put(ALLTRIM('<HEAD>'))
put(ALLTRIM(' <TITLE>Ok</TITLE>'))
put(ALLTRIM(' <style>'))
put(ALLTRIM(' A {color : Black; text-decoration : none; font-size : 11px; font-family : Arial;}'))
put(ALLTRIM(' A:Hover {color : Gray; text-decoration : none;}'))
put(ALLTRIM(' .indic {font-size : 10px; font-family : Arial; color:#FFFFFF}'))
put(ALLTRIM(' .texto {font-size : 10px; font-family : Arial;}'))
put(ALLTRIM(' </style>'))
put(ALLTRIM(' <script src="include/open_esconde.js" language="JavaScript"></script>'))
put(ALLTRIM(' <script src="include/indices1.js" language="Javascript"></script>'))
put(ALLTRIM(' <script src="include/indices2.js" language="Javascript"></script>'))
put(ALLTRIM(' <script src="include/imgswp.js" language="Javascript"></script>'))
put(ALLTRIM('</HEAD>'))
put(ALLTRIM('<BODY bgcolor="#FFFFFF"> '))
put(' <center> ')
put(' <table cellpadding=0 cellspacing=0 border=0 width=95% valign=top bgcolor="#ffffff"> ')
put(' <table border="0" cellpadding="2" cellspacing="1" width="600" bgcolor="#FFFFFF"> ')
put(' <tr bgcolor="#386898" align="center"> ')
put(' <td colspan="2"> ')
put(' <b> ')
put(' <font color="#FFFFFF" size="4" face="Arial, Helvetica, sans-serif"> ')
put(' <strong>Listagem Geral:</strong> ')
put(' </font> ')
put(' <font color="#FFFFFF" size="1" face="Arial, Helvetica, sans-serif">Contamos com sua atenção no preenchimento do formulário abaixo.</font> ')
put(' </b> ')
put(' </td> ')
put(' <td colspan="2"> ')
put(' <a href="BANCOS.htm"> ')
put(' <img src="imagens/novo.gif" alt="Incluir novo registro" border="0"> ')
put(' </a> ')
put(' ')
put(' <a href="javascript:location.reload();"> ')
put(' <img src="imagens/icone_refresh.gif" alt="Recarregar a pagina" border="0"> ')
put(' </a> ')
put(' ')
put(' <a href="BANCOS.exe?ACAO=PROCURAR"> ')
put(' <img src="imagens/procurar.gif" alt="Procurar registros" border="0"> ')
put(' </a> ')
put(' </td> ')
put(' </tr> ')
put(' </table> ')
put(' <table border="0" cellpadding="2" cellspacing="1" width="600" bgcolor="#FFFFFF"> ')
put(' <tr bgcolor="#A8C8E8" align="center"> ')
*************************************************
put(' <!-- ------------- INICIO DO BLOCO DE CABECALHOS -------- -->')
put(' <td align=left width=5% valign=top> ')
put(' <FONT FACE="Arial" size="1"><B>Idestacao </FONT><BR><FONT Color="#ff0000" FACE="" SIZE=""></FONT> ')
put(' </td> ')
put(' <td align=left width=5% valign=top> ')
put(' <FONT FACE="Arial" size="1"><B>Idempresa </FONT><BR><FONT Color="#ff0000" FACE="" SIZE=""></FONT> ')
put(' </td> ')
put(' <td align=left width=3% valign=top> ')
put(' <FONT FACE="Arial" size="1"><B>Idbanco </FONT><BR><FONT Color="#ff0000" FACE="" SIZE=""></FONT> ')
put(' </td> ')
put(' <td align=left width=1% valign=top> ')
put(' <FONT FACE="Arial" size="1"><B>Digito </FONT><BR><FONT Color="#ff0000" FACE="" SIZE=""></FONT> ')
put(' </td> ')
put(' <td align=left width=14% valign=top> ')
put(' <FONT FACE="Arial" size="1"><B>Taxa </FONT><BR><FONT Color="#ff0000" FACE="" SIZE=""></FONT> ')
put(' </td> ')
put(' <td align=left width=30% valign=top> ')
put(' <FONT FACE="Arial" size="1"><B>Banco </FONT><BR><FONT Color="#ff0000" FACE="" SIZE=""></FONT> ')
put(' </td> ')
put(' <!-- ------------- FINAL DO BLOCO DE CABECALHOS -------- -->')
*************************************************
put(' <td align=left width=16 valign="top"> ')
put(' <FONT FACE="Arial" size="1"><B>ST</b> </FONT> ')
put(' </td> ')
put(' <td align=left width=50 valign="top"> ')
put(' <FONT FACE="Arial" size="1"><B>Manutencao</b> </FONT> ')
put(' </td> ')
put(' </tr> ')
go top
PU_LAR := 0
DO WHILE .NOT. eof()
put(' <TR width="100%" align="center" ')
IF PU_LAR = 0
PU_LAR = 1
if deleted()
put(' bgcolor="RED" ')
else
put(' bgcolor="#E8F0FF" ')
endif
else
PU_LAR = 0
if deleted()
put(' bgcolor="RED" ')
else
endif
endif
put(' > ')
*************************************************
put(' <!-- ------------- INICIO DO BLOCO DE CAMPOS ------------ -->')
put(' <td align=left width=5% valign=top> ')
put(' <FONT FACE="Arial" size="1"><B>'+STR(BANCOS->IDESTACAO , 5, 0)+' </FONT><BR><FONT Color="#ff0000" FACE="" SIZE=""></FONT> ')
put(' </td> ')
put(' <td align=left width=5% valign=top> ')
put(' <FONT FACE="Arial" size="1"><B>'+STR(BANCOS->IDEMPRESA , 5, 0)+' </FONT><BR><FONT Color="#ff0000" FACE="" SIZE=""></FONT> ')
put(' </td> ')
put(' <td align=left width=3% valign=top> ')
put(' <FONT FACE="Arial" size="1"><B>'+STR(BANCOS->IDBANCO , 3, 0)+' </FONT><BR><FONT Color="#ff0000" FACE="" SIZE=""></FONT> ')
put(' </td> ')
put(' <td align=left width=1% valign=top> ')
put(' <FONT FACE="Arial" size="1"><B>'+STR(BANCOS->DIGITO , 1, 0)+' </FONT><BR><FONT Color="#ff0000" FACE="" SIZE=""></FONT> ')
put(' </td> ')
put(' <td align=left width=14% valign=top> ')
put(' <FONT FACE="Arial" size="1"><B>'+STR(BANCOS->TAXA , 14, 2)+' </FONT><BR><FONT Color="#ff0000" FACE="" SIZE=""></FONT> ')
put(' </td> ')
put(' <td align=left width=30% valign=top> ')
put(' <FONT FACE="Arial" size="1"><B>'+BANCOS->BANCO +' </FONT><BR><FONT Color="#ff0000" FACE="" SIZE=""></FONT> ')
put(' </td> ')
put(' <!-- ------------- FINAL DO BLOCO DE CAMPOS ------------ -->')
*************************************************
put(' <td align=left width=16 valign=top> ')
//put(' <a href="imagens/'+STRZERO(RECNO(),6)+'.jpg"> ')
put(' <img src="imagens/'+IIF(DELETED(),'red_mark','none')+'.gif" alt="" border="0"> ')
//put(' </a> ')
put(' </td> ')
put(' <td align=right width=60 height=10 valign="top"> ')
put(' <TABLE cellpadding=0 cellspacing=0 border=0> ')
put(' <TR valign=top> ')
put(' <TD valign=top> ')
put(' <a href="BANCOS.exe?ACAO=ALTERAR®ISTRO='+STRZERO(RECNO(),6)+'"> ')
put(' <img src="imagens/edit.gif" alt="Alterar" border="0"> ')
put(' </a> ')
put(' ')
put(' <a href="BANCOS.exe?ACAO=EXCLUSAO®ISTRO='+STRZERO(RECNO(),6)+'"> ')
put(' <img src="imagens/delete.gif" alt="Excluir" border="0"> ')
put(' </a> ')
put(' ')
put(' <a href="imagens/'+STRZERO(RECNO(),6)+'.jpg"> ')
put(' <img src="imagens/viewbasket.gif" alt="Foto do produto" border="0"> ')
put(' </a> ')
put(' </TD> ')
put(' </tr> ')
put(' </table> ')
put(' </TD> ')
put(' </TR> ')
SKIP
ENDDO
put(ALLTRIM('</TABLE>'))
put(ALLTRIM('</BODY>'))
put(ALLTRIM('</HTML>'))
ELSE
put(ALLTRIM('<HTML>'))
put(ALLTRIM('<HEAD>'))
put(ALLTRIM(' <TITLE>Ok</TITLE>'))
put(ALLTRIM(' <style>'))
put(ALLTRIM(' A {color : Black; text-decoration : none; font-size : 11px; font-family : Arial;}'))
put(ALLTRIM(' A:Hover {color : Gray; text-decoration : none;}'))
put(ALLTRIM(' .indic {font-size : 10px; font-family : Arial; color:#FFFFFF}'))
put(ALLTRIM(' .texto {font-size : 10px; font-family : Arial;}'))
put(ALLTRIM(' </style>'))
put(ALLTRIM(' <script src="include/open_esconde.js" language="JavaScript"></script>'))
put(ALLTRIM(' <script src="include/indices1.js" language="Javascript"></script>'))
put(ALLTRIM(' <script src="include/indices2.js" language="Javascript"></script>'))
put(ALLTRIM(' <script src="include/imgswp.js" language="Javascript"></script>'))
put(ALLTRIM('</HEAD>'))
put(ALLTRIM('<BODY bgcolor="#FFFFFF"> '))
put(' <center> ')
put(' <table cellpadding=0 cellspacing=0 border=0 width=95% valign=top bgcolor="#ffffff"> ')
put(' <table border="0" cellpadding="2" cellspacing="1" width="600" bgcolor="#FFFFFF"> ')
put(' <tr bgcolor="#330066" align="center"> ')
put(' <td colspan="2"> ')
put(' <b> ')
put(' <font color="#FFFFFF" size="4" face="Arial, Helvetica, sans-serif"> ')
put(' <strong>Listagem Geral:</strong> ')
put(' </font> ')
put(' <font color="#FFFFFF" size="1" face="Arial, Helvetica, sans-serif">Contamos com sua atenção no preenchimento do formulário abaixo.</font> ')
put(' </b> ')
put(' </td> ')
put(' <td colspan="2"> ')
put(' <a href="BANCOS.htm"> ')
put(' <img src="imagens/novo.gif" alt="Incluir novo registro" border="0"> ')
put(' </a> ')
put(' ')
put(' <a href="BANCOS.exe?ACAO=PROCURAR"> ')
put(' <img src="imagens/procurar.gif" alt="Procurar registros" border="0"> ')
put(' </a> ')
put(' </td> ')
put(' </tr> ')
put(' </table> ')
put(' <table border="0" cellpadding="2" cellspacing="1" width="600" bgcolor="#FFFFFF"> ')
put(' <tr> ')
put(' <td> ')
put(ALLTRIM('<BR><BR><BR><BR><BR><BR><BR><BR>'))
put(ALLTRIM('<P align="center">'))
put(ALLTRIM('<FONT style="font: 12pt Arial; '))
put(ALLTRIM(' color:#000000;'))
put(ALLTRIM(' font-weight:bold">Arquivo vazio, sem registros cadastrados!</FONT>'))
put(ALLTRIM(' <br>'))
put(ALLTRIM(' <br>'))
put(ALLTRIM(' <br>'))
put(ALLTRIM('</P>'))
put(' </td> ')
put(' </tr> ')
put(' </table> ')
put(' <center> ')
put(ALLTRIM('</BODY>'))
put(ALLTRIM('</HTML>'))
m->erro := .f.
ENDIF
closeCGISession()
CLOSE DATA
RETURN(NIL)
endif
putTitle("Confirmacao de Operacao")
put(ALLTRIM("<!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 3.2 Final//EN'>"))
put(ALLTRIM("<HTML>"))
put(ALLTRIM("<HEAD>"))
put(ALLTRIM(" <TITLE>Operacao realizada</TITLE>"))
put(ALLTRIM("</HEAD>"))
put(ALLTRIM("<BODY bgcolor=#FFFFFF"))
if m->erro
put(ALLTRIM(" onLoad=aux=setTimeout('javascript:history.back(1);',3000)"))
else
put(ALLTRIM(" onLoad=aux=setTimeout('javascript:history.back(1);javascript:history.back(1);',3000)"))
endif
put(ALLTRIM(" background=images/fundo_body.gif topMargin=0 MARGINHEIGHT=0 MARGINWIDTH=0>"))
put(ALLTRIM("<BR><BR><BR><BR><BR><BR><BR><BR>"))
put(ALLTRIM("<P align=center>"))
put(ALLTRIM(" <FONT style='font: 12pt Arial; "))
put(ALLTRIM(" color:#000000;"))
if m->erro
put(ALLTRIM(" font-weight:bold'>A operacao nao foi concluida!</FONT>"))
else
put(ALLTRIM(" font-weight:bold'>A operacao foi realizada com sucesso!</FONT>"))
endif
put(ALLTRIM("</P>"))
put(ALLTRIM("</BODY>"))
put(ALLTRIM("</HTML>"))
nStopTime := seconds()-nStarttime
closeCGISession()
CLOSE DATA
RETURN(NIL)
FUNCTION REQUEST( DA_DO )
IF VALTYPE( DA_DO ) = 'N'
RETURN STR( DA_DO )
ELSEIF VALTYPE( DA_DO ) = 'C' .and. LEN( DA_DO ) = 1
RETURN IIF( DA_DO="S", "ON", "OFF" )
ELSEIF VALTYPE( DA_DO ) = 'D'
RETURN DTOC( DA_DO )
ELSEIF VALTYPE( DA_DO ) = 'L'
RETURN IIF( DA_DO, "ON", "OFF" )
ENDIF
RETURN DA_DO
FUNCTION BANCOS_SV()
BANCOS->IDESTACAO := val( CGIField("IDESTACAO"))
BANCOS->IDEMPRESA := val( CGIField("IDEMPRESA"))
BANCOS->IDBANCO := val( CGIField("IDBANCO"))
BANCOS->DIGITO := val( CGIField("DIGITO"))
BANCOS->TAXA := val( CGIField("TAXA"))
BANCOS->BANCO := CGIField("BANCO")
RETURN .T.
<html>
<body bgcolor="#FFFFFF">
<table border=0 cellpadding=0 cellspacing=0 valign="top" align="center" width="70%">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td colspan="2" bgcolor="#FFFFFF" valign="center" align="center">
<!-- START FORM HERE -->
<form action="BANCOS.exe" method="POST" onSubmit="">
<input type="hidden" name="acao" value="inclusao">
<!-- BLOCO DE MANUTENCAO -->
<input type="hidden" name="origem" value="IP">
<!-- BR -->
<!-- p align="center" -->
<table border="0" cellpadding="2" cellspacing="1" width="600" bgcolor="#FFFFFF">
<tr bgcolor="#386898" align="center">
<td colspan="2">
<b>
<font color="#FFFFFF" size="4" face="Arial, Helvetica, sans-serif">
<strong>Atenção:</strong>
</font>
<font color="#FFFFFF" size="2" face="Arial, Helvetica, sans-serif">Contamos com sua atenção no preenchimento do formulário abaixo.</font>
</b>
</td>
</tr>
<tbody>
</table>
<!-- ------------- INICIO DO BLOCO DE CAMPOS ------------ -->
<table border="0" cellpadding="2" cellspacing="1" width="600" bgcolor="#FFFFFF">
<tr bgcolor="#E8F0FF">
<td width="135" align="right" bgcolor="#A8C8E8">
<font size="2" face="Arial, Helvetica, sans-serif">Idestacao</font>
</td>
<td width="452">
<input align=left maxlength="135" type="text" name="IDESTACAO" size=" 5" tabindex=" 1">
</td>
</tr>
<tr bgcolor="#E8F0FF">
<td width="135" align="right" bgcolor="#A8C8E8">
<font size="2" face="Arial, Helvetica, sans-serif">Idempresa</font>
</td>
<td width="452">
<input align=left maxlength="135" type="text" name="IDEMPRESA" size=" 5" tabindex=" 2">
</td>
</tr>
<tr bgcolor="#E8F0FF">
<td width="135" align="right" bgcolor="#A8C8E8">
<font size="2" face="Arial, Helvetica, sans-serif">Idbanco</font>
</td>
<td width="452">
<input align=left maxlength="135" type="text" name="IDBANCO" size=" 3" tabindex=" 3">
</td>
</tr>
<tr bgcolor="#E8F0FF">
<td width="135" align="right" bgcolor="#A8C8E8">
<font size="2" face="Arial, Helvetica, sans-serif">Digito</font>
</td>
<td width="452">
<input align=left maxlength="135" type="text" name="DIGITO" size=" 1" tabindex=" 4">
</td>
</tr>
<tr bgcolor="#E8F0FF">
<td width="135" align="right" bgcolor="#A8C8E8">
<font size="2" face="Arial, Helvetica, sans-serif">Taxa</font>
</td>
<td width="452">
<input align=left maxlength="135" type="text" name="TAXA" size="14" tabindex=" 5">
</td>
</tr>
<tr bgcolor="#E8F0FF">
<td width="135" align="right" bgcolor="#A8C8E8">
<font size="2" face="Arial, Helvetica, sans-serif">Banco</font>
</td>
<td width="452">
<input align=left maxlength="135" type="text" name="BANCO" size="30" tabindex=" 6">
</td>
</tr>
</table>
<!-- ---------- INICIO DE PAGINA COMPLEMENTAR -------- -->
<table border="0" cellpadding="2" cellspacing="1" width="600" bgcolor="#FFFFFF">
<tr bgcolor="#A8C8E8">
<td colspan="3">
<input type="checkbox" name="is_HTML_reader" value="Y" checked>
<font size="2" face="Arial, Helvetica, sans-serif">Pelo envio deste formulario quero garantir a atualizacao de meus dados nos cadastros SoftClever.</font>
</td>
</tr>
<tr bgcolor="#386898">
<td colspan="3">
<div align="center"><b>
<font face="Arial, Helvetica, sans-serif">
<font face="Arial, Helvetica, sans-serif" color="#FFFFFF"><br>
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.
</font>
<font face="Arial, Helvetica, sans-serif"><br>
</font>
<font size="2" face="Arial, Helvetica, sans-serif">
<font size="2" face="Arial, Helvetica, sans-serif">
<p>
<input type="submit" value=" Enviar formulario! " name="submit">
<input type="reset" value=" Cancelar envio " name="reset">
</font>
</font>
<font face="Arial, Helvetica, sans-serif">
</font>
</font>
</b>
</div>
</td>
</tr>
</table>
</form>
<!-- END FORM HERE -->
</td>
</tr>
</table>
</table>
</html>
Alguém sabe dizer se já existe algum método fácil de migração de nossos sistemas clipper/xhabour/fivewin para PHP ?
PHP só vai ser bom se souber usar HTML + CSS + SQL, antes do PHP.
Haaaaaaaaaa não esqueça uma coisa os fontes ficam com o cliente, está preparado ?
Usuários vendo este fórum: Nenhum usuário registrado online e 3 visitantes