Codigo para obtener "Sourrce System R/3 Entty

CALL FUNCTION 'RSDG_ID_GET_FROM_LOGSYS'
EXPORTING
i_source_system = G_S_MINFO-LOGSYS
IMPORTING
e_soursysid = RESULT
EXCEPTIONS
id_not_found = 1.

Codigo para extraer las rubricas salariales

Este es un codigo curioso de como obtener las rubricas salariales, aunque al final se utilizó la call function de más abajo.

DATA: zpa0001 TYPE TABLE OF p0001 WITH HEADER LINE.
DATA: zpa0008 TYPE TABLE OF p0008 WITH HEADER LINE,
zpa0007 TYPE TABLE OF p0007 WITH HEADER LINE,
zpa0014 TYPE TABLE OF p0014 WITH HEADER LINE,
ZPPBWLA TYPE TABLE OF PBWLA WITH HEADER LINE.


* CALL FUNCTION 'HR_READ_INFOTYPE'
* EXPORTING
* pernr = wa_c_t_data-pernr
* infty = '0008'
* begda = '18000101'
* endda = '99991231'
* TABLES
* infty_tab = zpa0008.
*
* LOOP AT zpa0008.
* IF zpa0008-BEGDA <= wa_c_t_data-BEGDA * and zpa0008-endda >= wa_c_t_data-ENDDA.
* DO 40 TIMES VARYING LGA FROM ZPa0008-LGA01 NEXT ZPa0008-LGA02
* VARYING BTE FROM ZPa0008-BET01 NEXT ZPa0008-BET02.
* IF LGA eq '0001'.
* wa_c_t_data-Z_VB_0001 = bte.
* ELSEIF LGA eq '0004'.
* wa_c_t_data-Z_IHT_0004 = bte.
* ELSEIF LGA eq '0005'.
* wa_c_t_data-Z_CH_0005 = bte.
* ELSEIF LGA eq '0006'.
* wa_c_t_data-Z_TU_0006 = bte.
* ELSEIF LGA eq '0007'.
* wa_c_t_data-Z_AS_0007 = bte.
* ENDIF.
* ENDDO.
* endif.
* endloop.



CALL FUNCTION 'RP_FILL_WAGE_TYPE_TABLE_EXT'
EXPORTING
* APPLI = 'E'
begda = wa_c_t_data-BEGDA
endda = wa_c_t_data-ENDDA
INFTY = '0008'
PERNR = wa_c_t_data-PERNR
* SUBTY = '0 '
TABLES
PP0001 = zpa0001
PP0007 = zpa0007
PP0008 = zpa0008
PPBWLA = zPPBWLA .
EXCEPTIONS
ERROR_AT_INDIRECT_EVALUATION = 1 .
IF SY-SUBRC <> 0.
ENDIF.


LOOP AT zPPBWLA.
IF zPPBWLA-BEGDA <= wa_c_t_data-BEGDA and zPPBWLA-endda >= wa_c_t_data-ENDDA.
IF zPPBWLA-LGARt eq '0001'.
wa_c_t_data-Z_VB_0001 = zPPBWLA-betrg.
ELSEIF zPPBWLA-LGARt eq '0004'.
wa_c_t_data-Z_IHT_0004 = zPPBWLA-betrg.
ELSEIF zPPBWLA-LGARt eq '0005'.
wa_c_t_data-Z_CH_0005 = zPPBWLA-betrg.
ELSEIF zPPBWLA-LGARt eq '0006'.
wa_c_t_data-Z_TU_0006 = zPPBWLA-betrg.
ELSEIF zPPBWLA-LGARt eq '0007'.
wa_c_t_data-Z_AS_0007 = zPPBWLA-betrg.
ENDIF.
endif.
endloop.


CALL FUNCTION 'RP_FILL_WAGE_TYPE_TABLE_EXT'
EXPORTING
* APPLI = 'E'
begda = wa_c_t_data-BEGDA
endda = wa_c_t_data-ENDDA
INFTY = '0014'
PERNR = wa_c_t_data-PERNR
SUBTY = '3001'
TABLES
PP0001 = zpa0001
PP0007 = zpa0007
PP0008 = zpa0008
PPBWLA = zPPBWLA
PP0014 = zpa0014 .
EXCEPTIONS
ERROR_AT_INDIRECT_EVALUATION = 1 .
IF SY-SUBRC <> 0.
ENDIF.
LOOP AT zPPBWLA.
if zPPBWLA-BEGDA <= wa_c_t_data-BEGDA and zPPBWLA-endda >= wa_c_t_data-ENDDA
and zPPBWLA-LGART EQ '3001'.
wa_c_t_data-Z_PJ_3001 = zPPBWLA-betrg.
endif.
endloop.

CO-PA Mapping

He aquí el mapeo de CO-PA
Síntese de objetos
Campo InfoObjeto Elem.dds. Tp.dados Compr.int.

1_CO_PA_CCA

Caracts.

Centro de custo emissor SKOST 0ME_CSTCNT SKOST CHAR 20
Centro de lucro parceiro PPRCTR 0PART_PRCTR PPRCTR CHAR 20
Chart of accounts KTOPL 0CHRT_ACCTS KTOPL CHAR 8
Chave do país LAND1 0COUNTRY LAND1_GP CHAR 6
Classe de custo KSTAR 0COSTELMNT KSTAR CHAR 20
Ctg.valor para reporting WRTTP 0VTYPE RSVTYPE NUMC 6
Currency Type CURTYPE 0CURTYPE RSCURTYPE CHAR 4
Customer number KNDNR 0CUSTOMER KUNDE_PA CHAR 20
Código da empresa BUKRS 0COMP_CODE BUKRS CHAR 8
Data de faturamento/liquidação FADAT 0ME_BILL_D FADAT DATS 16
Data de saída da mercadoria WADAT 0GI_DATE WADAT DATS 16
Distribution Channel VTWEG 0DISTR_CHAN VTWEG CHAR 4
Division SPART 0DIVISION SPART CHAR 4
Emissor processo empresarial PRZNR 0ME_ABCPRC SEPRZ CHAR 24
Material ARTNR 0MATERIAL ARTNR CHAR 36
Nº ordem RKAUFNR 0COORDER AUFNR CHAR 24
Objeto de custo KSTRG 0COSTOBJ KSTRG CHAR 24
Perspectiva de avaliação VALUTYP 0VALUATION VALUTYP_ACT NUMC 2
Plant WERKS 0PLANT WERKS_D CHAR 8
Posting date in the document BUDAT 0PSTNG_DATE DAERF DATS 16
Profit Center PRCTR 0PROFIT_CTR PRCTR CHAR 20
Sales Organization VKORG 0SALESORG VKORG CHAR 8
Tipo de operação VRGAR 0REC_TYPE RKE_VRGAR CHAR 2
Tipo documento de faturamento FKART 0BILL_TYPE FKART CHAR 8
Versão VERSI 0VERSION RKEVERSI CHAR 6
Área de contabilidade KOKRS 0CO_AREA KOKRS CHAR 8
Área de negócios GSBER 0BUS_AREA GSBER CHAR 8

Índices

Contribuição marginal 1 COPAMRGN1 0COPAMRGN1 COPAMRGN1 CURR 8
Contribuição marginal 2 COPAMRGN2 0COPAMRGN2 COPAMRGN2 CURR 8
Contribuição marginal 3 COPAMRGN3 0COPAMRGN3 COPAMRGN3 CURR 8
Custos de vendas COPACOGS 0COPACOGS COPACOGS CURR 8
Desconto KWSKTO 0CASH_DSCNT RKESKWSKTO CURR 8
Faturamento líquido COPANETSL 0COPANETSL COPANETSL CURR 8
Promoção COPASPROM 0COPASPROM COPASPROM CURR 8
Quantidade de vendas COPASLQTY 0COPASLQTY COPASLQTY QUAN 8
Receita COPAREVEN 0COPAREVEN COPAREVEN CURR 8
Resultado empresarial operativo COPAPROFT 0COPAPROFT COPAPROFT CURR 8
Total custos de produção fixos COPACOGSF 0COPACOGSF COPACOGSF CURR 8
Total custos indiretos COPAOVHDC 0COPAOVHDC COPAOVHDC CURR 8
Total desvios COPAVRNCS 0COPAVRNCS COPAVRNCS CURR 8
Total reduções de receita COPADISCT 0COPADISCT COPADISCT CURR 8

Características temporais

Exercício GJAHR 0FISCYEAR GJAHR NUMC 8
Exercício / período PERIO 0FISCPER JAHRPER NUMC 14
Variante de exercício PERIV 0FISCVARNT PERIV CHAR 4

Unidades

Código da moeda REC_WAERS 0CURRENCY RKE_REC_WAERS CUKY 10
Unidade de venda COPASLQTU 0COPASLQTU COPASLQTU UNIT 6

Outros campos

WW004 RKEG_WW004 CHAR 4
WW003 RKEG_WW003 CHAR 4
WW002 RKEG_WW002 CHAR 4
WW001 RKEG_WW001 CHAR 4
VV004 RKE2_VV004 CURR 8
VV003 RKE2_VV003 CURR 8
VV002 RKE2_VV002 CURR 8
VV001 RKE2_VV001 CURR 8
VRPRS RKE2_VRPRS CURR 8
STO_POSNR RKE_STO_POSNR CHAR 12
STO_BELNR RKE_STO_BELNR CHAR 20
RPOSN RKERFPOSNR CHAR 12
RBELN RKERFBELNR CHAR 20
POSNR RKE_POSNR CHAR 12
COPAOHSLS COPAOHSLS CURR 8
COPAOHRND COPAOHRND CURR 8
COPAOHOTH COPAOHOTH CURR 8
COPAOHMRK COPAOHMRK CURR 8
COPAOHLOG COPAOHLOG CURR 8
COPAOHADM COPAOHADM CURR 8
COPAODSCN COPAODSCN CURR 8
COPANETRV COPANETRV CURR 8
COPAMATOH COPAMATOH CURR 8
COPAFRGTC COPAFRGTC CURR 8
COPADMATC COPADMATC CURR 8
COPADIRSL COPADIRSL CURR 8
COPACOGSV COPACOGSV CURR 8
COPACDSCN COPACDSCN CURR 8
COPACASHD COPACASHD CURR 8
BELNR RKE_BELNR CHAR 20
ABSMG_ME RKE3_ABSMG UNIT 6
ABSMG RKE2_ABSMG QUAN 8
COPAPDSCN COPAPDSCN CURR 8
ERLOS RKE2_ERLOS CURR 8
COPAUSR09 COPAUSR09 CURR 8
COPAUSR08 COPAUSR08 CURR 8
COPAUSR07 COPAUSR07 CURR 8
COPAUSR06 COPAUSR06 CURR 8
COPAUSR05 COPAUSR05 CURR 8
COPAUSR04 COPAUSR04 CURR 8
COPAUSR03 COPAUSR03 CURR 8
COPAUSR02 COPAUSR02 CURR 8
COPAUSR01 COPAUSR01 CURR 8
COPASDIRS COPASDIRS CURR 8
COPASCOMM COPASCOMM CURR 8
COPAREBAT COPAREBAT CURR 8
COPAQDSCN COPAQDSCN CURR 8
COPAPRDCV COPAPRDCV CURR 8
COPAPRDCF COPAPRDCF CURR 8
Item ord.cliente KDPOS KDPOS NUMC 12
Ordem do cliente KAUFN KDAUF CHAR 20

COPA Extraction Steps

R/3 System
1. KEB0
2. Select Datasource 1_CO_PA_CCA
3. Select Field Name for Partitioning (Ex, year, company code... for performance)
4. Initialise
5. Select characteristics & Value Fields & Key Figures
6. Select Development Class/Local Object
7. Workbench Request
8. Edit your Data Source to Select/Hide Fields
9. Extract Checker at RSA3 & Extract

***
Edit report: KE35
Key figure configuration: KER1
***

BW
1. Replicate Data Source
2. Assign Info Source
3. Transfer all Data Source elements to Info Source
4. Activate Info Source
5. Create Cube on Infoprovider (Copy str from Infosource)
6. Go to Dimensions and create dimensions, Define & Assign
7. Check & Activate
8. Create Update Rules
9. Insert/Modify KF and write routines (const, formula, abap)
10. Activate
11. Create InfoPackage for Initialization
12. Maintain Infopackage
13. Under Update Tab Select Initialize delta on Infopackage
14. Schedule/Monitor
15. Create Another InfoPackage for Delta
16. Check on DELTA OptionPls r
17. Ready for Delta Load

NOT TO DO:
CO-PA DataSources cannot be enhanced using the standard SAP BW tools.
You need to delete the data source and then need to re-create using KEB2 transaction.
prefix 1_CO_PA* is madatory


!!!
For data to be read from a summarization level, the level must also contain all the characteristics that are to be extracted using the DataSource (entry * in maintenance transaction KEDV). Furthermore, the summarization must have status ACTIVE.

Plan/Currency
PLIKZ (plan/actual indicator) --> 0VTYPE
PALEDGER (currency type)--> 0CURTYPE, 0VALUTYP




LIS, CO/PA, and FI/SL are Customer Generated Generic Extractors, and LO is BW Content Extractors.

LIS is a cross application component LIS of SAP R/3 , which includes, Sales Information System, Purchasing Information System, Inventory Controlling....

Similarly CO/PA and FI/SL are used for specific Application Component of SAP R/3.

CO/PA collects all the OLTP data for calculating contribution margins (sales, cost of sales, overhead costs). FI/SL collects all the OLTP data for financial accounting, special ledger

1) Add the fields to the operating concern. So that the required field is visible in CE1XXXX table and other concerned tables CE2XXXX, CE3XXXX etc.

2) While re-creating the data source use the same old name so that there won't be any changes in the BW side when you need to assign the data source to info-source. Just replicate the new data source in BW side and map the new field in info-source. If you re-create using a different name then you will be needing extra build efforts to take the data into BW through IS all the way top to IC. I would personally suggest keep the same old data source name as before.

3)If you are adding the fields from the same "Operating concern" then goto KE24 and edit the dataaource and add your fields. However if you are adding fields outside the "Operating concern" then you need to append the extract structure and populate the fields in user exit using ABAP code. Reference OSS note: 852443

1. Check RSA7 on your R3 to see if there is any delta queue for COPA. (just to see, sometimes there is nothing here for the datasource, sometimes there is)
2. On BW go to SE16 and open the table RSSDLINIT
3. Find the line(s) corresponding to the problem datasource.
4. You can check the load status in RSRQ using the RNR from the table
5. Delete the line(s) in question from RSSDLINIT table
6. Now you will be able to open the infopackage. So now you can ReInit. But before you try to ReInit ....
7. In the infopackage go to the 'Scheduler' menu > 'Initialization options for the source system' and delete the existing INIT (if one is listed)

http://help.sap.com/saphelp_47x200/helpdata/en/7a/4c38814a0111d1894c0000e829fbbd/frameset.htm

Trasnsportes inversos en 5 pasos

1.Crear una orden en el sistema fuente (Ej: BWP) llamada xxxx.
Meter todo lo que se quiera transportar en la orden.

2.Ir a: SE09/SE10 --> crear transporte de copias orden yyyy
Marcar el check box de transporte de Copies y seleccionar crear.
Poner una descripción y escoger un sistema destino, por ej: BWD.

3.Desbloquea los objetos con la SE03 y copia los objetos de la orden xxxx a la yyyy

4.Borra los objetos de la orden xxxx y Libera la orden yyyy

5.Ves al sistema destino BWD, importa la cola y la orden

HOW TO's

https://www.sdn.sap.com/irj/sdn/howtoguides

Tablas útiles para BW

Infoobjetos
RSDIOBJT


Queries
RSZELTDIR Directory of the reporting component elements
RSZELTTXT Texts of reporting component elements
RSZELTXREF Directory of query element references
RSRREPDIR Directory of all reports (Query GENUNIID)
RSZCOMPDIR Directory of reporting components

Workbooks
RSRWBINDEX List of binary large objects (Excel workbooks)
RSRWBINDEXT Titles of binary objects (Excel workbooks)
RSRWBSTORE Storage for binary large objects (Excel workbooks)
RSRWBTEMPLATE Assignment of Excel workbooks as personal templates
RSRWORKBOOK 'Where-used list' for reports in workbooks

Web templates
RSZWOBJ Storage of the Web Objects
RSZWOBJTXT Texts for Templates/Items/Views
RSZWOBJXREF Structure of the BW Objects in a Template
RSZWTEMPLATE Header Table for BW HTML Templates