ъБДБЮЛБ УПЪДБОЙС ПФЮЕФПЧ, Ч ЛПФПТЩИ РПМШЪПЧБФЕМШ НПЦЕФ ЧОПУЙФШ ЙЪНЕОЕОЙС ДМС FOXБ - ЬФП ЪБДБЮБ...

с РТЙНЕОСА ЧПФ ЮФП: ПУОПЧПК ПФЮЕФБ СЧМСЕФУС ДПЛХНЕОФ WORD, ДПРХУФЙН ДПЗПЧПТ У ЛМЙЕОФПН. дБООЩЕ
ЧЩВЙТБАФУС Ч ФБВМЙГХ У ПДОПК ЪБРЙУША Й ЮЕТЕЪ УФБОДБТФОЩК НЕИБОЙЪН УМЙСОЙС ЧУПВБЮЙЧБАФУС Ч ДПЛХНЕОФ.
пДОБЛП Ч ФПН ЦЕ ДПЛХНЕОФЕ ЕУФШ Й ДБООЩЕ ПФПВТБЦБЕНЩЕ Ч ЧЙДЕ ФБВМЙГЩ У МАВЩН ЮЙУМПН УФТПЛ.
ч ЫБВМПОЕ ДПЛХНЕОФБ ЙНЕЕФУС ЪБЗПМПЧПЛ ФБВМЙГЩ Й ПДОБ РХУФБС УФТПЛБ.
дМС ЪБРПМОЕОЙС ФБЛПК ФБВМЙГЩ ОХЦОП ПФЛТЩФШ ДПЛХНЕОФ, РЕТЕНЕУФЙФШУС Ч ОХЦОПЕ НЕУФП Й ЪБРПМОЙФШ
ФБВМЙГХ.
с ДЕМБА ФБЛ:

	dd=ddeinitiate("winword","System")&& ХУФБОБЧМЙЧБЕН УЧСЪШ,ЕУМЙ WORD ХЦЕ ЪБРХЭЕО dd - ИЕОДМЕТ
	
if 	dd<0 &&ЕУМЙ ОЕФ
	oword=create('word.application')&&ъБРХЭБЕН WORD
	dd=ddeinitiate("winword","System")&&ХУФБОБЧМЙЧБЕН УЧСЪШ 
	else
	dd=ddeinitiate("winword","System")&&ХУФБОБЧМЙЧБЕН УЧСЪШ 
	endif
	if dd<0
	=messagebox('оЕ ХДБМПУШ MICROSOFT WORD')
	retu
	endif
ELSE
	RETU
ENDIF

	=ddeexecute(dd,'[Fileopen "ДПЛХНЕОФ.doc"]')&&ПФЛТЩЧБЕН ДПЛХНЕОФ , Ч ОЕН  ХЦЕ ВХДХФ УМЙФЩ ДБООЩЕ П
ЛМЙЕОФЕ Й РТ.
	=ddeexecute(dd,'[paradown ЮЙУМП РБТБЗТБЖПЧ]')&&УНЕЭБЕНУС Ч ОБЮБМП РХУФПК УФТПЛЙ Ч ФБВМЙГЕ

=ddeexecute(dd,'[TableInsertRow '+'"'+allt(str(ЛПМ-ЧП ЪБРЙУЕК))+'"'+"]" )&& ///*ДПВБЧМСЕН Ч
ФБВМЙГХ УФПМШЛП УФТПЛ,УЛПМШЛП ОХЦОП,ЕУМЙ УХННБТОЩЕ ЙФПЗЙ ОЕ ОХЦОЩ, ФП ОБ ПДОХ НЕОШЫЕ ,РПУЛПМШЛХ
ПОБ ХЦЕ ЕУФШ*////////

дБМЕЕ ЪБРХУЛБЕФУС РТПЗБ,ЛПФПТБС ЧЩЗМСДЙФ ФБЛ:
***********************************************************
sele dog3&&ЧЩВПТЛБ ДМС ЪБРПМОЕОЙС ФБВМЙГЩ Ч чПТДЕ
ЧУЕ ЧЧПДЙНЩЕ ЪОБЮЕОЙС Ч ddeexecute() ДПМЦОЩ ВЩФШ УФТПЛПЧЩНЙ,РПЬФПНХ ЛПЕ-ЮФП РТЕПВТБЪХА РП НЕУФХ 
go top
gggg=1&&УЮЕФЮЙЛ ЛПМ-ЧБ УФТПЛ
DO while !eof()
	SCATT memv
	=ddeexecute(dd,'[Insert "+'"'+allt(str(gggg))+'"'+"]')"&&ОПНЕТ РП РПТСДЛХ 
	=ddeexecute(dd,'[NextCell]')&&РЕТЕЫМЙ ОБ УМЕД.СЮЕКЛХ ФБВМЙГЩ
	=ddeexecute(dd,'[Insert "+'"'+allt(m.pog_dat)+'"'+"]')"&&дБФБ ЛБЛБС-ФП Й ФБЛ ДП ЛПОГБ УРЙУЛБ
	=ddeexecute(dd,'[NextCell]')
	=ddeexecute(dd,'[Insert "+'"'+allt(str(m.nominal,13,2))+'"'+"]')"
	=ddeexecute(dd,'[NextCell]')
	=ddeexecute(dd,'[Insert "+'"'+allt(str(m.nominal-m.disc_sum+m.sum_prc,13,2))+'"'+"]')"
	=ddeexecute(dd,'[NextCell]')
	=ddeexecute(dd,'[Insert "+'"'+allt(str(m.disc_veks,13,10))+'"'+"]')"
	=ddeexecute(dd,'[Linedown ]')
	=ddeexecute(dd,'[StartOfRow]')
	Skip
	gggg=gggg+1
ENDDO
****ъБРПМОЕОЙЕ УФТПЛЙ йфпзп**********
calc sum(nominal) to sum1
calc sum(nominal-disc_sum+sum_prc) to sum2
=ddeexecute(dd,'[EndOfRow]')
=ddeexecute(dd,'[PrevCell ]')
=ddeexecute(dd,'[PrevCell ]')
=ddeexecute(dd,'[Insert "+'"'+allt(str(sum1,13,2))+'"'+"]')"
=ddeexecute(dd,'[NextCell ]')
=ddeexecute(dd,'[Insert "+'"'+allt(str(sum2,13,2))+'"'+"]')"
*************лПОЕГ РТПЗЙ***********************************
лПОЕЮОП, ЬФХ ЫФХЛХ ОБДП ВЩ, РТЙЮЕУБФШ, ХЛПТПФЙФШ ЮЕТЕЪ РЕТЕВПТ РПМЕК Ч ГЙЛМЕ Й УДЕМБФШ ВПМЕЕ
ХОЙЧЕТУБМШОПК,
ОП ОЕДПУФБФПЛ РТЙТПДОПК МЕОЙ ОЕ РПЪЧПМСЕФ.

нПЦЕФ ЛПНХ-ФП РТЙЗПДЙФУС