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

http://forum.foxclub.ru/read.php?29,453254

Ни 1 хороший человек не сказала что нужно сформировать XML и наложить на него либо DTD либо схему XLT. Ты же радеешь за подготовку личного состава. Вот, разбирайся.

Сообщение было отредактировано: 29 июн 10, 23:07
29 июн 10, 12:43    [9017206]     Ответить | Цитировать Сообщить модератору
 Re: Прошел мимо  [new]
прошелмимо
Member [заблокирован]

Откуда: Из Курска понаехал
Сообщений: 10363
ну кто как хочет так и ...

для создания табличек в HTML
использую классик с подсмотренным и переработанным решением
понятно, что некоторое формирование можно решить иначе

карты в руки - можешь доработать это решение
и показать оптимальный вариант


Lparameters   tcAlias         ; && курсор
			, tcFldCaptions   ; && перечень полей с заголовками в виде  fldName1,Заголовок;fldName2,Заголовок; ....
			, tnDivHeight       && высота скроллинга

external array taFldCaptions

Local lcResult, lnFldNum
If !Empty(tcAlias) And Used(tcAlias) and varType(tcFldCaptions)="C"
	Local taFldCaptions[1], lnFontSize, lcFontDefault, lcColorFont, lcStyle
	If Reccount(tcAlias)>=1 and ALines(taFldCaptions,tcFldCaptions,8,",",";")>0
		lnFontSize = 10
		lcFontDefault = "Arial"
		lcColorFont = "black"
		Text to lcStyle NOSHOW TEXTMERGE PRETEXT 15
			font-family: '<<lcFontDefault>>',sans-serif; 
			font-size:<<lnFontSize>>pt; 
			color:<<lcColorFont>>
		EndText
		If !Empty(tnDivHeight)
			Text to lcResult NOSHOW TEXTMERGE PRETEXT 7
				<div style="height:<<(tnDivHeight)>>px;overflow:auto">
			EndText
		Else
			lcResult = ""		
		endif
		Text to lcResult ADDITIVE NOSHOW TEXTMERGE PRETEXT 7
			<TABLE BORDER=1 STYLE="<<lcStyle>>" frame="border"><COLGROUP span="<<ALEN(taFldCaptions,1)>>" width="0*">
		EndText	
		*заголовки таблицы
		Text to lcResult ADDITIVE NOSHOW TEXTMERGE PRETEXT 7
			<TR>
		EndText 
		For lnFldNum = 2 To Alen(taFldCaptions,1) step 2
			Text to lcResult ADDITIVE NOSHOW TEXTMERGE PRETEXT 7
				<TH NOWRAP><<taFldCaptions[lnFldNum]>></TH>
			EndText	
		Endfor
		Text to lcResult ADDITIVE NOSHOW TEXTMERGE PRETEXT 7
			</TR>
		EndText
		*записи таблицы
		Select (tcAlias)
		Scan
			Text to lcResult ADDITIVE NOSHOW TEXTMERGE PRETEXT 7
				<TR>
			EndText
			For lnFldNum = 1 To Alen(taFldCaptions,1) step 2
				luFieldValue = Evaluate(taFldCaptions[lnFldNum])
				lcTypeValue  = Vartype(luFieldValue)
				If InList( lcTypeValue, "N", "Y")
					luFieldValue = Iif( lcTypeValue="Y", Transform(luFieldValue,"999 999 999 999 999 999 999.99"), luFieldValue)
					Text to lcResult ADDITIVE NOSHOW TEXTMERGE PRETEXT 7
						<TD NOWRAP ALIGN=RIGHT><<luFieldValue>></TD>
					EndText
				Else
					Text to lcResult ADDITIVE NOSHOW TEXTMERGE PRETEXT 7
						<TD NOWRAP><<luFieldValue>></TD>
					EndText
				Endif
			EndFor
			Text to lcResult ADDITIVE NOSHOW TEXTMERGE PRETEXT 7
				</TR>
			EndText
		EndScan
		Text to lcResult ADDITIVE NOSHOW TEXTMERGE PRETEXT 7
			</COLGROUP></TABLE>
		EndText
		If !Empty(tnDivHeight)
			Text to lcResult ADDITIVE NOSHOW TEXTMERGE PRETEXT 7
				</div>
			EndText
		EndIf 
		If !Empty(lcResult)
			#if .f.
			Local lnPartSize, lnStartPos
			lnPartSize = 1000
			For lnStartPos=1 to len(lcResult) step lnPartSize
				this.insert(Substr(lcResult,lnStartPos,lnPartSize))
			EndFor
			#EndIf 
			this.insert(lcResult)
		EndIf
	Endif
Endif
29 июн 10, 17:27    [9019468]     Ответить | Цитировать Сообщить модератору
 Re: Прошел мимо  [new]
Eugenkru10
Guest
P00001,

Введите хотяб в курс дела, понять ничего нельзя!
напишите вопрос по-человечачи?
Если вы хОчите VFP заставит работать на просторах web, тогда ставьте AFP Active Foxpro Pages и не морочте Голову ни себе ни людям!
Если на серваке стоит AFP тогда можна писать целые программы на фоксе прямо в теле html!
Хороший сервак с поддержкой AFP есть у хостера Moshoster.RU
Рекомендую.
29 июн 10, 20:39    [9020600]     Ответить | Цитировать Сообщить модератору
 Re: Прошел мимо  [new]
P00001
Guest
Я тут причем ? Спрашивайте у маргиналов на Фоксклабе. Как они все такие умные гонят код черезх Фокспро в HTML :) если можно создать XML и "облагородить" его через схему, дабы было понятно бровзеру.
29 июн 10, 20:58    [9020700]     Ответить | Цитировать Сообщить модератору
 Re: Прошел мимо  [new]
прошелмимо
Member [заблокирован]

Откуда: Из Курска понаехал
Сообщений: 10363
P00001
Я тут причем ? Спрашивайте у маргиналов на Фоксклабе. Как они все такие умные гонят код черезх Фокспро в HTML :) если можно создать XML и "облагородить" его через схему, дабы было понятно бровзеру.


ну так покажи нам.
"облагородь" пример, который я привел.

гы, или только лозунги умеешь писать?
30 июн 10, 14:06    [9024742]     Ответить | Цитировать Сообщить модератору
 Re: Прошел мимо  [new]
Eugenkru10
Guest
прошелмимо,

Нифига не пойму о чом спор? ))))))))
30 июн 10, 15:03    [9025265]     Ответить | Цитировать Сообщить модератору
Все форумы / FoxPro, Visual FoxPro Ответить