Programming Solution

/*program to check if user test have access to menu journal entry create*/ {us/mf/mfdtitle.i} define temp-table ttvrl no-undo   Field ttvrl_role as character   Field ttvrl_id   as Integer. define variable m_usr as character no-undo. define variable m_avl as Logical   no-undo. Assign   m_usr = "test". For First mnd_det no-lock where mnd_nbr = "25.13.1" and mnd_select = 1 :     For each resource where resourceUri = mnd_uri no-lock :         For each roleresource where roleresource.resource_id = resource.resource_id no-lock :              For first role where role.role_id = roleresource.role_id and RoleIsActive no-lock :                 if can-find (First ttvrl where ttvrl_role = role.rolename ) then .                 else                 do:                     Message role.rolename view-as alert-box.                     create ttvrl.                      Assign                         ttvr

1.       What is the difference between WO close and WO accounting close. 2.       What are the different types of transaction types in mfg-pro 3.       What is tag count when it is used 4.       Explain the purchase cycle 5.       What is the difference between the WO module and Repetitive  module. 6.       Explain the Payment cycle 7.       Explain the Sales Cycle 8.       What is a schedule order 9.       Explain GTM why and where it can be used 10.   How can u ensure that the supplier is given a schedule on a particular day of the week say only on Monday. 11.   What is MRP .What are the different types of MRP 12.   Can the  status of the the material can be changed 13.   What are financial transactions passed when you do voucher and payments. 14.   What are the transaction  passed when the payment is made 15.   The financial transaction passed when the sales  order is  updated. 16.   What are the primary input for MRP explain  in details 17.   Expl

1.        What is “No-undo” in the variable declaration? 2.        What are the different .pf parameters 3.        What are the different types of  locks in progress? Explain with example. If a record is locked Exclusively, can a shared lock be provided over the same? 4.        What are different type of procedures in progress? Can internal procedure call other internal procedure? If yes how? If no why no? Can external procedure call internal procedures? 5.        How is array defined in progress? What is the limit of extent for progress? Can we create 2 dimensional / multi dimensional arrays in progress / How? If no then how can we achieve the same? 6.        What are browses? 7.        What are queries? 8.        Can we call excel application from progress? How? 9.        What is the difference between can-find and find? 10.     What are the different types of triggers available in progress? Name few database level triggers. 11.     What are the different type

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

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(Today) + 1 ) ) + "/" + String ( YEAR(TODAY)) ) - 1.             else        Assign

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

                                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 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.

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                                                                                                                           x x                                                                                                                                                          x x     Selection: 1                                                                                                                                  x mqqqqq

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

/*Sample API Program to create currency in QAD EE*/ {us/mf/mfdtitle.i} {us/bbi/gplabel.i} {us/wb/wbrp01.i}         {us/gl/glsec.i} {us/gp/gpuid.i} {proxy/bcurrencydef.i } /* ======== FOR API ========= */ DEFINE VARIABLE viReturn                     AS INTEGER     NO-UNDO. DEFINE VARIABLE ilReturnDataset              AS LOGICAL     NO-UNDO. DEFINE VARIABLE ilPartialUpdate              AS LOGICAL     NO-UNDO. DEFINE VARIABLE icPartialUpdateExceptionList AS CHARACTER   NO-UNDO. DEFINE VARIABLE ocPrimaryKey                 AS CHARACTER   NO-UNDO. DEFINE VARIABLE ocRowid                      AS CHARACTER   NO-UNDO. DEFINE VARIABLE oiDraftInstance              AS INTEGER     NO-UNDO. DEFINE VARIABLE ocPrimaryKeyName             AS CHARACTER   NO-UNDO. DEFINE VARIABLE vho                          AS HANDLE. DEFINE VARIABLE oiReturnStatus               AS INTEGER     NO-UNDO. empty temp-table tCurrency. for first RoundingMethod no-lock where RoundingMethodCode = "

Updated APK for PokemonGo POKEMONGO- Updated APK 0.33.0

/*Below query checks if Purchase order 10765 is locked */ {us/mf/mfdtitle.i} find first po_mstr where po_domain = global_domain and po_nbr = "10765" exclusive-lock NO-WAIT no-error. if avail po_mstr then   Message po_nbr view-as alert-box. If locked po_mstr then do: find first po_mstr where po_domain = global_domain and po_nbr = "10765" no-lock no-error. for first _lock where _Lock._Lock-Recid = Integer (RECID(po_mstr)) no-lock :     find first _file where _File._File-Number = _Lock._Lock-Table no-lock no-error.    message _File._File-Name " is locked by user " _Lock._Lock-Usr _Lock._Lock-Name view-as alert-box.   End. End.

Link to get the latest tips for PokemonGO Best Tips for PokemonGo

/*Sample Query to fetch data with date range*/ Define variable m_date  as Date no-undo. Define variable m_date1 as Date no-undo. Repeat:     Assign       m_date  = ?       m_date1 = ?.       update m_date m_date1 with frame a side-label.             IF m_date  = ? THEN m_date1 = low_date.       IF m_date1 = ? THEN m_date1 = hi_date.            FOR EACH tr_hist where tr_domain = global_domain and tr_effdate >= m_date and tr_effdate <= m_date1 no-lock :            END.       End.