Posts

Showing posts from September, 2014

Progress - 4GL, show the qty of difference for same item from two different excel in to single excel.

/* program take input from two excel sheets and show the same item with same rate and their   corresponding value in same row ,*/ /* if not found same item with same rate , then fetch the first record for the item from second sheet and show this record with not matched record */ /* item found in one sheet but not in another sheet will show with the zero value for the sheet for which it is not found */ DEFINE TEMP-TABLE ttinv_st NO-UNDO     FIELD st_part AS CHARACTER      FIELD st_qty AS DECIMAL  FORMAT  "->>>,999,999.999"     FIELD st_rate AS DECIMAL  FORMAT  "->>>,999,999.999". DEFINE TEMP-TABLE ttinv_st2 NO-UNDO     FIELD st2_part AS CHARACTER      FIELD st2_qty AS DECIMAL  FORMAT  "->>>,999,999.999"     FIELD st2_rate AS DECIMAL  FORMAT  "->>>,999,999.999". DEFINE TEMP-TABLE ttinv_cs NO-UNDO     FIELD cs_part AS CHARACTER      FIELD cs_qty AS DECIMAL  FORMAT  "->>>,999,999.999"     F

Progres 4GL Sample Query, how to fetch the data in excel.

In the below Query we have used the join of two tables i.e ih_hist and idh_his, you can replace them as per need. output to "test-sachin3.xls". put unformatted  "part "      "~011"  "invoice nbr" "~011"  "qty ord"    "~011"  "qty inv "      "~011"  "price"    "~011"  "pod_line "      "~011" "ih inv date"    "~011" "ih ord date"      "~011" "ih req date"    "~011" "ih ship date"   "~011" "ih due date"    "~011"  "idh due date"    "~011" "idh per date "      "~011" "idh req date"    "~011" "idh sob date"    "~011" SKIP.       FOR EACH ih_hist WHERE ih_cust = ih_cust: for each idh_hist where idh_part = '120620'and idh_inv_nbr = ih_inv_nbr: put unformatted   idh_part   &qu