powered by simpleCommunicator - 2.0.56     © 2025 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Реализация квитанция, подскажите как лучше сделать
4 сообщений из 4, страница 1 из 1
Реализация квитанция, подскажите как лучше сделать
    #35641181
densit
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Наверняка многие не раз сталкивались с проблемой реализации вот такой платёжки с 2 сторонами. Если не сложно подскажите как её сделать???
...
Рейтинг: 0 / 0
Реализация квитанция, подскажите как лучше сделать
    #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
Реализация квитанция, подскажите как лучше сделать
    #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
Реализация квитанция, подскажите как лучше сделать
    #35642548
densit
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Как решить проблему переноса длинного текста в другую ячейку Excel, если не объединять ячейки...?
...
Рейтинг: 0 / 0
4 сообщений из 4, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Реализация квитанция, подскажите как лучше сделать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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