IDOC INPUT GLMAST - Historial de revisiones

127.0.0.1 en 16:56 13 mar 2012

2012-03-13T16:56:37Z

← Revisión anterior		Revisión del 16:56 13 mar 2012
Línea 116:		Línea 116:
	ENDIF.		ENDIF.
	</pre>		</pre>

			<br>
			[[FUNCIONES_FI\|Funciones FI]]<br>
			[[Funciones\|Funciones]]<br>
			[[Página_principal\|Página principal]]<br>

127.0.0.1 en 12:16 10 jun 2011

2011-06-10T12:16:55Z

← Revisión anterior		Revisión del 12:16 10 jun 2011
Línea 1:		Línea 1:
	MSGFN = '009' ~~Para crear cuenta~~<br>		Campo MSGFN <br>
	~~MSGFN =~~ '~~005~~' ~~Para actualizar cuenta~~<br>
	~~MSGFN =~~ '~~004~~' ~~???~~<br>		'003' Delete: Message contains objects to be deleted<br>
			'004' Change: Message contains changes<br>
			'005' Replace: This message replaces previous messages<br>
			'009' Original: First message for process<br>
			'023' Wait/Adjust: Data should not be imported<br>
			'018' Resend <br>

	<br>		<br>

127.0.0.1 en 16:04 9 jun 2011

2011-06-09T16:04:28Z

← Revisión anterior		Revisión del 16:04 9 jun 2011
Línea 10:		Línea 10:
	<br>		<br>
	Ejemplo:<br>		Ejemplo:<br>
	~~<br>~~
	<pre>		<pre>
	DATA lta_idoc_contrl TYPE TABLE OF EDIDC.		DATA lta_idoc_contrl TYPE TABLE OF EDIDC.

127.0.0.1 en 16:03 9 jun 2011

2011-06-09T16:03:51Z

← Revisión anterior		Revisión del 16:03 9 jun 2011
Línea 9:		Línea 9:

	<br>		<br>
			Ejemplo:<br>
			<br>
			<pre>
			DATA lta_idoc_contrl TYPE TABLE OF EDIDC.
			DATA lwa_idoc_contrl TYPE EDIDC.
			DATA lta_IDOC_DATA TYPE TABLE OF EDIDD.
			DATA lwa_IDOC_DATA TYPE EDIDD.
			DATA lta_IDOC_STATUS TYPE TABLE OF BDIDOCSTAT.
			DATA lta_RETURN_VARIABLES TYPE TABLE OF BDWFRETVAR.
			DATA lta_SERIALIZATION_INFO TYPE TABLE OF BDI_SER.

			DATA lwa_E1SKA1M TYPE E1SKA1M.
			DATA lwa_E1SKATM TYPE E1SKATM.
			DATA lwa_E1SKB1M TYPE E1SKB1M.

			* Cabecera
			CLEAR lwa_idoc_contrl.
			* lwa_idoc_contrl-RCVPOR = . "Receiver Port
			lwa_idoc_contrl-MESTYP = 'GLMAST'. "Message type
			lwa_idoc_contrl-IDOCTP = 'GLMAST01'. "Basic IDOC type
			* lwa_idoc_contrl-RCVPRT = . "Partner type of receiver
			* lwa_idoc_contrl-RCVPRN = . "Partner number of receiver
			* lwa_idoc_contrl-SNDPRT = . "Sender Partner type
			* lwa_idoc_contrl-SNDPRN = . "Sender Partner Number
			APPEND lwa_idoc_contrl TO lta_idoc_contrl.

			* Datos
			CLEAR lwa_E1SKA1M.
			lwa_E1SKA1M-MSGFN = '009'. " Crear
			lwa_E1SKA1M-KTOPL = 'PCGT'.
			lwa_E1SKA1M-SAKNR = '52010A'.
			lwa_E1SKA1M-KTOKS = 'ZTRD'.
			lwa_E1SKA1M-XBILK = 'X'.

			CLEAR lwa_IDOC_DATA.
			lwa_IDOC_DATA-SEGNAM = 'E1SKA1M'.
			lwa_IDOC_DATA-SDATA = lwa_E1SKA1M.
			APPEND lwa_IDOC_DATA TO lta_IDOC_DATA.

			CLEAR lwa_E1SKATM.
			lwa_E1SKATM-MSGFN = '009'. " Crear
			lwa_E1SKATM-SPRAS = sy-langu.
			lwa_E1SKATM-TXT20 = 'Pruebas iDoc A'.
			lwa_E1SKATM-TXT50 = 'Pruebas iDoc A LARGO'.

			CLEAR lwa_IDOC_DATA.
			lwa_IDOC_DATA-SEGNAM = 'E1SKATM'.
			lwa_IDOC_DATA-SDATA = lwa_E1SKATM.
			APPEND lwa_IDOC_DATA TO lta_IDOC_DATA.

			CLEAR lwa_E1SKB1M.
			lwa_E1SKB1M-MSGFN = '009'. " Crear
			lwa_E1SKB1M-BUKRS = '1102'.
			lwa_E1SKB1M-FDLEV = 'B0'.
			lwa_E1SKB1M-FSTAG = 'G005'.
			lwa_E1SKB1M-HBKID = 'EB001'.
			lwa_E1SKB1M-HKTID = '10210'.
			lwa_E1SKB1M-WAERS = 'EUR'.
			lwa_E1SKB1M-XGKON = 'X'.
			lwa_E1SKB1M-XKRES = 'X'.
			lwa_E1SKB1M-XOPVW = 'X'.
			lwa_E1SKB1M-ZUAWA = '027'.
			* lwa_E1SKB1M-ALTKT = '520020000A'

			CLEAR lwa_IDOC_DATA.
			lwa_IDOC_DATA-SEGNAM = 'E1SKB1M'.
			lwa_IDOC_DATA-SDATA = lwa_E1SKB1M.
			APPEND lwa_IDOC_DATA TO lta_IDOC_DATA.

			* funcion receptora de iDoc y creadora de cuenta
			CALL FUNCTION 'IDOC_INPUT_GLMAST'
			EXPORTING
			input_method = SPACE
			mass_processing = SPACE
			* IMPORTING
			* WORKFLOW_RESULT =
			* APPLICATION_VARIABLE =
			* IN_UPDATE_TASK =
			* CALL_TRANSACTION_DONE =
			tables
			idoc_contrl = lta_idoc_contrl
			idoc_data = lta_IDOC_DATA
			idoc_status = lta_IDOC_STATUS
			return_variables = lta_RETURN_VARIABLES
			serialization_info = lta_SERIALIZATION_INFO
			EXCEPTIONS
			WRONG_FUNCTION_CALLED = 1
			OTHERS = 2
			.
			IF sy-subrc <> 0.
			MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
			WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
			ELSE.

			CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
			EXPORTING
			WAIT = 'X'
			* IMPORTING
			* RETURN =
			.

			ENDIF.
			</pre>

127.0.0.1 en 11:36 9 jun 2011

2011-06-09T11:36:51Z

← Revisión anterior		Revisión del 11:36 9 jun 2011
Línea 2:		Línea 2:
	MSGFN = '005' Para actualizar cuenta<br>		MSGFN = '005' Para actualizar cuenta<br>
	MSGFN = '004' ???<br>		MSGFN = '004' ???<br>

			<br>

			EDIDC-IDOCTP = 'GLMAST01'. <br>
			EDIDC-MESTYP = 'GLMAST'. <br>

			<br>

127.0.0.1: Página creada con 'MSGFN = '009' Para crear cuenta
MSGFN = '005' Para actualizar cuenta
MSGFN = '004' ???
'

2011-06-09T11:33:33Z

Página creada con 'MSGFN = '009' Para crear cuenta MSGFN = '005' Para actualizar cuenta MSGFN = '004' ??? '

Página nueva

MSGFN = '009' Para crear cuenta 
MSGFN = '005' Para actualizar cuenta 
MSGFN = '004' ???