1. Pascal / Говнокод #113

    −23.1

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    if (TableData = 1) or ((TableData = 2) and
        (Pos(FieldDelim + 'Т_НАЦ' + FieldDelim, OpArtFields) > 0)) then
        sSelect := sSelect + ', ' + LMax + 'AR.Percent' + R + ' AR_Percent';
      if (TableData = 1) or ((TableData = 2) and
        (Pos(FieldDelim + 'Т_КАТ' + FieldDelim, OpArtFields) > 0)) then
        sSelect := sSelect + ', ' + LMax + 'AR.ID_ArtCat' + R + ' AR_ID_ArtCat';
      if (TableData = 1) or ((TableData = 2) and
        (Pos(FieldDelim + 'Т_ВЕС' + FieldDelim, OpArtFields) > 0)) then
        sSelect := sSelect + ', ' + LMax + 'AR.Weight' + R + ' AR_Weight';
      if (TableData = 1) or ((TableData = 2) and
        (Pos(FieldDelim + 'Т_ОБЪЕМ' + FieldDelim, OpArtFields) > 0)) then
        sSelect := sSelect + ', ' + LMax + 'AR.Capacity' + R + ' AR_Capacity';
      if (TableData = 1) or ((TableData = 2) and
        (Pos(FieldDelim + 'МИННАЦ' + FieldDelim, OpArtFields) > 0)) then
        sSelect := sSelect + ', ' + LMax + 'AR.MinDiscount' + R + ' AR_MinDiscount';
      if (TableData = 1) or ((TableData = 2) and
        (Pos(FieldDelim + 'Т_МИНКОЛ' + FieldDelim, OpArtFields) > 0)) then
        sSelect := sSelect + ', ' + LMax + 'AR.MinQuantity' + R + ' AR_MinQuantity';
      if (TableData = 1) or ((TableData = 2) and
        (Pos(FieldDelim + 'Т_СТАТУС' + FieldDelim, OpArtFields) > 0)) then
        sSelect := sSelect + ', ' + LMax + 'AR.Status' + R + ' AR_Status';
      if (TableData = 1) or ((TableData = 2) and
        (Pos(FieldDelim + 'Т_ГТД' + FieldDelim, OpArtFields) > 0)) then
        sSelect := sSelect + ', ' + LMax + 'AR.GTD' + R + ' AR_GTD';
      if (TableData = 1) or ((TableData = 2) and
        (Pos(FieldDelim + 'Т_СТРАНА' + FieldDelim, OpArtFields) > 0)) then 
        sSelect := sSelect + ', ' + LMax + 'CO.Name' + R + ' AR_Country';

    Собирание SQL - запроса для выборки полей. И это маленький кусочек :)
    Серьёзная контора с миллиардными оборотами!

    Запостил: guest, 11 Декабря 2008

    Комментарии (4) RSS

    Добавить комментарий