127.0.0.1 en 16:54 13 mar 2012

2012-03-13T16:54:23Z

← Revisión anterior		Revisión del 16:54 13 mar 2012
Línea 63:		Línea 63:

	<br>		<br>
	[[~~Tablas_BC~~\|Tablas BC]]<br>		[[TABLAS_BC\|Tablas BC]]<br>
	[[Tablas\|Tablas]]<br>		[[Tablas\|Tablas]]<br>
	[[Página_principal\|Página principal]]<br>		[[Página_principal\|Página principal]]<br>

127.0.0.1 en 16:54 13 mar 2012

2012-03-13T16:54:01Z

← Revisión anterior		Revisión del 16:54 13 mar 2012
Línea 61:		Línea 61:
	END-OF-SELECTION.		END-OF-SELECTION.
	</pre>		</pre>

			<br>
			[[Tablas_BC\|Tablas BC]]<br>
			[[Tablas\|Tablas]]<br>
			[[Página_principal\|Página principal]]<br>

127.0.0.1: Página creada con 'Sample Code: I want to know, for statistic reasons, how many sales orders were blocked for “Credit limit” ( Delivery block status to 01 ) and then released during a period.(...'

2011-07-27T16:28:14Z

Página creada con 'Sample Code: I want to know, for statistic reasons, how many sales orders were blocked for “Credit limit” ( Delivery block status to 01 ) and then released during a period.(...'

Página nueva

Sample Code: I want to know, for statistic reasons, how many sales orders were blocked for “Credit limit” ( Delivery block status to 01 ) and then released during a period.( using Select Statement )

<pre>
REPORT z_stat_so_blocked .

TABLES : cdhdr, cdpos.

DATA : BEGIN OF t_cdhdr OCCURS 0,
objectid LIKE cdhdr-objectid,
changenr LIKE cdhdr-changenr,
udate LIKE cdhdr-udate,
username LIKE cdhdr-username,
END OF t_cdhdr.

DATA : BEGIN OF t_cdpos OCCURS 0,
objectid LIKE vbap-vbeln,
END OF t_cdpos.

*-
SELECT-OPTIONS : period FOR cdhdr-udate OBLIGATORY.

*-
START-OF-SELECTION.

CLEAR cdhdr.
SELECT objectid
changenr
udate
username
INTO TABLE t_cdhdr
FROM cdhdr
WHERE objectclas EQ 'VERKBELEG' "This is the Class
"for Sales Order
AND udate IN period
AND tcode EQ 'VA02' " T-code
AND change_ind EQ 'U'. " Update

SORT t_cdhdr BY objectid.

CHECK NOT t_cdhdr[] IS INITIAL.

CLEAR cdpos.
SELECT objectid
INTO TABLE t_cdpos
FROM cdpos
FOR ALL ENTRIES IN t_cdhdr
WHERE objectclas EQ 'VERKBELEG'
AND objectid EQ t_cdhdr-objectid
AND changenr EQ t_cdhdr-changenr
AND tabname EQ 'VBAK'
AND fname EQ 'LIFSK' " Field name for Delivery Block
AND chngind EQ 'U' " Update
AND value_old EQ '01'.

SORT t_cdpos BY objectid.

LOOP AT t_cdpos.
WRITE : / t_cdpos-objectid.
ENDLOOP.

END-OF-SELECTION.
</pre>

CDHDR - Historial de revisiones

127.0.0.1 en 16:54 13 mar 2012

127.0.0.1 en 16:54 13 mar 2012

127.0.0.1: Página creada con 'Sample Code: I want to know, for statistic reasons, how many sales orders were blocked for “Credit limit” ( Delivery block status to 01 ) and then released during a period.(...'