Advertisement
Guest User

Untitled

a guest
Oct 30th, 2017
95
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 4.84 KB | None | 0 0
  1. FACT:
  2. LOAD
  3. applymap('MAP_BU_NAMES',upper(DATAAREAID),null()) as BU,
  4. 'BEA270' as Type,
  5. applymap('MAP_BU_NAMES',upper(DATAAREAID),null())&'/'&SALESID as ID_Sales,
  6. INVOICEDATE as Date,
  7. applymap('MAP_BU_NAMES',upper(DATAAREAID),null())&'/'&BEASECTEURVENTEID as %Secteur,
  8. BEASECTEURVENTEID as %Secteur_SN,
  9. if(BEA552SEGMENTID='PIE','PED',BEA552SEGMENTID) as %Segment,
  10. BEA671NEWSEGMENTID as %New_Segment,
  11. upper(DATAAREAID)&'/'&ITEMID&'/'&CONFIGID as %Item,
  12. upper(DATAAREAID)&'/'&CUSTACCOUNT as %Customer,
  13. BEAATTRIBUTPAYSID as CountryISO,
  14. BEACHAINEID as Billing.Brand,
  15. ECHANTILLON as Billing.ECHANTILLON,
  16.  
  17. INVOICEDQTY as #Billing.Qty,
  18.  
  19. LINEAMOUNTMST as #Billing.LocalCurrencyAmount,
  20. applymap('Mapping_PRBU',upper(DATAAREAID)&'/'&ITEMID&'/'&CONFIGID ,0) as #Billing.LocalCurrencyPRBU_Unit,
  21. applymap('Mapping_PRBU',upper(DATAAREAID)&'/'&ITEMID&'/'&CONFIGID ,0) * INVOICEDQTY as #Billing.LocalCurrencyPRBU_Total,
  22. LINEAMOUNTMST-((applymap('Mapping_PRBU',upper(DATAAREAID)&'/'&ITEMID&'/'&CONFIGID ,0)*applymap('Map_BU_CoeffPRBU',upper(DATAAREAID),0)) * INVOICEDQTY)
  23. as #Billing.LocalCurrencyPRBU_Margin,
  24.  
  25. LINEAMOUNTEURO as #Billing.EuroAmount,
  26. applymap('Mapping_PRBU',upper(DATAAREAID)&'/'&ITEMID&'/'&CONFIGID ,0) *applymap('MapCurrency3',applymap('MapCurrencyByDataArea',upper(DATAAREAID),0)&'/'&num(floor(INVOICEDATE)),0)
  27. as #Billing.EuroPRBU_Unit,
  28. (applymap('Mapping_PRBU',upper(DATAAREAID)&'/'&ITEMID&'/'&CONFIGID ,0) * INVOICEDQTY)*applymap('MapCurrency3',applymap('MapCurrencyByDataArea',upper(DATAAREAID),0)&'/'&num(floor(INVOICEDATE)),0)
  29. as #Billing.EuroPRBU_Total,
  30. (LINEAMOUNTMST-((applymap('Mapping_PRBU',upper(DATAAREAID)&'/'&ITEMID&'/'&CONFIGID ,0)*applymap('Map_BU_CoeffPRBU',upper(DATAAREAID),0)) * INVOICEDQTY))*applymap('MapCurrency3',applymap('MapCurrencyByDataArea',upper(DATAAREAID),0)&'/'&num(floor(INVOICEDATE)),0)
  31. as #Billing.EuroPRBU_Margin
  32.  
  33. FROM [lib://Global_Qlik_Folder (europe_weqan)/Common\02. QVD\BEA270STATISTIQUESCLIENT.QVD]
  34. (qvd)
  35. where wildmatch(applymap('Map_CustGroup',upper(DATAAREAID)&'/'&CUSTACCOUNT,null()),'C*');
  36.  
  37.  
  38. // ...
  39.  
  40. // ************* This Part get prefix ********************
  41.  
  42. CONCATENATE(FACT)
  43. LOAD
  44. applymap('MAP_BU_NAMES',upper(DATAAREAID),null()) as BU,
  45. 'Overhead' as Type,
  46. autonumber(upper(DATAAREAID)&'/'&ACCOUNTNUM, null()) as %Account,
  47. upper(DATAAREAID)&'/'&ACCOUNTNUM as Account,
  48. TRANSDATE as Date,
  49. AMOUNTMST as #Overheads.LocalCurrencyAmount,
  50. AMOUNTMST * applyMap('Map_Coeff_M2BEU',upper(DATAAREAID)&'/'&DIMENSION2_, 1) as #Overheads.LocalCurrencyAmount_EU,
  51.  
  52. AMOUNTMST*applymap('MapCurrency3',applymap('MapCurrencyByDataArea',upper(DATAAREAID),0)&'/'&num(floor(TRANSDATE)),0)
  53. as #Overheads.EuroAmount,
  54. (AMOUNTMST*applyMap('Map_Coeff_M2BEU',upper(DATAAREAID)&'/'&DIMENSION2_)) * applymap('MapCurrency3',applymap('MapCurrencyByDataArea',upper(DATAAREAID),0)&'/'&num(floor(TRANSDATE)),0)
  55. as #Overheads.EuroAmount_EU,
  56. VOUCHER as #Overheads.Doc.Number,
  57. "TXT" as #Overheads.Line_Label,
  58. DIMENSION2_ as #Overheads.CostCenter,
  59. subfield(DIMENSION2_,'.',1) as #Overheads.Department,
  60. subfield(DIMENSION2_,'.',2) as #Overheads.SubCostCenter,
  61. JOURNALNUM as #Overheads.%Journal,
  62. POSTING as #Overheads.%Posting_Type
  63. FROM [lib://Global_Qlik_Folder (europe_weqan)/Common\02. QVD\LEDGERTRANS.QVD]
  64. (qvd)
  65. WHERE match(PERIODCODE,'0','1') // 0 = opening // 1 = normal // 2 = closing //
  66. and Exists(Account, upper(DATAAREAID)&'/'&ACCOUNTNUM)
  67. and num(TRANSDATE)>=num($(vFirstDate))
  68. ;
  69.  
  70. // *********************************************
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement