Question:
Hi all!
How I can create inspection lot from RFC?
How I can Answer you ?
Answer:
What function name for this?
I try CO_QM_INSPECTION_LOT_CREATE, but this gove no effect
Answer:
What function name for this?
I try CO_QM_INSPECTION_LOT_CREATE, but this gove no effect
I'm not sure but try these FM:
QPL1_INSPECTION_LOT_CREATE
QPL1_UPDATE_MEMORY
Good luck
SSII
Answer:
Thank's, but when I call these (or CO_QM_INSPECTION_LOT_CREATE) FM from VB program, I give as result disconnect with R/3.
Answer:
Thank's, but when I call these (or CO_QM_INSPECTION_LOT_CREATE) FM from VB program, I give as result disconnect with R/3.
of course because these FM are not RFC enabled.
You should ask an ABAP Developper to create for you a RFC FM Z.... that call the two FMs.
SSII
Answer:
Thank's
Answer:
Thank's
So I suppose that it works ???
If yes, can you kindly change the title to add [resolved]
SSII
Answer:
no.
not working
Can be FM it is necessary together to use for create inspection lot?
Answer:
no.
not working
Can be FM it is necessary together to use for create inspection lot?
yes, of course. the second one commit data into database.
ask your abap developper to loot at standard program using these two FM.
If he can't do it for you, my rates are 1000US$ per hour+ exspenses (travel from Singapore)....
SSIIno.
not working
Can be FM it is necessary together to use for create inspection lot?
yes, of course. the second one commit data into database.
ask your abap developper to loot at standard program using these two FM.
If he can't do it for you, may rate are 1000US$ per hour+ exspenses (travel from Singapore)....
SSII
It's a joke....
Answer:
I try this:
Set Func = FunctionCtrl.Add("Z_QPL1_INSPECTION_LOT_CREATE")
Func.Exports("QALS_IMP").Value(1) = "900"
Func.Exports("QALS_IMP").Value(2) = "890000000382"
Func.Exports("QALS_IMP").Value(3) = "2"
Func.Exports("QALS_IMP").Value(4) = "89"
Func.Exports("QALS_IMP").Value(5) = "89"
Func.Exports("QALS_IMP").Value(6) = "QL890000000382"
Func.Exports("QALS_IMP").Value(7) = "QL1"
Func.Exports("QALS_IMP").Value(17) = "X"
Func.Exports("QALS_IMP").Value(24) = "X"
Func.Exports("QALS_IMP").Value(44) = "X"
Func.Exports("QALS_IMP").Value(46) = "X"
Func.Exports("QALS_IMP").Value(53) = "1"
Func.Exports("QALS_IMP").Value(55) = "15.03.2006"
Func.Exports("QALS_IMP").Value(56) = "10:00:00"
Func.Exports("QALS_IMP").Value(58) = "15.03.2006"
Func.Exports("QALS_IMP").Value(59) = "10:00:00"
Func.Exports("QALS_IMP").Value(61) = "17.03.2006"
Func.Exports("QALS_IMP").Value(62) = "10:00:00"
Func.Exports("QALS_IMP").Value(63) = "17.03.2006"
Func.Exports("QALS_IMP").Value(67) = "Q"
Func.Exports("QALS_IMP").Value(68) = "2"
Func.Exports("QALS_IMP").Value(69) = "3"
Func.Exports("QALS_IMP").Value(70) = "5"
Func.Exports("QALS_IMP").Value(71) = "5"
Func.Exports("QALS_IMP").Value(73) = "X"
If matr <> "" Then Func.Exports("QALS_IMP").Value(81) = matr
Func.Exports("QALS_IMP").Value(83) = "2"
prueflos = Func.Imports("E_PRUEFLOS") ' result: prueflos=0000000...
Set Func = FunctionCtrl.Add("Z_QPL1_UPDATE_MEMORY")
Func.Exports("I_QALS").Value(1) = "900"
Func.Exports("I_QALS").Value(2) = "890000000382"
Func.Exports("I_QALS").Value(3) = "2"
Func.Exports("I_QALS").Value(4) = "89"
Func.Exports("I_QALS").Value(5) = "89"
Func.Exports("I_QALS").Value(6) = "QL890000000382"
Func.Exports("I_QALS").Value(7) = "QL1"
Func.Exports("I_QALS").Value(17) = "X"
Func.Exports("I_QALS").Value(24) = "X"
Func.Exports("I_QALS").Value(44) = "X"
Func.Exports("I_QALS").Value(46) = "X"
Func.Exports("I_QALS").Value(53) = "1"
Func.Exports("I_QALS").Value(55) = "15.03.2006"
Func.Exports("I_QALS").Value(56) = "10:00:00"
Func.Exports("I_QALS").Value(58) = "15.03.2006"
Func.Exports("I_QALS").Value(59) = "10:00:00"
Func.Exports("I_QALS").Value(61) = "17.03.2006"
Func.Exports("I_QALS").Value(62) = "10:00:00"
Func.Exports("I_QALS").Value(63) = "17.03.2006"
Func.Exports("I_QALS").Value(67) = "Q"
Func.Exports("I_QALS").Value(68) = "2"
Func.Exports("I_QALS").Value(69) = "3"
Func.Exports("I_QALS").Value(70) = "5"
Func.Exports("I_QALS").Value(71) = "5"
Func.Exports("I_QALS").Value(73) = "X"
If matr <> "" Then Func.Exports("I_QALS").Value(81) = matr
Func.Exports("I_QALS").Value(83) = "2"
If Func.Call Then
Set Func = FunctionCtrl.Add("BAPI_TRANSACTION_COMMIT")
Func.Call
End If
try and try... no effect! :\
all call function results TRUE
Answer:
no, I didn't say to do that !!!!
try this:
In SAP Side: Create FM Z_INSPECTION_LOT_CREATE:
.....
CALL QPL1_INSPECTION_LOT_CREATE
IF sys-subrc = 0.
CALL QPL1_UPDATE_MEMORY
ENDIF.
.....
IN your Side just call the function Z_INSPECTION_LOT_CREATE
You don't need to call BAPI_TRANSACTION_COMMIT.
Is'it clear NOW ?
Answer:
OK, we while trying this.
I have new question: what FM for create inspection characterist in inspection lot?