den ligger påen url jeg ikke kan give url til fordi den ligger lokalt på et intranet.
værdien i Amount er: 2531,62
værdien i Currency er: 7,4394
formen er stor og koden ser sådan ud:
<form ACTION="<%=MM_editAction%>" METHOD="POST" name="form1" style="margin:0px;">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="200" class="p">Place of damage:</td>
<%
Dim rsVesselTerminal
Dim rsVesselTerminal_numRows
vesselterminal = (rsClaim.Fields.Item("vesselterminalID").Value)
Set rsVesselTerminal = Server.CreateObject("ADODB.Recordset")
rsVesselTerminal.ActiveConnection = MM_claims_conn_STRING
rsVesselTerminal.Source = "SELECT * FROM dbo.tblVesselTerminal WHERE IDvesselterminal = " & vesselterminal
rsVesselTerminal.CursorType = 0
rsVesselTerminal.CursorLocation = 2
rsVesselTerminal.LockType = 1
rsVesselTerminal.Open()
if not (rsVesselTerminal.EOF or rsVesselTerminal.BOF) then
placeofdamage=(rsVesselTerminal.Fields.Item("VesselTerminal").Value)
placeofdamageID=(rsVesselTerminal.Fields.Item("IDvesselterminal").Value)
else
placeofdamage=("No vessel or terminal found or selected")
placeofdamageID=0
end if
%>
<td class="p"><input readonly name="placeofdamage" type="text" class="fieldsLongHidden" id="placeofdamage" value="<%=placeofdamage%>">
<input name="placeofdamageID" type="hidden" id="placeofdamageID" value="<%=placeofdamageID%>"></td>
</tr>
<tr>
<td class="p">Date of damage:</td>
<td><input name="dateofdamage" type="text" class="fieldsHidden" id="dateofdamage" value="<%=(rsClaim.Fields.Item("DateOfDamage").Value)%>" readonly></td>
</tr>
<tr>
<td class="p">Description:</td>
<td><input name="description" type="text" class="fieldsLong" id="description" value="<%=(rsClaim.Fields.Item("DamageDescription").Value)%>"></td>
</tr>
<tr>
<td class="p">Currency:</td>
<td><select name="currencyID" class="fields" id="currencyID">
<option value=""></option>
<%
While (NOT rsCurrency.EOF)
%>
<option value="<%=(rsCurrency.Fields.Item("Rate").Value)%>"><%=(rsCurrency.Fields.Item("ISO").Value)%> | <%=replace((rsCurrency.Fields.Item("Rate").Value),",",".")%></option>
<%
rsCurrency.MoveNext()
Wend
If (rsCurrency.CursorType > 0) Then
rsCurrency.MoveFirst
Else
rsCurrency.Requery
End If
%>
</select></td>
</tr>
<tr>
<td class="p">Amount excl. vat:</td>
<td class="p"><table border="0" cellspacing="0" cellpadding="0">
<tr>
<td><input name="amount" type="text" class="fields" id="amount" onChange="document.form1.amounteuro.value=(document.form1.amount.value/document.form1.currencyID.value).toString().replace(',','.')"></td>
<td><input readonly name="amounteuro" type="text" class="fieldsHidden" id="amounteuro" value="0"></td>
<td class="p" style="padding-bottom:4px;">Euro</td>
</tr>
</table></td>
</tr>
<tr>
<td class="p">Vat:</td>
<td><table border="0" cellspacing="0" cellpadding="0">
<tr>
<td><select name="vat" class="fields" id="select2" onChange="document.form1.vateuro.value=(document.form1.amount.value*document.form1.vat.value/100)/document.form1.currencyID.value;document.form1.totalamount.value=parseInt(document.form1.amounteuro.value)+parseInt(document.form1.vateuro.value)">
<option value=""></option>
<%
While (NOT rsVat.EOF)
%>
<option value="<%=(rsVat.Fields.Item("Vat").Value)%>"><%=(rsVat.Fields.Item("Vat").Value)%></option>
<%
rsVat.MoveNext()
Wend
If (rsVat.CursorType > 0) Then
rsVat.MoveFirst
Else
rsVat.Requery
End If
%>
</select></td>
<td><input readonly name="vateuro" type="text" class="fieldsHidden" id="vateuro" value="0"></td>
<td class="p" style="padding-bottom:4px;">Euro</td>
</tr>
</table></td>
</tr>
<tr>
<td class="p">Amount incl. vat: </td>
<td><table border="0" cellspacing="0" cellpadding="0">
<tr>
<td><input readonly name="totalamount" type="text" class="fieldsHidden" id="totalamount" value="0"></td>
<td class="p" style="padding-bottom:4px;">Euro</td>
</tr>
</table></td>
</tr>
<tr>
<td class="p"> </td>
<td> </td>
</tr>
<tr>
<td class="p">To be reinvoiced: </td>
<td><table border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="30" align="center"><input name="reinvoiced" type="radio" value="Y" onClick="fold2('nr470', 'nr471'); return false;"></td>
<td width="30" class="p">Yes</td>
<td width="30"> </td>
<td width="30" align="center"><input name="reinvoiced" type="radio" value="N" onClick="fold2('nr42', 'nr43'); return false;"></td>
<td class="p">No</td>
</tr>
</table></td>
</tr>
<tr id="nr470" style="display: none;">
<td colspan="2" class="p"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="200" class="p">Working account:</td>
<td><select name="workingaccountID" class="fieldsLong" id="workingaccountID">
<option value=""></option>
<%
While (NOT rsAccount.EOF)
%>
<option value="<%=(rsAccount.Fields.Item("IDaccount").Value)%>"><%=(rsAccount.Fields.Item("Number").Value)%> | <%=(rsAccount.Fields.Item("Description").Value)%></option>
<%
rsAccount.MoveNext()
Wend
If (rsAccount.CursorType > 0) Then
rsAccount.MoveFirst
Else
rsAccount.Requery
End If
%>
</select></td>
</tr>
<tr>
<td class="p">Payer:</td>
<td><select name="payerID" class="fieldsLong" id="payerID">
<option value=""></option>
<%
While (NOT rsPayer.EOF)
%>
<option value="<%=(rsPayer.Fields.Item("IDownerpayer").Value)%>"><%=(rsPayer.Fields.Item("Name").Value)%></option>
<%
rsPayer.MoveNext()
Wend
If (rsPayer.CursorType > 0) Then
rsPayer.MoveFirst
Else
rsPayer.Requery
End If
%>
</select></td>
</tr>
</table></td>
</tr>
<tr>
<td class="p"> </td>
<td> </td>
</tr>
<tr>
<td class="p">Main account:</td>
<td><select name="mainaccountID" class="fieldsLong" id="mainaccountID">
<option value=""></option>
<%
While (NOT rsAccount.EOF)
%>
<option value="<%=(rsAccount.Fields.Item("IDaccount").Value)%>"><%=(rsAccount.Fields.Item("Number").Value)%> | <%=(rsAccount.Fields.Item("Description").Value)%></option>
<%
rsAccount.MoveNext()
Wend
If (rsAccount.CursorType > 0) Then
rsAccount.MoveFirst
Else
rsAccount.Requery
End If
%>
</select></td>
</tr>
<tr>
<td class="p">Costcenter:</td>
<td><select name="costcenterID" class="fieldsLong" id="costcenterID">
<option value=""></option>
<%
While (NOT rsCostcenter.EOF)
%>
<option value="<%=(rsCostcenter.Fields.Item("IDcostcenter").Value)%>"><%=(rsCostcenter.Fields.Item("Number").Value)%> | <%=(rsCostcenter.Fields.Item("Description").Value)%></option>
<%
rsCostcenter.MoveNext()
Wend
If (rsCostcenter.CursorType > 0) Then
rsCostcenter.MoveFirst
Else
rsCostcenter.Requery
End If
%>
</select></td>
</tr>
<tr>
<td class="p"> </td>
<td> </td>
</tr>
<tr>
<td class="p">Receiver:</td>
<td><input name="receiver" type="text" class="fields" id="receiver" value="<%=Request.Querystring("Receiver")%>"></td>
</tr>
<tr>
<td class="p">Type of payment: </td>
<td><table border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="30" align="center"><input name="typeofpayment" type="radio" value="Bank" onClick="fold('nr31', 'nr32'); return false;"></td>
<td width="30" class="p">Bank</td>
<td width="30"> </td>
<td width="30" align="center"><input name="typeofpayment" type="radio" value="Cheque" onClick="fold('nr33', 'nr34'); return false;"></td>
<td class="p">Cheque</td>
</tr>
</table></td>
</tr>
<tr id="nr31" style="display: none;">
<td colspan="2" class="p"><table border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="200" class="p">Bank:</td>
<td><input name="bank" type="text" class="fields" id="bank"></td>
</tr>
<tr>
<td class="p">Location:</td>
<td><input name="location" type="text" class="fields" id="location"></td>
</tr>
<tr>
<td class="p">Account:</td>
<td><input name="bankaccount" type="text" class="fields" id="bankaccount"></td>
</tr>
<tr>
<td class="p">BLZ / Swift code:</td>
<td><input name="blzswiftcode" type="text" class="fields" id="blzswiftcode"></td>
</tr>
<tr>
<td class="p">IBAN:</td>
<td><input name="iban" type="text" class="fields" id="iban"></td>
</tr>
<tr>
<td class="p">Text to receiver: </td>
<td><input name="texttoreceiver" type="text" class="fieldsLong" id="texttoreceiver"></td>
</tr>
</table></td>
</tr>
<tr id="nr33" style="display: none;">
<td colspan="2" class="p"><table border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="200" class="p">Address:</td>
<td><input name="address" type="text" class="fields" id="address"></td>
</tr>
<tr>
<td class="p">Zipcode:</td>
<td><input name="zipcode" type="text" class="fields" id="zipcode"></td>
</tr>
<tr>
<td class="p">City:</td>
<td><input name="city" type="text" class="fields" id="city"></td>
</tr>
<tr>
<td class="p">Country:</td>
<td><input name="country" type="text" class="fields" id="country"></td>
</tr>
</table></td>
</tr>
<tr>
<td class="p"> </td>
<td> </td>
</tr>
<tr>
<td class="p"><input name="caseID" type="hidden" id="caseID" value="<%=databaseID%>">
<input name="userID" type="hidden" id="userID" value="<%=(rsUser.Fields.Item("IDuser").Value)%>">
<input name="entrydate" type="hidden" id="entrydate" value="<%=Now()%>"></td>
<td style="padding-top:10px;"><input name="Submit" type="submit" class="buttons" onClick="YY_checkform('form1','placeofdamage','#q','0','Please input Place of Damage.','dateofdamage','#q','0','Please input Date of Damage.','amount','#q','0','Please input an Amount.','mainaccountID','#q','1','Please choose a Main account.','costcenterID','#q','1','Please choose a Costcenter.');return document.MM_returnValue" value="Create">
</td>
</tr>
</table>
<input type="hidden" name="MM_insert" value="form1">
</form>
Ny bruger
Nybegynder
Opret
Preview
