/* Muestra los registros de la CustTable en un info y al hacer 2 clic en la linea
   abre la ventana de CustTable con el registro relacionado
   
   Samuel Ardila */
static void infoCustTable(Args _args)
{
    Query       query;
    CustTable   custTable;
    sysInfoAction_FormRunQuery   sysInfoAction;
    ;
    
    while select custTable
        index hint AccountIdx
        where custTable.AccountNum like ‘1*’
            {
                query = new query();
                query.addDataSource(tableNum(CustTable)).addRange(fieldNum(CustTable, AccountNum)).value(custTable.AccountNum);
                info(strfmt(‘%1 – %2’,custTable.AccountNum,DirPartyTable::find(custTable.PartyId).Name),, sysInfoAction_FormRunQuery::newFormnameControlnameQuery(formStr(CustTable),‘sac’, query));
            }
}

Leave a Comment