*-------------------------------------------------------------------------------------------------------------------------------------------------------- * (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! *-------------------------------------------------------------------------------------------------------------------------------------------------------- *< FOXBIN2PRG: Version="1.21" SourceFile="genhtml.dbf" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) * 12520x00000030Visual FoxPro TYPE C 12 0 .F. .F. 0 0 ID C 24 0 .F. .F. 0 0 LINKS M 4 0 .F. .F. 0 0 TEXT M 4 0 .F. .F. 0 0 DESC M 4 0 .F. .F. 0 0 CLASSNAME M 4 0 .F. .F. 0 0 CLASSLIB M 4 0 .F. .F. 0 0 MODULE M 4 0 .F. .F. 0 0 PICTURE M 4 0 .F. .F. 0 0 PROPERTIES M 4 0 .F. .F. 0 0 HTML M 4 0 .F. .F. 0 0 STYLE M 4 0 .F. .F. 0 0 SCRIPT M 4 0 .F. .F. 0 0 PRESCRIPT M 4 0 .F. .F. 0 0 GENSCRIPT M 4 0 .F. .F. 0 0 POSTSCRIPT M 4 0 .F. .F. 0 0 HEADSTART M 4 0 .F. .F. 0 0 HEADEND M 4 0 .F. .F. 0 0 BODYSTART M 4 0 .F. .F. 0 0 BODYEND M 4 0 .F. .F. 0 0 UPDATED T 8 0 .F. .F. 0 0 COMMENT M 4 0 .F. .F. 0 0 USER M 4 0 .F. .F. 0 0 VERSION M 4 0 .F. .F. 0 0 SAVE L 1 0 .F. .F. 0 0 DEFAULT VFPDefault / / : : .F. LAYOUT ListTable / / : : .F. LAYOUT DetailTable / / : : .F. LAYOUT TabCtlList / / : : .F. LAYOUT TabCtlDetail / / : : .F. LAYOUT TabCtlHierarchical / / : : .F. OPTIONS ListOptions / / : : .F. OPTIONS TabListOptions / / : : .F. OPTIONS TabDetailOptions / / : : .F. OPTIONS TabHierOptions / / : : .F. OPTIONS StaticOptions / / : : .F. GLOBALSTYLE GlobalTableStyle / / : : .F. STYLE TropicalParadiseStyle / / : : .F. STYLE DesertCalmStyle / / : : .F. STYLE Graffiti / / : : .F. STYLE TitleHeader / / : : .F. STYLE LedgerList / / : : .F. STYLE WB00486 / / : : .F. STYLE WB00516 / / : : .F. STYLE WB00531 / / : : .F. STYLE WB00546 / / : : .F. STYLE WB00673 / / : : .F. STYLE WB00703 / / : : .F. STYLE WB00720 / / : : .F. STYLE WB00742 / / : : .F. STYLE WB00756 / / : : .F. STYLE WB00760 / / : : .F. STYLE WB00780 / / : : .F. STYLE WB00785 / / : : .F. STYLE WB00819 / / : : .F. STYLE WB01231 / / : : .F. STYLE WB01276 / / : : .F. STYLE WB01306 / / : : .F. STYLE WB01308 / / : : .F. STYLE WB01741 / / : : .F. STYLE WB01844 / / : : .F. STYLE WB01845 / / : : .F. STYLE WB01846 / / : : .F. STYLE WB01847 / / : : .F. SCRIPT SortTableColumn Dim cField Dim lSortAscend cField = "" lSortAscend = True Sub tblvfpdataheader_OnClick Dim cID cID = window.event.srcElement.ID if cID = cField then lSortAscend = Not lSortAscend else cField = cId lSortAscend = true end if if lSortAscend = True then {{_oHTML.cDataSrc}}.SortColumn = "+" & cField else {{_oHTML.cDataSrc}}.SortColumn = "-" & cField end if {{_oHTML.cDataSrc}}.Reset() {{IIF(_OHTML.lSkipFrame,"rem ","")}}parent.Frames("Frame2").datafilter({{_oHTML.cDataSrc}}.recordset.Fields(0).Value) End Sub ]]> / / : : .F. SCRIPT NavButtonsCode Sub backward_onClick() if {{_oHTML.cDataSrc}}.recordset.AbsolutePosition > 1 then {{_oHTML.cDataSrc}}.recordset.movePrevious() end if End Sub Sub forward_onClick() if {{_oHTML.cDataSrc}}.recordset.AbsolutePosition <> {{_oHTML.cDataSrc}}.recordset.RecordCount then {{_oHTML.cDataSrc}}.recordset.moveNext() end if End Sub Sub first_onClick() {{_oHTML.cDataSrc}}.recordset.moveFirst() End Sub Sub end_onClick() {{_oHTML.cDataSrc}}.recordset.moveLast() End Sub ]]> / / : : .F. SCRIPT NavButtons



]]> / / : : .F. SCRIPT SetBodyImage / / : : .F. SCRIPT DataPaging ' Page methods for use with Tab Data Control Sub PagePrevious {{_oHTML.cTableID}}.previousPage() nPageSize = 0 - ( {{_oHTML.cTableID}}.rows.length-1) nCurrentPos = {{_oHTML.cDataSrc}}.recordset.AbsolutePosition if nCurrentPos+nPageSize > 0 then {{_oHTML.cDataSrc}}.recordset.Move nPageSize else {{_oHTML.cDataSrc}}.recordset.MoveFirst end if {{IIF(_OHTML.lSkipFrame,"rem ","")}}parent.Frames("Frame2").datafilter({{_oHTML.cDataSrc}}.recordset.Fields(0).Value) End Sub Sub PageNext {{_oHTML.cTableID}}.nextPage() nPageSize = {{_oHTML.cTableID}}.rows.length-1 nCurrentPos = {{_oHTML.cDataSrc}}.recordset.AbsolutePosition if nCurrentPos+nPageSize < {{_oHTML.cDataSrc}}.recordset.RecordCount then {{_oHTML.cDataSrc}}.recordset.Move nPageSize else {{_oHTML.cDataSrc}}.recordset.MoveLast end if {{IIF(_OHTML.lSkipFrame,"rem ","")}}parent.Frames("Frame2").datafilter({{_oHTML.cDataSrc}}.recordset.Fields(0).Value) End Sub ]]> / / : : .F. SCRIPT FrameScript Sub selectrecord(oTableRow) {{_OHTML.cDataSrc}}.recordset.AbsolutePosition=oTableRow.RecordNumber HilightTableRow("{{_OHTML.cHighlightColor}}") {{IIF(_OHTML.lSkipFrame,"rem ","")}}parent.Frames("Frame2").datafilter({{_OHTML.cDataSrc}}.recordset.Fields({{TRANS(_OHTML.nLinkField)}}).Value) End sub Sub {{_OHTML.cTableID}}_onreadystatechange() if {{_OHTML.cTableID}}.readyState = "complete" then {{_OHTML.cDataSrc}}_onrowenter = HandleRowEnter() end if End sub Function HandleRowEnter() HilightTableRow("{{_OHTML.cHighlightColor}}") End function Sub {{_OHTML.cDataSrc}}_onrowexit() HilightTableRow("") End sub Sub HilightTableRow(cColor) nRow = {{_OHTML.cDataSrc}}.recordset.AbsolutePosition nPage = {{_OHTML.cDataSrc}}.recordset.AbsolutePage nPageMax = {{_OHTML.cTableID}}.rows.length-1 nPageRows = {{_OHTML.cTableID}}.datapagesize if nPageMax < 1 then exit sub end if nRow = nRow MOD nPageRows if nRow = 0 then nRow = nPageMax end if if nRow > nPageRows then nRow = 1 end if {{_OHTML.cTableID}}.rows(nPageMax).style.backgroundColor = "" {{_OHTML.cTableID}}.rows(nRow).style.backgroundColor = cColor End sub ]]> / / : : .F. SCRIPT FilterScript function DataFilter(vFilterValue) {{_OHTML.cDataSrc}}.object.Filter = {{_OHTML.cDataSrc}}.recordset.Fields({{TRANS(_OHTML.nLinkField)}}).Name & " = " & vFilterValue {{_OHTML.cDataSrc}}.Reset() end function ]]> / / : : .F. SCRIPT PageButtons
"," > ")}}" onclick="PageNext()">



]]> / / : : .F.
WIZARD WIZARD / / : : .F.