Foro de programación ABAP

HOLA
ALGUIEN SABE CONO LEER REGISTROS DE UNA BASE DE FOX UN "DBF",
Y COMO INSERTARLOS EN UNA TABLA EXTERNA A SAP EN ORACLE.

HOLA QUE TAL COMPAÑEROS.
HOYVENGO PIDIENDO SU AYUDA PORQU EL LA VDD ESTOY ATORADO EN ALGO, ESTOY HACIENDO UN REPORTE QUE LEE UNA TABLA CREADA EN SAP Y DEPUES LA MUESTRA EN UN AVL, MI PROBLEMA COMIENZA AQUI, LA INTENCION ES QUE ESE AVL TENGA LOS CAMPOS QUE SE NECECITAN Y APARTE TRES DE ELLOS SON ESPECIALES DOS SON CHECKS Y UNO ES DE TIPO ICONO, LA FINALIDAD DE ESTO ES QUE EL USUARIO PUEDA ACTIVAR EL CHECK CORRESPONDIENTE ASU AREA CUANDO DEN POR PASADO ESE DOC Y ASI AL FINAL EL SIGUIENTE DEPARTAMENTO HARA LOS MISMO POR ESO EL ECHO DE QUE AYA DOS CHECK Y ESO DETERMINARA EL ESTATUS DE EL DOCUMENTO Y ESTE SERA REFLEJADO POR UN ICONO , VERDE SI ESTAN LOS DOS SELECCIONADOS , AMARILLO SIE STA SOLO UNO SELECCIONADO Y ROJO SI INGNO EST ASELCCIONADO,
Y DE AHI S EESPERA QUE ESOS MOVIMIENTOS SEAN GUARDADOS EN L ATABLA DE LA CUAL SE SACARON LOS DATOS, PARA DESPUES GENERAR UN BATCH INPUT CON ESA TABLA Y QUE SOLO CARGE LOS DATOS CON EL SEMAFORO EN VERDE A LA TRNSACCION EN DONDE SE GENERAN LAS FACTURAS.
HASTA EL MOMENTO YA TENGO LA PRIMERA FACE CASI COMPLETA A ESEPCION DE QUE ME ACEPTE EL CHECK Y ESTOY POR EMPESAR LA SEGUNDA FACE QUE SERIA EL BATCH PERO ESTO ME ATORA Y EN VDD SI ALGIEN TUBIERA ALGUN TIP O ALGUNA IDEA SERA BIEN RECIBIDA.

HOLA ATODOS
HOLA NESESITO AYUDOA CON UN PROCESO DE  EL QUERY LOQ UE PASA ES QUE SE TARDA MUCHISIMO EN HACER EL QUERY, Y NECITO QUE TARDE COMO LA TRANSACCION FBL1N  QUE SI COMPARAMOS LA ESA TRANSACCION HACE Y MUESTRA EL RESULTADO BIEN Y POR MUCHO EN 10 MINUTOS Y EL MIO NUNCA ACABA PERO SI LEE LOS DATOS.
AYUDA NO SE QUE MAS HACER.

DE ANTEMANO MUCHAS GRACIAS.

REPORT ZRFI_ANT_SAL_PROV LINE-SIZE 163 NO STANDARD PAGE HEADING. TABLES: BKPF,         BSEG,         LFA1. *----------------------------------------------------------------------* * Definición de Parámetros y Select-Options                            * *----------------------------------------------------------------------* SELECTION-SCREEN BEGIN OF BLOCK sele WITH FRAME TITLE text-t02.      PARAMETERS: S_BUKRS LIKE BKPF-BUKRS OBLIGATORY default 'AL00',                  S_BELNR LIKE BKPF-BELNR default '*',                  S_LIFNR LIKE BSEG-LIFNR MATCHCODE object ZSH_001                               default '*',                  S_BLART LIKE BKPF-BLART default 'PL',                  S_GJAHR LIKE BKPF-GJAHR,                  S_DATUM LIKE SY-DATUM OBLIGATORY default SY-DATUM. SELECTION-SCREEN END OF BLOCK sele. *----------------------------------------------------------------------* * Definición de Tablas Internas y Estructuras                          * *----------------------------------------------------------------------* DATA: BEGIN OF T_DATOS OCCURS 0,       BUKRS LIKE BSEG-BUKRS,  "COMPANY       ZUONR LIKE BSEG-ZUONR,  "ASSIGMENT       XOPVW LIKE BSEG-XOPVW,  "DOCUMENTO ABIERO O NO       WRBTR LIKE BSEG-WRBTR,  "MONTO REAL EN LA FACTURA       MWSKZ LIKE BSEG-MWSKZ,  "APLICACION DE IVA?       LIFNR LIKE BSEG-LIFNR,  "PROVEEDOR       BELNR LIKE BSEG-BELNR,  "NO. DOCUMENTO GENERADO POR SAP       BLART LIKE BKPF-BLART,  "TIPO DE DOCUMENTO       BLDAT LIKE BKPF-BLDAT,  "FECHA DE CARGA EN SAP       WAERS LIKE BKPF-WAERS,  "TIPO DE MONEDA EN LA FACTURA       ZFBDT LIKE BSIK-ZFBDT,  "FECHA EN FACTURA       ZTERM LIKE BSIK-ZTERM,  "TERMINOS DE PAGO       NAME1 LIKE LFA1-NAME1,  "DESCRIPCION PROVEEDOR       NETDU LIKE BKPF-BLDAT,  "FECHA LIMITE DE PAGO       DIASV LIKE BKPF-GJAHR,  "DIAS VENCIDOS       SATOT LIKE BSEG-WRBTR,  "TOTAL DE DOCUMENTO END OF T_DATOS. DATA: LT_DATOS LIKE LINE OF T_DATOS. DATA: L_OUT_DATE LIKE SY-DATUM. DATA: DIFF_D TYPE I. *----------------------------------------------------------------------* * Variables                                   * *----------------------------------------------------------------------* DATA: CONTADOR TYPE I. DATA: CONTADOR2 TYPE I. DATA: CONTADOR3 TYPE I. DATA: CONTADOR4 TYPE I. *----------------------------------------------------------------------* * Evento Iniatialization                                               * *----------------------------------------------------------------------* START-OF-SELECTION. PERFORM OBTENER_DATOS. PERFORM IMPRIMIR_DATOS. *----------------------------------------------------------------------* * Funciones                                                            * *----------------------------------------------------------------------* *----------------------------------------------------------------------* * Forms                                                                * *----------------------------------------------------------------------* * Form  OBTENER_DATOS                                                  * *----------------------------------------------------------------------* FORM OBTENER_DATOS. SELECT BUKRS ZUONR XOPVW WRBTR MWSKZ LIFNR BELNR INTO T_DATOS FROM BSEG WHERE BUKRS EQ S_BUKRS AND LIFNR = S_LIFNR AND XOPVW = 'X'. *AND BELNR EQ S_BELNR. APPEND T_DATOS. ENDSELECT. **---------------------------------------------------------------------- LOOP AT T_DATOS. CONTADOR = SY-TABIX. SELECT SINGLE BLART BLDAT WAERS INTO (T_DATOS-BLART, T_DATOS-BLDAT, T_DATOS-WAERS) FROM BKPF WHERE BUKRS EQ S_BUKRS AND BLART EQ S_BLART AND BELNR EQ T_DATOS-BELNR. MODIFY T_DATOS INDEX CONTADOR. ENDLOOP. **---------------------------------------------------------------------- LOOP AT T_DATOS. CONTADOR2 = SY-TABIX. SELECT SINGLE ZFBDT ZTERM INTO (T_DATOS-ZFBDT, T_DATOS-ZTERM) FROM BSIK WHERE BELNR EQ T_DATOS-BELNR. MODIFY T_DATOS INDEX CONTADOR2. ENDLOOP. **---------------------------------------------------------------------- LOOP AT T_DATOS. CONTADOR3 = SY-TABIX. SELECT SINGLE NAME1 INTO (T_DATOS-NAME1) FROM LFA1 WHERE LIFNR EQ T_DATOS-LIFNR. MODIFY T_DATOS INDEX CONTADOR3. ENDLOOP. **---------------------------------------------------------------------- LOOP AT T_DATOS. CONTADOR4 = SY-TABIX. *PERFORM ADD_TIME. PERFORM DAYS. *T_DATOS-NETDU = L_OUT_DATE. T_DATOS-DIASV = DIFF_D. T_DATOS-SATOT = T_DATOS-WRBTR. MODIFY T_DATOS INDEX CONTADOR4. ENDLOOP. ENDFORM. *----------------------------------------------------------------------* * Form  IMPRIMIR_DATOS                                                 * *----------------------------------------------------------------------* FORM IMPRIMIR_DATOS. WRITE: /5 'REPORTE DE PAGO A PROVEEDORES' COLOR 1 ON. WRITE: 135 'FECHA ACTUAL : ' INVERSE COLOR 6, SY-DATUM INVERSE COLOR 6, SY-ULINE. SKIP 2. *  WRITE: /2    'COMPAÑIA', *               'PROVEEDOR', *               'NOMBRE PROVEEDOR', *               'ASSIGMENT', *               'NO. DOC', *               'TIPO DE DOC', *               'POSTING DATE', *               'MONTO EN FACT', *               'MONEDA FACT', *               'IVA', *               'FECHA EN FACT', *               'TERMINOS', *               'FECHA LIMITE', *               'DIAS VENCIDOS', *               'TOTAL DOC'. LOOP AT T_DATOS. SORT T_DATOS BY LIFNR. IF T_DATOS-LIFNR <> '00000'. MOVE T_DATOS TO LT_DATOS. *CADA CAMBIO DE PROVEEDOR *AT NEW LIFNR.   WRITE: /2  LT_DATOS-BUKRS,           8  LT_DATOS-LIFNR,           15 LT_DATOS-NAME1,          /2  LT_DATOS-ZUONR,              LT_DATOS-BELNR, *            LT_DATOS-XOPVW,              LT_DATOS-BLART,              LT_DATOS-BLDAT,              LT_DATOS-WRBTR,              LT_DATOS-WAERS,              LT_DATOS-MWSKZ,              LT_DATOS-ZFBDT,              LT_DATOS-ZTERM,              LT_DATOS-NETDU,              LT_DATOS-DIASV,              LT_DATOS-SATOT INVERSE COLOR 2.   SKIP 1. *ENDAT. **AL FINAL DE CADA PROVEEDOR AT END OF LIFNR.   SUM.   WRITE: /78 'MONTO TOTAL DEL PROVEEDOR:',           104 LT_DATOS-WRBTR COLOR 2 ON.   SKIP 1. ENDAT. ***AL FINAL DE LOS PROVEEDORES **AT LAST. **SUM. **SKIP 2. **WRITE: /80 'M O N T O    T O T A L   A   P A G A R:'  INVERSE COLOR 6, **120 ZAV_REPORTE-MONTO  INVERSE COLOR 6. **ENDAT. ENDIF. ENDLOOP. ENDFORM. *---------------------------------------------------------------------* * Form de FUNCION PARA AGREGAR LOS TERMINOS O DIAS DE PLAZO ALA FECHA * *         DE FACTURACION                                              * *---------------------------------------------------------------------* FORM ADD_TIME. CALL FUNCTION 'ADD_TIME_TO_DATE' EXPORTING    I_IDATE                   = T_DATOS-ZFBDT    I_TIME                    = T_DATOS-ZTERM    I_IPRKZ                   = '' " ''=Day, 1=Week, 2=Month ,3 = Year IMPORTING    O_IDATE                   = L_OUT_DATE EXCEPTIONS    INVALID_PERIOD            = 01    INVALID_ROUND_UP_RULE     = 02    INTERNAL_ERROR            = 03 . ENDFORM. *---------------------------------------------------------------------* * Form FUNCION PARA DETERMINAR CUANTOS DIAS LLEVA VENCIDA LA FACTURA  * *---------------------------------------------------------------------* FORM DAYS. CALL FUNCTION 'DAYS_BETWEEN_TWO_DATES' EXPORTING    I_DATUM_BIS              = S_DATUM    I_DATUM_VON              = T_DATOS-ZFBDT IMPORTING    E_TAGE                   = DIFF_D EXCEPTIONS    DAYS_METOD_NOT_DEFINED   = 1    OTHERS                   = 2. ENDFORM. *---------------------------------------------------------------------*

HOLA ALGUIEN ME PODRIA YUDAR PARA SABER EXACTAMENTE CUANDO FUE EXECUTADO POR ULTIMAVES UN REPORTE O PROGRAMA, O DE DONDE PUEDO OBTENER ESE DATO
DE ANTEMANO GARSIAS
THE TIN

HOLA
BUSCI AYUDA O ALHUNA REFERENCIA SOBRE COMO UTILIZAR UN CAMPO QYUE SEA ALGO ASI COMO UN OPEN ITEM, LOQ UE PASA ESQUE DESEO VALIDAR POR MEDIO DE SO QUE ITEMS AN SIDO ABUERTOS DESDE UN QUERIE
DE ANTEMANO GRASIAS Y LES MANDO UN SALUDO

HOLA QUE TAL MIRA PODRIAS CHECAR LA TABLA D010SINF, AHI VIEN LA FECHA DE CREACION Y MODIFICACION. ADEMAS DE VARIOS DATOS SOBRE EL REPORTE.

Y TAMBIEN PUEDES EJECUTAR ESTA TRANSACCION QUE Y METE BIEN LOS DATOS DEPENDIENDO DE LO QUE BUSQUES Y LAS FECHAS Y TE ARROJARA UN LISTADO DE CUANDO Y AQUE HORA SE UTILISO EL REPORTE, SI NO SAVES EL NOMBRE DEJA EL * Y SOLO OPN EL USUARIO Y LAS FECHAS

LA transacción STAT que llama al programa RSSTAT21

ESPERO SE ALO que buscabas

OYE GRASIAS PERO SAVES CREO QUE NO ME EXPLIQUE BIEN EN MI DUDA, LO QUE MEE STAN OPIDIENDO EN LA EMPRESA ES SAVER DIGAMOS QUE DESDE QUE SE CREARON SI SE USAN O NO, PORQUE AL PARESER TIENEN COMO 300 O MAS REPORTES Y CREOQ UE SOLO OCUPAN MAXIMO 80
Y DESEAN SAVER CUALES SON LOS QUE YA NO OCUPAN Y CUALES SI.
AGRADESCO TU RESPUESTA
UN SALUDO