Confirmation - Total of percentages must equal 100
Dear All,
We are using SRM 7.0 EHP1 support package level 11. At the time of goods receipt , i have the error "Total of percentages must equal 100" , "Error in account assignment for item 1" . But it is ok while creating SC, PO.
I've searched the forums and oss notes and found some notes related this issue. But they are valid up to support package level 10, therefore not suitable for me..
So anyone who has further advice ? If not, i think it is better to open a message to SAP ?
Thanks in advance...
Best regards,
Hi Yateesh,
In our case, we used a custom Account assignment category in PO which was mapped to a "ERP Standard Account Assignment Category - V". (This mapping could be checked in SPRO, under Account Assignment in SRM susyem).
However the same ERP category 'V' is also mapped to additional SRM custom Account Assignment Categories.
When the system tries to create the confirmation for the PO, it tries to reverse map the ERP category 'V' and since there is no one-to-one mapping, the system does a dynamic
mapping based on the account field values and determines the account
assignment category 'CC' instead. Now, the 'CC' account category might not be authorized for the user (With which you are trying to post the confirmation) and therefore the system tries to add another accounting line which results in the invalid error message 'Total of percentages...'.
To rectify this behaviour, you can either:
- implement the BADI BBP_ACCCAT_MAP_IMP and when you receive the
ERP account category 'V', a customer specific business logic can be implemented to correctly identify 'Z_CC1' SRM account category. Similar mapping logic has to implemented for other categories as well.
OR
- you could add the account category 'CC' to the organization attribute 'KNT' for user 'hotline1' using transaction ppoma_bbp. The user can later on modify the account category manually in the account assignment tab.
Let me know if you have any further questions.
Best regards,
Raghavendra.
Similar Messages
-
Total of percentages must equal 100
Hello,
SRM 7/Ext classic scenario
When user changes one of the line items in a 10 item PO, he gets the error "Total of percentages must equal 100". System automatically creates a duplicate entry for cost distribution of 100% for one of the line items.
Will applying note 1464163 resolve this issue? Please tell me if other notes in this note need to be implemented?
ThanksHi
It should work.
after implementing note in dev, are you getting this error .
Can you replicate the issue in Development ?
I dont know why it did not work for you.
Let me see refer our SAP answers on my message .
in the mean time , you raise oss message.
Muthu -
Error: Order Management Order-level sales credit total () must equal 100%
Hi,
When I click checkout and fill the details and place the order from minisite , I am getting following error:
"Error messages from Order Management Order-level sales credit total () must equal 100%.
Salesperson is required on a booked order.There is an error in order submission."
I have set ASO : OM Defaulting profile option to Yes.
Please help me..
Thanks and regards,
Muhammed AslamHi;
What is EBS version?
Please see:
Service Charges Error: Order Level Sales Credit Total() Must Be Equal 100% [ID 394641.1]
Error Message - "Order-level sales credit total () must equal 100%." [ID 726030.1]
Order-level sales credit total () must equal 100%-Copy RMA: LINE FLOW - RETURN FOR CREDIT ONLY [ID 1061854.1]
Regard
Helios -
Require responses to equal 100?
In the online surveys, I have a question set up as a text field for numerous items. I've put a statement in there that the total sum of all the fields must equal 100, but is there any way to regulate that or to show a tally of what percentage they've entered? Thanks.
Hi;
No, there is not, there are not "calculations" or formulas in the FormsCentral forms that the user fills out.
Formulas can be used in the Response table on the response data, but nothing within the form.
Thanks,
Josh -
Warning Message only if 1 to 3 fields do not equal 100%
I have 3 potential fields that will be completed. If Field1 (Primary Beneficiary) is 100%, then the user will leave Fields 2 and 3 empty. If Fields 1 and 2 equal 100%, then Field 3 will be empty. Otherwise they will have values in Fields 1, 2, and 3. Regardless, they should not be able to continue completing the rest of the form until the sum of these three fields equal 100%. Therefore I did modify the form as follows, but two issues: it throws the error message up even when first entering a value in Field 1. This script need NOT run until all 3 fields have been tabbed through, or they click on the next section of the form to continue completing. The "Total 100" (name of this particular field) is in the Tab Order to appear after "Beneficiary 3 Benefit Percent" field. And secondly, it still permits the user to continue rather than returning to Field1 even if the total does not equal 100%. Your assistance is greatly appreciated! PS: How do I mark that the post was either helpful or correct?
Rita
event.value = ''; // clear field
// get the values of Beneficiary Benefit fields 1, 2 and 3 as string
var sField1 = this.getField("Beneficiary 1 Benefit Percent").value.toString();
var sField2 = this.getField("Beneficiary 2 Benefit Percent").value.toString();
var sField3 = this.getField("Beneficiary 3 Benefit Percent").value.toString();
// adjust for a field being 100 and others null
if (sField1 == 100 & sField2 == '' & sField3 == '') sField2 = "0" , sField3 = "0";
if (sField2 == 100 & sField1 == '' & sField3 == '') sField3 = "0" , sField1 = "0";
// do only if Beneficiary Benefit fields 1, 2 and 3 are not null
if(sField1 != '' & sField2 != '' & sField3 != '') {
event.value = Number(sField1) + Number(sField2)+ Number(sField3);
if (event.value != 100) app.alert("The sum of Benefit percent must equal 100.", 1, 0);
this.getField("field 1").setFocus();Two problems just from a first glance at this line:
if (sField1 == 100 & sField2 == '' & sField3 == '') sField2 = "0" , sField3 = "0";
1. You're comparing a string to a number
2. You're separating commands with a comma and not placing {} around the block of commands.
It needs to be something like this:
if (sField1 == "100" & sField2 == "" & sField3 == "") {sField2 = "0"; sField3 = "0";}
There are probably more errors, but start by fixing those.
Also, you should probably post which error message you're getting. -
A set of fields that equal 100%
I have a situation where I need to take four text fields and make them equal 100%. The fields them selves can vary in percent but the total of all four must equal 100 percent.
Could anyone reccomend the best way to script this or if an example exist lead me in that direction?
I have an attachment below of what I'm looking for visually.
Thank you! =)Nikki, the script for this is easy but as usual the devil is in the details. When do you want the values checked and how do you want the warning displayed? Do you want it checked when the user tries to submit the form and have a message pop up? Or, do you want a message displayed in real time. For example the message will be displayed on the form until the four values add up to 100%; as soon as the user makes an entry in one of the fields that causes the total to equal 100% the message will disappear. If the user changes a field again the message will re-appear. Sort of an instruction/warning.
Also, must all four fields have a value not equal to zero, or can they enter 100, 0 ,0, 0? -
What if my battery does not drain fully but drains a few percentages after being 100% charged then completely shuts off?
Want to know how Apple will get 20 hours out of their 60GB iPods batteries ?
They'll fill it with music and fully charge it (of course), then get it to play continuously (probably on random/shuffle or something similar) until the battery dies. They'll have the screen off all that time and they simply won't touch it, in an attempt to get the longest time they can.
ie. it won't simulate real-life use !
Few other things worth mentioning :
- Battery life whilst playing videos is only 3 hours total, so playing any videos at all is going to make quite a difference
- The battery life indicator is only a rough guide - it's not accurate
- Don't get too obsessed with 'calibrating' the battery. Accoring to Apple, this isn't necessary because ""lithium-ion batteries, such as those used in iPod, have none of the memory effects seen in nickel-based rechargeable batteries."
Taken from :
http://docs.info.apple.com/article.html?artnum=61127 -
PM Orders whose total actaul quantity is equal to withdrawl quantity
hello all,
our requirement is we are generating an ALV report to show PM Orders whose total actual quantity is equal to total withdrawn quantity...
i.e it should not display records like below,
RSNUM material BDMNG SHKZG ENMNG
800268591 ***** 3 H 3
800268591 **** 3 S 0
800268591 *** 3 H 0
800268591 ***** 3 S 3
where as the report should show only records like below...
RSNUM material BDMNG SHKZG ENMNG
8000208770 MTE30001 50 H 50
8000208770 MTE30001 50 S 50
8000208770 MTO10020 20 H 20
8000208770 MTO10020 20 S 20.
i.e each material wise i should check this ,
my code is like below
loop at it_resb INTO wa_resb.
if wa_resb-shkzg eq 'H'.
lv_bdmng1 = lv_bdmng1 + wa_resb-bdmng.
lv_enmng1 = lv_enmng1 + wa_resb-enmng.
ELSEIF wa_resb-shkzg eq 'S'.
lv_enmng2 = lv_enmng2 + wa_resb-enmng.
lv_bdmng2 = lv_bdmng2 + wa_resb-bdmng.
endif.
endloop.
if lv_bdmng1 eq lv_bdmng2 AND lv_enmng1 eq lv_enmng2.
if lv_enmng1 ne 0 and lv_enmng2 ne 0.
APPEND LINES OF it_resb to it_resb1.
endif.
endif.
endif.
endloop.clear lv_bdmng1 and lv_bdmng2 in first line inside loop stat.
-
after full charge i can use my macbook only for 2hrs and after 20 min my battery percentage decrease from 100% to 87% and it will happend every 20 min .. pls help me
Hi,
How old is your MBP? how many cycle batter do have ?
I will also recomend to use the software http://www.macupdate.com/app/mac/24141/battery-health-monitor
to monitor battery life.
You should be able to read everything from the software.
Please post results.
Regards,
Mirek -
Total delivery percentage available
Hi,
my requirement is to display all the deliveries for stock shipment report based on a plant and planned shippong date. For each of the deliveries displayed system has to calculate all the quantity of Total delivery percentage available. How I can write the functional spec for this requirement.
thanks and regards
venkat reddyCreate a PO without tick GR-Bsd IV, suppose I have created PO with qty 20 and rate 1 INR and give freight 50 INR (Fixed Amount)..
Then I have done partial GR for qty 5. My freight amount booked as 12.5 INR (for partial GR)
Then I have gone for MIRO..
Here select Goos/Service item + Planned delivery cost.
Enter the PO, you can see two line items appear..
One for goods and one for freight...
Goods will come as qty 5 and amount 5 INR and Freight will come as qty 5 and amount 12.5 INR.
Just change the freight qty and amount as 20 and 50 INR.
Then post the MIRO, you can see your total freight will be booked to vendor..
Now again do GR for qty 2, at that time your freight amount will booked as 5 INR.
Then when you will go for MIRO, you can see only the GR item, Freight qty and amount will not come at the time MIRO..
(Note : I have told the scenario as per my previous screen shot) -
Javascript alert script needed when calculation does not equal 100
I have created a fillable form and have a total box which I've set to calulate the sum of Field1, Field2, Field3 and Field4
which works well.
I would like to add a javascript alert if the total amount does not add to exactly 100 to stop the user submitting the form or moving to next question.
Any help would be greatly appreciated
Thank youHi try67,
I have implemented successfully the following:
event.value = ''; // clear field
// get the values of field 1 and 2 as string
var sField1 = this.getField("field 1").value.toString();
var sField2 = this.getField("field 2").value.toString();
// adjust for a field being 100 and the other is null
if (sField1 == 100 & sField2 == '') sField2 = "0";
if (sField2 == 100 & sField1 == '') sField1 = "0";
// do only if field 1 and 2 are not null
if(sField1 != '' & sField2 != '') {
event.value = Number(sField1) + Number(sField2);
if (event.value != 100) app.alert("Fields 1 and 2 must sum to 100!", 1, 0);
} // end not empty
Just wondered if you can let me know what I need to add to stop the form being submitted(email submit button) if the amount is not 100?
So the same alert appears ("Fields 1 and 2 must sum to 100!")
Currently if the fields exceed or are below 100, then the alert message ("Fields 1 and 2 must sum to 100!")
appears once and you can still tab to next field, or click on next field or submit the pdf.
I was hoping to add validation on submitto be similar to required fields where you are alerted if not filled in and cannot submit until you imputted the correct calculation sum up to 100? -
Hi,
In my ALV report,I have 4 fields
matnr
maktx
menge1
menge2
In the end of report (column of menge1), i want only total
end of menge2 i want the value in percentage as = (Total of menge2 / total of menge1) * 100
I am using Fm : Reuse_alv_grid_display.
Can anybody suggest me how to do.
Thanks
KumarUse the following code in a PBO module (after set for first display) or in an adequate event handler.
data: total type ref to data,
subtotal1 type ref to data.
field-symbols: <total> like gt_sflight,
<subtotal1> like gt_sflight.
call method grid1->get_subtotals
importing
ep_collect00 = total
ep_collect01 = subtotal1.
assign total->* to <total>.
assign subtotal1->* to <subtotal1>.
Then update the <total> internal tables.
Look at [ALV Grid Control (BC-SRV-ALE)|http://help.sap.com/printdocu/core/Print46c/en/data/pdf/BCSRVALV/BCSRVALV.pdf]
NB: If you add a last row to the report, don't forget to disable sort options in the ALV menu.
Regards -
Line total commssion percentage auto calculation
Dear All,
I want to have an option by which when I create a marketing document and in the item row if I create a udf as commission percentage and commision amount, based on the value of line total if I put commission percentage as 20 % of the line total i.e 1000 then in comission amount 200 should come automatically.
How to do this...can any one tell me how this can be done through query or formated search.
Thanks in advance.
Regards,
KawishKawish,
What are the names of the 2 user fields and what are their types?
Let us presume the Comm % field is called CommPer and Commission Total is called CommTotal
SELECT $\[$38.21.Number]*($\[$38.U_CommPer.Number]/100)
Link this to the Commission Total column
Please change the UDF names as per your definition -
Total records in database equals -1?
I have some code, accessing an Access database. As part of development I need to see how many total records there are, so I have the code I took off of bindings in CS 5:
<p align="center">/<%=(Recordset1_first)%>/<%=(Recordset1_last)%>/<%=(Recordset1_total)%></p >
Why would _total always equal -1? The code is otherwise functional but the -1 does not change regardless if I add a record or delete a record?
Curiouser and curiouser…
RossI try changing the cursor type and it had no effect whatsoever I also tried looking for a simple "attach" for this posting and could not find one. I therefore attached the full ASP so you could see what kind of stuff I'm talking about. Could you forward this as appropriate?
Thanks.
Ross
=============================code=========================
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include virtual="/Connections/nextdns.asp" -->
<%
dim MM_nextdns_STRING
MM_nextdns_STRING ="PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & Server.MapPath("Database\ids2.mdb")
Dim MM_editAction
MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString)
End I
' boolean to abort record edit
Dim MM_abortEdit
MM_abortEdit = false
%>
<%
' *** Redirect if username exists
MM_flag = "MM_insert"
If (CStr(Request(MM_flag)) <> "") Then
Dim MM_rsKey
Dim MM_rsKey_cmd
MM_dupKeyRedirect = "/already.asp"
MM_dupKeyUsernameValue = CStr(Request.Form("11"))
Set MM_rsKey_cmd = Server.CreateObject ("ADODB.Command")
MM_rsKey_cmd.ActiveConnection = MM_nextdns_STRING
MM_rsKey_cmd.CommandText = "SELECT id2 FROM login2 WHERE id2 = ?"
MM_rsKey_cmd.Prepared = true
MM_rsKey_cmd.Parameters.Append MM_rsKey_cmd.CreateParameter("param1", 200, 1, 255, MM_dupKeyUsernameValue) ' adVarChar
Set MM_rsKey = MM_rsKey_cmd.Execute
If Not MM_rsKey.EOF Or Not MM_rsKey.BOF Then
' the username was found - can not add the requested username
MM_qsChar = "?"
If (InStr(1, MM_dupKeyRedirect, "?") >= 1) Then MM_qsChar = "&"
MM_dupKeyRedirect = MM_dupKeyRedirect & MM_qsChar & "requsername=" & MM_dupKeyUsernameValue
Response.Redirect(MM_dupKeyRedirect)
End If
MM_rsKey.Close
End If
%>
<%
' IIf implementation
Function MM_IIf(condition, ifTrue, ifFalse)
If condition = "" Then
MM_IIf = ifFalse
Else
MM_IIf = ifTrue
End If
End Function
%>
<%
If (CStr(Request("MM_insert")) = "form3") Then
If (Not MM_abortEdit) Then
' execute the insert
Dim MM_editCmd
Set MM_editCmd = Server.CreateObject ("ADODB.Command")
MM_editCmd.ActiveConnection = MM_nextdns_STRING
MM_editCmd.CommandText = "INSERT INTO login2 (id2, password2, AccessLev) VALUES (?, ?, ?)"
MM_editCmd.Prepared = true
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 202, 1, 255, Request.Form("11")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 202, 1, 255, Request.Form("22")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param3", 5, 1, -1, MM_IIF(Request.Form("accesslev"), Request.Form("accesslev"), null)) ' adDouble
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close
End If
End If
%>
<%
' *** Delete Record: construct a sql delete statement and execute it
If (CStr(Request("MM_delete")) = "form2" And CStr(Request("MM_recordId")) <> "") Then
If (Not MM_abortEdit) Then
' execute the delete
mm_nextdns_string = "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & Server.MapPath("Database\ids2.mdb")
Set MM_editCmd = Server.CreateObject ("ADODB.Command")
MM_editCmd.ActiveConnection = MM_nextdns_STRING
MM_editCmd.CommandText = "DELETE FROM login2 WHERE id2 = ?"
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 200, 1, 255, Request.Form("MM_recordId")) ' adVarChar
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close
End If
End If
%>
<%
If (CStr(Request("MM_insert")) = "form3") Then
If (Not MM_abortEdit) Then
' execute the insert
Set MM_editCmd = Server.CreateObject ("ADODB.Command")
MM_nextdns_string = "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & Server.MapPath("Database\ids2.mdb")
MM_editCmd.ActiveConnection = MM_nextdns_STRING
MM_editCmd.CommandText = "INSERT INTO login2 (id2, password2) VALUES (?, ?)"
MM_editCmd.Prepared = true
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 202, 1, 255, Request.Form("121212")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 202, 1, 255, Request.Form("343434")) ' adVarWChar
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close
' append the query string to the redirect URL
Dim MM_editRedirectUrl0
MM_editRedirectUrl = "inserted.asp"
If (Request.QueryString <> "") Then
If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0) Then
MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
Else
MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
End If
End If
Response.Redirect(MM_editRedirectUrl)
End If
End If
%>
<%
' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables
Dim delit_total
Dim delit_first
Dim delit_last
' set the record count
' set the number of rows displayed on this page
If (delit_numRows < 0) Then
delit_numRows = delit_total
Elseif (delit_numRows = 0) Then
delit_numRows = 1
End If
' set the first and last displayed record
delit_first = 1
delit_last = delit_first + delit_numRows - 1
' if we have the correct record count, check the other stats
If (delit_total <> -1) Then
If (delit_first > delit_total) Then
delit_first = delit_total
End If
If (delit_last > delit_total) Then
delit_last = delit_total
End If
If (delit_numRows > delit_total) Then
delit_numRows = delit_total
End If
End If
%>
<%
' *** Recordset Stats: if we don't know the record count, manually count them
response.write("precount")
If (Recordset1_total = -1) Then
' count the total records by iterating through the recordset
Recordset1_total=0
response.write("incount")
While (Not Recordset1.EOF)
Recordset1_total = Recordset1_total + 1
Recordset1.MoveNext
Wend
' reset the cursor to the beginning
If (Recordset1.CursorType > 0) Then
Recordset1.MoveFirst
Else
Recordset1.Requery
End If
' set the number of rows displayed on this page
If (Recordset1_numRows < 0 Or Recordset1_numRows > Recordset1_total) Then
Recordset1_numRows = Recordset1_total
End If
' set the first and last displayed record
Recordset1_first = 1
Recordset1_last = Recordset1_first + Recordset1_numRows - 1
If (Recordset1_first > Recordset1_total) Then
Recordset1_first = Recordset1_total
End If
If (Recordset1_last > Recordset1_total) Then
Recordset1_last = Recordset1_total
End If
End If
%>
<%
' *** Validate request to log in to this site.
MM_LoginAction = Request.ServerVariables("URL")
If Request.QueryString <> "" Then MM_LoginAction = MM_LoginAction + "?" + Server.HTMLEncode(Request.QueryString)
MM_valUsername = CStr(Request.Form("idid2"))
If MM_valUsername <> "" Then
Dim MM_fldUserAuthorization
Dim MM_redirectLoginSuccess
Dim MM_redirectLoginFailed
Dim MM_loginSQL
Dim MM_rsUser
Dim MM_rsUser_cmd
MM_fldUserAuthorization = ""
MM_redirectLoginSuccess = "file:///C|/Users/Admin/AppData/Local/Temp/{C0C804DA-3712-4265-839B-02EB4947FC25}/g.asp"
MM_redirectLoginFailed = "file:///C|/Users/Admin/AppData/Local/Temp/{C0C804DA-3712-4265-839B-02EB4947FC25}/b.asp"
MM_loginSQL = "SELECT id2, password2"
If MM_fldUserAuthorization <> "" Then MM_loginSQL = MM_loginSQL & "," & MM_fldUserAuthorization
MM_loginSQL = MM_loginSQL & " FROM login2 WHERE id2 = ? AND password2 = ?"
Set MM_rsUser_cmd = Server.CreateObject ("ADODB.Command")
MM_rsUser_cmd.ActiveConnection = MM_nextdns_STRING
MM_rsUser_cmd.CommandText = MM_loginSQL
MM_rsUser_cmd.Parameters.Append MM_rsUser_cmd.CreateParameter("param1", 200, 1, 255, MM_valUsername) ' adVarChar
MM_rsUser_cmd.Parameters.Append MM_rsUser_cmd.CreateParameter("param2", 200, 1, 255, Request.Form("pwd2")) ' adVarChar
MM_rsUser_cmd.Prepared = true
Set MM_rsUser = MM_rsUser_cmd.Execute
If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then
' username and password match - this is a valid user
Session("MM_Username") = MM_valUsername
If (MM_fldUserAuthorization <> "") Then
Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value)
Else
Session("MM_UserAuthorization") = ""
End If
if CStr(Request.QueryString("accessdenied")) <> "" And false Then
MM_redirectLoginSuccess = Request.QueryString("accessdenied")
End If
MM_rsUser.Close
Response.Redirect(MM_redirectLoginSuccess)
End If
MM_rsUser.Close
Response.Redirect(MM_redirectLoginFailed)
End If
%>
<%
' *** Validate request to log in to this site.
MM_LoginAction = Request.ServerVariables("URL")
If Request.QueryString <> "" Then MM_LoginAction = MM_LoginAction + "?" + Server.HTMLEncode(Request.QueryString)
MM_valUsername = CStr(Request.Form("asd1"))
If MM_valUsername <> "" Then
MM_fldUserAuthorization = ""
MM_redirectLoginSuccess = "file:///C|/Users/Admin/AppData/Local/Temp/{C0C804DA-3712-4265-839B-02EB4947FC25}/g.asp"
MM_redirectLoginFailed = "file:///C|/Users/Admin/AppData/Local/Temp/{C0C804DA-3712-4265-839B-02EB4947FC25}/b.asp"
MM_loginSQL = "SELECT id2, password2"
If MM_fldUserAuthorization <> "" Then MM_loginSQL = MM_loginSQL & "," & MM_fldUserAuthorization
MM_loginSQL = MM_loginSQL & " FROM login2 WHERE id2 = ? AND password2 = ?"
Set MM_rsUser_cmd = Server.CreateObject ("ADODB.Command")
MM_rsUser_cmd.ActiveConnection = MM_nextdns_STRING
MM_rsUser_cmd.CommandText = MM_loginSQL
MM_rsUser_cmd.Parameters.Append MM_rsUser_cmd.CreateParameter("param1", 200, 1, 255, MM_valUsername) ' adVarChar
MM_rsUser_cmd.Parameters.Append MM_rsUser_cmd.CreateParameter("param2", 200, 1, 255, Request.Form("asd2")) ' adVarChar
MM_rsUser_cmd.Prepared = true
Set MM_rsUser = MM_rsUser_cmd.Execute
If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then
' username and password match - this is a valid user
Session("MM_Username") = MM_valUsername
If (MM_fldUserAuthorization <> "") Then
Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value)
Else
Session("MM_UserAuthorization") = ""
End If
if CStr(Request.QueryString("accessdenied")) <> "" And false Then
MM_redirectLoginSuccess = Request.QueryString("accessdenied")
End If
MM_rsUser.Close
Response.Redirect(MM_redirectLoginSuccess)
End If
MM_rsUser.Close
Response.Redirect(MM_redirectLoginFailed)
End If
%>
<%
Dim Recordset1
Dim Recordset1_cmd
Dim Recordset1_numRows
Set Recordset1_cmd = Server.CreateObject ("ADODB.Command")
Recordset1_cmd.ActiveConnection = MM_nextdns_STRING
Recordset1_cmd.CommandText = "SELECT * FROM login2"
Recordset1_cmd.Prepared = true
Set Recordset1 = Recordset1_cmd.Execute
Recordset1_numRows = 0
%>
<!--#include virtual="/includes/adovbs.inc" -->
<%
Repeat1__numRows = 20
Repeat1__index = 0
Recordset1_numRows = Recordset1_numRows + Repeat1__numRows
%>
<%
' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables
Dim Recordset1_total
Dim Recordset1_first
Dim Recordset1_last
' set the record count
Recordset1_total = Recordset1.RecordCount
' set the number of rows displayed on this page
If (Recordset1_numRows < 0) Then
Recordset1_numRows = Recordset1_total
Elseif (Recordset1_numRows = 0) Then
Recordset1_numRows = 1
End If
' set the first and last displayed record
Recordset1_first = 1
Recordset1_last = Recordset1_first + Recordset1_numRows - 1
' if we have the correct record count, check the other stats
If (Recordset1_total <> -1) Then
If (Recordset1_first > Recordset1_total) Then
Recordset1_first = Recordset1_total
End If
If (Recordset1_last > Recordset1_total) Then
Recordset1_last = Recordset1_total
End If
If (Recordset1_numRows > Recordset1_total) Then
Recordset1_numRows = Recordset1_total
End If
End If
%>
<%
' *** Validate request to log in to this site.
MM_LoginAction = Request.ServerVariables("URL")
If Request.QueryString<>"" Then MM_LoginAction = MM_LoginAction + "?" + Request.QueryString
MM_valUsername=CStr(Request.Form("idid2"))
If MM_valUsername <> "" Then
MM_fldDynamicRedirect=""
MM_fldUserAuthorization="AccessLev"
MM_redirectLoginSuccessDynamic="file:///C|/Users/Admin/AppData/Local/Temp/{C0C804DA-3712- 4265-839B-02EB4947FC25}/g.asp"
MM_redirectLoginFailed="file:///C|/Users/Admin/AppData/Local/Temp/{C0C804DA-3712-4265-839 B-02EB4947FC25}/b.asp"
MM_flag="ADODB.Recordset"
set MM_rsUser = Server.CreateObject(MM_flag)
MM_rsUser.ActiveConnection = MM_nextdns_STRING
MM_rsUser.Source = "SELECT id2, password2"
If MM_fldDynamicRedirect <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldDynamicRedirect
If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization
MM_rsUser.Source = MM_rsUser.Source & " FROM login2 WHERE id2='" & Replace(MM_valUsername,"'","''") &"' AND password2='" & Replace(Request.Form("pwd2"),"'","''") & "'"
MM_rsUser.CursorType = 0
MM_rsUser.CursorLocation = 2
MM_rsUser.LockType = 3
MM_rsUser.Open
If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then
' username and password match - this is a valid user
Session("MM_Username") = MM_valUsername
If (MM_fldUserAuthorization <> "") Then
Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value)
ElseIf (MM_fldDynamicRedirect <> "") Then
MM_redirectLoginSuccessDynamic = CStr(MM_rsUser.Fields.Item(MM_fldDynamicRedirect).Value)
Else
Session("MM_UserAuthorization") = ""
End If
if CStr(Request.QueryString("accessdenied")) <> "" And false Then
MM_redirectLoginSuccessDynamic = Request.QueryString("accessdenied")
End If
MM_rsUser.Close
Response.Redirect(MM_redirectLoginSuccessDynamic)
End If
MM_rsUser.Close
Response.Redirect(MM_redirectLoginFailed)
End If
%>
<!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">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Untitled Document</title>
<style type="text/css">
body {
background-image: url(/graphics/spackle.gif);
.ctable {
border-top-style: solid;
border-right-style: solid;
border-bottom-style: solid;
border-left-style: solid;
</style>
<script src="/SpryAssets/SpryValidationTextField.js" type="text/javascript"></script>
<link href="/SpryAssets/SpryValidationTextField.css" rel="stylesheet" type="text/css" />
</head>
<body>
<table width="160" border="1">
<tr>
<td width="106"><p><img src="/graphics/coed1.jpg" width="42" height="53" alt="coed1" /></p>
<form target="paypal" action="https://www.paypal.com/cgi-bin/webscr" method="post">
<input type="hidden" name="cmd" value="_cart" />
<input type="hidden" name="add" value="1" />
<input type="hidden" name="bn" value="webassist.dreamweaver.4_5_0" />
<input type="hidden" name="business" value="[email protected]" />
<input type="hidden" name="item_name" value="aaaa" />
<input type="hidden" name="item_number" value="aaaa" />
<input type="hidden" name="amount" value=".12" />
<input type="hidden" name="currency_code" value="USD" />
<input type="hidden" name="cancel_return" value="http://heritage.site88.net/badorder.asp" />
<input type="hidden" name="receiver_email" value="[email protected]" />
<input type="hidden" name="mrb" value="R-3WH47588B4505740X" />
<input type="hidden" name="pal" value="ANNSXSLJLYR2A" />
<input type="hidden" name="no_shipping" value="0" />
<input type="hidden" name="no_note" value="0" />
<input type="image" name="submit" src="http://images.paypal.com/images/sc-but-03.gif" border="0" alt="Make payments with PayPal - it's fast, free and secure!" />
</form></td>
<td width="16"> </td>
<td width="16"> </td>
</tr>
<tr>
<td> </td>
<td><img src="/graphics/coed1.jpg" width="14" height="18" alt="coed1" /></td>
<td> </td>
</tr>
<tr>
<td> </td>
<td> </td>
<td><img src="/graphics/coed1.jpg" width="20" height="31" alt="coed1" /></td>
</tr>
</table>
<form target="paypal" action="https://www.paypal.com/cgi-bin/webscr" method="post">
<div align="center">
<input type="hidden" name="cmd" value="_cart" />
<input type="hidden" name="display" value="1" />
<input type="hidden" name="bn" value="webassist.dreamweaver.4_5_0" />
<input type="hidden" name="business" value="[email protected]" />
<input type="hidden" name="receiver_email" value="[email protected]" />
<input type="hidden" name="mrb" value="R-3WH47588B4505740X" />
<input type="hidden" name="pal" value="ANNSXSLJLYR2A" />
<input type="image" name="submit" src="http://images.paypal.com/images/view_cart_02.gif" border="0" alt="Make payments with PayPal - it's fast, free and secure!" />
</div>
</form>
<p> </p>
<table width="492" border="1" cellspacing="0" cellpadding="0">
<tr>
<td width="63"><label for="recnum6">Recnum</label></td>
<td width="101"> ID</td>
<td width="154">Password </td>
<td width="164">AccessLev</td>
</tr>
</table>
<%
While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF))
%>
<td><input name="recnum" type="text" id="recnum" value="<%=(Recordset1.Fields.Item("recnum").Value)%>" size="10" /></td>
<td><input name="idid" type="text" id="idid" value="<%=(Recordset1.Fields.Item("id2").Value)%>" size="10" /></td>
<td><input name="pwd" type="text" id="pwd" value="<%=(Recordset1.Fields.Item("password2").Value)%>" /></td>
<td><input name="accesslev" type="text" id="accesslev" value="<%=(Recordset1.Fields.Item("AccessLev").Value)%>" /></td>
<label for="accesslev"></label>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Recordset1.MoveNext()
response.write("<br>")
Wend
%>
<p align="center">/<%=(Recordset1_first)%>/<%=(Recordset1_last)%>/<%=(Recordset1_total)%>/</ p>
<p align="center"> </p>
<form id="form4" name="form4" method="post" action="file:///C|/Users/Admin/AppData/Local/Temp/{C0C804DA-3712-4265-839B-02EB4947FC25}/ inscust.asp">
<div align="center">
<input type="submit" name="register" id="register" value="Register as New User" />
</div>
</form>
<p align="center">-or- </p>
<form id="form1" name="form1" method="POST" action="<%=MM_LoginAction%>">
<label for="idid2"> ID:</label>
<input type="text" name="idid2" id="idid2" />
<label for="pwd2">Pwd:</label>
<input type="password" name="pwd2" id="pwd2" />
<input type="submit" name="login" id="login" value="Login" />
<a href="file:///C|/Users/Admin/AppData/Local/Temp/{C0C804DA-3712-4265-839B-02EB4947FC25}/re gister.asp">
</a>
</form>
<form action="<%=MM_editAction%>" method="POST" id="form3" name="form3">
<label for="11">IdId:</label>
<input type="text" name="11" id="11" />
<label for="22">Password2:</label>
<input type="password" name="22" id="22" />
<label for="accesslev">AL:</label>
<input name="accesslev" type="text" id="accesslev" value="2" size="1" maxlength="1" />
<input type="submit" name="insins" id="insins" value="Insert" />
<input type="hidden" name="MM_insert" value="form3" />
</p>
</form>
<p></p>
<p></p>
<form ACTION="file:///C|/Users/Admin/AppData/Local/Temp/{C0C804DA-3712-4265-839B-02EB4947FC25}/ dodel.asp" METHOD="POST" id="form2" name="form2">
<label for="delrec">Recnum:</label>
<input type="text" name="delrec" id="delrec" />
<input type="submit" name="deleir" id="deleir" value="Delete" />
</form>
<p></p>
<p>
<script type="text/javascript">
function zappaypalcookies()
alert("called");
alert(document.cookie.length);
alert(document.cookie);
document.cookie="fred=sam";
alert(document.cookie);
</script></p>
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%> -
Hi,
We want to prepare one report with tax code and tax percentage.In one tax code different condiiton exists.In such case is their any table in which we can get total tax.
For example Country code BE tax code DA input tax is 10% (condition type MWVS) and non.ded.input tax 10% (condition type MWVN).In such case in which table can we get total tax against tax code DA.Their are different condition types for different tax codes so cannot generalised this.
Thanks & Regards
VinayNo reply hence closing this thread.
Vinay
Maybe you are looking for
-
Webpages open in browser, not the stageWebView?
Hi, I have an app that I'm just doing some minor updates on after having successfully published it to both Google and Apple's app stores (http://flashgamer.com/apps/ ). The app consists of several lists and UI-elements done in Flash and will eventual
-
Customer creatio (master data mgt.)
Hi guys, Once we create an customer at our loctaion the same must be registerd in the master data.for that we have a Program(BDC) that is to be executed on daily basis in background.But this program gives error while executing in background.While exe
-
I can not remember the passcode for my sons ipod and I can't reset it or anything - any ideas?
Does anyone know how to reset this, I know it shouldn't be easy but I can't do anything with it, I have backed it up today.
-
"Flash Player Update Service has stopped working and has closed."
First I'm using Chrome(up to date) on Vista 64. Have scanned for viruses and nothing was found. I've been getting this persistent error that won't go away that just started happening a few days ago. I haven't installed anything recently. This happens
-
Hi I designed a space invader game that can be played with the keyboard. Now I want to be able to play the same game using the D-pad of wiimote. I understand I need to import some classes of the wiiflash to achieve my aim. I have downloaded the wiifl