Inclusao

cic_br · Janeiro 6, 2007

Amigos, a minha duvida eh: tenho uma tabela cliente, e tenho esta pagina onde tem varias coisas, desculpem a bagunca mas vamos la na minha duvida. Eu quero mostrar esse clientes em consulta e alteracao, mas por enquanto a duvida eh na inclusao.

Abracos e obrigado a quem puder me ajudar.

<%@ Language=vb script:ValidaComentMaster();"></td>

</tr>

<% end if %>

</table>

</td>

</tr>

</table>

</form>

</BODY>

</HTML>

<% Sub MontaAreas() %>

<% 'if CInt(UBound(Session("UserDomain"))) > 0 then %>

<option value="0" <% if CStr(Request("area"))="0" or Request("area")="" then %>selected<% end if %>> -- ESCOLHA UMA ÁREA -- </option>

<% 'end if %>

<%If IsArray(Session("UserDomain")) Then

for i=0 to UBound(Session("UserDomain")) %>

<option <% if CStr(Request("area"))=CStr(Session("UserDomain")(i)) then %>selected<% end if %> value="<%=Session("UserDomain")(i)%>"> <%=ucase(Session("UserDomainName")(i))%></option>

<% next

End If%>

</select>

<% End Sub %>

<% Sub MontaTurno()

dim strQuery, objConexao, objRecordset

dim strContas, HoraAtual

Call ConexaoLogin(objRecordset, objConexao)

strQuery = "SELECT INT_TURNO, DAT_INICIO_TURNO, DAT_FIM_TURNO " &_

" FROM TB_TURNOS "

' cria Recordset para recuperar dados da tabela

intConta = 0

Set objRecordset = objConexao.Execute(strQuery)

Do While not objRecordset.EOF

HoraAtual = FormataHoraMin(Now())

HoraIni = objRecordset("DAT_INICIO_TURNO")

HoraFim = objRecordset("DAT_FIM_TURNO")

if CLng(HoraAtual) >= CLng(HoraIni) and CLng(HoraAtual) <= CLng(HoraFim) then

intTurno = Clng(objRecordset("INT_TURNO"))

end if

%>

<% if intConta=0 then %>

<option <% if Request("turno")="" then %>selected <% end if %>value="0"> -- ESCOLHA O TURNO --</option>

<% end if %>

<option <% if Cstr(objRecordset("INT_TURNO"))=Request("turno") then %>selected <% end if %>value="<%=objRecordset("INT_TURNO")%>"> TURNO <%=objRecordset("INT_TURNO")%> </option>

<%

intConta = intConta + 1

objRecordset.MOVENEXT

loop

Call EncerraRecordset(objRecordset)

Call EncerraConexao(objConexao)

%>

<% if intConta>0 then %>

</select>

<% end if %>

<% End Sub %>

<%

Function FormataHoraMin(datAux)

dim hora, minuto

hora = DatePart("h",datAux)

if hora < 10 then hora = "0"&hora

if CLng(hora) = 0 then hora = "24"

minuto = DatePart("n",datAux)

if minuto < 10 then minuto = "0"&minuto

FormataHoraMin = hora & minuto

End Function

%>

<%

Sub MontaIncMast()

dim strQuery, objConexao, objRecordset

dim strContas, HoraAtual

Call ConexaoMaster(objRecordset, objConexao)

strQuery = "SELECT INT_SERVICO_MASTER, STR_SERVICO_MASTER FROM TB_SERVICO_MASTER ORDER BY STR_SERVICO_MASTER"

intConta = 0

Set objRecordset = objConexao.Execute(strQuery)

Do While not objRecordset.EOF

%>

<% if intConta=0 then %>

<option <% if Request("servicos")="" then %>selected <% end if %>value="0"> -- ESCOLHA O SERVIÇO --</option>

<% end if %>

<option <% if Request("servicos")=CStr(objRecordset("INT_SERVICO_MASTER")) then %>selected<% end if %> value="<%=objRecordset("INT_SERVICO_MASTER")%>"> <%=ucase(objRecordset("STR_SERVICO_MASTER"))%> </option>

<%

intConta = intConta + 1

objRecordset.MOVENEXT

loop

Call EncerraRecordset(objRecordset)

Call EncerraConexao(objConexao)

%>

</select>

<% End Sub %>

<%

Function FormataData(pData)

dim dia, mes, aux

dia = DatePart("d", pData)

mes = DatePart("m", pData)

aux = mes & "/" & dia & "/" & DatePart("yyyy", pData)

FormataData = aux

End Function

%>

<%

Sub MontaIncServMaster(CodServico)

%>

<% if CodServico = 1 then %>

<%

'''''''''''''''''''''''''''''''''''''''''''''''''''''''

' começa aqui a inclusão de Comentários master

'''''''''''''''''''''''''''''''''''''''''''''''''''''''

%>

<tr class="clsFontTitulo"><td valign="TOP" colspan="6" align="center"><strong>Informe os dados abaixo, depois clique em Salvar Inclusão</strong></td></tr>

<td colspan=5><input readonly type="text" name="inpDataMaster" value="<%=Now()%>" size="26" maxlength="25">

<font color=maroon>Data atual do sistema, apenas para leitura</font></td>

</tr>

''''''''''''''''''''''''''''''''''''''''''''''''''''''

'Inicio dos Cliente

''''''''''''''''''''''''''''''''''''''''''''''''''''''

<td colspan=5><input <%If Session("UserCode") <> "1" And Session("UserCode") <> "38" And Session("UserCode") <> "45" And Session("UserCode") <> "46" Then%>readonly<%End If%> type="text" name="inpDataMaster" value="<%=Now()%>" size="26" maxlength="25">

<font color=maroon>Data atual do sistema, apenas para leitura</font></td>

</tr>

<td align="center">Conta:</td>

</select>

<font color=maroon>Escolha uma conta</font></td>

</tr>

'''''''''''''''''''''''''''''''''''''''''''''''''''''

'Fim dos Clientes

''''''''''''''''''''''''''''''''''''''''''''''''''''' <tr class="clsFontDefault">

<td align="center">Description of Incident/Event:</td>

<font color=maroon>No máximo 60 caracteres</font></td>

</tr>

<td align="center">Operador:</td>

<font color=maroon>No máximo 30 caracteres</font></td>

</tr>

<td align="center">System/Device:</td>

<font color=maroon>No máximo 25 caracteres</font></td>

</tr>

<td align="center">Incident Ticket#:</td>

<font color=maroon>No máximo 12 caracteres</font></td>

</tr>

<td align="center">Servidor:</td>

<font color=maroon>No máximo 20 caracteres</font></td>

</tr>

<td align="center">Actual Steps to Restore Service:</td>

</tr>

</tr>

<%

end if

'''''''''''''''''''''''''''''''''''''''''''''''''''''''

' termina aqui a inclusão dos comentarios master

'''''''''''''''''''''''''''''''''''''''''''''''''''''''

%>

<% if CodServico = 2 then %>

<%

'''''''''''''''''''''''''''''''''''''''''''''''''''''''

' começa aqui a inclusão da paralização de produtos

'''''''''''''''''''''''''''''''''''''''''''''''''''''''

%>

<tr class="clsFontTitulo"><td valign="TOP" colspan="6" align="center"><strong>Informe os dados abaixo, depois clique em Salvar Inclusão</strong></td></tr>

<font color=maroon>Escolha a Conta: </font>

</select>

</td>

</tr>

<tr class="clsFontTitulo"><td valign="TOP" colspan="6" align="center"><strong>Informe os dados abaixo, depois clique em Salvar Inclusão</strong></td></tr>

<td><b>Nome do Produto</b></td>

<td><b>Tempo de Paralização</b></td>

<td><b>Número do Ticket</b></td>

</tr>

<% Call ProdMaster() %>

</table>

</td>

</tr>

<td align="center" width="17%">Descrição da<br>Paralização:</td>

</tr>

</tr>

<% end if %>

<%

'''''''''''''''''''''''''''''''''''''''''''''''''''''''

' termina aqui a inclusão da paralização de produtos

'''''''''''''''''''''''''''''''''''''''''''''''''''''''

%>

<% if CodServico = 3 then %>

<%

'''''''''''''''''''''''''''''''''''''''''''''''''''''''

' termina aqui a inclusão da paralização de linhas

'''''''''''''''''''''''''''''''''''''''''''''''''''''''

' começa aqui a inclusão da paralização de produtos

'''''''''''''''''''''''''''''''''''''''''''''''''''''''

%>

<tr class="clsFontTitulo"><td valign="TOP" colspan="6" align="center"><strong>Informe os dados abaixo, depois clique em Salvar Inclusão</strong></td></tr>

<td colspan="2" align="center"><font color=maroon>Escolha a Conta: </font>

<option <% if Request("selContaProdMaster")="0" then %>selected<% end if %> value="0"> </option>

<option <% if Request("selContaProdMaster")="15" then %>selected<% end if %> value="15">HA50</option>

<option <% if Request("selContaProdMaster")="1" then %>selected<% end if %> value="1">HA51</option>

<option <% if Request("selContaProdMaster")="13" then %>selected<% end if %> value="13">PPGA</option>

</select>

</td>

</tr>

<% if Clng(Request("selContaProdMaster")) <> 0 then %>

<td><b>Nome do Produto</b></td>

<td><b>Tempo de Paralização</b></td>

<td><b>Número do Ticket</b></td>

</tr>

<% Call ProdMaster() %>

</table>

</td>

</tr>

<td align="center" width="17%">Descrição da<br>Paralização:</td>

</tr>

<% end if %>

<% if Request("selContaProdMaster")<>"" then %>

</tr>

<% end if %>

<%

'''''''''''''''''''''''''''''''''''''''''''''''''''''''

' termina aqui a inclusão da paralização de produtos

'''''''''''''''''''''''''''''''''''''''''''''''''''''''

' começa aqui a inclusão das informações do telex

'''''''''''''''''''''''''''''''''''''''''''''''''''''''

%>

</table>

<% End Sub %>

<% Sub MontaIncFit()

dim strQuery, objConexao, objRecordset

dim intCont

turno = Request("turno")

Call ConexaoFitoteca(objRecordset, objConexao)

dtIni = Now()

dtFim = DateAdd("d", 1, dtIni)

strQuery = "SELECT top 1 count(*) as contador from Tb_fitoteca " &_

" WHERE int_turno = " & turno &_

" and dat_data >= #" & FormataData(dtIni) & "#"

'Response.Write strQuery

'Response.End

Set objRecordset = objConexao.Execute(strQuery)

intCont = objRecordset("contador")

Call EncerraRecordset(objRecordset)

Call EncerraConexao(objConexao)

%>

<% if intCont = 0 then %>

<tr class="clsFontTitulo"><td colspan="6" align="center"><strong>Informe os dados abaixo, depois clique em Salvar Inclusão</strong></td></tr>

<td align="center" width="25%">Scratchs</td>

<td align="center" width="25%">Células Livres</td>

</tr>

</tr>

</tr>

<td>Fitoteca</td>

</tr>

</table>

<td bgcolor="#E2E2E2">Actual Steps to Restore Service</td>

</tr>

</table>

<br>

</table>

<% else %>

Já existe ocorrência para esta área !<br>Para incluir novos Actual Steps to Restore Service, utilize o serviço Alteração do menu.

</span>

</TR>

<% end if %>

<% End Sub %>

<%

Sub ProdMaster()

dim strQuery, objConexao, objRecordset

Call ConexaoMaster(objRecordset, objConexao)

strQuery = "SELECT a.str_produtos FROM TB_PROD_MASTER A ORDER BY STR_PRODUTOS "

intConta = 0

Set objRecordset = objConexao.Execute(strQuery)

Do While not objRecordset.EOF

intConta = intConta + 1

%>

<tr class="clsFontDefault" <% if intConta Mod 2 = 0 then %>bgcolor="#E2E2E2"<% end if %>>

<td><input type="checkbox" name="chxProdMaster_<%=intConta%>" value="s"> <%=objRecordset("str_produtos")%></td>

<input type="hidden" name="nomeProdMaster_<%=intConta%>" value="<%=objRecordset("str_produtos")%>">

<td>

<%

for i=0 to 23

if len(i) < 2 then i = "0" & i

%>

<% next %>

</select>

<font color=maroon>hora(s)</font> :

<%

for i=0 to 59

if len(i) < 2 then i = "0" & i

%>

<% next %>

</select>

<font color=maroon>minuto(s)</font>

</td>

<td><input type="text" name="inpTiket_<%=intConta%>" value="" size="20" maxlength="19"></td>

</tr>

<%

objRecordset.MOVENEXT

loop

%>

<%

Call EncerraRecordset(objRecordset)

Call EncerraConexao(objConexao)

End Sub

%>

<%

Sub MontaIncMonitoracao()

%>

<tr class="clsFontTitulo"><td valign="TOP" colspan="6" align="center"><strong>Informe os dados abaixo, depois clique em Salvar Inclusão</strong></td></tr>

<td colspan=5><input readonly type="text" name="inpDataMaster" value="<%=Now()%>" size="26" maxlength="25">

<font color=maroon>Data atual do sistema, apenas para leitura</font></td>

</tr>

<td align="center">Assunto:</td>

<font color=maroon>No máximo 60 caracteres</font></td>

</tr>

<td align="center">Actual Steps to Restore Service:</td>

</tr>

</tr>

</table>

<% End Sub %>

<%

Sub MontaIncTP()

%>

<tr class="clsFontTitulo"><td valign="TOP" colspan="6" align="center"><strong>Informe os dados abaixo, depois clique em Salvar Inclusão</strong></td></tr>

<td colspan=5><input readonly type="text" name="inpDataMaster" value="<%=Now()%>" size="26" maxlength="25">

<font color=maroon>Data atual do sistema, apenas para leitura</font></td>

</tr>

<td align="center">Assunto:</td>

<font color=maroon>No máximo 60 caracteres</font></td>

</tr>

<td align="center">Actual Steps to Restore Service:</td>

</tr>

</tr>

</table>

<% End Sub %>

<%

Sub MontaIncRestart()

%>

<tr class="clsFontTitulo"><td valign="TOP" colspan="6" align="center"><strong>Informe os dados abaixo, depois clique em Salvar Inclusão</strong></td></tr>

<td colspan=5><input readonly type="text" name="inpDataMaster" value="<%=Now()%>" size="26" maxlength="25">

<font color=maroon>Data atual do sistema, apenas para leitura</font></td>

</tr>

<td align="center">Assunto:</td>

<font color=maroon>No máximo 60 caracteres</font></td>

</tr>

<td align="center">Actual Steps to Restore Service:</td>

</tr>

</tr>

</table>

<% End Sub %>

Custellinha · Janeiro 6, 2007

espera que alguém leia isso tudo de código ???

cic_br · Janeiro 7, 2007

espera que alguém leia isso tudo de código ???

Pra falar a verdade não kkkkkkk......... Mas pelo menos a parte em vermelho, pq a pagina até exibi qdo requisitada, porém, qdo vou efetivar os dados a pagina da como inexistente. Mas acho que vai ser dificil alguém poder me ajudar, pq tem uma pagina bem bagunçada.Valeu amigo.

Entrar

Arquivado

Inclusao

Recommended Posts

cic_br 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Custellinha 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

cic_br 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

PHP+Codeigniter - Dúvida em Relação a Teclas

Conexão mysql com outro domínio

[Resolvido] JavaScript - Exibir logo dentro da Tabela html

Este projeto é apoiado pelas empresas

Fóruns

Tempo Real

Informação importante