Приветствую Вас Гость | RSS

Delphi заготовки

Среда, 27.11.2024, 01:09
Главная » Статьи » Мои статьи

В категории материалов: 11
Показано материалов: 1-10
Страницы: 1 2 »

Сортировать по: Дате · Названию · Рейтингу · Комментариям · Просмотрам
ERP avarda

Cкопировать строки из одного документа в другой

     insert into LIN (EID, EIDDOC, ECONCEPT, EFLAG, EID1, EID2, EID3, EID4, EID5, EID6, EINT1, EINT2, ENUM1, ENUM2, ENUM3,
                      ENUM4, ENUM5, ENUM6, ENUM7, ENUM8, ENUM9, ENUM10, ENUM11, ENUM12, ENUM13, ENUM14, ENUM15, ECODE,
                      ETEXT1, EDATE1)
     select (select newid from getnewidlin), 1541038850, ECONCEPT, EFLAG, EID1, EID2, EID3, EID4, EID5, EID6, EINT1, EINT2, ENUM1, ENUM2, ENUM3, ENUM4,
            ENUM5, ENUM6, ENUM7, ENUM8, ENUM9, ENUM10, ENUM11, ENUM12, ENUM13, ENUM14, ENUM15, ECODE,ETEXT1, EDATE1

     from LIN
     where eiddoc=1541037993

1541038850 - Новый документ
1541037993 - старый документ
Мои статьи | Просмотров: 922 | Добавил: NetSoftWare | Дата: 09.07.2012 | Комментарии (0)

Задача

Добавить изображение на страницу так, чтобы оно обтекалось рядом

лежащим текстом.или как поместить изображение рядом с текстом

(искал в Yandex, и нашел интересный материал который может вам

помочь при создание изящных веб страниц, метод работает на серверах ucoz.ru) 

сама статья

http://htmlbook.ru/faq/kak-sdelat-obtekanie-kartinki-tekstom




Мои статьи | Просмотров: 1701 | Добавил: NetSoftWare | Дата: 30.05.2012 | Комментарии (0)

В рамках обмена ссылками на проекты начинаю размещение информации




Мои статьи | Просмотров: 2266 | Добавил: NetSoftWare | Дата: 29.05.2012 | Комментарии (3)

как в Avarda ERP получить список товаров с упаковкой

select lid,lcode,lname, /* id записи / артикул и наименование */
    (select nnum1 from nab where nconcept=100800 and nid2=1404 and nidlib=lid), /* кол-во в упаковке  */
    (select  NAME_DEF_ED_IZM from DLL_GET_DEFAULT_ED_IZM(lid)) as def_ed_izm /* основная ед. изм */
from lib where lconcept=800 and lflag=8 -- это товар 
/* если есть упаковка */
and (select nnum1 from nab where nconcept=100800 and nid2=1404 and nidlib=lid) is not null


Мои статьи | Просмотров: 976 | Добавил: NetSoftWare | Дата: 14.05.2012 | Комментарии (0)

Добрый день!
часто просят пример программы для расчета функций sin через F(x)
пример подобной программы в файле
http://netsoftware.ucoz.ru/funkcija.zip
Мои статьи | Просмотров: 1781 | Добавил: NetSoftWare | Дата: 07.02.2012 | Комментарии (1)

пример очистки например на входе
 Пример из  чисел 11314,55
на выходе
 11314,55 



Function GetAllNumber(s:string):string;
var s2:string;
x,l:integer;
begin
s2:='';
l:=length(S);
for x:=1 to l do
if ((s[x]>='0') and (s[x]<='9')) or s[x] in ('.',',') then s2:=s2+s[x];
result:=s2;
end;
 
Мои статьи | Просмотров: 802 | Добавил: NetSoftWare | Дата: 26.10.2011 | Комментарии (0)

База FireBird как получить текущие значения всех Генераторов инкриментов

 
EXECUTE BLOCK
RETURNS (GenName varchar(255), GenValue INTEGER)
AS
DECLARE VARIABLE SQL varchar(255);
BEGIN
Мои статьи | Просмотров: 1582 | Добавил: NetSoftWare | Дата: 26.10.2011 | Комментарии (0)

Перевел функцию Сумма прописью для FastReport 4.0 паскаль версия
основная статья
http://delphiworld.narod.ru/base/sum_written_out7.html
моя переделка для встроенного языка FastReport



Мои статьи | Просмотров: 7758 | Добавил: NetSoftWare | Дата: 24.07.2011 | Комментарии (3)

// Функция обрисовки стрелки  по координатам на Паскале / Delphi
// для работы функции необходимо подключить модуль Math
// все замечания и предложения писать в аську 368254335
// или почту

Procedure DrawStrelka(Cn:Tcanvas;x1,y1,x2,y2:integer;fhs:integer=25;a:integer=30);
  var ugol:real;
begin
     Cn.MoveTo(x1,y1);
     Cn.LineTo(x2,y2);
     if (abs(x2-x1)+abs(y1-y2))>0 then begin
     if (x2-x1)<>0 then
     ugol:=arctan(((y2-y1)/((x2
.......
Мои статьи | Просмотров: 1957 | Добавил: NetSoftWare | Дата: 24.07.2011 | Комментарии (1)

Нужно посчитать какая будет сумма на счету в банке через 1000 лет с учетом инфляции и без.
Исходные данные начальная сумма, процент годовых, процент инфляции.
Мои статьи | Просмотров: 982 | Добавил: NetSoftWare | Дата: 15.07.2011 | Комментарии (1)

1-10 11-11