Help with Visual Basic Code
I have an ol QBasic code im working with and one of the lines in the code is: public Declare Function Init_DA_Brds% Lib "nidaq32.dll" (BYVAL slot%, SEG brdcode%).....i changed some of the line to be used in VB 6.0....any idea of what the SEG is?
Parameters look like AddressOf = a far pointer to some data/function.
"hcolas" wrote in message
news:[email protected]..
> I have an ol QBasic code im working with and one of the lines in the
> code is: public Declare Function Init_DA_Brds% Lib "nidaq32.dll"
> (BYVAL slot%, SEG brdcode%).....i changed some of the line to be used
> in VB 6.0....any idea of what the SEG is?
Similar Messages
-
I am in an intro to programming course, and I am writing a console on Visual Basic 2013. My problem with Visual Basic right now is that I cannot get the formula to work. All of my inputted values end up being 0's. Am I using incorrect parameters,
am I misunderstanding how to use arguments; am I not coding correctly? The scenario for my problem is:
Areas of Rectangles: The area of a rectangle is the rectangle’s length times its width. Design a program that asks for the length and width of two rectangles. The program should tell the user which rectangle has the
greater area, or if the areas are the same.
//My code is
Module Module1
Sub Main()
Dim LENGTH As Double = 0
Dim WIDTH As double = 0
Dim AREA_1 As Double
Dim AREA_2 As Double
Dim RECTANGLE As String = " "
area1(LENGTH, WIDTH)
areaCalc1(AREA_1, LENGTH, WIDTH)
area2(LENGTH, WIDTH)
areaCalc2(AREA_2, LENGTH, WIDTH)
decision(AREA_1, AREA_2, RECTANGLE)
displayDec(RECTANGLE)
Console.WriteLine("Press any key to exit...")
Console.Read()
End Sub
Sub area1(ByVal LENGTH, WIDTH)
Console.WriteLine("Please input the following for your first rectangle:")
Console.Write("Length: ")
LENGTH = Console.ReadLine()
Console.Write("Width: ")
WIDTH = Console.ReadLine()
End Sub
Sub areaCalc1(ByVal AREA_1, ByRef LENGTH, WIDTH)
AREA_1 = LENGTH * WIDTH
Console.WriteLine("This is the area for rectangle 1: " & AREA_1)
End Sub
Sub area2(ByVal LENGTH, WIDTH)
Console.WriteLine("Please input the following for your second rectangle: ")
Console.Write("Length: ")
LENGTH = Console.ReadLine()
Console.Write("Width: ")
WIDTH = Console.ReadLine()
End Sub
Sub areaCalc2(ByVal AREA_2, ByRef LENGTH, WIDTH)
AREA_2 = LENGTH * WIDTH
Console.WriteLine("This is the area for rectangle 2: " & AREA_2)
End Sub
Sub decision(ByRef AREA_1, AREA_2, ByVal RECTANGLE)
If AREA_1 < AREA_2 Then
RECTANGLE = "rectangle 2"
Else
RECTANGLE = "rectangle 1"
End If
End Sub
Sub displayDec(ByRef RECTANGLE)
Console.WriteLine("The rectangle with the greater Area is " & RECTANGLE)
End Sub
End ModuleHi,
If you are just beginning to program i highly recommend setting the following options in the Visual Studio menu (Tools/Options). Open the Options window and go to the (Projects and Solutions) and click on (VB Defaults). Now set the options as follows.
Option Strict - On
Option Explicit - On
Option Infer - Off
And probably one of the most important things to do is learning to Debug your code. That will save you hours of headaches when you get unexpected results in your applications. You will know how to track it down and find where in the code your results
are being thrown off. There are quite a few Debugging tutorials on the internet. Here are a few decent ones.
Debugging Express
Breakpoints and Debugging Tools
If you say it can`t be done then i`ll try it -
Strange axbridge issue with Visual Basic
I started having a very strange problem with my axbridge wrapped bean around the time I switched to JDK 1.5. Problem is, I can't seem to get rid of it by rolling back to earlier versions.
Here's what happens: I create a very simple non-visual bean:
package pack;
public class Bean1 {
public Bean1()
System.out.println("Constructor");
public boolean someMethod ()
System.out.println("1");
return false;
I then create Bean1.dll using the packager.exe provided with the JDK, and register it as part of the packaging process.
Then, I go into Visual Basic 6 and enter this code:
Private Sub Command1_Click()
Dim xx As Object
xx = CreateObject("Bean1.Bean.1")
End Sub
On the CreateObject call, Visual Basic gives me the error "Object variable or With block variable not set", which isn't helpful.
In the Java console with level 5 tracing turned on, I see this:
basic: Referencing classloader: sun.plugin.ClassLoaderInfo@17ba38f, refcount=1
basic: Registered modality listener
basic: Added progress listener: sun.plugin.util.GrayBoxPainter@9ffe3f
basic: Loading applet ...
basic: Initializing applet ...
basic: Starting applet ...
basic: Stopping applet ...
basic: Removed progress listener: sun.plugin.util.GrayBoxPainter@9ffe3f
basic: Finding information ...
basic: Releasing classloader: sun.plugin.ClassLoaderInfo@17ba38f, refcount=0
basic: Caching classloader: sun.plugin.ClassLoaderInfo@17ba38f
basic: Current classloader cache size: 1
basic: Done ...
basic: Joining applet thread ...
basic: Destroying applet ...
basic: Disposing applet ...
basic: Quiting applet ...
java.lang.NullPointerException
at sun.plugin.AppletViewer.loadJarFiles(Unknown Source)
at sun.applet.AppletPanel.runLoader(Unknown Source)
at sun.applet.AppletPanel.run(Unknown Source)
at java.lang.Thread.run(Unknown Source)
basic: Exception: java.lang.NullPointerException
java.lang.NullPointerException
at sun.plugin.AppletViewer.loadJarFiles(Unknown Source)
at sun.applet.AppletPanel.runLoader(Unknown Source)
at sun.applet.AppletPanel.run(Unknown Source)
at java.lang.Thread.run(Unknown Source)
basic: Modality pushed
basic: Joined applet thread ...
basic: Unregistered modality listener
The only thing I've found in the bug database that seems even remotely related to this is bug 6391104, which is related to plugins somehow.
I do not understand why applets are involved in this at all.
When I try to instantiate the COM object from a C++ program, everything works fine. My problem only seems to occur with Visual Basic (version 6, not .NET).
This problem seems so fundamental that it seems impossible that no one else has run into it, but there 's nothing about it on any forum or buglist that I've seen. So, I figured there must be something very obscure wrong with my setup. However, I tried installing this on a brand new machine using my trivial case, and I still have the problem. I'm really at my wits' end. Anyone have any ideas?You definately want to go to CR 2008. I'd recommed that you call 866-681-3435 and ask about the possibility of getting a 30 day eval.
Ludek
Follow us on Twitter http://twitter.com/SAPCRNetSup
Got Enhancement ideas? Try the [SAP Idea Place|https://ideas.sap.com/community/products_and_solutions/crystalreports] -
Visual Basic code genration for calling BAPI_SALESORDER_SIMULATE
Hi gurus,
Someone asked me how to generate the visual basic code for calling BAPI_SALESORDER_SIMULATE via RFC. I thought this function was available in SE37 but I can't find it...
Can someone help me ?
Thank you
Jean-Michel** プログラムID       : ZBAPI_SALESORDER_CREATE *
** プログラム名称      : Upload Sales Order Creation *
** 処理概要         : *
** 作成者           : Karthik.P *
** 作成日           : 2006/08/10 *
REPORT ZBAPI_SALESORDER_CREATE LINE-SIZE 132 MESSAGE-ID ZMMBAPI .
Internal table definition *
****<<<<<Communication Fields: Sales and Distribution Document Header>>>>>>>>
DATA: GT_ORDER_HEADER_IN LIKE BAPISDHD1,
*******<<<Checkbox Fields for Sales and Distribution Document Header>>>>>>>>>
GT_ORDER_HEADER_INX LIKE BAPISDHD1X,
*****<<<<<Return Parameter>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
GT_RETURN LIKE BAPIRET2 OCCURS 0 WITH HEADER LINE, " Return Messages
*********<<<Communication Fields: Sales and Distribution Document Item<>>>>>
GT_ORDER_ITEMS_IN LIKE BAPISDITM OCCURS 0 WITH HEADER LINE, " Item Data
*********<<<Communication Fields: Sales and Distribution Document Item>>>>>>>
GT_ORDER_ITEMS_INX LIKE BAPISDITMX OCCURS 0 WITH HEADER LINE, "Item Data Checkbox
*********<<<Communication Fields: Sales and Distribution Document Item>>>>>>>
GT_SALESDOCUMENT LIKE BAPIVBELN-VBELN , "Number of Generated Document
*********<<<Communications Fields: SD Document Partner: WWW>>>>>>>>>>>>>>>>>>
GT_ORDER_PARTNERS LIKE BAPIPARNR OCCURS 0 WITH HEADER LINE, "Document Partner
********<<<<Communications Fields: SD Document Partner: WWW>>>>>>>>>>>>>>>>>>
GT_ORDER_SCHEDULES_IN LIKE BAPISCHDL OCCURS 0 WITH HEADER LINE, "Schedule Line Data
****<<<<<<<<Checkbox List for Maintaining Sales Document Schedule Line>>>>>>>>
GT_ORDER_SCHEDULES_INX LIKE BAPISCHDLX OCCURS 0 WITH HEADER LINE, " Checkbox Schedule Line Data
*******Communication Fields for Maintaining Conditions in the Order
GT_ORDER_CONDITIONS_IN LIKE BAPICOND OCCURS 0 WITH HEADER LINE,
******Communication Fields for Maintaining Conditions in the Order
GT_ORDER_CONDITIONS_INX LIKE BAPICONDX OCCURS 0 WITH HEADER LINE.
Data definition *
DATA: BEGIN OF GT_FT_SALES OCCURS 0,
DOC_TYPE(4) , "Sales Document Type
SALES_ORG(4) , "Sales Organization
DISTR_CHAN(2) , "Distribution Channel
DIVISION(2) , "DIVISION(2)
SALES_DIST(6) , "Sales district
INCOTERMS1(3) , "Incoterms (part 1)
INCOTERMS2(28) , "Incoterms (part 2)
PMNTTRMS(4) , "Terms of payment key
PRICE_DATE(8) , "Date for pricing and exchange rate
PURCH_NO_C(35) , "Customer purchase order number
PURCH_NO_S(35) , "Ship-to Party's Purchase Order Number
EXCHG_RATE(8) , "Directly quoted exchange rate for pricing and statistics
CURRENCY(5) , "SD document currency
MATERIAL(18), "MATERIAL
TARGET_QTY(13) , "Target quantity in sales units
ITEM_CATEG(4) , "Sales document item category
MATL_GROUP(8) , "Material Group
PURCH_NO_C1(35), "Customer purchase order number
SALES_DIST1(6) , "Sales district
INCOTERMS11(3) , "Incoterms (part 1)
INCOTERMS21(28), "Incoterms (part 2)
PMNTTRMS1(4) , "Terms of payment key
EXCHG_RATE1(8) , "Directly quoted exchange rate for pricing and statistics
PRICE_DATE1(8) , "Date for pricing and exchange rate
TRG_QTY_NO(5) , "Factor for converting sales units to base units (target qty)
DIVISION1(2) , "DIVISION1
SALQTYNUM(5) , "Numerator (factor) for conversion of sales quantity into SKU
GROSS_WGHT(3) , "Gross Weight of the Item
NET_WEIGHT(15) , "Net Weight of the Item
UNTOF_WGHT(3) ,"Weight Unit
PARTN_ROLE(2) ,"Partner function
PARTN_NUMB(10) ,"Customer Number 1
********<<<<Communications Fields: SD Document Partner: WWW>>>>>>>>>>>>>>>>>>
ITM_NUMBER(6) ,"Item number of the SD document
REQ_QTY(8) , "Schedule line date
DLV_DATE(8) , "Schedule line date
MS_DATE(8) , "Material availability date
LOAD_DATE(8) , "Loading time (local time with reference to a shipping point)
GI_DATE(8), "Time of goods issue (local DATE, with reference to a plant)
TP_DATE(8) , "Transportation planning -time (local w/ref. to shipping pnt)
ITM_NUMBER2(6) , "Condition item number
END OF GT_FT_SALES,
MSG(240) TYPE C, " Return Message
E_REC(8) TYPE C, " Error Records Counter
REC_NO(8) TYPE C, " Records Number Indicator
S_REC(8) TYPE C, " Successful Records Counter
T_REC(8) TYPE C. " Total Records Counter
selection block for EXCEL UPLOAD FILE>>>>>>>>>>>>>>>>>>>>>>>>
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-000.
PARAMETERS FILE TYPE IBIPPARMS-PATH OBLIGATORY.
SELECTION-SCREEN END OF BLOCK B1.
*<<<<AT SELECTION-SCREEN ON VALUE-REQUEST FOR FILE .>>>>>>>>>>>>
AT SELECTION-SCREEN ON VALUE-REQUEST FOR FILE .
CALL FUNCTION 'F4_FILENAME'
EXPORTING
PROGRAM_NAME = SYST-CPROG
DYNPRO_NUMBER = SYST-DYNNR
IMPORTING
FILE_NAME = FILE.
**<<<<<<<<<<<<<<<<<START-OF-SELECTION.>>>>>>>>>>>>>>>>>>>>>>>>>>>
START-OF-SELECTION.
CALL FUNCTION 'WS_UPLOAD' "#EC *
EXPORTING
FILENAME = FILE
FILETYPE = 'DAT'
TABLES
DATA_TAB = GT_FT_SALES
EXCEPTIONS
CONVERSION_ERROR = 1
FILE_OPEN_ERROR = 2
FILE_READ_ERROR = 3
INVALID_TYPE = 4
NO_BATCH = 5
UNKNOWN_ERROR = 6
INVALID_TABLE_WIDTH = 7
GUI_REFUSE_FILETRANSFER = 8
CUSTOMER_ERROR = 9
NO_AUTHORITY = 10
OTHERS = 11.
IF SY-SUBRC <> 0 .
MESSAGE E000.
ENDIF.
SKIP 3.
FORMAT COLOR COL_HEADING INVERSE ON.
WRITE 40 TEXT-001.
FORMAT COLOR COL_HEADING INVERSE OFF.
SKIP 1.
FORMAT COLOR COL_NEGATIVE INVERSE ON.
WRITE :/ TEXT-002, 13 SY-MANDT , 104 TEXT-003, 111 SY-UNAME,
/ TEXT-004, 13 SY-DATUM , 104 TEXT-005, 111 SY-UZEIT.
FORMAT COLOR COL_NEGATIVE INVERSE OFF.
SKIP 3.
LOOP AT GT_FT_SALES.
PERFORM SLALE_UPLOAD_DATA.
ENDLOOP.
T_REC = E_REC + S_REC.
SKIP 3.
FORMAT COLOR COL_TOTAL INVERSE ON.
WRITE: /38 TEXT-007, T_REC.
FORMAT COLOR COL_TOTAL INVERSE OFF.
FORMAT COLOR COL_NEGATIVE INVERSE ON.
WRITE: /38 TEXT-008, E_REC.
FORMAT COLOR COL_NEGATIVE INVERSE OFF.
FORMAT COLOR COL_TOTAL INVERSE ON.
WRITE: /38 TEXT-009, S_REC.
FORMAT COLOR COL_TOTAL INVERSE OFF.
*& Form SLALE_UPLOAD_DATA
text
--> p1 text
<-- p2 text
FORM SLALE_UPLOAD_DATA .
*******<<<<<<<<<<Communication Fields: Sales and Distribution Document Header>>>>>>
GT_ORDER_HEADER_IN-DOC_TYPE = 'TA'.
GT_ORDER_HEADER_IN-SALES_ORG = GT_FT_SALES-SALES_ORG . "'0001'
GT_ORDER_HEADER_IN-DISTR_CHAN = GT_FT_SALES-DISTR_CHAN. "'01'
GT_ORDER_HEADER_IN-DIVISION = GT_FT_SALES-DIVISION. " '01'
GT_ORDER_HEADER_IN-SALES_DIST = GT_FT_SALES-SALES_DIST ."'000001'
GT_ORDER_HEADER_IN-INCOTERMS1 = GT_FT_SALES-INCOTERMS1. "'CFR'
GT_ORDER_HEADER_IN-INCOTERMS2 = GT_FT_SALES-INCOTERMS2 . "'HAMBURG'
GT_ORDER_HEADER_IN-PMNTTRMS = GT_FT_SALES-PMNTTRMS . "'0001'
GT_ORDER_HEADER_IN-PRICE_DATE = GT_FT_SALES-PRICE_DATE ."'20060818'
GT_ORDER_HEADER_IN-PURCH_NO_C = '32'.
GT_ORDER_HEADER_IN-PURCH_NO_S = '32'.
GT_ORDER_HEADER_IN-EXCHG_RATE = GT_FT_SALES-EXCHG_RATE ."'1.00000'
GT_ORDER_HEADER_IN-CURRENCY = GT_FT_SALES-CURRENCY . " 'EUR'
********<<<Checkbox Fields for Sales and Distribution Document Header>>>>>>>>>
GT_ORDER_HEADER_INX-DOC_TYPE = 'X'.
GT_ORDER_HEADER_INX-SALES_ORG = 'X'.
GT_ORDER_HEADER_INX-DISTR_CHAN = 'X'.
GT_ORDER_HEADER_INX-DIVISION = 'X'.
GT_ORDER_HEADER_INX-SALES_DIST = 'X'.
GT_ORDER_HEADER_INX-INCOTERMS1 = 'X'.
GT_ORDER_HEADER_INX-INCOTERMS2 = 'X'.
GT_ORDER_HEADER_INX-PMNTTRMS = 'X'.
GT_ORDER_HEADER_INX-PRICE_DATE = 'X'.
GT_ORDER_HEADER_INX-PURCH_NO_C = 'X'.
GT_ORDER_HEADER_INX-PURCH_NO_S = 'X'.
GT_ORDER_HEADER_INX-EXCHG_RATE = 'X'.
GT_ORDER_HEADER_INX-CURRENCY = 'X'.
*****<<<<<<Communication Fields: Sales and Distribution Document Item>>>
GT_ORDER_ITEMS_IN-ITM_NUMBER = '000010'.
GT_ORDER_ITEMS_IN-MATERIAL = GT_FT_SALES-MATERIAL .
GT_ORDER_ITEMS_IN-PO_ITM_NO = '32'.
GT_ORDER_ITEMS_IN-CUST_MAT22 = 'AGNI-IV'.
GT_ORDER_ITEMS_IN-BILL_DATE = '20060808'.
GT_ORDER_ITEMS_IN-PLANT = '0001'.
*GT_ORDER_ITEMS_IN-STORE_LOC = '0001'.
GT_ORDER_ITEMS_IN-TARGET_QTY = GT_FT_SALES-TARGET_QTY . "'1000'
GT_ORDER_ITEMS_IN-ITEM_CATEG = GT_FT_SALES-ITEM_CATEG . "'TAN'
GT_ORDER_ITEMS_IN-MATL_GROUP = GT_FT_SALES-MATL_GROUP . "'01'
GT_ORDER_ITEMS_IN-PURCH_NO_C = GT_FT_SALES-PURCH_NO_C . "'32'
GT_ORDER_ITEMS_IN-SALES_DIST = GT_FT_SALES-SALES_DIST . "'000001'
GT_ORDER_ITEMS_IN-INCOTERMS1 = GT_FT_SALES-INCOTERMS1 . "'CFR'
GT_ORDER_ITEMS_IN-INCOTERMS2 = GT_FT_SALES-INCOTERMS2 . "'HAMBURG'
GT_ORDER_ITEMS_IN-PMNTTRMS = GT_FT_SALES-PMNTTRMS . "'0001'.
GT_ORDER_ITEMS_IN-EXCHG_RATE = GT_FT_SALES-EXCHG_RATE . "'1.00000'
GT_ORDER_ITEMS_IN-PRICE_DATE = GT_FT_SALES-PRICE_DATE . "'20060808'
*GT_ORDER_ITEMS_IN-SALES_UNIT = 'DZ'.
GT_ORDER_ITEMS_IN-TRG_QTY_NO = GT_FT_SALES-TRG_QTY_NO . "'23'
GT_ORDER_ITEMS_IN-DIVISION = GT_FT_SALES-DIVISION . "'01'
GT_ORDER_ITEMS_IN-SALQTYNUM = GT_FT_SALES-SALQTYNUM . "'32'
GT_ORDER_ITEMS_IN-GROSS_WGHT = GT_FT_SALES-GROSS_WGHT. " ' 25272000'
GT_ORDER_ITEMS_IN-NET_WEIGHT = GT_FT_SALES-NET_WEIGHT. "'24464000'
GT_ORDER_ITEMS_IN-UNTOF_WGHT = GT_FT_SALES-UNTOF_WGHT . " 'KG'
*GT_ORDER_ITEMS_IN-CURRENCY = 'EUR'.
APPEND GT_ORDER_ITEMS_IN.
****<<<<<<Communication Fields: Sales and Distribution Document Item>>>
GT_ORDER_ITEMS_INX-ITM_NUMBER = '000010'.
GT_ORDER_ITEMS_INX-MATERIAL = 'X'.
*GT_ORDER_ITEMS_INX-PO_ITM_NO = 'X'.
GT_ORDER_ITEMS_INX-CUST_MAT22 = 'X'.
GT_ORDER_ITEMS_INX-BILL_DATE = 'X'.
GT_ORDER_ITEMS_INX-PLANT = 'X'.
*GT_ORDER_ITEMS_INX-STORE_LOC = 'X'.
GT_ORDER_ITEMS_INX-TARGET_QTY = 'X'.
GT_ORDER_ITEMS_INX-ITEM_CATEG = 'X'.
GT_ORDER_ITEMS_INX-MATL_GROUP = 'X'.
GT_ORDER_ITEMS_INX-PURCH_NO_C = 'X'.
GT_ORDER_ITEMS_INX-SALES_DIST = 'X'.
GT_ORDER_ITEMS_INX-INCOTERMS1 = 'X'.
GT_ORDER_ITEMS_INX-INCOTERMS2 = 'X'.
GT_ORDER_ITEMS_INX-PMNTTRMS = 'X'.
GT_ORDER_ITEMS_INX-EXCHG_RATE = 'X'.
GT_ORDER_ITEMS_INX-PRICE_DATE = 'X'.
*GT_ORDER_ITEMS_INX-SALES_UNIT = 'X'.
GT_ORDER_ITEMS_INX-TRG_QTY_NO = 'X'.
GT_ORDER_ITEMS_INX-DIVISION = 'X'.
GT_ORDER_ITEMS_INX-SALQTYNUM = 'X'.
GT_ORDER_ITEMS_INX-GROSS_WGHT = 'X'.
GT_ORDER_ITEMS_INX-NET_WEIGHT = 'X'.
GT_ORDER_ITEMS_INX-UNTOF_WGHT = 'X'.
*GT_ORDER_ITEMS_IN-CURRENCY = 'x'.
APPEND GT_ORDER_ITEMS_INX.
*****<<<<<<Communications Fields: SD Document Partner: WWW
GT_ORDER_PARTNERS-PARTN_ROLE = 'WE'.
GT_ORDER_PARTNERS-PARTN_NUMB = '0000000057'.
***GT_ORDER_PARTNERS-ITM_NUMBER = GT_FT_SALES-ITM_NUMBER . " '000010'.
APPEND GT_ORDER_PARTNERS.
*********<<<<Communications Fields: SD Document Partner: WWW>>>>>>>>>>>>>>>>>>
GT_ORDER_SCHEDULES_IN-ITM_NUMBER = GT_FT_SALES-ITM_NUMBER." '000010'
GT_ORDER_SCHEDULES_IN-REQ_QTY = GT_FT_SALES-REQ_QTY . "'234'
GT_ORDER_SCHEDULES_IN-DLV_DATE = GT_FT_SALES-DLV_DATE ." '20060824'.
GT_ORDER_SCHEDULES_IN-MS_DATE = GT_FT_SALES-MS_DATE . "'20060808'
GT_ORDER_SCHEDULES_IN-LOAD_DATE = GT_FT_SALES-LOAD_DATE. " '20060822'
GT_ORDER_SCHEDULES_IN-GI_DATE = GT_FT_SALES-GI_DATE . " '20060823'
GT_ORDER_SCHEDULES_IN-TP_DATE = GT_FT_SALES-TP_DATE . "'20060821'
APPEND gt_ORDER_SCHEDULES_IN.
*********<<<<Communications Fields: SD Document Partner: WWW FLAG>>>>>>>>>>>>>>>>>>
GT_ORDER_SCHEDULES_INX-ITM_NUMBER = '000010'.
GT_ORDER_SCHEDULES_INX-REQ_QTY = 'X'.
GT_ORDER_SCHEDULES_INX-DLV_DATE = 'X'.
GT_ORDER_SCHEDULES_INX-MS_DATE = 'X'.
GT_ORDER_SCHEDULES_INX-LOAD_DATE = 'X'.
GT_ORDER_SCHEDULES_INX-GI_DATE = 'X'.
GT_ORDER_SCHEDULES_INX-DLV_DATE = 'X'.
APPEND gt_ORDER_SCHEDULES_INX.
********Communication Fields for Maintaining Conditions in the Order
GT_ORDER_CONDITIONS_IN-ITM_NUMBER = GT_FT_SALES-ITM_NUMBER ." '000010'
APPEND GT_ORDER_CONDITIONS_IN.
***Communication Fields for Maintaining Conditions in the Order
GT_ORDER_CONDITIONS_INX-ITM_NUMBER = '000010'.
APPEND GT_ORDER_CONDITIONS_INX.
CALL FUNCTION 'BAPI_SALESORDER_CREATEFROMDAT2'
EXPORTING
SALESDOCUMENTIN =
ORDER_HEADER_IN = GT_ORDER_HEADER_IN
ORDER_HEADER_INX = GT_ORDER_HEADER_INX
SENDER =
BINARY_RELATIONSHIPTYPE =
INT_NUMBER_ASSIGNMENT =
BEHAVE_WHEN_ERROR =
LOGIC_SWITCH =
TESTRUN =
CONVERT = ' '
IMPORTING
SALESDOCUMENT = GT_SALESDOCUMENT
TABLES
RETURN = GT_RETURN
ORDER_ITEMS_IN = GT_ORDER_ITEMS_IN
ORDER_ITEMS_INX = GT_ORDER_ITEMS_INX
ORDER_PARTNERS = GT_ORDER_PARTNERS
ORDER_SCHEDULES_IN = GT_ORDER_SCHEDULES_IN
ORDER_SCHEDULES_INX = GT_ORDER_SCHEDULES_INX
ORDER_CONDITIONS_IN = GT_ORDER_CONDITIONS_IN
ORDER_CONDITIONS_INX = GT_ORDER_CONDITIONS_INX
ORDER_CFGS_REF =
ORDER_CFGS_INST =
ORDER_CFGS_PART_OF =
ORDER_CFGS_VALUE =
ORDER_CFGS_BLOB =
ORDER_CFGS_VK =
ORDER_CFGS_REFINST =
ORDER_CCARD =
ORDER_TEXT =
ORDER_KEYS =
EXTENSIONIN =
PARTNERADDRESSES =
IF GT_RETURN-TYPE EQ 'E' .
E_REC = E_REC + 1.
READ TABLE GT_RETURN WITH KEY ID = 'V1'.
FORMAT COLOR COL_NEGATIVE INVERSE ON.
REC_NO = E_REC + S_REC.
CONCATENATE TEXT-006 REC_NO ':'
GT_RETURN-MESSAGE INTO MSG SEPARATED BY SPACE .
CONDENSE MSG.
WRITE: / MSG.
FORMAT COLOR COL_NEGATIVE INVERSE OFF.
ELSEIF GT_RETURN-TYPE EQ 'S'.
S_REC = S_REC + 1.
FORMAT COLOR COL_POSITIVE INVERSE ON.
MSG = GT_RETURN-MESSAGE.
CONDENSE MSG.
WRITE: / MSG .
FORMAT COLOR COL_POSITIVE INVERSE OFF.
PERFORM COMMIT_MM.
ENDIF.
CLEAR: GT_RETURN[], MSG.
ENDFORM. " SLALE_UPLOAD_DATA
*& Form COMMIT_MM
text
--> p1 text
<-- p2 text
FORM COMMIT_MM .
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
WAIT = 'X'
IMPORTING
RETURN = GT_RETURN.
clear: GT_ORDER_ITEMS_IN[],GT_ORDER_CONDITIONS_IN[].
ENDFORM. " COMMIT_MM -
Request for some Visual Basic code?
Hello not sure if I'm posting in the correct area but I have a request for some Visual Basic Code.
I use a particular document in word quite often to fill out forms for my job. However I would like something that allows me to open a new instance of the same document while closing the current AFTER I print it without any extra mouse clicks, or if after
I print the document the forms are cleared and I can start over.
P.S. I would take the time to learn how to do it myself but I currently reside in South Korea and work for the USAF so I don't have much time.Hi,
I suggest you post the request to Word for Developers forum since it needs support for coding:
http://social.msdn.microsoft.com/Forums/office/en-US/home?forum=worddev
The reason why we recommend posting appropriately is you will get the most qualified pool of respondents, and other partners who read the forums regularly can either share their knowledge or learn from your interaction with us. Thank you for your understanding.
Regards,
Melon Chen
TechNet Community Support -
Problems with visual basic and acrobat X
Hello,
In visual basic (excel), I had written a program in visual basic (excel) to open a pdf file on the local server.
Before I updated to acrobat pro X, I had acrobat pro 8 on my pc.
With the 8 I didn't had any problems to open the pdf-file.
Now with the X version, it only opens the start window of acrobat x pro.
Did they changed something in Xversion?
Does anyone has an idea to solve this problem?
Below you can find my visual basic code.
Thanks in advanced !!
Sylvie
Code:
Sub OpenPDF(bestand As String)
Dim retval
Dim sAdobeReader As String
sAdobeReader = Chr(34) & "C:\Program Files\Adobe\Acrobat 10.0\Acrobat\Acrobat.exe" & Chr(34)
'sAdobeReader = "C:\Program Files\Adobe\Acrobat 10.0\Acrobat\Acrobat.exe"
retval = Shell(sAdobeReader & Chr(34) & bestand & Chr(34), 0)
End Sub
Private Sub SelectedPDF()
OpenPDF ("N:\11276.pdf")
End SubThis is really a user forum, I think you need a developer forum... maybe SDK?
http://forums.adobe.com/community/acrobat -
I'd like to measure two differential input signal(I.e. A+ and A-),below is two test projects,
1.connect A+/A- to PCI 6052E card's ACH0/ACH8 ,and refer to GND for testing
2.connect respectively A+/A- to PCI 6052E card's ACH0/ACH8 for testing
Could you tell me the details of the second project?and give me a illustration in measurement studio with visual basic 6. 0 about the second?
In addition,I would like to measure the audio signal frequency,could you give me a illustration in measurement studio with visual basic 6.0?
Wait for your reply!Dear kelven,
Thank you for contacting National Instruments.
To address your question, there are Analog Input shipping examples that demonstrate how to measure an analog input differentially, as you specify in (2).
As for measuring the audio signal frequency, you may want to check out the following KnowledgeBase. The link is:
http://digital.ni.com/public.nsf/websearch/4b08380530d72d3b86256340004c3005
Let me know if you have any further questions or if this does not resolve your issue.
Thanks again and have a great day!
Chad AE
Applications Engineer - National Instruments -
Need help with a activation code for Adobe Acrobat X Standard for my PC, Don't have older Version of Adobe Acrobat 9, 8 or 7.
You don't need to install the older version, you only need the serial number from your original purchase. If you don't have them to hand, did you register? If so, they should be in your Adobe account. If not you really need to contact Adobe, though it isn't clear they will be able to do anything without some proof of purchase etc.
-
Purchased DVD in US for Cdn viewing. Digital download will not work in Cda or US? please help with new Digital code that will work
You will need to contact the movie studio that produced the DVD and ask if they can issue you a new code valid for Canada. Apple cannot help you, and everyone here in these forums is just a fellow user.
Regards. -
Can a CIN be written for Visual Basic code
I've read about C code and CIN usage and seen references to other
languages such as Visual Basic (Visual Studio- don't have NET yet).
Is the only way to create a dll?Don't confuse a CIN (Code Interface Node) with the Call Library Function Node in which you interface to a dll. A CIN is a c language function only. The Call Library Function Node can be used for any dll in which the parameters and calling conventions are something LabVIEW can handle. You can create these dll's which c, C++, VB, Delphi, etc. The pdf document "Using External Code in LabVIEW" that is part of the shipping documentation explains the differences between the two. You can also find app notes and example code here that might help.
-
Examples of using SCXI-1160 Relay Card with Visual Basic 5.0.
I am starting to develop some VB 5.0 code that interfaces with a PXI/SCXI Chassis. One of the cards that I have to work with is the SCXI-1160.
At this point in time (5/14/01), I do not believe there are any pre-existing example programs developed in Visual Basic to control an SCXI-1160 switch module.
However, the process is very easy to explain. You will need to add the NI-SWITCH instrument driver as a DLL reference to your VB program. The DLL file is called niswitch_32.dll and is located at C:\VXIpnp\WinXX\Bin (WinXX = Win95 or WINNT).
Your program will begin with the niSwitch_init(...) function, and end with the niSwitch_close(...) function. The niSwitch_Connect(...) function can be used to actually make switch connections in your application. -
Buying a Ipad, does it support Excel with visual basic?
I live in PC world with Excel and visual basic for an order program. I would like to know if an Ipad supports Excel and VB. Any help is greatly appriciated.
Thank you,
GabrielSorry, no Excel on iPad. The iPad equivalent of Excel is called Numbers, an Apple-made app.
-
Programming on a MAC with Visual Basic which is unfortuantely from Windows
Good evening. I am going to be taking some courses in Visual Basic.
I presently use a new IMAC computer and no intention of ever going back to PC.
However in course I need to download and learn Visual Basic which is only windows/microsoft based
Does anyone know of a program that is similar to the windows VB that I can use?
Otherwise how would I make the Windows VB work on my MAC, i really do not want to download Windows XP or anyone to work on my MAC, hence reason for switching to leopard and mac.
all suggestions and help is welcome, look forward to your responses.
email me as well please and thank youBeing an outsider to most things programming and almost all things M$
the brief information I found while reading around Visual Basic, is that it
no longer has Microsoft support since 2008. While that may not be a big
issue for those still needing such a beast, there probably is a newer kind
of technology one could be investing time more wisely into the use thereof.
Earlier: http://en.wikipedia.org/wiki/Visual_Basic
Later: http://en.wikipedia.org/wiki/VisualBasic.NET
Free Express Edition: http://en.wikipedia.org/wiki/MicrosoftVisual_StudioExpress
+{Since you have a computer which can support a virtual machine (os) and+
+not need run Windows directly, some software can run without an XP, etc.+
+And there is an open-source virtual machine available, for Intel-based Mac.+
+This in addition to better known retail products, details found in a search.}+
Since the Express Edition above indicates certain tools it provides, one can see
what kinds of Mac OS X software tools are available to perform similar tasks;
then check into how compatible those are with the resulting product you seek to
be engaged in; and if the recipient of said project could use an all-Mac result. In
their PC; if this is the direction you are considering.
You can create content in Terminal, in a Mac, or in XCode, and there are a few
free-ware open source cross-platform programming tools that could be used to
create a more platform neutral product; from what I've briefly read. However,
since Microsoft is playing to their own field, you may find if you have to be there
you will have to get a Virtual Machine to run Windows in the Mac or hope to get
a virtual machine that also can run just the Windows app without Windows in it.
Or, have an old cheap PC off to the side, and put your Windows software into it.
Then keep your modern-era stuff alive in your Mac. If you have Windows-only
clients, some of them may well be using their XP into the next century...
Good luck & happy computing!
{PS: this topic area is within the section for older PPC iMac G4 series computers.} -
URGENT HELP :WEBSERVICES - VISUAL BASIC/POWERBUILDER
CAN AN APPLICATION BUILT USING VISUAL BASIC(APP A) OR POWER BUILDER(APP B) MAKE A WEBSERVICE CALL TO A JAVA APPLICATION.THE REQUIREMENT IS..APP A & APP B SHOULD TALK TO A JAVA BASED APPLICATION BY PASSING INPUTS AND THE JAVA APP PROCESSES THE INPUTS AND SENDS BACK THE OUTPUT TO APP A & APP B.
IS THIS POSSIBLE USING JAVA WEBSERVICES? IF YES..HOW? ELSE ANY WAY OUTS?
-IKIK,
A new XML/JAVA adapter for Visual Basic and PowerBuilder (named ActiveEC) can accomplish the integration scenario you describe. From the product site:
"With no PB or VB code changes or migration, ActiveEC instantly creates XML ?black boxes? for existing PowerBuilder and Visual Basic applications, enabling them to communicate with portals, Web services, business process compositions and other applications. All PB/VB application security and integrity is maintained, and the existing applications can continue to be used through the native PB/VB interfaces. The unique part of the technology is that it requires no changes to the underlying application code, so it can be used easily and safely with "legacy" client/server apps. This technology instantly discovers all application and screen controls to deploy reliable, complete Web services. Once you deploy an ActiveEC service, you can invoke this service through the following standard interfaces: Web service, EJB, JMS, .NET assembly"
http://www.active-endpoints.com/products/activeec/index.html
HTH,
A.J. -
Need help with adjusting Javascript code to work in Adobe Edge (Countdown)
Hello
Im a newbie when it comes to working with Javascript and Adobe Edge and need a bit of help with adjusting some javascript code to work with Adobe Edge. A friend of mine helped me with making this javascript code: Edit fiddle - JSFiddle
Its a simple countdown which counts down to a certain time at a certain date. What I aim to do is to add this code as a trigger on a text-element called "countdown" (within a symbol called "count").
I have tried to do this as the code is, but it does not work. Anyone have any suggestions?
Thanks!
Mvh,
Øyvind HermansHello again
I have stumbled upon a problem with these animations; They crash the browser after viewing them a little while, usually less than 30 seconds in.
Is this problem also occuring when you watch the animations?
Is the countdown-code to much for the browsers to handle?
Thanks in advance for your answers.
Sincerely,
Øyvind Hermans
Maybe you are looking for
-
I am a Nokia user from India. I have Nokia N70. I have no vouchers or unlimited subscription. I do not want to change my phone as it work really well. There is some Pay Credit feature which I can't see how to activate. Does that mean I can't use Noki
-
How do you import media and metadata from Windows Photo Gallery database?
How do you import videos and photos and their metadata from a Windows Photo Gallery database into the Elements Organizer, especially metadata that is only contained in the Photo Gallery database file (pictures.pd6) and not embedded in the video and p
-
My Nokia N97 has got a problem with alarm as it's always late. When I put alarm for like after 1 minute e.g. now 19.30 and alarm set to 19.35 it works fine. But when I set alarm for next day it's always late for at least 4 minutes. If you have any so
-
Latest MAC OS X that can run on my MacBook4,1 (black)?
What is the latest version of MAC OS X that I can run on my MacBook4,1 (Black, Intel Core 2 Duo, 2.4 GHz)? I currently run MAC OS X 10.6.8
-
HT4527 Where are the music I transferred with the Migration Assistant?
I used the Migration Assistant to move my music library on iTunes to a new one, and both my new Macbook and old computer said the music transfer worked. However, I can´t seem to find the music files on my Mac that I wanted to transfer. Where are they