Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Queria inserir só memorando de acordo com os itens, não sei como fazer
Agradeço a atenção
<!--#Include File="conexao.asp"-->
<!--#Include File="documentosdal.asp"-->
<!--#include file="session.asp"-->
<%
dim sql, rs
dim Vacao, Vcomando, Vdata, Vnome, Vcodigo, Virc, Vsa, Vpa, Vch, Vdh, Vgdj, Val, Vgdir, Vggp, Vrha, Vrhp, Vir, Vdir, Vpfr, Vcps, Vrp, Vdr, Voutr, Voutrdoc, botao
dim Vacao2, Icodigo, Iirc, Isa, Ipa, Ich, Idh, Igdj, Ial, Igdir, Iggp, Irha, Irhp, Iir, Idir, Ipfr, Icps, Irp, Idr, Ioutr, Idocumento
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="[http://www.w3.org/1999/xhtml"](http://www.w3.org/1999/xhtml) lang="pt" xml:lang="pt-br">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<meta name="language" content="pt-br" />
<title>..:: EMPRESA INTRANET ::.. - Inclui Cliente</title>
<link rel="stylesheet" href="estilos.css" type="text/css">
<link rel="stylesheet" href="menu.css" type="text/css">
<style type="text/css">
#maisopcoes { display: none; / pode ser o visibility: hidden também /}
</style>
<script language="javascript" type="text/javascript">
function validaform(){
d = document.valida;
//validar DIRPF
if (d.data.value == ""){
alert("O campo DIRPF deve ser preenchido!");
d.data.focus();
return false;
}
return true;
}
</script>
</head>
<body>
<div id="principal">
<!--#Include File="cabecalho.asp"-->
<!--#Include File="menu2.asp"-->
<div id="conteudo">
<%
Vacao = Request("acao")
Vdata = Request("data")
Vnome = Request("nome")
Virc = Request("irc")
Vsa = Request("sa")
Vpa = Request("pa")
Vch = Request("ch")
Vdh = Request("dh")
Vgdj = Request("gdj")
Val = Request("al")
Vgdir = Request("gdir")
Vggp = Request("ggp")
Vrha = Request("rha")
Vrhp = Request("rhp")
Vir = Request("ir")
Vdir = Request("dir")
Vpfr = Request("pfr")
Vcps = Request("cps")
Vrp = Request("rp")
Vdr = Request("dr")
Voutr = Request("outr")
Voutrdoc= Request("outrdoc")
Vcomando = Request.Form("comando")
Vcodigo = Request("codigo")
Iirc = Request("iirc")
Isa = Request("isa")
Ipa = Request("ipa")
Ich = Request("ich")
Idh = Request("idh")
Igdj = Request("igdj")
Ial = Request("ial")
Igdir = Request("igdir")
Iggp = Request("iggp")
Irha = Request("irha")
Irhp = Request("irhp")
Iir = Request("iir")
Idir = Request("idir")
Ipfr = Request("ipfr")
Icps = Request("icps")
Irp = Request("irp")
Idr = Request("idr")
Ioutr = Request("ioutr")
Idocumento = Request("idocumento")
Vinserir = Request.Form("cominserir")
%>
<h2><font color="gray">Documentos <%if Vacao = "alterar" then
%>da Pasta - </font><strong><font color="red"><%=Vcodigo%></font></strong><%else%><%end if%></h2>
<font size="5"><%=Vnome%></font>
<form action="documentos.asp" method="post" name="valida" onsubmit=" validaform();">
<%
'if Vinserir = "Inserir" then
'Call Inserirdoc(Vcodigo, Iirc, Isa, Ipa, Ich, Idh, Igdj, Ial, Igdir, Iggp, Irha, Irhp, Iir, Idir, IVpfr, Icps, Irp, Idr, Ioutr, Ioutrdoc, Idocumento)
'Response.Redirect("documentos.asp")
'Elseif Vcomando = "Alterar" then
if Vcomando = "Alterar" then
Call Alterar(Vcodigo, Vdata, Virc, Vsa, Vpa, Vch, Vdh, Vgdj, Val, Vgdir, Vggp, Vrha, Vrhp, Vir, Vdir, Vpfr, Vcps, Vrp, Vdr, Voutr, Voutrdoc)
Response.Redirect("documentos.asp")
Elseif Vcomando = "Excluir" then
Call Excluir(Vcodigo)
Response.Redirect("documentos.asp")
end if
if Vacao = "Novo" or Vacao = "alterar" then
%>
<table cellpadding="5" cellspacing="1" summary="">
<tr>
<td>
<input name="codigo" type="text" id="cod" value="<%=Vcodigo%>" size="5" maxlength="5"/> </td>
</tr>
<tr>
<td colspan="3"><%
if Vacao = "Novo" then
call AbrirConexao()
'Instrução SQL
sql = "SELECT (MAX(cli_id) + 1) AS cli_id FROM depto"
'Executando
set rs = objConexao.execute(sql)%>
<%=(rs("cli_id"))%>
<%'Fechando RecordSet
rs.close
set rs = nothing'limpa damemoria
Call FecharConexao()
else%>
<% end if
%>DIRPF:
<select name="data" value="<%=Vdata%>">
<option value="<%=Vdata%>" selected="selected"><%=Vdata%></option>
<%
dim data
for data = year(date) - 5 to year(date)
if data = year(date) then %>
<option value="<%=data%>"><%=data%></option>
<%else%>
<option value="<%=data%>"><%=data%></option>
<%end if
next
%>
</select> </td>
</tr>
<tr>
<td colspan="3"><br />
<br />
<table border="1" bordercolor="#339999">
<tr>
<td width="350" valign="middle"><span class="tabdoc1">Documentos</span></td>
<td width="27" align="center" valign="middle" bgcolor="#FFFFFF" class="tabdoc1"><span class="style1">
<div align="center">Sim</div>
</span></td>
<td width="27" align="center" valign="middle" bgcolor="#FFFFFF" class="tabdoc1"><div align="center"> <span class="style1">Não </span></div></td>
<td width="27" align="center" valign="middle" bgcolor="#FFFFFF" class="tabdoc1"><div align="center"> <span class="style1">Pendência</span> </div></td>
</tr>
<tr bgcolor="#339966">
<td width="350" valign="middle"><span class="tabdoc2"> Inicial Rec. Trabalhista</span></td>
<td align="center" valign="middle" bgcolor="#FFFFFF"><input type='radio' name='irc' id='sim' value='sim' <%if virc = "sim" then %>checked="checked" <%end if%>/></td>
<td align="center" valign="middle" bgcolor="#FFFFFF"><input type='radio' name='irc' id='nao' value='não' <%if virc <> "sim" then %>checked="checked" <%end if%>/>
</td>
<td align="center" valign="middle" bgcolor="#FFFFFF"><%if Virc <> "sim" then %> <strong><font color="#FF0000">Pendente</font></strong> <%end if%></td>
</tr>
<tr bgcolor="#333300">
<td width="350" valign="middle"><span class="tabdoc2"> Sentença e Acordãos</span></td>
<td align="center" valign="middle" bgcolor="#FFFFFF"><input type='radio' name='sa' id='sim' value='sim' <%if vsa = "sim" then %>checked="checked" <%end if%>/></td>
<td align="center" valign="middle" bgcolor="#FFFFFF"><input type='radio' name='sa' id='nao' value='não' <%if vsa <> "sim" then %>checked="checked" <%end if%>/>
</td>
<td align="center" valign="middle" bgcolor="#FFFFFF"><%if Vsa <> "sim" then %> <strong><font color="#FF0000">Pendente</font></strong> <%end if%></td>
</tr>
<tr bgcolor="#339966">
<td width="350" valign="middle"><span class="tabdoc2">Petição Acordo</span></td>
<td align="center" valign="middle" bgcolor="#FFFFFF"><input type='radio' name='pa' id='sim' value='sim' <%if vpa = "sim" then %>checked="checked" <%end if%>/></td>
<td align="center" valign="middle" bgcolor="#FFFFFF"><input type='radio' name='pa' id='nao' value='não' <%if vpa <> "sim" then %>checked="checked" <%end if%>/>
</td>
<td align="center" valign="middle" bgcolor="#FFFFFF"><%if Vpa <> "sim" then %> <strong><font color="#FF0000">Pendente</font></strong> <%end if%></td>
</tr>
<tr bgcolor="#333300">
<td width="350" valign="middle"><span class="tabdoc2"> Cálculos Homologados</span></td>
<td align="center" valign="middle" bgcolor="#FFFFFF"><input type='radio' name='ch' id='sim' value='sim' <%if vch = "sim" then %>checked="checked" <%end if%>/></td>
<td align="center" valign="middle" bgcolor="#FFFFFF"><input type='radio' name='ch' id='nao' value='não' <%if vch <> "sim" then %>checked="checked" <%end if%>/>
</td>
<td align="center" valign="middle" bgcolor="#FFFFFF"><%if Vch <> "sim" then %> <strong><font color="#FF0000">Pendente</font></strong> <%end if%></td>
</tr>
<tr bgcolor="#339966">
<td width="350" valign="middle"><span class="tabdoc2"> Decisão Homologatória</span></td>
<td align="center" valign="middle" bgcolor="#FFFFFF"><input type='radio' name='dh' id='sim' value='sim' <%if vdh = "sim" then %>checked="checked" <%end if%>/></td>
<td align="center" valign="middle" bgcolor="#FFFFFF"><input type='radio' name='dh' id='nao' value='não' <%if vdh <> "sim" then %>checked="checked" <%end if%>/>
</td>
<td align="center" valign="middle" bgcolor="#FFFFFF"><%if Vdh <> "sim" then %> <strong><font color="#FF0000">Pendente</font></strong> <%end if%></td>
</tr>
<tr bgcolor="#333300">
<td width="350" valign="middle"><span class="tabdoc2"> Guia de Depósito Judicial</span></td>
<td align="center" valign="middle" bgcolor="#FFFFFF"><input type='radio' name='gdj' id='sim' value='sim' <%if vgdj = "sim" then %>checked="checked" <%end if%>/></td>
<td align="center" valign="middle" bgcolor="#FFFFFF"><input type='radio' name='gdj' id='nao' value='não' <%if vgdj <> "sim" then %>checked="checked" <%end if%>/>
</td>
<td align="center" valign="middle" bgcolor="#FFFFFF"><%if Vgdj <> "sim" then %> <strong><font color="#FF0000">Pendente</font></strong> <%end if%></td>
</tr>
<tr bgcolor="#339966">
<td width="350" valign="middle"><span class="tabdoc2"> Alvara de Levantamento</span></td>
<td align="center" valign="middle" bgcolor="#FFFFFF"><input type='radio' name='al' id='sim' value='sim' <%if val = "sim" then %>checked="checked" <%end if%>/></td>
<td align="center" valign="middle" bgcolor="#FFFFFF"><input type='radio' name='al' id='nao' value='não' <%if val <> "sim" then %>checked="checked" <%end if%>/>
</td>
<td align="center" valign="middle" bgcolor="#FFFFFF"><%if Val <> "sim" then %> <strong><font color="#FF0000">Pendente</font></strong> <%end if%></td>
</tr>
<tr bgcolor="#333300">
<td width="350" valign="middle"><span class="tabdoc2"> Guia DARF Imposto de Renda</span></td>
<td align="center" valign="middle" bgcolor="#FFFFFF"><input type='radio' name='gdir' id='sim' value='sim' <%if vgdir = "sim" then %>checked="checked" <%end if%>/></td>
<td align="center" valign="middle" bgcolor="#FFFFFF"><input type='radio' name='gdir' id='nao' value='não' <%if vgdir <> "sim" then %>checked="checked" <%end if%>/>
</td>
<td align="center" valign="middle" bgcolor="#FFFFFF"><%if Vgdir <> "sim" then %> <strong><font color="#FF0000">Pendente</font></strong> <%end if%></td>
</tr>
<tr bgcolor="#339966">
<td width="350" valign="middle"><span class="tabdoc2"> Guia GPS - Previdência</span></td>
<td align="center" valign="middle" bgcolor="#FFFFFF"><input type='radio' name='ggp' id='sim' value='sim' <%if vggp = "sim" then %>checked="checked" <%end if%>/></td>
<td align="center" valign="middle" bgcolor="#FFFFFF"><input type='radio' name='ggp' id='nao' value='não' <%if vggp <> "sim" then %>checked="checked" <%end if%>/>
</td>
<td align="center" valign="middle" bgcolor="#FFFFFF"><%if Vggp <> "sim" then %> <strong><font color="#FF0000">Pendente</font></strong> <%end if%></td>
</tr>
<tr bgcolor="#333300">
<td width="350" valign="middle"><span class="tabdoc2"> Recibo Honorário Advogado</span></td>
<td align="center" valign="middle" bgcolor="#FFFFFF"><input type='radio' name='rha' id='sim' value='sim' <%if vrha = "sim" then %>checked="checked" <%end if%>/></td>
<td align="center" valign="middle" bgcolor="#FFFFFF"><input type='radio' name='rha' id='nao' value='não' <%if vrha <> "sim" then %>checked="checked" <%end if%>/>
</td>
<td align="center" valign="middle" bgcolor="#FFFFFF"><%if Vrha <> "sim" then %> <strong><font color="#FF0000">Pendente</font></strong> <%end if%></td>
</tr>
<tr bgcolor="#339966">
<td width="350" valign="middle"><span class="tabdoc2"> Recibo Honorário Perito</span></td>
<td align="center" valign="middle" bgcolor="#FFFFFF"><input type='radio' name='rhp' id='sim' value='sim' <%if vrhp = "sim" then %>checked="checked" <%end if%>/></td>
<td align="center" valign="middle" bgcolor="#FFFFFF"><input type='radio' name='rhp' id='nao' value='não' <%if vrhp <> "sim" then %>checked="checked" <%end if%>/>
</td>
<td align="center" valign="middle" bgcolor="#FFFFFF"><%if Vrhp <> "sim" then %> <strong><font color="#FF0000">Pendente</font></strong> <%end if%></td>
</tr>
<tr bgcolor="#333300">
<td width="350" valign="middle"><span class="tabdoc2"> Informe de Rendimentos</span></td>
<td align="center" valign="middle" bgcolor="#FFFFFF"><input type='radio' name='ir' id='sim' value='sim' <%if vir = "sim" then %>checked="checked" <%end if%>/></td>
<td align="center" valign="middle" bgcolor="#FFFFFF"><input type='radio' name='ir' id='nao' value='não' <%if vir <> "sim" then %>checked="checked" <%end if%>/>
</td>
<td align="center" valign="middle" bgcolor="#FFFFFF"><%if Vir <> "sim" then %> <strong><font color="#FF0000">Pendente</font></strong> <%end if%></td>
</tr>
<tr bgcolor="#339966">
<td width="350" valign="middle"><span class="tabdoc2"> Declaração de Imposto de Renda </span></td>
<td align="center" valign="middle" bgcolor="#FFFFFF"><input type='radio' name='dir' id='sim' value='sim' <%if vdir = "sim" then %>checked="checked" <%end if%>/></td>
<td align="center" valign="middle" bgcolor="#FFFFFF"><input type='radio' name='dir' id='nao' value='não' <%if vdir <> "sim" then %>checked="checked" <%end if%>/>
</td>
<td align="center" valign="middle" bgcolor="#FFFFFF"><%if Vdir <> "sim" then %> <strong><font color="#FF0000">Pendente</font></strong> <%end if%></td>
</tr>
<tr bgcolor="#333300">
<td width="350" valign="middle"><span class="tabdoc2"> Procuração Firma Reconhecida </span></td>
<td align="center" valign="middle" bgcolor="#FFFFFF"><input type='radio' name='pfr' id='sim' value='sim' <%if vpfr = "sim" then %>checked="checked" <%end if%>/></td>
<td align="center" valign="middle" bgcolor="#FFFFFF"><input type='radio' name='pfr' id='nao' value='não' <%if vpfr <> "sim" then %>checked="checked" <%end if%>/>
</td>
<td align="center" valign="middle" bgcolor="#FFFFFF"><%if Vpfr <> "sim" then %> <strong><font color="#FF0000">Pendente</font></strong> <%end if%></td>
</tr>
<tr bgcolor="#339966">
<td width="350" valign="middle"><span class="tabdoc2"> Contrato de Prestação de Serviço </span></td>
<td align="center" valign="middle" bgcolor="#FFFFFF"><input type='radio' name='cps' id='sim' value='sim' <%if vcps = "sim" then %>checked="checked" <%end if%>/></td>
<td align="center" valign="middle" bgcolor="#FFFFFF"><input type='radio' name='cps' id='nao' value='não' <%if vcps <> "sim" then %>checked="checked" <%end if%>/>
</td>
<td align="center" valign="middle" bgcolor="#FFFFFF"><%if Vcps <> "sim" then %> <strong><font color="#FF0000">Pendente</font></strong> <%end if%></td>
</tr>
<tr bgcolor="#333300">
<td width="350" valign="middle"><span class="tabdoc2"> Retirar Processo </span></td>
<td align="center" valign="middle" bgcolor="#FFFFFF"><input type='radio' name='rp' id='sim' value='sim' <%if vrp = "sim" then %>checked="checked" <%end if%>/></td>
<td align="center" valign="middle" bgcolor="#FFFFFF"><input type='radio' name='rp' id='nao' value='não' <%if vrp <> "sim" then %>checked="checked" <%end if%>/>
</td>
<td align="center" valign="middle" bgcolor="#FFFFFF"><%if Vrp <> "sim" then %> <strong><font color="#FF0000">Pendente</font></strong> <%end if%></td>
</tr>
<tr bgcolor="#339966">
<td width="350" valign="middle"><span class="tabdoc2"> Declaração Responsabilidade</span></td>
<td align="center" valign="middle" bgcolor="#FFFFFF"><input type='radio' name='dr' id='sim' value='sim' <%if vdr = "sim" then %>checked="checked" <%end if%>/></td>
<td align="center" valign="middle" bgcolor="#FFFFFF"><input type='radio' name='dr' id='nao' value='não' <%if vdr <> "sim" then %>checked="checked" <%end if%>/>
</td>
<td align="center" valign="middle" bgcolor="#FFFFFF"><%if Vdr <> "sim" then %> <strong><font color="#FF0000">Pendente</font></strong> <%end if%></td>
</tr>
<tr bgcolor="#333300">
<td width="350" valign="middle"><span class="tabdoc2">OUTROS </span></td>
<td align="center" valign="middle" bgcolor="#FFFFFF"><input type='radio' name='outr' id='sim_entregou' value='sim' <%if voutr = "sim" then %>checked="checked" <%end if%>/></td>
<td align="center" valign="middle" bgcolor="#FFFFFF"><input type='radio' name='outr' id='nao_entregou' value='não' <%if voutr <> "sim" then %>checked="checked" <%end if%>/>
</td>
<td align="center" valign="middle" bgcolor="#FFFFFF"><%if Voutr <> "sim" then %> <strong><font color="#FF0000">Pendente</font></strong> <%end if%></td>
</tr>
</table></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="321"></td>
</tr>
<tr>
<td>
<%
if Vacao = "Novo" then
botao = "Inserir"
else
botao = "Alterar"
end if
%>
<input type="submit" name="comando" value="<%=botao%>" onmouseover="java script:return validaform();" onmousedown="java script:return valida();"/>
<input type="submit" name="voltar" value="Voltar"/></td>
</tr>
</table><br /><br />
</form>
<%
if Vacao2 = "inserir" then
Call AbrirConexao()
sql = "Insert Into andamento(cli_id, doc_irc_cli, doc_sa_cli, doc_pa_cli, doc_ch_cli, doc_dh_cli, doc_gdj_cli, doc_al_cli, doc_gdir_cli, doc_ggp_cli, doc_rha_cli, doc_rhp_cli, doc_ir_cli, doc_dir_cli, doc_pfr_cli, doc_cps_cli, doc_rp_cli, doc_dr_cli, doc_outr_cli, documento)" & " VALUES ('" & codigo & "','" & iirc & "', '" & isa & "', '" & ipa & "', '" & ich & "', '" & idh & "', '" & igdj & "', '" & ial & "', '" & igdir & "', '" & iggp & "', '" & irha & "', '" & irhp & "', '" & iir & "', '" & idir & "', '" & ipfr & "', '" & icps & "', '" & irp & "', '" & idr & "', '" & ioutr & "', '" & idocumento & "')"
objConexao.execute(sql)
rs.close
set rs = nothing'limpa damemoria
Call FecharConexao()%>
Inserir Documentos:<form action="documentos.asp" method="post" onsubmit="inserir">
<input name="codigo" type="text" value="<%=Vcodigo%>" size="5" maxlength="5"/>
<select name="doc">
<option value="<%=Iirc%>">Inicial Rec. Trabalhista</option>
<option value="<%=Isa%>">Sentença e Acordãos</option>
<option value="<%=Ipa%>">Petição Acordo</option>
<option value="<%=Ich%>">Cálculos Homologados</option>
<option value="<%=Igdj%>">Decisão Homologatória</option>
<option value="<%=Iirc%>">Guia de Depósito Judicial</option>
<option value="<%=Ial%>">Alvara de Levantamento</option>
<option value="<%=Igdir%>">Guia DARF Imposto de Renda</option>
<option value="<%=Iggp%>">Guia GPS - Previdência</option>
<option value="<%=Irha%>">Recibo Honorário Advogado</option>
<option value="<%=Irhp%>">Recibo Honorário Perito</option>
<option value="<%=Iir%>">Informe de Rendimentos</option>
<option value="<%=Idir%>">Declaração de Imposto de Renda</option>
<option value="<%=Ipfr%>">Procuração Firma Reconhecida</option>
<option value="<%=Icps%>">Contrato de Prestação de Serviço</option>
<option value="<%=Irp%>">Retirar Processo</option>
<option value="<%=Idr%>">Declaração Responsabilidade</option>
<option value="<%=Ioutr%>">OUTROS</option>
</select><br /><br />
Andamento:<br />
<textarea name="documentos" cols="60" rows="5"><%=Idocumento%></textarea><br />
<input name="cominserir" type="submit" value="Inserir"/>
</form>
<%
else'Vacao = "Novo"
%>
<%
call AbrirConexao()
sql = "Select * FROM depto order by nome_cli"
set rs = objConexao.execute(sql)
%>
<div id="cli">
<table summary="">
<%
Do while not rs.eof
%>
<tr>
<td><a class="clie" href="documentos.asp?acao=alterar&codigo=<%=rs("cli_id")%>&data=<%=rs("data_cli")%>&nome=<%=rs("nome_cli")%>&irc=<%=rs("irc_cli")%>&sa=<%=rs("sa_cli")%>&pa=<%=rs("pa_cli")%>&ch=<%=rs("ch_cli")%>&dh=<%=rs("dh_cli")%>&gdj=<%=rs("gdj_cli")%>&al=<%=rs("al_cli")%>&gdir=<%=rs("gdir_cli")%>&ggp=<%=rs("ggp_cli")%>&rha=<%=rs("rha_cli")%>&rhp=<%=rs("rhp_cli")%>&ir=<%=rs("ir_cli")%>&dir=<%=rs("dir_cli")%>&pfr=<%=rs("pfr_cli")%>&cps=<%=rs("cps_cli")%>&rp=<%=rs("rp_cli")%>&dr=<%=rs("dr_cli")%>&outr=<%=rs("outr_cli")%>&outrdoc=<%=rs("outrdoc_cli")%>"><%=rs("nome_cli")%></a></td>
</tr>
<%
rs.MoveNext
loop
%>
</table>
</div>
<%
rs.close
set rs = nothing'limpa damemoria
Call FecharConexao()
end if
end if
%>
<div id="sair"><a class="letra" href="encerrasessao.asp">Encerrar Sessão</a></div>
</div><!-- conteudo -->
<!--#Include File="rodape.asp"-->
</div><!-- principal -->
</body>
</html>Carregando comentários...