#1
|
|||
|
|||
Amigos Abap - Consulta
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 |
Herramientas | Buscar en Tema |
Desplegado | |
|
|