Каталог статей

FireBird SQL Avarda Скопировать строчки из одного документа в другой

Mon, 09 Jul 2012 09:53:16 GMT

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 - старый документ

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

Wed, 30 May 2012 10:27:20 GMT

Задача

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

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

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

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

сама статья

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

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

Tue, 29 May 2012 02:47:34 GMT

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

Сборник функций для Avarda ERP

Mon, 14 May 2012 07:46:17 GMT

как в 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

Расчет Sin(X) через Формулы факториала

Tue, 07 Feb 2012 11:09:27 GMT

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

Возвращает список всех чисел в строке (очистка строки от всех значений кроме числовых)

Wed, 26 Oct 2011 10:56:24 GMT

пример очистки например на входе
Пример из чисел 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;

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

Wed, 26 Oct 2011 10:52:20 GMT

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

EXECUTE BLOCK
RETURNS (GenName varchar(255), GenValue INTEGER)
AS
DECLARE VARIABLE SQL varchar(255);
BEGIN

Сумма прописью для FastReport 4.0 паскаль версия

Sun, 24 Jul 2011 17:13:09 GMT

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

Функция обрисовки стрелки по координатам на Паскале / Delphi

Sun, 24 Jul 2011 10:02:17 GMT

// Функция обрисовки стрелки по координатам на Паскале / 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
.......

Решение простых задач

Fri, 15 Jul 2011 05:17:27 GMT

Нужно посчитать какая будет сумма на счету в банке через 1000 лет с учетом инфляции и без.
Исходные данные начальная сумма, процент годовых, процент инфляции.