AXForum  
Вернуться   AXForum > Microsoft Dynamics AX > DAX: Программирование
All
Забыли пароль?
Зарегистрироваться Правила Справка Пользователи Сообщения за день Поиск

 
 
Опции темы Поиск в этой теме Опции просмотра
Старый 11.09.2008, 14:51   #1  
kashperuk is offline
kashperuk
Участник
Аватар для kashperuk
MCBMSS
Соотечественники
Сотрудники Microsoft Dynamics
Лучший по профессии 2017
Лучший по профессии 2015
Лучший по профессии 2014
Лучший по профессии 2011
Лучший по профессии 2009
 
4,361 / 2084 (78) +++++++++
Регистрация: 30.05.2004
Адрес: Atlanta, GA, USA
Апунктия - это хорошо.

"Буду ждать спасибо" сразу напомнило "Убить нельзя помиловать".
Старый 12.09.2008, 09:24   #2  
CRASH_505 is offline
CRASH_505
Участник
Аватар для CRASH_505
 
74 / 10 (1) +
Регистрация: 09.09.2008
Доброе утро. Как правильно дописать условие."Если товар не разнесен, то какое его время простоя по сегодняшний день"--???

PHP код:
    ProdJournalTable ProdJournalTable;
    
ProdJournalRoute ProdJournalRoute;
    
ProdJournalRoute ProdJournalRoute_1;
    
ProdJournalRoute ProdJOurnalRoute_2;
    
TmpProdJournalRouteOutTime tmpTable;
    
ProdTable  ProdTable;
    
int nDay;
    
SysOperationProgress    sop;
    
int                     cntItems;
    
date fromDate 01\09\2008;
    
date toDate 31\09\2008;
    ;
    
delete_from tmpTable;



        
select count (Recid)from Prodjournaltable
    exists join ProdJournalRoute
    where ProdJournalRoute
.JournalId==ProdJournalTable.JournalId&&
          
ProdJournalTable.Createddate >= fromDate &&
          
ProdJournalTable.createdDate <= toDate &&
         (
ProdJournalRoute.WrkCtrId == '113' ||
          
ProdJournalRoute.WrkCtrId == '135');

        
cntItems ProdJournalTable.RecId;

    
sop SysOperationProgress::newGeneral('','',cntItems); // преоброзование шкалы


    
while select  createddate,journalid,posted
    from ProdJournalTable
    exists join ProdJournalRoute
    where ProdJournalRoute
.JournalId==ProdJournalTable.JournalId&&
          
ProdJournalTable.Createddate >= fromDate &&
          
ProdJournalTable.createdDate <= toDate &&
         (
ProdJournalRoute.WrkCtrId == '113' ||
          
ProdJournalRoute.WrkCtrId == '135')
    {
        
select ProdJournalRoute_1
        order by oprnum desc
        where
            ProdJournalRoute_1
.JournalId == ProdJournalTable.JournalId;

        
select ProdTable
        where
            ProdTable
.ProdId == ProdJournalRoute_1.ProdId;

        
select  ProdJournalRoute_2
        where
                ProdJournalRoute_2
.OprId like '045*' &&
                
ProdJournalRoute_2.JournalId == ProdJournalTable.JournalId;




       
sop.incCount();

                
info
        
(
            
strfmt("%1,%2,%3",
            
ProdJournalTable.createdDate,
            
ProdJournalTable.JournalId,
            
toDay() - ProdJournalTable.createdDate)
        );



        
tmpTable.clear();

        
tmpTable.ITEMID =ProdTable.ItemId;
        
tmpTable.WRKCTRID=ProdjournalRoute_1.WrkCtrId;
        
tmpTable.Qty=ProdJournalRoute_1.QtyGood+ProdJournalRoute_1.QtyError;

        if(
ProdJournalTable.Posted==noyes::No)     ????
        {
            
tmpTable.Days=toDay() - ProdJournalTable.createdDate;?????
        }
        else
        {
          ?????
        }

        
tmpTable.Normal=noYes::No;


       if ( 
tmpTable.WRKCTRID == '135')
        {
            
nDay 1;
        }
        if ( 
tmpTable.WRKCTRID == '113')
        {
            if (
ProdJournalRoute_2 != NULL)
            {
                 
nDay=5;
            }
            else
            {
                
nDay 3;
            }
        }

        if (
tmpTable.Days nDay)
            
tmpTable.Normal=NoYes::No;
        else
            
tmpTable.Normal=NoYes::Yes ;

        
tmpTable.insert();
    } 
Старый 12.09.2008, 10:22   #3  
Gustav is offline
Gustav
Moderator
Аватар для Gustav
SAP
Лучший по профессии 2009
 
1,858 / 1152 (42) ++++++++
Регистрация: 24.01.2006
Адрес: Санкт-Петербург
Записей в блоге: 19
Цитата:
Сообщение от CRASH_505 Посмотреть сообщение
PHP код:
    date fromDate 01\09\2008;
    
date toDate 31\09\2008
СОВЕТ: Для оформления кода в сообщении лучше использовать тэг XPP:
X++:
date fromDate = 01\09\2008;
date toDate = 31\09\2008;
А то возникают визуальные недоразумения. Я даже полез проверять - думал, может уже изобрели такой способ задания дат - без разделителей
Старый 12.09.2008, 10:29   #4  
CRASH_505 is offline
CRASH_505
Участник
Аватар для CRASH_505
 
74 / 10 (1) +
Регистрация: 09.09.2008
[/xpp]А то возникают визуальные недоразумения. Я даже полез проверять - думал, может уже изобрели такой способ задания дат - без разделителей [/quote]
Спасибо учту
Старый 12.09.2008, 10:04   #5  
lev is offline
lev
Ищущий знания...
Аватар для lev
Oracle
MCBMSS
Axapta Retail User
 
1,723 / 491 (20) +++++++
Регистрация: 18.01.2005
Адрес: Москва
Доброе! Не совсем понял задачу.
__________________
"Страх перед возможностью ошибки не должен отвращать нас от поисков истины." (с)
С Уважением,
Елизаров Артем
Старый 12.09.2008, 10:19   #6  
CRASH_505 is offline
CRASH_505
Участник
Аватар для CRASH_505
 
74 / 10 (1) +
Регистрация: 09.09.2008
Цитата:
Сообщение от lev Посмотреть сообщение
Доброе! Не совсем понял задачу.
Вот условие. Время, свыше которого ДСЕ не должны находиться в ЗГПТО. Для деталей ,обрабатываемых в цехе 135 норматив составляет 1 день;
Вопрос если деталь не успели разнести или забыли, сколько дней она там лежит не разнесенной (Время простоя детали ).Извиняюсь за некорректность своих вопросов.

PHP код:
  tmpTable.clear();

        
tmpTable.ITEMID =ProdTable.ItemId;
        
tmpTable.WRKCTRID=ProdjournalRoute_1.WrkCtrId;
        
tmpTable.Qty=ProdJournalRoute_1.QtyGood+ProdJournalRoute_1.QtyError;

        if(
ProdJournalTable.Posted==noyes::No)
        {
            
tmpTable.Days=  //toDay() - ProdJournalTable.createdDate;;
        
}
        else
        {
            
tmpTable.Days=noyes::Yes;
        }

        
tmpTable.Normal=noYes::No;


       if ( 
tmpTable.WRKCTRID == '135')
        {
            
nDay 1;
        }
        if ( 
tmpTable.WRKCTRID == '113')
        {
            if (
ProdJournalRoute_2 != NULL)
            {
                 
nDay=5;
            }
            else
            {
                
nDay 3;
            }
        }

        if (
tmpTable.Days nDay)
            
tmpTable.Normal=NoYes::No;
        else
            
tmpTable.Normal=NoYes::Yes ;

        
tmpTable.insert();
    } 
Старый 12.09.2008, 10:28   #7  
lev is offline
lev
Ищущий знания...
Аватар для lev
Oracle
MCBMSS
Axapta Retail User
 
1,723 / 491 (20) +++++++
Регистрация: 18.01.2005
Адрес: Москва
X++:
        if(ProdJournalTable.Posted==noyes::No)
        {
            tmpTable.Days=  //toDay() - ProdJournalTable.createdDate;;
        }
        else
        {
            tmpTable.Days=noyes::Yes;
        }
...
        if (tmpTable.Days > nDay)
что то не понял, какого типа у вас поле Days в таблице tmpTable. и где выхотите увидеть результат проверки, сколько уже не разнесен товар (в виде какой то галочки, или указания где то даты).
__________________
"Страх перед возможностью ошибки не должен отвращать нас от поисков истины." (с)
С Уважением,
Елизаров Артем
Старый 12.09.2008, 10:39   #8  
CRASH_505 is offline
CRASH_505
Участник
Аватар для CRASH_505
 
74 / 10 (1) +
Регистрация: 09.09.2008
...
if (tmpTable.Days > nDay)
[/xpp]что то не понял, какого типа у вас поле Days в таблице tmpTable. и где выхотите увидеть результат проверки, сколько уже не разнесен товар (в виде какой то галочки, или указания где то даты).[/quote]

Days типа int.Результат должен быть в поле Days сколько дней детали простаивают
Старый 12.09.2008, 10:48   #9  
lev is offline
lev
Ищущий знания...
Аватар для lev
Oracle
MCBMSS
Axapta Retail User
 
1,723 / 491 (20) +++++++
Регистрация: 18.01.2005
Адрес: Москва
тогда вопрос! почему этому поле присваевается енум NoYes::Yes??? конечно он присвоит единичку, но какая то странная логика. ну и по идее вот этот закаментированный код, делает то что вам надо:
X++:
tmpTable.Days=  //toDay() - ProdJournalTable.createdDate;;
только на мой взгляд было бы правильней:
X++:
tmpTable.Days=  toDay() - ProdjournalRoute_1.transDate;
__________________
"Страх перед возможностью ошибки не должен отвращать нас от поисков истины." (с)
С Уважением,
Елизаров Артем
Старый 12.09.2008, 10:51   #10  
CRASH_505 is offline
CRASH_505
Участник
Аватар для CRASH_505
 
74 / 10 (1) +
Регистрация: 09.09.2008
Цитата:
Сообщение от lev Посмотреть сообщение
тогда вопрос! почему этому поле присваевается енум NoYes::Yes??? конечно он присвоит единичку, но какая то странная логика. ну и по идее вот этот закаментированный код, делает то что вам надо:
Не то что вас смутило NoYes::Yes??? , это просто я экспериментировал с программой. Ща попробую сделать
Старый 12.09.2008, 13:08   #11  
CRASH_505 is offline
CRASH_505
Участник
Аватар для CRASH_505
 
74 / 10 (1) +
Регистрация: 09.09.2008
Большое спасибо за вашу помощь.Вот что получилось, все нормально работает
tmpTable.clear();

X++:
      tmpTable.ITEMID =ProdTable.ItemId;
        tmpTable.WRKCTRID=ProdjournalRoute_1.WrkCtrId;
        tmpTable.Qty=ProdJournalRoute_1.QtyGood+ProdJournalRoute_1.QtyError;

        if(ProdJournalTable.Posted==noyes::No)
        {
            tmpTable.Days= (toDay() - ProdJournalTable.createdDate)+1; //toDay() - ProdjournalRoute_1.transDate;
        }
        else
        {
            tmpTable.Days=(ProdJournalTable.PostedDate - ProdJournalTable.createdDate)+1 ;
        }

        tmpTable.Normal=noYes::No;


       if ( tmpTable.WRKCTRID == '135')
        {
            nDay = 1;
        }
        if ( tmpTable.WRKCTRID == '113')
        {
            if (ProdJournalRoute_2 != NULL)
            {
                 nDay=5;
            }
            else
            {
                nDay = 3;
            }
        }

        if (tmpTable.Days > nDay)
            tmpTable.Normal=NoYes::No;
        else
            tmpTable.Normal=NoYes::Yes ;

        tmpTable.insert();
    }
Старый 12.09.2008, 15:00   #12  
HorrR is offline
HorrR
Участник
 
340 / 30 (2) +++
Регистрация: 18.02.2008
Адрес: Киев
Совсем забыл спросить, нормально тех-литературу на англицком читаете?
__________________
Axapta has seduced me deadly!
Старый 12.09.2008, 15:07   #13  
CRASH_505 is offline
CRASH_505
Участник
Аватар для CRASH_505
 
74 / 10 (1) +
Регистрация: 09.09.2008
Цитата:
Сообщение от HorrR Посмотреть сообщение
Совсем забыл спросить, нормально тех-литературу на англицком читаете?
На английском не очень
Старый 15.09.2008, 09:16   #14  
CRASH_505 is offline
CRASH_505
Участник
Аватар для CRASH_505
 
74 / 10 (1) +
Регистрация: 09.09.2008
Доброе утро.Вот программа.Подскажите как прописать условие суммирования,
т.к есть одинаковые номенклатуры, забитые в один и тотже день, а суммы разные
как суммировать.
X++:
    ProdJournalTable ProdJournalTable;
    ProdJournalRoute ProdJournalRoute;
    ProdJournalRoute ProdJournalRoute_1;
    ProdJournalRoute ProdJOurnalRoute_2;
    TmpProdJournalRouteOutTime tmpTable;
    ProdTable  ProdTable;
    int nDay;
    SysOperationProgress    sop;
    int                     cntItems;
    date fromDate = 01\09\2008;
    date toDate = 31\09\2008;
    ;
    delete_from tmpTable;



        select count (Recid)from Prodjournaltable
    exists join ProdJournalRoute
    where ProdJournalRoute.JournalId==ProdJournalTable.JournalId&&
          ProdJournalTable.Createddate >= fromDate &&
          ProdJournalTable.createdDate <= toDate &&
         (ProdJournalRoute.WrkCtrId == '113' ||
          ProdJournalRoute.WrkCtrId == '135');

        cntItems = ProdJournalTable.RecId;

    sop = SysOperationProgress::newGeneral('','',cntItems); // преоброзование шкалы


    while select  createddate,journalid,posted,posteddate
    From ProdJournalTable
    exists join ProdJournalRoute
    where ProdJournalRoute.JournalId==ProdJournalTable.JournalId&&
          ProdJournalTable.Createddate >= fromDate &&
          ProdJournalTable.createdDate <= toDate &&
         (ProdJournalRoute.WrkCtrId == '113' ||
          ProdJournalRoute.WrkCtrId == '135')
    {
        select ProdJournalRoute_1
        order by oprnum desc
        where
            ProdJournalRoute_1.JournalId == ProdJournalTable.JournalId;

        select ProdTable
        where
            ProdTable.ProdId == ProdJournalRoute_1.ProdId;

        select  ProdJournalRoute_2
        where
                ProdJournalRoute_2.OprId like '045*' &&
                ProdJournalRoute_2.JournalId == ProdJournalTable.JournalId;




       sop.incCount();

     /*           info
        (
            strfmt("%1,%2,%3",
            ProdJournalTable.createdDate,
            ProdJournalTable.JournalId,
            toDay() - ProdJournalTable.createdDate)
        );*/



        tmpTable.clear();

        tmpTable.ITEMID =ProdTable.ItemId;
        tmpTable.WRKCTRID=ProdjournalRoute_1.WrkCtrId;
        tmpTable.Qty=ProdJournalRoute_1.QtyGood+ProdJournalRoute_1.QtyError;

        if(ProdJournalTable.Posted==noyes::No)
        {
            tmpTable.Days= (toDay() - ProdJournalTable.createdDate)+1; //toDay() - ProdjournalRoute_1.transDate;
        }
        else
        {
            tmpTable.Days=(ProdJournalTable.PostedDate - ProdJournalTable.createdDate)+1 ;
        }

        tmpTable.Normal=noYes::No;


       if ( tmpTable.WRKCTRID == '135')
        {
            nDay = 1;
        }
        if ( tmpTable.WRKCTRID == '113')
        {
            if (ProdJournalRoute_2 != NULL)
            {
                 nDay=5;
            }
            else
            {
                nDay = 3;
            }
        }

        if (tmpTable.Days > nDay)
            tmpTable.Normal=NoYes::No;
        else
            tmpTable.Normal=NoYes::Yes ;

        tmpTable.insert();
    }
Старый 15.09.2008, 10:03   #15  
mazzy is offline
mazzy
Участник
Аватар для mazzy
Лучший по профессии 2015
Лучший по профессии 2014
Лучший по профессии AXAWARD 2013
Лучший по профессии 2011
Лучший по профессии 2009
 
29,472 / 4494 (208) ++++++++++
Регистрация: 29.11.2001
Адрес: Москва
Записей в блоге: 10
Цитата:
Сообщение от CRASH_505 Посмотреть сообщение
Доброе утро.Вот программа.Подскажите как прописать условие суммирования
Пожалуйста, создавайте отдельные ветки для каждого отдельного вопроса.
Пожалуйста, давайте осмысленные имена веткам.

Эта ветка закрыта. Извините.
__________________
полезное на axForum, github, vk, coub.
Теги
progress bar, tutorial

 

Похожие темы
Тема Автор Раздел Ответов Посл. сообщение
Еще вопрос про покрытие по аналитикам в Сводном планировании rt2 DAX: Функционал 3 24.03.2006 18:56
Функция поиска подстроки, чувствительная к регистру . Есть ли такая в аксапте? ATimTim DAX: Программирование 4 13.02.2006 15:37
Вопрос по фильтрации axaLearner DAX: Программирование 9 20.09.2005 18:59
Есть ли планирование движения денежных средств? dd DAX: Функционал 5 10.06.2004 15:57
Вопрос к пользователю при сохранении данных в таблице Anais DAX: Программирование 1 19.03.2004 10:28

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход

Рейтинг@Mail.ru
Часовой пояс GMT +3, время: 22:15.
Powered by vBulletin® v3.8.5. Перевод: zCarot
Контактная информация, Реклама.