Batch Input oder BAPI für TA KB21N

Re: Batch Input oder BAPI für TA KB21N

Hallo wir hatten das gleiche Problem,
und haben dann einfach den BTCI für die alte 'KB21'
erstellt.
Gruß

ismailer hat geschrieben:Hallo liebe freunde.
habe eine frage, gibt es eine möglichkeit wie ich es schaffe eine batch input oder ein bapi für die ta kb21n zu benutzen. die soll eigentlich nicht möglich sein, weil sich bei der ta kb21n um eine SAP Enjoy Ta handel oder so.
irgendwelche idee(e)n? danke!!!

BTCI und KB21

Hallo, ich habe gerade nachgesehen, wir haben
Release 4.6c.

Hier die Codeschnipsel aus dem Report:

CMAPPE = P_MAPPE.
CTCODE = 'KB21'.

REFRESH TBDC.
* Einstiegsbild
PERFORM BDC_FILL_PROG USING 'SAPMK23B' '1001' 'X'.
PERFORM BDC_FILL_FELD USING 'BDC_OKCODE' '/00'.
PERFORM BDC_FILL_FELD USING 'COBK-KOKRS' '0001'.
PERFORM BDC_FILL_FELD USING 'COBK-VARNR' 'HEI02'.
PERFORM BDC_FILL_FELD USING 'COBK-BUDAT' XDATUM.
PERFORM BDC_FILL_FELD USING 'COBK-BLDAT' XDATUM.
* Datenbild
PERFORM BDC_FILL_PROG USING 'SAPMK23B' '8101' 'X'.
PERFORM BDC_FILL_FELD USING 'RK23B-SKOST(01)' S-KOSTENSTELLE.
PERFORM BDC_FILL_FELD USING 'RK23B-LSTAR(01)' S-LEISTUNGSART.
PERFORM BDC_FILL_FELD USING 'RK23B-LVBSU(01)' S-ARBEITSZEIT.
PERFORM BDC_FILL_FELD USING 'RK23B-LEINH(01)' S-ZEITEINHEIT.
PERFORM BDC_FILL_FELD USING 'RK23B-EAUFN(01)' S-AUFTRAGSNUMMER.
PERFORM BDC_FILL_FELD USING 'RK23B-PERNR(01)' S-PERSONALNUMMER.
PERFORM BDC_FILL_FELD USING 'BDC_OKCODE' 'BU'.
"Textzeile aufbauen (evtl. mit Fehlercode versehen).
CLEAR XTEXT.
XTEXT+46(4) = S-ARBEITSPAKET.
XTEXT+37(8) = S-SERIENNUMMER.
IF S-FEHLERCODE NE SPACE.
XTEXT(7) = S-AUFTRAGSNUMMER+1(7).
XTEXT+8(7) = S-LIEFERANTENNUMMER.
XTEXT+17(5) = S-FEHLERCODE.
IF XAUFTRAGSNUMMER BETWEEN 4000000 AND 4699999.
PERFORM BDC_FILL_FELD USING 'RK23B-EAUFN(01)' X-EDS.
ENDIF.
IF XAUFTRAGSNUMMER BETWEEN 5000000 AND 5699999.
PERFORM BDC_FILL_FELD USING 'RK23B-EAUFN(01)' X-RPT.
ENDIF.
IF XAUFTRAGSNUMMER BETWEEN 6000000 AND 6699999.
PERFORM BDC_FILL_FELD USING 'RK23B-EAUFN(01)' X-CIS.
ENDIF.
IF XAUFTRAGSNUMMER BETWEEN 8000000 AND 8699999.
PERFORM BDC_FILL_FELD USING 'RK23B-EAUFN(01)' X-PI.
ENDIF.
PERFORM BDC_FILL_FELD USING 'RK23B-SGTXT(01)' XTEXT.
ENDIF.


Ich hoffe es hilft weiter.
Gruß Wolfgang