Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / FoxPro, Visual FoxPro Новый топик    Ответить
 Реализация квитанция, подскажите как лучше сделать  [new]
densit
Member

Откуда:
Сообщений: 27
Наверняка многие не раз сталкивались с проблемой реализации вот такой платёжки с 2 сторонами. Если не сложно подскажите как её сделать???

К сообщению приложен файл (Квитанция.rar - 3Kb) cкачать
7 ноя 08, 21:50    [6411508]     Ответить | Цитировать Сообщить модератору
 Re: Реализация квитанция, подскажите как лучше сделать  [new]
Nikita_2
Member

Откуда:
Сообщений: 80
Не причисляю себя к сонму програмистов скорее любитель, но подобное
делал с помощью шаблона
Рисуешь квитанцию в exel, создаешь курсор с нужными данными ,далее данные выводишь в ячейки квитанции, примерно так:

***Заполнение клиент,адрес,рег*************
fio_p=Alltrim(vladelec_hp.fam)+' '+Alltrim(vladelec_hp.ima)+' '+Alltrim(vladelec_hp.oth)
loDoc.Sheets(1).Range("ag101").value=fio_p
loDoc.Sheets(1).Range("ag10").value=fio_p
loDoc.Sheets(2).Range("b3").value=fio_p

adr_p=Alltrim(vladelec_hp.gorod)+','+Alltrim(vladelec_hp.ulica)+' д.'+Alltrim(STR(vladelec_hp.dom))+' корп.'+Alltrim(STR(vladelec_hp.corp))+' кв.'+Alltrim(STR(vladelec_hp.kvart))
loDoc.Sheets(1).Range("ak101").value=adr_p
loDoc.Sheets(1).Range("ak10").value=adr_p

и т.д.
7 ноя 08, 22:49    [6411734]     Ответить | Цитировать Сообщить модератору
 Re: Реализация квитанция, подскажите как лучше сделать  [new]
densit
Member

Откуда:
Сообщений: 27
Nikita_2
Не причисляю себя к сонму програмистов скорее любитель, но подобное
делал с помощью шаблона
Рисуешь квитанцию в exel, создаешь курсор с нужными данными ,далее данные выводишь в ячейки квитанции, примерно так:

***Заполнение клиент,адрес,рег*************
fio_p=Alltrim(vladelec_hp.fam)+' '+Alltrim(vladelec_hp.ima)+' '+Alltrim(vladelec_hp.oth)
loDoc.Sheets(1).Range("ag101").value=fio_p
loDoc.Sheets(1).Range("ag10").value=fio_p
loDoc.Sheets(2).Range("b3").value=fio_p

adr_p=Alltrim(vladelec_hp.gorod)+','+Alltrim(vladelec_hp.ulica)+' д.'+Alltrim(STR(vladelec_hp.dom))+' корп.'+Alltrim(STR(vladelec_hp.corp))+' кв.'+Alltrim(STR(vladelec_hp.kvart))
loDoc.Sheets(1).Range("ak101").value=adr_p
loDoc.Sheets(1).Range("ak10").value=adr_p

и т.д.

Спасибо, интересный вариант)
Пока сидел над реализацией заполнения такой квитанции, всплыл нюанс:
Как быть в случае, чтобы за 1 клик формирования квитанции - их делалось несколько, например на оплату каждой услуги (т.е. есть клиент, за ним закреплены несколько предоставленных услуг)...Делать реализацию открытия за 1 раз одного и того же шаблона, но с разными переданными данными....
7 ноя 08, 23:42    [6411940]     Ответить | Цитировать Сообщить модератору
 Re: Реализация квитанция, подскажите как лучше сделать  [new]
densit
Member

Откуда:
Сообщений: 27
Как решить проблему переноса длинного текста в другую ячейку Excel, если не объединять ячейки...?
9 ноя 08, 19:13    [6414186]     Ответить | Цитировать Сообщить модератору
Все форумы / FoxPro, Visual FoxPro Ответить