L
love4csharp
Guest
Hi
masters
I need help. kindly see screen shot . In that screen shot i have to remove select completely and replace it with send to. please gyus help me out how to do it. here is the complete code.
if question is not clear then plz let me know.
<%@ Page Language="VB" AspCompat="true" Inherits="myPage"%>
<%@ Import namespace="ADODB" %><% RStoTablePre()%>
<script language="VB" runat="Server
on error resume next
Dim TextMatrix(20) As Object
Protected Sub Page_Init(ByVal sender As Object, ByVal e As System.EventArgs)
DBInit()
RStoCombo("select office_code,office_name from offices where office_code<>" & office98 & " order by 1", 1, 0, officef,"")
officef.Attributes.Add("onfocusout", "var m=this.value;k=this.parentElement;this.parentElement.innerHTML=cimp;k.childNodes(0).childNodes(0).value=m;")
Dim sqll As String = ""
sqll = "select 0, disp_office_code as office_code, (select office_name from offices where office_code=disp_office_code) as office_name from disp_offices where office_code=" & office98 & " and disp_office_code in (select office_code from offices where office_level<>STOP) order by id"
RStoCombo("select disp_office_code as office_code, disp_office_name as office_name from disp_offices where office_code=" & office98 & " order by 2", 1, 0, txNEXT_OFFICE_CODE, "")
RStoCombo(sqll, 2, 1, txNEXT_OFFICE_CODE, "")
End Sub
Protected Sub btSave_Click(ByVal sender As Object, ByVal e As System.EventArgs)
on error resume next
If Request("letterid") = "" Then
msgtd.Text = "First select a letter to dispatch."
Exit Sub
End If
For x = 0 To txNEXT_OFFICE_CODE.Items.Count - 1
If txNEXT_OFFICE_CODE.Items(x).Selected = True Then
sss = "update lettertrans set " & IIf(IsDate(txPUTUP_DATE.Text), "PUTUP_DATE=to_date(" & txPUTUP_DATE.Text & ",DD-MM-YYYY),", "") & "remarks=" & Replace(Replace(txREMARKS.Text, """", """"""), "", "") & ", next_office_code = " & txNEXT_OFFICE_CODE.Items(x).value & ", desp_date = sysdate, desp_time = sysdate, desp_flag = " & "1" & ", next_office_receipt_status = " & "0" & ", despatch_date_time = sysdate where id=" & Request("letterid")
cnn.execute(sss)
System.Threading.Thread.Sleep(100)
cnn.Execute("Insert into lettertrans select * from lettertrans where id=" & Request("letterid"))
End If
Next
cnn.Execute("delete from lettertrans where id=" & Request("letterid"))
End Sub
</script>
<%
on error resume next
op = request.Item("opt")
id = request.Item("id")
SetVar()
response.Write ifrec
response.End
Select Case op
Case "update"
rst1 = New ADODB.Recordset
rst1.open("select lettermaster.ID,is_new, prev_office_code, prev_office_diary_no, file_letter, lettertrans.letter_office_code, lettertrans.letter_diary_no, lettertrans.diary_no, receipt_date_time, next_office_code, lettertrans.office_code,subject,filed from lettertrans,lettermaster where lettermaster.office_code=lettertrans.letter_office_code and lettermaster.diary_no= lettertrans.letter_diary_no and lettertrans.office_code = " & office98 & " and file_letter = " & "L" & " ", cnn, 1)
If rst1.recordcount > 0 Then
For x = 1 To rst1.recordcount
ifrec = (Request("officecode" & rst1(0).value))
If ifrec <> "" And sNull(rst1.Fields.Item("diary_no").Value) <> "" Then
sss = "update lettertrans set " & IIf(IsDate(txPUTUP_DATE.Text), "PUTUP_DATE=" & txPUTUP_DATE.Text & ",", "") & "remarks=" & Replace(Replace(txREMARKS.Text, """", """"""), "", "") & ", next_office_code = " & ifrec & ", desp_date = sysdate, desp_time = sysdate, desp_flag = " & "1" & ", next_office_receipt_status = " & "0" & ", despatch_date_time = sysdate where office_code = " & sNull(rst1.Fields.Item("office_code").Value) & " and diary_no = " & sNull(rst1.Fields.Item("diary_no").Value) & ""
cnn.execute(sss)
sss = "update lettermaster set disp_office_code = " & ifrec & ", disp_date_time = sysdate where office_code = " & sNull(rst1.Fields.Item("letter_office_code").Value) & " and diary_no = " & sNull(rst1.Fields.Item("letter_diary_no").Value) & ""
cnn.execute(sss)
End If
rst1.MoveNext()
Next
End If
UPGRADE_NOTE: Object rst1 may not be destroyed until it is garbage collected. Copy this link in your browser for more: http://msdn.microsoft.com/library/en-us/vbcon/html/vbup1029.aspx
rst1 = Nothing
Case "del"
If Err.Number Then msg = "Record could not be deleted. Error:" & Err.Description Else msg = "Record has been deleted sucessfully."
End Select
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252" />
<title>File Tracker >> Letter >> Letter Dispatch</title>
<link rel="Stylesheet ../inc/htmlstyle.css" />
<script type="text/javascript" language="javascript" src="../inc/script.js </script>
<script type="text/javascript" language="javascript" src="../inc/sorttable.js </script>
<script type="text/javascript" language="javascript" src="../inc/tableresize.js </script>
<link rel="stylesheet ../inc/calendar.css" />
<script type="text/javascript" language="javascript" src="../inc/calendar.js </script>
<script type="text/javascript" language="javascript
<!--
////////////////////
var coffice;
var cimp;
var rindex;
function winl(){
//coffice=document.getElementById("officef").outerHTML;
//cimp=<input onfocus="this.parentElement.parentElement.innerHTML=coffice;" name="officecode" size="15" style="width:100%;font-family: Verdana; font-size: 10px; border: 1px solid #808080 ;
//alert(coffice);
}
function openEdit(lid){
/*alert(document.opened);
if (document.opened==undefined){
s = window.showModelessDialog(../showdialog.aspx?title=MODIFY CUSTOMER RECORD&url=main/cus_add.aspx?op=open%26id=+lid, window, dialogHeight:330px; dialogWidth:340px; scroll:no);
document.opened="true";
}else{
s.I1.location=cus_add.aspx?op=open&id=+lid;
}*/
parent.frames(1).location=add_mbill.aspx?op=open&id=+lid;
}
function delop(delid){
m=window.confirm("Are you sure to delete this record.\nClick OK to Delete.");
if (m==true){document.location="?op=del&id="+delid;}
}
//////////////////////////////////
function settext(con){
//alert(con.name)
var i=con.parentElement.parentElement;
//con.name=officecode+i.parentElement.rowIndex;
rindex=con;
cimp=i.innerHTML;
//alert(cimp);
i.innerHTML=coffice;
}
//-->
</script>
</head>
<body onload="winl()" topmargin="0
<form runat="server" method="post" id="f1" >
<div style="quot;>
<div align="center
<table border="0" cellpadding="0" width="100%" height="418
<tr>
<td id="td1" height="14
<font size="5" color="#5ED548 <b>Letter Dispatch</b></font></td>
</tr>
<tr>
<td bordercolor="#008000" style="border-style: solid; border-width: 1px
<div align="center" style="height:201px; width:929px
<%
ssql = "select letter_office_code|| /||letter_diary_no as ""Letter Ref"",letter_no as ""Letter No"",Subject,decode(is_new,1,L||((select current_diary_no from offices where office_code = " & office98 & ")+rownum),lettertrans.Diary_No) as ""Diary No"",Sender,receipt_date_time as ""Receipt Date"",<input type=""radio"" name=""letterid"" value=""||lettertrans.id||" as ""Select"" from lettertrans,lettermaster where lettermaster.office_code=lettertrans.letter_office_code and lettermaster.diary_no= lettertrans.letter_diary_no and next_office_code is null and lettertrans.office_code = " & office98 & " and file_letter = " & "L" & " AND (lettertrans.fileid<>1 or lettertrans.fileid is null) "
response.write office98
RStoTable(ssql, " ;mreg;mreg", "100%;200", 5, 100, -1, "10;10;20;7;15;13", "")
%> <br>
<br>
</td>
</tr>
<tr>
<td bordercolor="#008000" style="border-style: solid; border-width: 1px
<div align="left
<table border="0" cellpadding="0" style="border-collapse: collapse" width="502" id="table1" height="158
<tr>
<td width="98" valign="top" height="75 Send To</td>
<td width="285" valign="top" height="75
<asp:CheckBoxList ID="txNEXT_OFFICE_CODE" runat="server" Height="75px"
Width="273px" style="quot; BackColor="White" CssClass="tx"
RepeatLayout="Flow
</asp:CheckBoxList></td>
<td height="75 </td>
</tr>
<tr>
<td width="98" valign="top" height="56 Remarks/Comments</td>
<td height="56" width="285
<asp:TextBox ID="txREMARKS" runat="server" CssClass="tx" Height="49px"
TextMode="MultiLine" Width="273px </asp:TextBox>
</td>
<td height="56
</td>
</tr>
<tr>
<td width="98 Put-Up Date</td>
<td width="285
<a id="anchor2 javascript:void(0)" name="anchor2"
onclick="cal.select(document.all(txPUTUP_DATE),anchor2,dd/MM/yyyy); return false;
<asp:TextBox ID="txPUTUP_DATE" runat="server" CssClass="tx" Width="80px </asp:TextBox>
<img align="top" alt="Calendar" border="0" class="imgLink" height="17"
src="../images/calendar.gif" width="18" /> </td>
<td>
<asp:Button ID="btSave" runat="server" Text="Update" onclick="btSave_Click" OnClientClick="return window.confirm(Are you sure to update records.\nClick OK to confirm)" />
</td>
</tr>
</table>
</td>
</tr>
</table>
<asp:Label ID="msgtd" runat="server" ForeColor="Red </asp:Label>
</form>
</body>
</html>
thanks and regard love4csharp
Continue reading...
masters
I need help. kindly see screen shot . In that screen shot i have to remove select completely and replace it with send to. please gyus help me out how to do it. here is the complete code.
if question is not clear then plz let me know.
<%@ Page Language="VB" AspCompat="true" Inherits="myPage"%>
<%@ Import namespace="ADODB" %><% RStoTablePre()%>
<script language="VB" runat="Server
on error resume next
Dim TextMatrix(20) As Object
Protected Sub Page_Init(ByVal sender As Object, ByVal e As System.EventArgs)
DBInit()
RStoCombo("select office_code,office_name from offices where office_code<>" & office98 & " order by 1", 1, 0, officef,"")
officef.Attributes.Add("onfocusout", "var m=this.value;k=this.parentElement;this.parentElement.innerHTML=cimp;k.childNodes(0).childNodes(0).value=m;")
Dim sqll As String = ""
sqll = "select 0, disp_office_code as office_code, (select office_name from offices where office_code=disp_office_code) as office_name from disp_offices where office_code=" & office98 & " and disp_office_code in (select office_code from offices where office_level<>STOP) order by id"
RStoCombo("select disp_office_code as office_code, disp_office_name as office_name from disp_offices where office_code=" & office98 & " order by 2", 1, 0, txNEXT_OFFICE_CODE, "")
RStoCombo(sqll, 2, 1, txNEXT_OFFICE_CODE, "")
End Sub
Protected Sub btSave_Click(ByVal sender As Object, ByVal e As System.EventArgs)
on error resume next
If Request("letterid") = "" Then
msgtd.Text = "First select a letter to dispatch."
Exit Sub
End If
For x = 0 To txNEXT_OFFICE_CODE.Items.Count - 1
If txNEXT_OFFICE_CODE.Items(x).Selected = True Then
sss = "update lettertrans set " & IIf(IsDate(txPUTUP_DATE.Text), "PUTUP_DATE=to_date(" & txPUTUP_DATE.Text & ",DD-MM-YYYY),", "") & "remarks=" & Replace(Replace(txREMARKS.Text, """", """"""), "", "") & ", next_office_code = " & txNEXT_OFFICE_CODE.Items(x).value & ", desp_date = sysdate, desp_time = sysdate, desp_flag = " & "1" & ", next_office_receipt_status = " & "0" & ", despatch_date_time = sysdate where id=" & Request("letterid")
cnn.execute(sss)
System.Threading.Thread.Sleep(100)
cnn.Execute("Insert into lettertrans select * from lettertrans where id=" & Request("letterid"))
End If
Next
cnn.Execute("delete from lettertrans where id=" & Request("letterid"))
End Sub
</script>
<%
on error resume next
op = request.Item("opt")
id = request.Item("id")
SetVar()
response.Write ifrec
response.End
Select Case op
Case "update"
rst1 = New ADODB.Recordset
rst1.open("select lettermaster.ID,is_new, prev_office_code, prev_office_diary_no, file_letter, lettertrans.letter_office_code, lettertrans.letter_diary_no, lettertrans.diary_no, receipt_date_time, next_office_code, lettertrans.office_code,subject,filed from lettertrans,lettermaster where lettermaster.office_code=lettertrans.letter_office_code and lettermaster.diary_no= lettertrans.letter_diary_no and lettertrans.office_code = " & office98 & " and file_letter = " & "L" & " ", cnn, 1)
If rst1.recordcount > 0 Then
For x = 1 To rst1.recordcount
ifrec = (Request("officecode" & rst1(0).value))
If ifrec <> "" And sNull(rst1.Fields.Item("diary_no").Value) <> "" Then
sss = "update lettertrans set " & IIf(IsDate(txPUTUP_DATE.Text), "PUTUP_DATE=" & txPUTUP_DATE.Text & ",", "") & "remarks=" & Replace(Replace(txREMARKS.Text, """", """"""), "", "") & ", next_office_code = " & ifrec & ", desp_date = sysdate, desp_time = sysdate, desp_flag = " & "1" & ", next_office_receipt_status = " & "0" & ", despatch_date_time = sysdate where office_code = " & sNull(rst1.Fields.Item("office_code").Value) & " and diary_no = " & sNull(rst1.Fields.Item("diary_no").Value) & ""
cnn.execute(sss)
sss = "update lettermaster set disp_office_code = " & ifrec & ", disp_date_time = sysdate where office_code = " & sNull(rst1.Fields.Item("letter_office_code").Value) & " and diary_no = " & sNull(rst1.Fields.Item("letter_diary_no").Value) & ""
cnn.execute(sss)
End If
rst1.MoveNext()
Next
End If
UPGRADE_NOTE: Object rst1 may not be destroyed until it is garbage collected. Copy this link in your browser for more: http://msdn.microsoft.com/library/en-us/vbcon/html/vbup1029.aspx
rst1 = Nothing
Case "del"
If Err.Number Then msg = "Record could not be deleted. Error:" & Err.Description Else msg = "Record has been deleted sucessfully."
End Select
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252" />
<title>File Tracker >> Letter >> Letter Dispatch</title>
<link rel="Stylesheet ../inc/htmlstyle.css" />
<script type="text/javascript" language="javascript" src="../inc/script.js </script>
<script type="text/javascript" language="javascript" src="../inc/sorttable.js </script>
<script type="text/javascript" language="javascript" src="../inc/tableresize.js </script>
<link rel="stylesheet ../inc/calendar.css" />
<script type="text/javascript" language="javascript" src="../inc/calendar.js </script>
<script type="text/javascript" language="javascript
<!--
////////////////////
var coffice;
var cimp;
var rindex;
function winl(){
//coffice=document.getElementById("officef").outerHTML;
//cimp=<input onfocus="this.parentElement.parentElement.innerHTML=coffice;" name="officecode" size="15" style="width:100%;font-family: Verdana; font-size: 10px; border: 1px solid #808080 ;
//alert(coffice);
}
function openEdit(lid){
/*alert(document.opened);
if (document.opened==undefined){
s = window.showModelessDialog(../showdialog.aspx?title=MODIFY CUSTOMER RECORD&url=main/cus_add.aspx?op=open%26id=+lid, window, dialogHeight:330px; dialogWidth:340px; scroll:no);
document.opened="true";
}else{
s.I1.location=cus_add.aspx?op=open&id=+lid;
}*/
parent.frames(1).location=add_mbill.aspx?op=open&id=+lid;
}
function delop(delid){
m=window.confirm("Are you sure to delete this record.\nClick OK to Delete.");
if (m==true){document.location="?op=del&id="+delid;}
}
//////////////////////////////////
function settext(con){
//alert(con.name)
var i=con.parentElement.parentElement;
//con.name=officecode+i.parentElement.rowIndex;
rindex=con;
cimp=i.innerHTML;
//alert(cimp);
i.innerHTML=coffice;
}
//-->
</script>
</head>
<body onload="winl()" topmargin="0
<form runat="server" method="post" id="f1" >
<div style="quot;>
<div align="center
<table border="0" cellpadding="0" width="100%" height="418
<tr>
<td id="td1" height="14
<font size="5" color="#5ED548 <b>Letter Dispatch</b></font></td>
</tr>
<tr>
<td bordercolor="#008000" style="border-style: solid; border-width: 1px
<div align="center" style="height:201px; width:929px
<%
ssql = "select letter_office_code|| /||letter_diary_no as ""Letter Ref"",letter_no as ""Letter No"",Subject,decode(is_new,1,L||((select current_diary_no from offices where office_code = " & office98 & ")+rownum),lettertrans.Diary_No) as ""Diary No"",Sender,receipt_date_time as ""Receipt Date"",<input type=""radio"" name=""letterid"" value=""||lettertrans.id||" as ""Select"" from lettertrans,lettermaster where lettermaster.office_code=lettertrans.letter_office_code and lettermaster.diary_no= lettertrans.letter_diary_no and next_office_code is null and lettertrans.office_code = " & office98 & " and file_letter = " & "L" & " AND (lettertrans.fileid<>1 or lettertrans.fileid is null) "
response.write office98
RStoTable(ssql, " ;mreg;mreg", "100%;200", 5, 100, -1, "10;10;20;7;15;13", "")
%> <br>
<br>
</td>
</tr>
<tr>
<td bordercolor="#008000" style="border-style: solid; border-width: 1px
<div align="left
<table border="0" cellpadding="0" style="border-collapse: collapse" width="502" id="table1" height="158
<tr>
<td width="98" valign="top" height="75 Send To</td>
<td width="285" valign="top" height="75
<asp:CheckBoxList ID="txNEXT_OFFICE_CODE" runat="server" Height="75px"
Width="273px" style="quot; BackColor="White" CssClass="tx"
RepeatLayout="Flow
</asp:CheckBoxList></td>
<td height="75 </td>
</tr>
<tr>
<td width="98" valign="top" height="56 Remarks/Comments</td>
<td height="56" width="285
<asp:TextBox ID="txREMARKS" runat="server" CssClass="tx" Height="49px"
TextMode="MultiLine" Width="273px </asp:TextBox>
</td>
<td height="56
</td>
</tr>
<tr>
<td width="98 Put-Up Date</td>
<td width="285
<a id="anchor2 javascript:void(0)" name="anchor2"
onclick="cal.select(document.all(txPUTUP_DATE),anchor2,dd/MM/yyyy); return false;
<asp:TextBox ID="txPUTUP_DATE" runat="server" CssClass="tx" Width="80px </asp:TextBox>
<img align="top" alt="Calendar" border="0" class="imgLink" height="17"
src="../images/calendar.gif" width="18" /> </td>
<td>
<asp:Button ID="btSave" runat="server" Text="Update" onclick="btSave_Click" OnClientClick="return window.confirm(Are you sure to update records.\nClick OK to confirm)" />
</td>
</tr>
</table>
</td>
</tr>
</table>
<asp:Label ID="msgtd" runat="server" ForeColor="Red </asp:Label>
</form>
</body>
</html>
thanks and regard love4csharp
Continue reading...