Posts

UPDATED APK pokemonGO 0.43-4 27Oct2016

Below is the link for updated APK Pokemon-go-0-43-4 pokemon-go-0-43-3 POKEMONGO 0.39

Progress 4GL/Open edge Code to fetch First and Last date of any month.

In the below example we have fetched the First and Last Date of the current month, you can customized it and can use as per your requirement. Define variable date1 as date no-undo. Define variable date2 as date no-undo. run Default_date. Message "First Date of Current Month" date1 " ----" " Last Date of Current Month " date2  view-as alert-box. PROCEDURE Default_date:      Define variable m_session as character no-undo.      Assign        m_session     = SESSION:DATE-FORMAT.    IF INDEX (m_session , "m") = 2 THEN    do:        IF INDEX (m_session , "y") = 3 then        do:             IF Month(Today) <> 12 THEN        Assign     date1 = date("01" + "/" + String(Month(Today)) + "/" + String(YEAR(TODAY)))     date2 = date("01" + "/" + String ( ( Month...

Updated APK for Pokémon GO 0.37.0 - 13-Sep-2016

Please follow the below link to download latest APK Pokémon GO 0.37.0 apk

Easy Way To Get JIO SIM

                                Easy Way To Get JIO SIM                                 After knowing about the cheap data packs and voice call offering of JIO sim, everyone is trying to book a connection for JIO sim. Below are some useful articles which will help you in securing one connection for you. Enjoy. 1)  How to Get Reliance Jio Sim Without Lyf Phone 2)  2) How to get the JIO sim without LYF Handset 3)  How can I get Reliance Jio 4G SIM by Jugaad?

Sample Progress 4GL Query to check duplicate customer in the table

Sample Query to check duplicate customer in the table Define buffer mBuf FOR xx_mstr. Define buffer kBuf FOR xx_mstr. Define temp-table tt    Field tt_recid as recid .  Empty temp-table tt.  Output to "Duplicate_records.xls".  FOR EACH each xx_mstr no-lock :     FIND first tt where tt_recid = recid(xx_mstr) no-lock NO-ERROR.     IF avail tt THEN next.     FIND First mBuf where mBuf.cust-num = xx_mstr.cust-num and recid(mBuf) <> recid(xx_mstr) no-lock no-error.     IF avail mBuf THEN     do:       Export delimiter "~011" mBuf.       FOR EACH kbuf where kbuf.cust-num = xx_mstr.cust-num :            create tt      Assign tt_recid = recid(mBuf).             END.     End.          END.  output close.

Attach program to Menu Option - QAD EE and assign Role to access it.

How to attach a program to menu option in Enterprise Edition QAD You have to use menu option 36.4.4.1 Menu System Maintenance to attach a program to menu, below is the sample screen shot to attach a program xxtest_e.p at 99.2.3.1 mgmemt.p                 36.4.4.1 Menu System Maintenance             08/23/16 lqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqk x   Language ID: us                english (U.S.)                                                                                      x x          Menu: 99.2.3                         ...

How to get peace of mind

1. Forget and forgive This is the most powerful aid to peace of mind. We often nurture ill feeling inside our heart for the person who insults or harms us. We forget that the insult or injury was done to us once but by nourishing the grievance we go on excavating the wound forever. Therefore it is essential that we cultivate the art of forgiving and forgetting. Believe in the justice of God and the doctrine of Karma. Let Him judge the act of the one who insulted you. Life is too short to waste in such trifles. Forget, forgive, and march on. 2. Do not interfere in others' business Most of us create our own problems by interfering too often in others' affairs. We do so because somehow we have convinced ourselves that our way is the best way, our logic is the perfect logic, and those who do not conform to our thinking must be criticized and steered to the right direction, our direction. This kind of attitude on our part denies the existe...