Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Реализация квитанция, подскажите как лучше сделать / 4 сообщений из 4, страница 1 из 1
07.11.2008, 21:50
    #35641181
densit
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Реализация квитанция, подскажите как лучше сделать
Наверняка многие не раз сталкивались с проблемой реализации вот такой платёжки с 2 сторонами. Если не сложно подскажите как её сделать???
...
Рейтинг: 0 / 0
07.11.2008, 22:49
    #35641276
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

и т.д.
...
Рейтинг: 0 / 0
07.11.2008, 23:42
    #35641344
densit
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Реализация квитанция, подскажите как лучше сделать
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 раз одного и того же шаблона, но с разными переданными данными....
...
Рейтинг: 0 / 0
09.11.2008, 19:13
    #35642548
densit
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Реализация квитанция, подскажите как лучше сделать
Как решить проблему переноса длинного текста в другую ячейку Excel, если не объединять ячейки...?
...
Рейтинг: 0 / 0
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Реализация квитанция, подскажите как лучше сделать / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]