TENGO UN Z-DESARROLLO.
QUE ACTUALIZA UNOS ARCHIVOS, PERO EN UNO DE ELLOS NO HACE NADA
ES DECIR DEJA VACIO EL ARCHIVO SIN DATOS..
ENVIO EL CODIGO HABER SI ME AYUDAN POR FAVOR:

FORM CARGA_PEDIDOS.
DATA : NETPR TYPE P,
NETWR TYPE P.
DATA VALOR(13).

*'Ojo solo prov. nacionales
*---------- Captura de los PEDIDOS
*-------------------------------------------------------------
LOOP AT TABPROI.
SELECT * FROM EKKO WHERE BUKRS IN S_BUKRS
AND LIFNR EQ TABPROI-LIFNR
AND BSART IN ('NB','ZI','ZM')
AND EKORG IN S_EKORG
AND LOEKZ = ' '
AND AEDAT BETWEEN FEC_INI AND SY-DATUM.
MOVE-CORRESPONDING EKKO TO TABPED.
C_PEDIDO = C_PEDIDO + 1.
*{ REPLACE DEVK900641 1
*\ PERFORM FILE_TABPED.

*} REPLACE
*-------- Subrutina de Items para el pedido.
SELECT * FROM EKPO WHERE EBELN = EKKO-EBELN
AND LOEKZ = ' '.
MOVE-CORRESPONDING EKPO TO TABITE.
******** Cambia Unidad de Medida (ea --> c/u ,...) *********03052000
CLEAR SY-SUBRC.
SELECT SINGLE * FROM T006A WHERE SPRAS = 'S'
AND MSEHI = EKPO-LMEIN.
IF SY-SUBRC = 0.
MOVE T006A-MSEH3 TO TABITE-LMEIN.
ENDIF.
CLEAR SY-SUBRC.
SELECT SINGLE * FROM T006A WHERE SPRAS = 'S'
AND MSEHI = EKPO-MEINS.
IF SY-SUBRC = 0.
MOVE T006A-MSEH3 TO TABITE-MEINS.
ENDIF.
CLEAR SY-SUBRC.
SELECT SINGLE * FROM T006A WHERE SPRAS = 'S'
AND MSEHI = EKPO-BPRME.
IF SY-SUBRC = 0.
MOVE T006A-MSEH3 TO TABITE-BPRME.
ENDIF.
*******
SELECT SINGLE * FROM TCURX WHERE CURRKEY EQ EKKO-WAERS.
NETPR = EKPO-NETPR * 100.
NETWR = EKPO-NETWR * 100.
TABITE-IDNLF = EKPO-IDNLF(22).
DO TCURX-CURRDEC TIMES.
NETPR = NETPR / 10.
NETWR = NETWR / 10.
ENDDO.
TABITE-NETPR = NETPR.
TABITE-NETWR = NETWR.
C_ITEM = C_ITEM + 1.

MOVE TABITE-TXZ01 TO I_TEXTO_DEPURADO.
PERFORM DEPURA_TEXTO.
MOVE I_TEXTO_DEPURADO TO TABITE-TXZ01.

PERFORM FILE_TABITE.
*-------- Subrutina de Items para Historial de entregas.
SELECT * FROM EKBE WHERE EBELN = EKPO-EBELN
AND EBELP = EKPO-EBELP
AND VGABE = '1'
AND BEWTP = 'E'
AND BWART IN ('101','102').
MOVE-CORRESPONDING EKBE TO TABHIS.
** valor = ekbe-dmbtr * 100.
* IF EKBE-SHKZG EQ 'H'.
** CONCATENATE '-' valor INTO tabhis-dmbtr.
* TABHIS-DMBTR = EKBE-DMBTR * -100.
* ELSE.
** tabhis-dmbtr = valor.
* TABHIS-DMBTR = EKBE-DMBTR * 100.
* ENDIF.
TABHIS-DMBTR = EKBE-DMBTR * 100.
C_HISTO = C_HISTO + 1.
PERFORM FILE_TABHIS.
ENDSELECT. " Fin recuperación historial de entrega
*---------Fin Historial de entregas

*-------- Subrutina de Items para facturas de costos indirectos .
IF F_CI EQ 'X'.
SELECT * FROM EKBZ WHERE EBELN = EKPO-EBELN
AND EBELP = EKPO-EBELP
AND VGABE = '2'.
SELECT * FROM BSEG WHERE BUKRS EQ EKPO-BUKRS
AND BELNR EQ EKBZ-BELNR
AND GJAHR EQ EKBZ-GJAHR
AND BUZID EQ 'K'.
IF SY-SUBRC EQ 0 AND NOT BSEG-LIFNR IS INITIAL
AND BSEG-LIFNR NE EKKO-LIFNR.
PERFORM AGREGA_PROVEEDOR USING BSEG-LIFNR
EKPO-BUKRS
EKKO-EKORG.
ENDIF.
ENDSELECT.
ENDSELECT.
ENDIF.
*---------Fin Costos indirectos
ENDSELECT.
ENDSELECT. " Fin recuperacion de los pedidos
ENDLOOP.
ENDFORM. "carga_pedidos