FКVERSION = 3.00sArial, 0, 9, 5, 15, 12, 32, 3, 0 MS Sans Serif, 0, 9, 5, 13, 11, 11, 2, 0 MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0 menuPixelsClass7 formreportvscnbottonPixels1JMS Sans Serif, 1, 9, 6, 13, 11, 12, 2, 0 Arial, 0, 9, 5, 15, 12, 32, 3, 0 combomulPixelsClass)MS Sans Serif, 1, 9, 6, 13, 11, 12, 2, 0 1137form formreportformreport.panel.p4 cnbotton1 container foxribbon.vcxribboncommandbutton Contenedor2formmenu!Arial, 0, 9, 5, 15, 12, 32, 3, 0 Class7 container1PixelsClassНArial, 0, 9, 5, 15, 12, 32, 3, 0 MS Sans Serif, 1, 9, 6, 13, 11, 12, 2, 0 MS Sans Serif, 0, 9, 5, 13, 11, 11, 2, 0 Arial, 0, 8, 5, 14, 11, 29, 3, 0 MS Sans Serif, 1, 8, 6, 13, 11, 12, 2, 0 shape1cnbottonlabel4oComment = "E" Top = 336 Left = 528 Height = 41 Width = 106 BackColor = 255,255,255 Name = "Contenedor2" formreport.panel.p4 classprin.vcx contenedorld23 containerformreport.panel.p4menu.lista.Column2label combobasePixelsClasscombobox combobasecombobox7ZCaption = "Resumen :" Left = 391 Top = 300 Visible = .F. TabIndex = 32 Name = "ld2"  foxribbon.vcx ribbonlabelformreport.panel.p4ld1Text11cnbottonlabellabelcnbottonimagenimageimagecnbottonkbackimageimagecnbottonbbackcombomulcombomul3imageimagecnbottoniback21сTop = -1 Left = 179 Height = 22 Width = 21 Picture = images\buscar.bmp Caption = "" TabIndex = 2 TabStop = .F. Visible = .F. SpecialEffect = 2 ColorSource = 0 BackColor = 219,230,244 Themes = .F. Name = "boton" boton]Caption = "Documentos :" Left = 391 Top = 272 Visible = .F. TabIndex = 33 Name = "ld1" label foxribbon.vcx ribbonlabelcob1texttextbasePixelsыTop = 268 Left = 493 Width = 122 Height = 21 Visible = .F. TabIndex = 26 Name = "cob1" Text.Height = 21 Text.Left = 0 Text.Top = 0 Text.Width = 101 Text.Name = "Text" BOTON.Top = -1 BOTON.Left = 101 BOTON.Name = "BOTON" formreport.panel.p4 container classprin.vcxp1Text1cob2imageimagecombomulyTag = "C" BoundColumn = 2 Height = 21 Left = 495 TabIndex = 27 Top = 295 Visible = .F. Width = 67 Name = "cob2" comboboxtextbox combobase1formreport.panel.p4 classprin.vcxcob3cnbottonbotonformreport.panel.p4 container classprin.vcxcombomul commandbutton commandbuttontPROCEDURE Valid if " "+alltrim(str(lastkey()))+" "$" 19 4 24 5 127 ".and.mdown()=.F. return .F. endif ENDPROC combomulыTop = 241 Left = 493 Width = 122 Height = 21 Visible = .F. TabIndex = 25 Name = "cob3" Text.Height = 21 Text.Left = 0 Text.Top = 0 Text.Width = 101 Text.Name = "Text" BOTON.Top = -1 BOTON.Left = 101 BOTON.Name = "BOTON" formreport.panel.p4ld3 commandbutton commandbutton containerlabellblTasklabellabelIWidth = 131 Height = 29 BackStyle = 0 caption = Name = "cnbotton" labelClasstextboxtextbaseYCaption = "Campos :" Left = 391 Top = 245 Visible = .F. TabIndex = 34 Name = "ld3"  foxribbon.vcx ribbonlabelformreport.panel.p4 Ribbonlabel20 foxribbon.vcx ribbonlabeltextboxmenu.lista.Column2Header1headerheadermenu.lista.Column1label *redraw textboxtextbox˜PROCEDURE redraw WITH THIS .BORDERCOLOR = _SCREEN.oRibbon.LinesColor ENDWITH ENDPROC PROCEDURE Init WITH THIS .ReDraw() ENDWITH ENDPROC textboxformreport.panel.p4c62shape/Height = 56 Width = 100 Name = "contenedor"  *redraw  contenedorshapeClassPixels contenedorJMS Sans Serif, 1, 9, 6, 13, 11, 12, 2, 0 Arial, 0, 9, 5, 15, 12, 32, 3, 0 combogenPixelsClass containercombogencombogenboton commandbutton commandbuttoncombogentextboxtextbox containerspinnertext^Caption = "Escala de columna:" Left = 183 Top = 301 TabIndex = 24 Name = "Ribbonlabel20"  Spinnerbase1 classprin.vcx spinnerbaseformreport.panel.p4 Ribbonlabel19 foxribbon.vcxcero1digano checkbase ribbonlabelformreport.panel.p41]Caption = "Inicio de pсgina:" Left = 183 Top = 270 TabIndex = 23 Name = "Ribbonlabel19"  Spinnerbase2spinner classprin.vcx spinnerbaseresumeneditbaseformreport.panel.p4checkbox ribboncheckmenu.lista.Column1menu foxribbon.vcxformreport.panel.p4subtotalcheckbox foxribbon.vcxheader ribboncheckformreport.panel.p4checkbox foxribbon.vcxlabel?value Specifies the current state of a control. ok *redraw UWidth = 200 Height = 21 BackStyle = 0 BorderWidth = 0 ok = 1 Name = "combomul" textboxtextbox containerЗPROCEDURE Text.LostFocus ON KEY LABEL F2 ENDPROC PROCEDURE Text.GotFocus ptemform=thisform.namewin ON KEY LABEL F2 do form forms\selmul with ptemform+'.panel.p1.p.p2.cob1.text.value','','codigo_doc','documen' ENDPROC PROCEDURE BOTON.Click ptemform=thisform.namewin this.Parent.ok=0 do form forms\selmul with ptemform+'.panel.p4.cob1.text.value','','codigo_doc','documen' this.Parent.ok=1 this.Parent.SetFocus ENDPROC pHeader1headerlistagrid3checkboxPixelsClass3цIncrement = 1.00 KeyboardHighValue = 10 KeyboardLowValue = 2 Left = 280 SpinnerHighValue = 10.00 SpinnerLowValue = 2.00 TabIndex = 54 Top = 298 Value = 10 ControlSource = "thisform.cellscale" Name = "Spinnerbase1"  ribboncheckformreport.panel.p4 foxribbon.vcx ribbonchecklabelgridmenu Contenedor3shapeformreport.panel.p4 Ribbonlabel18 foxribbon.vcxpАFontName = "MS Sans Serif" FontSize = 8 WordWrap = .T. BackStyle = 0 Caption = "label" Height = 15 Left = 37 Top = 7 Width = 28 ForeColor = 21,66,139 Name = "label"  ribbonlabelformreport.panel.p4t2form classprin.vcx contenedorformc61)MS Sans Serif, 0, 9, 5, 13, 11, 11, 2, 0 PixelsClasscomboboxeditboxeditbase *redraw уIncrement = 1.00 KeyboardHighValue = 10 KeyboardLowValue = 2 Left = 279 SpinnerHighValue = 10.00 SpinnerLowValue = 2.00 TabIndex = 53 Top = 267 Value = 10 ControlSource = "thisform.pageno" Name = "Spinnerbase2" Pixels classprin.vcx combobaseformreport.panel.p4t1 moverlistscuadros de lista de movimiento!Arial, 0, 9, 5, 15, 12, 32, 3, 0  container checkbase checkbasefondoimage‡Top = 238 Left = 183 Height = 22 Width = 150 Alignment = 0 Caption = " Resumen por documento" TabIndex = 22 Name = "resumen" 3formput Ribbonlabel17combobox!Arial, 0, 9, 5, 15, 12, 32, 3, 0 PixelsClassformformput PROCEDURE Init DODEFAULT() WITH THIS .TOP = 0 .LEFT = 0 .HEIGHT = THIS.PARENT.HEIGHT .WIDTH = THIS.PARENT.WIDTH .ANCHOR = 15 ENDWITH ENDPROC formput _gradient1 container foxribbon.vcx Top = 297 Left = 25 Height = 22 Width = 150 Alignment = 0 Caption = "Subtotalizar" ControlSource = "thisform.subtotal" TabIndex = 21 Name = "subtotal"  ribbonlabel _gradientformputvComment = "E" Top = 343 Left = 541 Width = 84 Height = 27 TabIndex = 31 lcurvature = .F. Name = "cnbotton1" IMAGE1.Picture = images\aceptar.bmp IMAGE1.Height = 16 IMAGE1.Left = 6 IMAGE1.Top = 5 IMAGE1.Width = 16 IMAGE1.Name = "IMAGE1" XSHAPE2.Name = "XSHAPE2" SHAPE1.Name = "SHAPE1" COMMAND1.TabIndex = 1 COMMAND1.Name = "COMMAND1" IMAGE2.Name = "IMAGE2" RIBBONLABEL1.Caption = "\ 0, this.iBasis, 100), m.cTask) m.iSeconds=seconds() + 1 do while seconds() < m.iSeconds *- wait a sec enddo if !empty(this.cThermRef) m.cThermRef = this.cThermRef &cThermRef = .NULL. release this endif ENDPROC PROCEDURE update * m.iProgress is the percentage complete, or, if Init() was passed * an m.iBasis value, is used to calculate the percentage * m.cTask is displayed on the second line of the window parameters m.iProgress, m.cTask LOCAL iPercentage,iAvgCharWidth if parameters()<>0 .and. type('m.iProgress') = 'N' this.iProgress = max(0, m.iProgress) endif if parameters() >= 2 .and. type('m.cTask') = 'C' * If we're specifically passed a null string, clear the current task, * otherwise leave it alone this.cCurrentTask = m.cTask endif if !empty(this.iBasis) m.iPercentage = int(this.iProgress/this.iBasis*100) else m.iPercentage = this.iProgress endif m.iPercentage = min(100,max(0,m.iPercentage)) if m.iPercentage <> this.iPercentage if len(alltrim(str(m.iPercentage,3)))<>len(alltrim(str(this.iPercentage,3))) iAvgCharWidth=fontmetric(6,this.lblPercentage.FontName, ; this.lblPercentage.FontSize, ; iif(this.lblPercentage.FontBold,'B','')+ ; iif(this.lblPercentage.FontItalic,'I','')) this.lblPercentage.Width=txtwidth(alltrim(str(m.iPercentage,3)) + '%', ; this.lblPercentage.FontName,this.lblPercentage.FontSize, ; iif(this.lblPercentage.FontBold,'B','')+ ; iif(this.lblPercentage.FontItalic,'I','')) * iAvgCharWidth this.lblPercentage.Left=int((this.shpThermBarMaxWidth- ; this.lblPercentage.Width) / 2)+this.shpThermBar.Left-1 this.lblPercentage2.Left=this.lblPercentage.Left endif this.iPercentage = m.iPercentage this.shpThermBar.Width = int((this.shpThermBarMaxWidth)*this.iPercentage/100) this.lblPercentage.Caption = alltrim(str(m.iPercentage,3)) + '%' this.lblPercentage2.Caption = this.lblPercentage.Caption if this.shpThermBar.Left + this.shpThermBar.Width -1 >= ; this.lblPercentage2.Left if this.shpThermBar.Left + this.shpThermBar.Width - 1 >= ; this.lblPercentage2.Left + this.lblPercentage.Width - 1 this.lblPercentage2.Width = this.lblPercentage.Width else this.lblPercentage2.Width = ; this.shpThermBar.Left + this.shpThermBar.Width - ; this.lblPercentage2.Left - 1 endif else this.lblPercentage2.Width = 0 endif endif if ! this.lblTask.Caption == this.cCurrentTask this.lblTask.Caption = this.cCurrentTask endif *=inkey(this.Intervalo) ENDPROC PROCEDURE Unload set cursor on ENDPROC PROCEDURE Init * m.cTitle is displayed on the first line of the window * m.iBasis is used to calculate the percentage complete * m.iInterval is the frequency used for updating the thermometer parameters cTitle, iBasis, iInterval this.intervalo=iInterval this.shape5.fillcolor = this.backcolor && for Win95 compat this.lblTitle.Caption = iif(empty(m.cTitle),'',m.cTitle) this.iBasis = iif(empty(m.iBasis),0,m.iBasis) *this.shpThermBar.FillColor = rgb(128,128,128) set cursor off ENDPROC nipercentage This is percentage complete to display ibasis Basis for calculating percentage. ccurrenttask Current task. iprogress This is amount complete. shpthermbarmaxwidth cthermref intervalo *complete Displays 100% complete thermometer. *update Updates thermometer. Parameter iProgress, cTask. iProgress - percent to display, cTask - message to display. YTop = 84 Left = 3 Height = 1 Width = 350 BorderColor = 255,255,255 Name = "Shape7" cipercentage This is percentage complete to display ibasis Basis for calculating percentage. ccurrenttask Current task. iprogress This is amount complete. shpthermbarmaxwidth cthermref *complete Displays 100% complete thermometer. *update Updates thermometer. Parameter iProgress, cTask. iProgress - percent to display, cTask - message to display. ŒScaleMode = 3 Height = 76 Width = 240 Desktop = .T. ShowWindow = 1 DoCreate = .T. AutoCenter = .T. BorderStyle = 2 Caption = "Creando CAB" ControlBox = .F. MaxButton = .F. MinButton = .F. Movable = .F. AlwaysOnTop = .T. AlwaysOnBottom = .T. ipercentage = (0) ibasis = (0) ccurrenttask = ('') iprogress = (0) shpthermbarmaxwidth = 190 cthermref = ('') Name = "_thermometer1" йFontBold = .F. FontName = "MS Sans Serif" FontSize = 8 WordWrap = .F. Alignment = 2 BackStyle = 0 Caption = "" Height = 14 Left = 17 Top = 68 Width = 322 BackColor = 192,192,192 Name = "lblEscapeMessage" jTop = 45 Left = 338 Height = 17 Width = 0 BackStyle = 0 BorderColor = 128,128,128 Name = "Shape14" iTop = 46 Left = 16 Height = 16 Width = 1 BackStyle = 0 BorderColor = 128,128,128 Name = "Shape13" RPROCEDURE Valid IF this.Value<=this.Parent.c31.Value.and.!EMPTY(this.value) this.Value="" RETURN .F. ENDIF ENDPROC PROCEDURE InteractiveChange if this.Value<=this.Parent.c31.Value.and.!EMPTY(this.value) this.Value="" =messagebox("Ё Esta columna debe ser mayor al primer rango de esta fila!",16,"ERROR...") endif ENDPROC  foxribbon.vcx ribbonlabelformreport.panel.p4vTop = 26 Left = 12 Height = 17 Width = 18 AutoSize = .T. Alignment = 0 Caption = "" Value = 1 Name = "check" єPROCEDURE Click local vvalor1,vvalor2,vvalor3,vcolum2,vcontador,vnumcol vcolum2=0 vnumcol=0 for vcontador=1 to 6 vvalor1="c"+str(vcontador,1,0)+"1" vvalor2="c"+str(vcontador,1,0)+"2" vvalor3="campo"+str(vcontador,1,0) if !empty(thisform.panel.p4.&vvalor1..value) and !empty(thisform.panel.p4.&vvalor2..value) if val(thisform.panel.p4.&vvalor1..value) < val(thisform.panel.p4.&vvalor2..value) and vcolum2 < val(thisform.panel.p4.&vvalor2..value) vnumcol=vnumcol+1 vcolum2=val(thisform.panel.p4.&vvalor2..value) thisform.forfalsa(vnumcol,1)=val(thisform.panel.p4.&vvalor1..value) thisform.forfalsa(vnumcol,2)=val(thisform.panel.p4.&vvalor2..value) thisform.forfalsa(vnumcol,3)=alltrim(thisform.panel.p4.&vvalor3..value) endif endif endfor if vnumcol<6 for vcontador=vnumcol+1 to 6 thisform.forfalsa(vcontador,1)=0 thisform.forfalsa(vcontador,2)=0 thisform.forfalsa(vcontador,3)="" endfor endif thisform.colnum=vnumcol thisform.panel.ActivePage=3 ENDPROC campo1 classprin.vcxMCaption = "De :" Left = 42 Top = 41 TabIndex = 44 Name = "Ribbonlabel8" listbaseЅFontBold = .T. FontName = "MS Sans Serif" Height = 170 SpecialEffect = 1 Width = 100 DisabledForeColor = 255,0,0 BorderColor = 138,175,225 Name = "listbase"  moverlistslstseleccioneslistboxtextbox classprin.vcxtextbaseformreport.panel.p4ВPROCEDURE complete * This is the default complete message parameters m.cTask #define THERMCOMPLETE_LOC "Completo." LOCAL iSeconds,cThermRef if parameters() = 0 m.cTask = THERMCOMPLETE_LOC endif this.Update(iif(this.iBasis <> 0, this.iBasis, 100), m.cTask) m.iSeconds=seconds() + 1 do while seconds() < m.iSeconds *- wait a sec enddo if !empty(this.cThermRef) m.cThermRef = this.cThermRef &cThermRef = .NULL. release this endif ENDPROC PROCEDURE update * m.iProgress is the percentage complete, or, if Init() was passed * an m.iBasis value, is used to calculate the percentage * m.cTask is displayed on the second line of the window parameters m.iProgress, m.cTask LOCAL iPercentage,iAvgCharWidth if parameters()<>0 .and. type('m.iProgress') = 'N' this.iProgress = max(0, m.iProgress) endif if parameters() >= 2 .and. type('m.cTask') = 'C' * If we're specifically passed a null string, clear the current task, * otherwise leave it alone this.cCurrentTask = m.cTask endif if !empty(this.iBasis) m.iPercentage = int(this.iProgress/this.iBasis*100) else m.iPercentage = this.iProgress endif m.iPercentage = min(100,max(0,m.iPercentage)) if m.iPercentage <> this.iPercentage this.iPercentage = m.iPercentage this.shpThermBar.Width = int((this.shpThermBarMaxWidth)*this.iPercentage/100) endif ENDPROC PROCEDURE Init * m.cTitle is displayed on the first line of the window * m.iBasis is used to calculate the percentage complete * m.iInterval is the frequency used for updating the thermometer parameters cTitle, iBasis, iInterval this.iBasis = iif(empty(m.iBasis),0,m.iBasis) this.shpThermBar.FillColor = rgb(255,255,255) ENDPROC гўђџ ККвЄ%\qkќU™ќCєєі§ўUTHISFORMREPPRINTDOCClick,џџ12*)Ккўђџ ССdв%cxrќUTєєїќј§ўUTHISFORMPANEL ACTIVEPAGEClick,џџ111,)Сformrep.menubarline olecontrol olecontrolUTag = "C" Height = 21 Left = 70 TabIndex = 1 Top = 38 Width = 43 Name = "c11" _panel1 containerlabelЗFontName = "MS Sans Serif" Format = "!" Height = 110 SpecialEffect = 1 Width = 247 DisabledBackColor = 255,255,255 DisabledForeColor = 255,0,0 Themes = .F. Name = "editbase" hTag = "C" Format = "!" Height = 21 Left = 232 TabIndex = 3 Top = 38 Width = 383 Name = "campo1"  foxribbon.vcx_panelmarcoвHeight = 97 Width = 454 ShowWindow = 1 DoCreate = .T. AutoCenter = .T. BorderStyle = 1 Caption = "Form" MaxButton = .F. MinButton = .F. WindowType = 1 retorno = .F. ncurvature = 0 Name = "formput" ЎPROCEDURE Init DODEFAULT() WITH THIS .TOP = 0 .LEFT = 0 .HEIGHT = THIS.PARENT.PARENT.HEIGHT .WIDTH = THIS.PARENT.PARENT.WIDTH .ANCHOR = 15 ENDWITH ENDPROC  _gradient1оHeight = 318 Width = 506 ShowWindow = 1 DoCreate = .T. AutoCenter = .T. BorderStyle = 1 Caption = "Form" MaxButton = .F. MinButton = .F. WindowType = 1 dat = .F. namewin = .F. ncurvature = 0 Name = "forminp" оHeight = 318 Width = 506 ShowWindow = 1 DoCreate = .T. AutoCenter = .T. BorderStyle = 1 Caption = "Form" MaxButton = .F. MinButton = .F. WindowType = 1 dat = .F. namewin = .F. ncurvature = 0 Name = "forminp" кўђџ ССdв%cxrќUTєєїќј§ўUTHISFORMPANEL ACTIVEPAGEClick,џџ111,)С foxribbon.vcxforminp _titlebar1 container foxribbon.vcxSўђџ ::Ž%Яё нќUo ™ќCъЁ§ў Іќї§љhўTтїќј§ўTтїќј§ўTтїќєєї§ўTтїќєєї§ўTтїќј§ўЇўUTHISTOPLEFTHEIGHTPARENTWIDTHANCHORInit,џџ1‘вссAAсA2•):Sўђџ ::Ž%Яё нќUo ™ќCъЁ§ў Іќї§љhўTтїќј§ўTтїќј§ўTтїќєєї§ўTтїќєєї§ўTтїќј§ўЇўUTHISTOPLEFTHEIGHTPARENTWIDTHANCHORInit,џџ1‘вссAAсA2•):KCaption = "Pagina:" Left = 330 Top = 12 TabIndex = 18 Name = "pagina"  foxribbon.vcx ribbonlabelbot5 containerјўђџ пп’~%F† pќUH*%ќєїєєєї№ CєїЁ §љAўTєїќй§ўBќ-§ўўUTHISVALUEPARENTC61–*%ќєїєєєї№ CєїЁ §љўTєїќй§ўU†ќCй;Ё Esta columna debe ser mayor al primer rango de esta fila!јйERROR...ъx§ўўUTHISVALUEPARENTC61Valid,џџInteractiveChange’џџ1ЁqA3ЁQA1ršG)пbot4ŒTop = 115 Left = 89 Width = 12 Height = 8 TabIndex = 29 swapcolors = .T. gradient = .F. Name = "_gradient1" IMAGE1.Name = "IMAGE1"  container _titlebardat namewin ncurvature forminpWPROCEDURE Valid if this.Value<=this.Parent.c22.Value.and.!EMPTY(this.value) this.Value="" return .F. endif ENDPROC PROCEDURE InteractiveChange if this.Value<=this.Parent.c22.Value.and.!EMPTY(this.value) this.Value="" =messagebox("Ё Esta columna debe ser mayor al segundo rango de la segunda fila!",16,"ERROR...") endif ENDPROC formreport.panel.p4 foxribbon.vcx _gradientlineЙPROCEDURE DblClick if this.parent.lstcampos.Selected(This.ListIndex) this.parent.lstselecciones.AddItem(This.List(This.ListIndex)) this.removeItem(This.ListIndex) endif ENDPROC iTop = 232 Left = 380 Height = 93 Width = 247 Visible = .F. BackColor = 255,255,255 Name = "marco" formreport.panel.p4shape classprin.vcxbHeight = 105 Left = 4 MultiSelect = .T. TabIndex = 1 Top = 4 Width = 98 Name = "lstcampos"  contenedorformreport.panel.p4_panel2 container foxribbon.vcx_panel7PROCEDURE Click thisform.panel.ActivePage=4 ENDPROC formreport.panel.p3 classprin.vcxlistbaseўђџ ww–z%щ.ќUm%ќєїј§љвўTєєєїќa§ўTєєєєїќй§ўTєєєїќa§ўTєєєїќa§ўTєєєєїќй§ўTєєєїќa§ўTєєє їќa§ўTєєє їќa§ўTєєє їќa§ўљfўTєєєїќ-§ўTєєєїќ-§ўTєєєїќ-§ўTєєєїќ-§ўTєєє їќ-§ўTєєє їќ-§ўTєєє їќ-§ўўU THISVALUEPARENTCOB1VISIBLETEXTCOB2COB3LD1LD2LD3MARCOInteractiveChange,џџ1AA‘AA‘AAAAAAAAAAAA1L)w!Arial, 0, 9, 5, 15, 12, 32, 3, 0 formrepg.menubarRibboncommandbutton5 containerPixelsformformforminp _titlebar1 container foxribbon.vcx _titlebarforminpformўђџ ћћЖ‚%%Ђ/DќU§TєїќCі§ўTєїќCі§ўTєїќCі§ўTєїќCі§ўTєїќCі§ўTєїќCі§ўTєї ќї §ўTєї ќCї і §ў%ќєї ј§љЏўB(Мў ™єїўўTєїќCїі §ў%ќєїј§љьўB(Мў ™єїўў †ќCі§ўUTHISFORMTABTEM1GETNAMETABTEM2TABTEM3TABTEM4TABTEM5TABTEM6THISNAMEWINPNOMFORMDAT FCREATECONECTPDATARELEASEDATGPBASE PONERSETS%ќєїј§љ#ў†ќCєїъg§ўў%ќєїј§љJў†ќCєїъg§ўў%ќCєїЊ§љqў Fќєї§ўQўў%ќCєїЊ§љ˜ў Fќєї§ўQўў%ќCєїЊ§љПў Fќєї§ўQўў%ќCєїЊ§љцў Fќєї§ўQўў%ќCєїЊ§љ ў Fќєї§ўQўўUTHISFORMDATDATGTABTEM1TABTEM2TABTEM3TABTEM4TABTEM5Load,џџDestroyЫџџ1QAaЁAQAaЁAЁ2AёAAёA!бAA!бAA!бAA!бAA!бAA2Гб)ћЈўђџ ъ‚%3FBќUUClick,џџ13)bot3[dat namewin ncurvature tabtem1 tabtem2 datg tabtem3 pok tabtem4 tabtem5 tabtem6  ribbonlabelformrepg.menubar foxribbon.vcxribboncommandbuttonUCaption = "Subtitulo :" Left = 163 Top = 24 TabIndex = 16 Name = "Ribbonlabel1" formreport.panel.p3|Comment = "H" Top = 0 Left = 0 Height = 150 Width = 300 BackColor = 255,255,255 ZOrderSet = 12 Name = "Contenedor3"  Ribbonlabel1label foxribbon.vcx ribbonlabelfTag = "C" Format = "!" Height = 21 Left = 218 TabIndex = 6 Top = 21 Width = 411 Name = "con1" formreport.panel.p3con1textbox classprin.vcxѓPROCEDURE Click this.Parent.Click ENDPROC PROCEDURE MouseUp LPARAMETERS nButton, nShift, nXCoord, nYCoord this.Parent.mouseup ENDPROC PROCEDURE MouseDown LPARAMETERS nButton, nShift, nXCoord, nYCoord this.Parent.mousedown ENDPROC textbaseformreport.panel.p3 Ribbonlabel8рTop = -1 Left = 86 Height = 22 Width = 21 Picture = images\buscar.bmp Caption = "" TabIndex = 2 TabStop = .F. Visible = .F. SpecialEffect = 2 ColorSource = 0 BackColor = 219,230,244 Themes = .F. Name = "boton" ѓPROCEDURE Click this.Parent.Click ENDPROC PROCEDURE MouseUp LPARAMETERS nButton, nShift, nXCoord, nYCoord this.Parent.mouseup ENDPROC PROCEDURE MouseDown LPARAMETERS nButton, nShift, nXCoord, nYCoord this.Parent.mousedown ENDPROC сFontBold = .T. FontName = "MS Sans Serif" Height = 21 Left = 0 SpecialEffect = 1 TabIndex = 1 Top = 0 Width = 86 DisabledBackColor = 255,255,255 DisabledForeColor = 255,0,0 BorderColor = 138,175,225 Name = "text" ќPROCEDURE Text.LostFocus ON KEY LABEL F2 ENDPROC PROCEDURE Text.GotFocus ptemform=thisform.namewin pcodfor = alltrim(thisform.panel.p1.p.p.p1.cob2.text.value) ON KEY LABEL F2 do form forms\selmul with ptemform+'.panel.p4.cob3.text.value','','columna','','',"select columna from fordet where codigo_for='"+pcodfor+"' and formula <>''" ENDPROC PROCEDURE BOTON.RightClick local vcodigo_for vcodigo_for = alltrim(thisform.panel.p1.p.p.p1.cob2.text.value) ptemform=thisform.namewin this.Parent.ok=0 do form forms\sellis with ptemform+'.panel.p4.cob3.text.value','',vcodigo_for,'','',3 this.Parent.ok=1 this.Parent.SetFocus ENDPROC PROCEDURE BOTON.Click ptemform=thisform.namewin local vcodigo_for vcodigo_for = alltrim(thisform.panel.p1.p.p.p1.cob2.text.value) this.Parent.ok=0 do form forms\selmul with ptemform+'.panel.p4.cob3.text.value','','columna','','',"select columna from fordet where codigo_for='"+vcodigo_for+"' and formula <>''" this.Parent.ok=1 this.Parent.SetFocus ENDPROC label foxribbon.vcx)MS Sans Serif, 1, 9, 6, 13, 11, 12, 2, 0  textbaselisPixelsClasstextbox textbaselisRPROCEDURE Valid IF this.Value<=this.Parent.c21.Value.and.!EMPTY(this.value) this.Value="" RETURN .F. ENDIF ENDPROC PROCEDURE InteractiveChange if this.Value<=this.Parent.c21.Value.and.!EMPTY(this.value) this.Value="" =messagebox("Ё Esta columna debe ser mayor al primer rango de esta fila!",16,"ERROR...") endif ENDPROC  ribbonlabelformreport.panel.p3ind1єPROCEDURE redraw WITH THIS .BorderColor = _SCREEN.oRibbon.LinesColor .FONTNAME = _SCREEN.oRibbon.cFontName .DisabledBackColor = _SCREEN.oRibbon.backcolor1 ENDWITH ENDPROC PROCEDURE Init WITH THIS .ReDraw() ENDWITH ENDPROC  *redraw сPROCEDURE redraw WITH THIS .BorderColor = _SCREEN.oRibbon.LinesColor .FONTNAME = _SCREEN.oRibbon.cFontName .DisabledBackColor = _SCREEN.oRibbon.backcolor1 ENDWITH ENDPROC PROCEDURE LostFocus if this.Tag = "1" plotherm.Complete() endif ENDPROC PROCEDURE KeyPress LPARAMETERS nKeyCode, nShiftAltCtrl if (nKeyCode = 13 or nKeyCode = 24 or nKeyCode = 5) and this.Tag = "1" local vvalor vvalor = plotherm.Upkey(nKeyCode) if !empty(vvalor) plotherm.complete() this.Value = vvalor this.Tag = "0" endif endif ENDPROC PROCEDURE GotFocus this.Tag = "0" ENDPROC PROCEDURE InteractiveChange if this.Tag = "0" plotherm = newobject("MENU","VCX\classprin","",thisform.top+objtoclient(this,1)+3,thisform.left+objtoclient(this,2)+this.Width+5,"Doc","Descrip") plotherm.Show() this.setfocus this.Tag = "1" endif plotherm.Update("select codigo_cue as codigo,descripcio as descripcio from plancue where codigo_cue like '"+alltrim(this.value)+"%'") ENDPROC PROCEDURE Init WITH THIS .ReDraw() ENDWITH ENDPROC PROCEDURE Valid if " "+alltrim(str(lastkey()))+" "$" 19 4 24 5 127 ".and.mdown()=.F. return .F. endif ENDPROC PROCEDURE Destroy if this.Tag = "1" plotherm.Complete() endif ENDPROC њFontBold = .T. FontName = "MS Sans Serif" FontSize = 9 BorderStyle = 1 Height = 21 SpecialEffect = 1 Width = 100 ForeColor = 0,0,0 DisabledBackColor = 255,255,255 DisabledForeColor = 255,0,0 BorderColor = 138,175,225 Name = "textbaselis" textboxlўђџ SS%ЂњРќU– Іќї§љўTтїќј§ўTтєїќс9єї§ўTтєїќєї§ўTтєїќєї§ў%ќєїј§љфўTтє ї ќa§ўTтє ї ќј§ўTтє ї ќј§ўTтє їќєїј§ўTтє їќєїј§ўTтє ї ќс9єї§ўљcўTтєї ќa§ўTтєї ќј§ўTтєї ќј§ўTтєїќєїј§ўTтєїќєїј§ўTтєїќс9єї§ўўTтєїќєї§ўTтєїќєї§ўЇўUTHIS BORDERWIDTH_MARCO BORDERCOLORORIBBON LINESCOLORWIDTHHEIGHTTIPO_FONDOVISIBLETOPLEFTPICTURE CFILEBMP6_FONDO1 BACKCOLOR BACKCOLOR2_TITULO Іќї§љў ™ќCті§ўЇўUTHISREDRAWredraw,џџInitqџџ1бсaBAAёaёaAAAA4бБA2ГЮю)Sўўђџ ххїО%LŒ vќUH*%ќєїєєєї№ CєїЁ §љAўTєїќй§ўBќ-§ўўUTHISVALUEPARENTC52œ*%ќєїєєєї№ CєїЁ §љ•ўTєїќй§ў[†ќCйAЁ Esta columna debe ser mayor al segundo rango de la quinta fila!јйERROR...ъx§ўўUTHISVALUEPARENTC52Valid,џџInteractiveChange’џџ1ЁqA2ЁБA1p˜K)хformrep.menubarRibboncommandbutton3 container container(OLEObject = C:\Windows\system\ipre.ocx  containerWPROCEDURE Valid if this.Value<=this.Parent.c12.Value.and.!EMPTY(this.value) this.Value="" return .F. endif ENDPROC PROCEDURE InteractiveChange if this.Value<=this.Parent.c12.Value.and.!EMPTY(this.value) this.Value="" =messagebox("Ё Esta columna debe ser mayor al segundo rango de la primera fila!",16,"ERROR...") endif ENDPROC јўђџ пп’~%F† pќUH*%ќєїєєєї№ CєїЁ §љAўTєїќй§ўBќ-§ўўUTHISVALUEPARENTC51–*%ќєїєєєї№ CєїЁ §љўTєїќй§ўU†ќCй;Ё Esta columna debe ser mayor al primer rango de esta fila!јйERROR...ъx§ўўUTHISVALUEPARENTC51Valid,џџInteractiveChange’џџ1ЁqA3ЁQA1ršG)пQCaption = "Codigo :" Left = 19 Top = 24 TabIndex = 16 Name = "Ribbonlabel8" sTag = "C" Enabled = .F. Format = "!" Height = 21 Left = 68 TabIndex = 6 Top = 21 Width = 85 Name = "ind1" textboxgHeight = 105 Left = 138 MoverBars = .T. TabIndex = 2 Top = 3 Width = 98 Name = "lstselecciones"  containerѓPROCEDURE Click this.Parent.Click ENDPROC PROCEDURE MouseUp LPARAMETERS nButton, nShift, nXCoord, nYCoord this.Parent.mouseup ENDPROC PROCEDURE MouseDown LPARAMETERS nButton, nShift, nXCoord, nYCoord this.Parent.mousedown ENDPROC  classprin.vcxtextbaseformreport.panel.p3Ribboncommandbutton4=Top = 63 Left = 2 Height = 435 Width = 746 Name = "rep" MCaption = "Pagina: 1" Left = 330 Top = 12 TabIndex = 18 Name = "pagina" RPROCEDURE Valid IF this.Value<=this.Parent.c11.Value.and.!EMPTY(this.value) this.Value="" RETURN .F. ENDIF ENDPROC PROCEDURE InteractiveChange if this.Value<=this.Parent.c11.Value.and.!EMPTY(this.value) this.Value="" =messagebox("Ё Esta columna debe ser mayor al primer rango de esta fila!",16,"ERROR...") endif ENDPROC nComment = "B" Top = 9 Left = 5 Width = 629 Height = 199 TabIndex = 30 lshadow = .F. Name = "_panel1" _SHAPE1.Comment = "B" _SHAPE1.Name = "_SHAPE1" RIBBONLABEL1.Comment = "B" RIBBONLABEL1.Name = "RIBBONLABEL1" _SHAPE2.Comment = "B" _SHAPE2.Name = "_SHAPE2" _IMAGE1.Comment = "B" _IMAGE1.Name = "_IMAGE1" SHADOW.Comment = "B" SHADOW.Name = "SHADOW" ўђџ їїхР%–ЎЄќUS™ќCй јјєі§ў™ќCйSumaјјєі§ў™ќCйConteoјјєі§ўUTHIS ADDLISTITEMInit,џџ1ЁЁС2l)ї foxribbon.vcx foxribbon.vcxRibboncommandbutton3bot5pComment = "B" Top = 210 Left = 5 Width = 629 Height = 122 TabIndex = 28 lshadow = .F. Name = "_panel2" _SHAPE1.Comment = "B" _SHAPE1.Name = "_SHAPE1" RIBBONLABEL1.Comment = "B" RIBBONLABEL1.Name = "RIBBONLABEL1" _SHAPE2.Comment = "B" _SHAPE2.Name = "_SHAPE2" _IMAGE1.Comment = "B" _IMAGE1.Name = "_IMAGE1" SHADOW.Comment = "B" SHADOW.Name = "SHADOW" #Comment = "D" Top = 340 Left = 362 Width = 35 Height = 35 TabIndex = 3 lcurvature = .F. border = .F. Name = "Ribboncommandbutton5" Image1.Picture = images\excelf.png Image1.Height = 16 Image1.Left = 10 Image1.Top = 10 Image1.Width = 16 Image1.Name = "Image1" XSHAPE2.Name = "XSHAPE2" Shape1.Name = "Shape1" Command1.Name = "Command1" Image2.Name = "Image2" RIBBONLABEL1.Caption = "" RIBBONLABEL1.Left = 57 RIBBONLABEL1.Top = 6 RIBBONLABEL1.Name = "RIBBONLABEL1" RIBBONLABEL2.Name = "RIBBONLABEL2" MARLETT.Name = "MARLETT" Њўђџ ‘‘ЋО%Ь( ќU{2ћF2ћўUF2~Tїќєї§ўk12ћF2ћ]do form forms\selmul with ptemform+'.panel.p1.p.p2.cob1.text.value','','codigo_doc','documen'ўUPTEMFORMTHISFORMNAMEWINF2 Tїќєї§ўTєєїќј§ўZћ forms\selmulбќїћ.panel.p4.cob1.text.value§ќћ§ќћ codigo_doc§ќћdocumen§ўTєєїќј§ў ™єєїўUPTEMFORMTHISFORMNAMEWINTHISPARENTOKFORMSSETFOCUSText.LostFocus,џџ Text.GotFocusEџџ BOTON.Clickшџџ1с2Б31Ё1б3)MињЌ )‘јўђџ пп’~%F† pќUH*%ќєїєєєї№ CєїЁ §љAўTєїќй§ўBќ-§ўўUTHISVALUEPARENTC41–*%ќєїєєєї№ CєїЁ §љўTєїќй§ўU†ќCй;Ё Esta columna debe ser mayor al primer rango de esta fila!јйERROR...ъx§ўўUTHISVALUEPARENTC41Valid,џџInteractiveChange’џџ1ЁqA3ЁQA1ršG)п3PROCEDURE Click public presp local vtablafor,vcontador declare acampos(1,1) vtablafor=thisform.tablafor presp=0 do form forms\selord with vtablafor if presp=1 thisform.panel.p3.lista.RecordSource="" select (vtablafor) for vcontador=1 to alen(acampos,1) locate for columna=val(acampos(vcontador,1)) if found() replace pos with vcontador endif endfor select * from &vtablafor order by pos into cursor cfor create cursor &vtablafor (columna n(2,0),ancho n(3,0),titulo c(50),subtitulo c(50),ver L,orden c(7), agrupar c(2), totales c(8), cony c(100), cono c(100),orien c(3) default "Der",tipo c(1),pos n(2,0)) select cfor scan insert into &vtablafor (columna ,ancho ,titulo ,subtitulo ,ver ,orden , agrupar ,totales , cony , cono ,orien ,tipo,pos) values ; (cfor.columna,cfor.ancho,cfor.titulo ,cfor.subtitulo,cfor.ver,cfor.orden ,cfor.agrupar,cfor.totales,cfor.cony,cfor.cono,cfor.orien,cfor.tipo,cfor.pos) endscan use go top in &vtablafor thisform.panel.p3.lista.RecordSource=vtablafor endif release presp,acampos ENDPROC #Comment = "D" Top = 340 Left = 327 Width = 35 Height = 35 TabIndex = 3 lcurvature = .F. border = .F. Name = "Ribboncommandbutton4" IMAGE1.Picture = images\ordasc.bmp IMAGE1.Height = 16 IMAGE1.Left = 10 IMAGE1.Top = 10 IMAGE1.Width = 16 IMAGE1.Name = "IMAGE1" XSHAPE2.Name = "XSHAPE2" SHAPE1.Name = "SHAPE1" COMMAND1.Name = "COMMAND1" IMAGE2.Name = "IMAGE2" RIBBONLABEL1.Caption = "" RIBBONLABEL1.Left = 57 RIBBONLABEL1.Top = 6 RIBBONLABEL1.Name = "RIBBONLABEL1" RIBBONLABEL2.Name = "RIBBONLABEL2" MARLETT.Name = "MARLETT"  container foxribbon.vcxribboncommandbuttonўўђџ ххїО%LŒ vќUH*%ќєїєєєї№ CєїЁ §љAўTєїќй§ўBќ-§ўўUTHISVALUEPARENTC42œ*%ќєїєєєї№ CєїЁ §љ•ўTєїќй§ў[†ќCйAЁ Esta columna debe ser mayor al segundo rango de la cuarta fila!јйERROR...ъx§ўўUTHISVALUEPARENTC42Valid,џџInteractiveChange’џџ1ЁqA2ЁБA1p˜K)х foxribbon.vcx containerГPROCEDURE Click public pvartempo local vresp nomlista('modelos','codigo_mod','codigo_mod','pvartempo') if !empty(pvartempo) vresp=messagebox("П Desea borrar el modelo "+alltrim(pvartempo)+" ?",4+32+256,; "ЁATENCION!") if vresp=6 =sqlexec(thisform.dat,"delete from moddet where codigo_mod=?pvartempo") =sqlexec(thisform.dat,"delete from modcab where codigo_mod=?pvartempo") endif endif release pvartempo ENDPROC #Comment = "D" Top = 340 Left = 292 Width = 35 Height = 35 TabIndex = 3 lcurvature = .F. border = .F. Name = "Ribboncommandbutton3" IMAGE1.Picture = images\borrar.bmp IMAGE1.Height = 16 IMAGE1.Left = 10 IMAGE1.Top = 10 IMAGE1.Width = 16 IMAGE1.Name = "IMAGE1" XSHAPE2.Name = "XSHAPE2" SHAPE1.Name = "SHAPE1" COMMAND1.Name = "COMMAND1" IMAGE2.Name = "IMAGE2" RIBBONLABEL1.Caption = "" RIBBONLABEL1.Left = 57 RIBBONLABEL1.Top = 6 RIBBONLABEL1.Name = "RIBBONLABEL1" RIBBONLABEL2.Name = "RIBBONLABEL2" MARLETT.Name = "MARLETT" formreport.panel.p3Ribboncommandbutton3 container foxribbon.vcxribboncommandbuttonVўђџ ==бЕ%‹є-šќU]Ўїїїїў(TїќCј]Cљг]й\Cій.pdf§ў™ќCїaєєі§ў1ћforms\inp_email(їбќй§ќй§їќй§ў%ќCїЁ§љ”ўBўў$Tї ќCCїјCй|їјј\›§ў>Tї ќCCїCй|їјјCй|їјCй|їјј\›§ў>Tї ќCCїCй|їјјCй|їјCй|їјј\›§ў!Tї ќCCїCй|їјј\›§ўTїќCй JMail.MessageъN§ўTєї ќa§ўTєїќa§ў(Tєїќйcoelectric@speedy.com.pe§ўTєїќй COELECTRIC§ў Tїќј§ў Tїќј§ў+ќCй;ї їј§љНў/%ќCCCї їјCй;ї їїј\›Ё §љjў2™ќCCCї їјCй;ї їїј\›йєі§ўў>TїќCCй;ї їјђCй;ї їѓCй;ї їј6§ўTїќїј§ўў%ќCCCї їј\›Ё §љњў™ќCCCї їј\›йєі§ўў+™ќCйcoelectric_1985@hotmail.comєі§ўTєїќї §ўTєїќї §ў%ќCї 0§љjў™ќCї -єі§ўўTєїќй 180119571801§ў(Tєїќйcoelectric@speedy.com.pe§ў&TїќCйsmtp.speedy.com.peєі§ў %ќї§љў)™ќCйMensaje enviado!ј0йEXITO..ъx§ўљ@ў*™ќCйMensaje no enviado!јйEROORъx§ўўdelete file &vfile UVVAR11VFILELOKOEMAILGETNAMETHISFORMMAN SAVETOPDFFORMSVDESTVASUNTOVADJUNTOVMENSAJELOGGINGSILENTFROMFROMNAMEIINI ADDRECIPIENTADDRECIPIENTBCCSUBJECTBODY ADDATTACHMENTMAILSERVERPASSWORDMAILSERVERUSERNAMESENDClick,џџ11QђAABссбссЁвбБё!AсAБсAВђ!AСaб‘ЁAa1d)=Џўђџ ––ѕ%MќUoЎїїїїїїў Tїќј§ў Tїќј§ў„їќј§(ќј§љНўTїќйcCїјјZй1§ўTїќйcCїјјZй2§ўTїќйcampoCїјјZ§ўbif !empty(thisform.panel.p4.&vvalor1..value) and !empty(thisform.panel.p4.&vvalor2..value)љЙўif val(thisform.panel.p4.&vvalor1..value) < val(thisform.panel.p4.&vvalor2..value) and vcolum2 < val(thisform.panel.p4.&vvalor2..value)љЕўTїќїј§ў2vcolum2=val(thisform.panel.p4.&vvalor2..value) Gthisform.forfalsa(vnumcol,1)=val(thisform.panel.p4.&vvalor1..value) Gthisform.forfalsa(vnumcol,2)=val(thisform.panel.p4.&vvalor2..value) Kthisform.forfalsa(vnumcol,3)=alltrim(thisform.panel.p4.&vvalor3..value) ўў…ў%ќїј §љEў„їќїј§(ќј§љAўTєіќї§ќј§ќј§ўTєіќї§ќј§ќј§ўTєіќї§ќј§ќй§ў…ўўTєїќї§ўTєє ї ќј§ўU VVALOR1VVALOR2VVALOR3VCOLUM2 VCONTADORVNUMCOLTHISFORMFORFALSACOLNUMPANEL ACTIVEPAGEClick,џџ1Бббqёёс!ё!qqБAAAБСССAA11щ)–;ўђџ ""џ;%ЛйЩќU[ ™ќCъЁ§ўЎїў„їќј§(ќCCї›>§љCў™ќCCїјјZєі§ў…ўTєїќй1§ўUCONTADOR PPLANESTRUTHIS ADDLISTITEMVALUEInit,џџ1‘qБA1•)"ribboncommandbuttonformrep.menubarRibboncommandbutton2ribboncommandbuttonformrep.menubarbot2ribboncommandbuttonformrepg.menubarRibboncommandbutton217 ЭPROCEDURE Click local vcon1,vcon2,vcon3,vcon4,vretorno,vtablafor,verror,vsql vtablafor=thisform.tablafor do form forms\inpfor to vok if empty(vok) or vok="|" return endif vcon1=substr(vok,1,at("|",vok)-1) vcon2=substr(vok,at("|",vok)+1,60) vcon3=thisform.tamano vcon4=thisform.orientation vcon5=thisform.linea vcon6=thisform.colnum vcon7=thisform.cero vcon8=thisform.alto vcon9=thisform.letra vcon10=thisform.digano vcon11=vacio(thisform.forfalsa(1,1),2,pdigitos) vcon12=vacio(thisform.forfalsa(1,2),2,pdigitos) vcon13=thisform.forfalsa(1,3) vcon14=vacio(thisform.forfalsa(2,1),2,pdigitos) vcon15=vacio(thisform.forfalsa(2,2),2,pdigitos) vcon16=thisform.forfalsa(2,3) vcon17=vacio(thisform.forfalsa(3,1),2,pdigitos) vcon18=vacio(thisform.forfalsa(3,2),2,pdigitos) vcon19=thisform.forfalsa(3,3) vcon20=vacio(thisform.forfalsa(4,1),2,pdigitos) vcon21=vacio(thisform.forfalsa(4,2),2,pdigitos) vcon22=thisform.forfalsa(4,3) vcon23=vacio(thisform.forfalsa(5,1),2,pdigitos) vcon24=vacio(thisform.forfalsa(5,2),2,pdigitos) vcon25=thisform.forfalsa(5,3) vcon26=vacio(thisform.forfalsa(6,1),2,pdigitos) vcon27=vacio(thisform.forfalsa(6,2),2,pdigitos) vcon28=thisform.forfalsa(6,3) vcon29= thisform.papel vcon30= thisform.mleft vcon31= thisform.mright vcon32= thisform.mtop vcon33= thisform.mbottom vcon34= thisform.mheader vcon35= thisform.subtotal vcon36= alltrim(thisform.panel.p4.cob3.text.value) vcon37= alltrim(thisform.panel.p4.cob1.text.value) vcon38= thisform.panel.p4.cob2.value vcon39= thisform.panel.p4.resumen.Value verror=1 vretorno=0 vsql = "select * from add_modcab(?vcon1,?vcon2,?vcon3,?vcon4,?vcon5,?vcon6,?vcon7,?vcon8,?vcon9,?vcon10,?vcon11,?vcon12,?vcon13,?vcon14,?vcon15," vsql = vsql + "?vcon16,?vcon17,?vcon18,?vcon19,?vcon20,?vcon21,?vcon22,?vcon23,?vcon24,?vcon25,?vcon26,?vcon27,?vcon28,?vcon29,?vcon30,?vcon31,?vcon32,?vcon33,?vcon34,?vcon35,?vcon36,?vcon37,?vcon38,?vcon39)" if sqlexec(thisform.dat,vsql)=-1 =messagebox("No hay conecciѓn",16,"ERROR...") return else do case case vretorno = 0 verror=0 case vretorno = 1 verror=1 =messagebox("Ya existe el modelo en la base de datos",16,"ERROR...") return endcase endif if used(vtablafor) select (vtablafor) scan vcon2=str(columna,2,0) vcon3=str(ancho,3,0) vcon4=titulo vcon5=subtitulo vcon6=iif(ver=.T.,1,0) vcon7=orden vcon8=agrupar vcon9=totales vcon10=cony vcon11=cono vcon12=orien vcon13=tipo vcon14=pos if sqlexec(thisform.dat,"select * from add_moddet(?vcon1,?vcon2,?vcon3,?vcon4,?vcon5,?vcon6,?vcon7,?vcon8,?vcon9,?vcon10,?vcon11,?vcon12,?vcon13,?vcon14)")=-1 =messagebox("No hay conecciѓn",16,"ERROR...") return else do case case vretorno = 1 verror=1 endcase endif endscan endif do case case verror = 0 =messagebox("El modelo ha sido creado",0,"EXITO...") case verror = 1 =messagebox("Ya existe el modelo en la base de datos",16,"ERROR...") endcase ENDPROC #Comment = "D" Top = 340 Left = 257 Width = 35 Height = 35 TabIndex = 3 lcurvature = .F. border = .F. Name = "Ribboncommandbutton2" IMAGE1.Picture = images\grabar.bmp IMAGE1.Height = 16 IMAGE1.Left = 10 IMAGE1.Top = 10 IMAGE1.Width = 16 IMAGE1.Name = "IMAGE1" XSHAPE2.Name = "XSHAPE2" SHAPE1.Name = "SHAPE1" COMMAND1.Name = "COMMAND1" IMAGE2.Name = "IMAGE2" RIBBONLABEL1.Caption = "" RIBBONLABEL1.Left = 57 RIBBONLABEL1.Top = 6 RIBBONLABEL1.Name = "RIBBONLABEL1" RIBBONLABEL2.Name = "RIBBONLABEL2" MARLETT.Name = "MARLETT" formreport.panel.p3Ribboncommandbutton2 container foxribbon.vcxribboncommandbuttonєўђџ лльq%еr8ќUЪTєїќCі§ўTєїќCі§ўTєїќCі§ўTєїќї§ўTєїќCї і §ў%ќєїј§љ|ўB(Мў ™єї ўўTєї ќCї і §ў%ќєї ј§љЙўB(Мў ™єї ўў †ќCі§ўUTHISFORMTABTEM1GETNAMETABTEM2TABTEM3THISNAMEWINPNOMFORMDAT FCREATECONECTPDATARELEASEDATGPBASE PONERSETSx%ќCєїЊ§љ#ў Fќєї§ўQўў%ќCєїЊ§љJў Fќєї§ўQўў%ќCєїЊ§љqў Fќєї§ўQўўUTHISFORMTABTEM1TABTEM2TABTEM3t4їїїїў ™ќCъЁ§ў"TєєєїќйPvent - ї§ўTєє ї ќ-§ўTєє ї ќa§ўTєє ї ќї§ўTєє ї ќј§ў%ќCФј§љтўLTїќїйUID=їй;йPWD=їй;йDBNAME=їй:їй;§ўљRўhTїќйWProvider=MSDASQL.1;Persist Security Info=False;Data Source=dBASE Files;Initial Catalog=ї§ўў™ќCйPVENTїєє і§ў™ќCйPVENTїєє і§ў™ќCйVRUCїєє і§ў™ќCйVRAZONїєє і§ў%ќCФј§љў%ќCїЁ §љў™ќCйVPARAMїєє і§ўўў™ќCєє їєєі§ўTєєїќ-§ўTєєїќa§ў+TєєєїќйPсgina CCјј јZ›§ўU PMFILEPMSQLPMPARAMPPATHTHISFORM _TITLEBAR1 RIBBONLABEL1CAPTIONTHISMANPREVIEWSHOWPRINTDIALOGFILENAMELANGUAGEVDATAPODBCPUSER PPASSWORDPSERVERPDATASETDATABASECONNECTIONSTRING SETDATASETSQL SETPARAMVALUEPRUCPRAZONREP SETREPORTREPORT AUTOSCROLL KEYPREVIEWMENUBARPAGINALoad,џџDestroy}џџInitџџ1QAaЁAQAaЁAЁ2!бAA!бAA!бAA31‘!11СAССБббAA‘Б1[yE`&")лZўђџ AA5)%<ШšќU{2ћF2ћўUF2цTїќєї§ў'TїќCєєєєєєєєї ›§ўЌ12ћF2ћždo form forms\selmul with ptemform+'.panel.p4.cob3.text.value','','columna','','',"select columna from fordet where codigo_for='"+pcodfor+"' and formula <>''"ўU PTEMFORMTHISFORMNAMEWINPCODFORPANELP1PCOB2TEXTVALUEF2ЧЎїў'TїќCєєєєєєєєї›§ўTїќєї §ўTє є ї ќј§ўSћ forms\sellisбќїћ.panel.p4.cob3.text.value§ќћ§їќћ§ќћ§ќј§ўTє є ї ќј§ў ™є є їўU VCODIGO_FORTHISFORMPANELP1PCOB2TEXTVALUEPTEMFORMNAMEWINTHISPARENTOKFORMSSETFOCUSTїќєї§ўЎїў'TїќCєєєєєєєєї ›§ўTє є ї ќј§ўЃћ forms\selmulбќїћ.panel.p4.cob3.text.value§ќћ§ќћcolumna§ќћ§ќћ§ќй-select columna from fordet where codigo_for='їй' and formula <>''§ўTє є ї ќј§ў ™є є їўUPTEMFORMTHISFORMNAMEWIN VCODIGO_FORPANELP1PCOB2TEXTVALUETHISPARENTOKFORMSSETFOCUSText.LostFocus,џџ Text.GotFocusEџџBOTON.RightClickzџџ BOTON.ClickГџџ1с3qС 3qq111б3qq11 1б3+OX€ Ђё)ARibboncommandbutton1bot1 foxribbon.vcxbot1!Comment = "D" Top = 340 Left = 222 Width = 35 Height = 35 TabIndex = 3 lcurvature = .F. border = .F. Name = "Ribboncommandbutton1" IMAGE1.Picture = images\open.bmp IMAGE1.Height = 16 IMAGE1.Left = 10 IMAGE1.Top = 10 IMAGE1.Width = 16 IMAGE1.Name = "IMAGE1" XSHAPE2.Name = "XSHAPE2" SHAPE1.Name = "SHAPE1" COMMAND1.Name = "COMMAND1" IMAGE2.Name = "IMAGE2" RIBBONLABEL1.Caption = "" RIBBONLABEL1.Left = 57 RIBBONLABEL1.Top = 6 RIBBONLABEL1.Name = "RIBBONLABEL1" RIBBONLABEL2.Name = "RIBBONLABEL2" MARLETT.Name = "MARLETT" formreport.panel.p3Ribboncommandbutton1 container foxribbon.vcxribboncommandbuttonoComment = "D" Top = 335 Left = 217 Height = 45 Width = 185 BackColor = 255,255,255 Name = "Contenedor3" formreport.panel.p3 Contenedor3shape classprin.vcx contenedorformreport.panel.p3opcion optiongroup optiongroupmComment = "D" Top = 335 Left = 5 Height = 45 Width = 184 BackColor = 255,255,255 Name = "Contenedor1" formreport.panel.p3 Contenedor1shape classprin.vcx contenedorЉўђџ цM%3GCќUUredraw,џџ12) container foxribbon.vcxform7PROCEDURE Click thisform.panel.ActivePage=1 ENDPROC Comment = "E" Top = 344 Left = 544 Width = 84 Height = 27 TabIndex = 4 lcurvature = .F. Name = "cnbotton1" IMAGE1.Picture = defaultimages\close.png IMAGE1.Height = 16 IMAGE1.Left = 6 IMAGE1.Top = 5 IMAGE1.Width = 16 IMAGE1.Name = "IMAGE1" XSHAPE2.Name = "XSHAPE2" SHAPE1.Name = "SHAPE1" COMMAND1.Name = "COMMAND1" IMAGE2.Name = "IMAGE2" RIBBONLABEL1.Caption = "\ reccount('cfor') =messagebox("La cantidad de columnas del modelo no es igual",16,"ERROR...") use return endif =sqlexec(thisform.dat,"select * from modcab where codigo_mod=?pvartempo",'cfor') thisform.tamano=cfor.tamano thisform.orientation=cfor.orientation thisform.linea=cfor.linea thisform.colnum=cfor.colnum thisform.cero=cfor.cero thisform.panel.p4.cero.refresh thisform.alto=cfor.alto thisform.letra=alltrim(cfor.letra) thisform.digano=cfor.digano thisform.forfalsa(1,1)=val(cfor.de1) thisform.forfalsa(1,2)=val(cfor.a1) thisform.forfalsa(1,3)=cfor.titulo1 thisform.forfalsa(2,1)=val(cfor.de2) thisform.forfalsa(2,2)=val(cfor.a2) thisform.forfalsa(2,3)=cfor.titulo2 thisform.forfalsa(3,1)=val(cfor.de3) thisform.forfalsa(3,2)=val(cfor.a3) thisform.forfalsa(3,3)=cfor.titulo3 thisform.forfalsa(4,1)=val(cfor.de4) thisform.forfalsa(4,2)=val(cfor.a4) thisform.forfalsa(4,3)=cfor.titulo4 thisform.forfalsa(5,1)=val(cfor.de5) thisform.forfalsa(5,2)=val(cfor.a5) thisform.forfalsa(5,3)=cfor.titulo5 thisform.forfalsa(6,1)=val(cfor.de6) thisform.forfalsa(6,2)=val(cfor.a6) thisform.forfalsa(6,3)=cfor.titulo6 thisform.papel = cfor.papel thisform.mleft = cfor.mleft thisform.mright = cfor.mright thisform.mtop = cfor.mtop thisform.mbottom = cfor.mbottom thisform.mheader = cfor.mheader thisform.subtotal = cfor.subtotal thisform.panel.p4.resumen.Value = cfor.resumen for vcontador=1 to 6 vvalor1="c"+str(vcontador,1,0)+"1" vvalor2="c"+str(vcontador,1,0)+"2" vvalor3="campo"+str(vcontador,1,0) thisform.panel.p4.&vvalor1..value=str(thisform.forfalsa(vcontador,1),2,0) thisform.panel.p4.&vvalor2..value=str(thisform.forfalsa(vcontador,2),2,0) thisform.panel.p4.&vvalor3..value=thisform.forfalsa(vcontador,3) endfor thisform.panel.p4.digano.refresh thisform.panel.p4.refresh thisform.panel.p4.cob3.text.value = alltrim(cfor.rescam) thisform.panel.p4.cob1.text.value = alltrim(cfor.resdoc) thisform.panel.p4.cob2.value = cfor.rescol thisform.panel.p3.lista.RecordSource="" create cursor &vtablafor (columna n(2,0),ancho n(3,0),titulo c(50),subtitulo c(50),ver L,orden c(7), agrupar c(2), totales c(8), cony c(100), cono c(100),orien c(3) default "Der",tipo c(1),pos n(2,0)) =sqlexec(thisform.dat,"select * from moddet where codigo_mod=?pvartempo order by pos",'cfor') scan insert into &vtablafor (columna ,ancho ,titulo ,subtitulo ,ver ,orden , agrupar ,totales , cony , cono ,orien ,tipo,pos) values ; (val(cfor.columna),val(cfor.ancho),cfor.titulo ,cfor.subtitulo,iif(cfor.ver=1,.T.,.F.) ,cfor.orden ,cfor.agrupar ,cfor.totales ,cfor.cony ,cfor.cono ,cfor.orien ,cfor.tipo,cfor.pos) endscan use go top in &vtablafor thisform.panel.p3.lista.RecordSource=vtablafor endif release pvartempo ENDPROC  ButtonCount = 5 Comment = "D" BorderStyle = 0 Value = 1 Height = 36 Left = 8 SpecialEffect = 1 Top = 339 Width = 176 TabIndex = 5 Themes = .F. Name = "opcion" Option1.Picture = images\previo.bmp Option1.BackStyle = 0 Option1.Caption = "" Option1.Value = 1 Option1.Height = 35 Option1.Left = 1 Option1.SpecialEffect = 1 Option1.Style = 1 Option1.TabIndex = 1 Option1.Top = 1 Option1.Width = 35 Option1.ColorSource = 0 Option1.BackColor = 255,255,255 Option1.Themes = .F. Option1.Name = "op1" Option2.Picture = images\imprimir.bmp Option2.BackStyle = 1 Option2.Caption = "" Option2.Height = 35 Option2.Left = 36 Option2.SpecialEffect = 1 Option2.Style = 1 Option2.TabIndex = 2 Option2.Top = 1 Option2.Width = 35 Option2.ColorSource = 0 Option2.Themes = .F. Option2.Name = "op2" Option3.Picture = images\excel.bmp Option3.BackStyle = 0 Option3.Caption = "" Option3.Height = 35 Option3.Left = 71 Option3.SpecialEffect = 1 Option3.Style = 1 Option3.TabIndex = 3 Option3.Top = 1 Option3.Width = 35 Option3.ColorSource = 0 Option3.BackColor = 255,255,255 Option3.Themes = .F. Option3.Name = "op3" Option4.Picture = images\newtable.bmp Option4.BackStyle = 0 Option4.Caption = "" Option4.Height = 35 Option4.Left = 106 Option4.SpecialEffect = 1 Option4.Style = 1 Option4.TabIndex = 4 Option4.Top = 1 Option4.Width = 35 Option4.ColorSource = 0 Option4.BackColor = 255,255,255 Option4.Themes = .F. Option4.Name = "op4" Option5.Picture = images\pdf.bmp Option5.BackStyle = 0 Option5.Caption = "" Option5.Height = 35 Option5.Left = 141 Option5.SpecialEffect = 1 Option5.Style = 1 Option5.TabIndex = 5 Option5.Top = 1 Option5.Width = 35 Option5.ColorSource = 0 Option5.BackColor = 255,255,255 Option5.Themes = .F. Option5.Name = "op5" Comment = "E" Top = 344 Left = 453 Width = 84 Height = 27 TabIndex = 3 lcurvature = .F. Name = "cnbotton2" IMAGE1.Picture = images\aceptar.bmp IMAGE1.Height = 16 IMAGE1.Left = 6 IMAGE1.Top = 5 IMAGE1.Width = 16 IMAGE1.Name = "IMAGE1" XSHAPE2.Name = "XSHAPE2" SHAPE1.Name = "SHAPE1" COMMAND1.Name = "COMMAND1" IMAGE2.Name = "IMAGE2" RIBBONLABEL1.Caption = "\ї бќї§ўў…ў:select * from &vtablafor order by pos into cursor cfor Ьcreate cursor &vtablafor (columna n(2,0),ancho n(3,0),titulo c(50),subtitulo c(50),ver L,orden c(7), agrupar c(2), totales c(8), cony c(100), cono c(100),orien c(3) default "Der",tipo c(1),pos n(2,0)) Fї ў~љўinsert into &vtablafor (columna ,ancho ,titulo ,subtitulo ,ver ,orden , agrupar ,totales , cony , cono ,orien ,tipo,pos) values (cfor.columna,cfor.ancho,cfor.titulo ,cfor.subtitulo,cfor.ver,cfor.orden ,cfor.agrupar,cfor.totales,cfor.cony,cfor.cono,cfor.orien,cfor.tipo,cfor.pos) ўQўgo top in &vtablafor Tєєєє ї ќї§ўў <їїўUPRESP VTABLAFOR VCONTADORACAMPOSTHISFORMTABLAFORFORMSPANELP3LISTA RECORDSOURCECOLUMNAPOSCFORClick,џџ1qБ1б‘ЁбСбAAЁС qВAA‘AБ1()”ўђџ јјИ&%ЏŸќUD%ќєї§љ"ўTєїќ-§ўBўўTєїќa§ў ™ќCєі§ўUTHISFORM LPOPUPSETSHOWEClick,џџ1сAAсб2)јўђџ јјИ&%ЏŸќUD%ќєї§љ"ўTєїќ-§ўBўўTєїќa§ў ™ќCєі§ўUTHISFORM LPOPUPSETSHOWDClick,џџ1сAAсб2)јribboncommandbuttonformrep.menubarmenubar foxribbon.vcxribbonmenuseparator,PROCEDURE Click thisform.release ENDPROC comboboxcombobox!formreport.panel.p3.lista.Column6Header1headerheaderCheck1Text1;ўђџ ""џ;%МйЫќUcЎїў+TїќCйNombre :й reporte.rptйrptТ§ў%ќCїЁ §љ\ў™ќCїєєєєі§ўўUVRUTATHISFORMPANELP2VSSAVEDOCClick,џџ1qБЁA3Ž)" container foxribbon.vcxribboncommandbuttonformrepg.menubar containerFontBold = .T. FontName = "MS Sans Serif" FontSize = 8 Height = 24 Left = 26 SpecialEffect = 1 Style = 2 Top = 29 Width = 100 SelectedForeColor = 0,0,0 DisabledForeColor = 255,0,0 SelectedBackColor = 255,255,255 BorderStyle = 0 Name = "Combo1" FontBold = .F. FontName = "MS Sans Serif" Alignment = 2 Caption = "Grupo" ForeColor = 21,66,139 BackColor = 219,230,244 Name = "Header1" lTop = 29 Left = 21 Height = 17 Width = 60 Alignment = 0 Centered = .T. Caption = "" Name = "Check1" ўђџ ]i%ЂЙБќU<™ќCјєєєєі§ў TєєєєєїќCCјZ›§ўUTHISFORMPANELP2VS PREVIEWPAGEPT1CAPTIONClick,џџ1‘2f) classprin.vcxcnbotton container!formreport.panel.p3.lista.Column5checkboxcheckbox!formreport.panel.p3.lista.Column5Header1ИPROCEDURE Click this.Parent.Click ENDPROC PROCEDURE MouseEnter LPARAMETERS nButton, nShift, nXCoord, nYCoord this.Parent.selon ENDPROC PROCEDURE MouseLeave LPARAMETERS nButton, nShift, nXCoord, nYCoord this.Parent.seloff ENDPROC PROCEDURE MouseUp LPARAMETERS nButton, nShift, nXCoord, nYCoord this.Parent.mouseup ENDPROC PROCEDURE MouseDown LPARAMETERS nButton, nShift, nXCoord, nYCoord this.Parent.mousedown ENDPROC –PROCEDURE KeyPress LPARAMETERS nKeyCode, nShiftAltCtrl if nKeyCode = 13 keyboard '{leftarrow}' endif ENDPROC PROCEDURE MouseUp LPARAMETERS nButton, nShift, nXCoord, nYCoord this.Parent.mouseup ENDPROC PROCEDURE MouseDown LPARAMETERS nButton, nShift, nXCoord, nYCoord this.Parent.mousedown ENDPROC PROCEDURE LostFocus this.Parent.seloff ENDPROC PROCEDURE GotFocus this.Parent.selon ENDPROC PROCEDURE Click this.Parent.Click ENDPROC PROCEDURE MouseEnter LPARAMETERS nButton, nShift, nXCoord, nYCoord this.Parent.selon ENDPROC PROCEDURE MouseLeave LPARAMETERS nButton, nShift, nXCoord, nYCoord this.Parent.seloff ENDPROC MPROCEDURE selon this.bback.visible = .T. this.iback.visible = .F. this.kback.visible = .F. ENDPROC PROCEDURE seloff this.bback.visible = .F. this.iback.visible = .T. this.kback.visible = .F. ENDPROC PROCEDURE selkey this.bback.visible = .F. this.iback.visible = .F. this.kback.visible = .T. ENDPROC PROCEDURE MouseUp LPARAMETERS nButton, nShift, nXCoord, nYCoord this.selon ENDPROC PROCEDURE MouseLeave LPARAMETERS nButton, nShift, nXCoord, nYCoord this.seloff ENDPROC PROCEDURE MouseEnter LPARAMETERS nButton, nShift, nXCoord, nYCoord this.selon ENDPROC PROCEDURE MouseDown LPARAMETERS nButton, nShift, nXCoord, nYCoord this.selkey ENDPROC PROCEDURE Init WITH THIS .BORDERCOLOR = _SCREEN.oRibbon.ChangeColor(_SCREEN.oRibbon.LinesColor, - 25) .label.FONTNAME = _SCREEN.oRibbon.cFontName endwith *this.BorderWidth = 0 this.boton.Top = 2 this.boton.left = 2 this.boton.Width = this.Width - 4 this.boton.Height = this.Height - 4 this.iback.Top = 1 this.iback.left = 1 this.iback.Height = this.Height - 2 this.iback.Width = this.Width - 2 this.iback.Picture = _SCREEN.oRibbon.cFileBMP7 this.bback.Top = 1 this.bback.left = 1 this.bback.Height = this.Height - 2 this.bback.Width = this.Width - 2 this.bback.Picture = _SCREEN.oRibbon.cFileBMP2 this.kback.Top = 1 this.kback.left = 1 this.kback.Height = this.Height - 2 this.kback.Width = this.Width - 2 this.kback.Picture = _SCREEN.oRibbon.cFileBMP4 this.imagen.Left = 10 this.imagen.Top = int(this.height/2) - int(this.imagen.height/2) this.label.Caption = this.caption this.label.Top = int(this.height/2) - int(this.label.height/2) *this.label.left = this.imagen.Left + this.imagen.Width *this.label.left this.label.Width = this.Width - this.imagen.Left - this.imagen.Width this.boton.Caption = this.caption ENDPROC цўђџ ЭЭZр%.tNќUЁ ЏїїўЎїў HљљšўK ќїјA№їјY ёїјa№їјz  ёїј0№їј9  §љšўTєєїќCї §ў ™єєїў\ќћ{End}§ўўUNKEYCODE NSHIFTALTCTRLVOBJETOTHISFORMBUSCAVALUESETFOCUSб Іќї§љКў Tтїќ-§ў(™ќCй BACKCOLORс9єїйHeaderті§ў(™ќCй FORECOLORс9єїйHeaderті§ў/™ќCйFONTNAMEй MS Sans SerifйHeaderті§ў"™ќCйFONTSIZEј йHeaderті§ўЇўTєїќй§ўUTHISTHEMESSETALLORIBBON BACKCOLOR2 FONTCOLOR RECORDSOURCEKeyPress,џџInitџџ1БqбБQбсA3бСё!A1 5; )Эйўђџ РРžБ%Rw aќUФЎїўTїќCйrptС§ў%ќCїЁ §љНў™ќCїєєєєі§ўTєїќCєєєєі§ў Tєєєєє ї ќCCјZ›§ў#Tєєєєє ї ќCCєїZ›§ўTєєєєє ї ќ-§ўўUVRUTATHISFORMPANELP2VSLOADDOCNPAGE PAGECOUNTPT1CAPTIONT2BOT8VISIBLEClick,џџ1q!Ёб1ЁA2;)Р(ўђџ .Ј%ЏЦОќUB™ќCєїєєєєі§ў#TєєєєєїќCCєїZ›§ўU THISFORMPANELP2VS PREVIEWPAGENPAGEPT1CAPTIONClick,џџ1С12€)|ўђџ cc,%ћ ќU…ЎїўTїќCєєєєєїg§ў%ќїјєї§љ~ў™ќCїјєєєєі §ў$TєєєєєїќCCїјZ›§ўўU VNUMPAGTHISFORMPANELP2PT1CAPTIONNPAGEVS PREVIEWPAGEClick,џџ1qсбAA2й)crўђџ YYIM%ёќU‚ЎїўTїќCєєєєєїg§ў%ќїјј§љ{ў™ќCїјєєєєі§ў$TєєєєєїќCCїјZ›§ўўU VNUMPAGTHISFORMPANELP2PT1CAPTIONVS PREVIEWPAGEClick,џџ1qсQбAA3Э)Yкўђџ ССdв%cxrќUTєєїќј§ўUTHISFORMPANEL ACTIVEPAGEClick,џџ111.)С‡PROCEDURE Click thisform.rep.nextPage thisform.menubar.pagina.Caption = "Pсgina "+alltrim(str(thisform.rep.page+1,10,0)) ENDPROC headerheadertextboxheaderўђџ vvl%у-ёќUЯ Іќї§љ6ўTтїќєєєї§ўTтїќј §ўTтїќс9єї§ўTтїќј§ўTтєї ќс9єї §ўTтєї ќј§ўTтєї ќј§ўTтєїќтї§ўTтєї ќтї§ўTтєїќтї§ўTтєї ќс9єї §ўTтєї ќєїј§ўTтєї ќј§ўTтєїќтї§ўTтєї ќтї§ўTтєїќтї§ўЇўІќєї§љШў™ќCјті§ўTтї ќј§ўTтї ќј§ўTтїќєї§ўTтїќєї§ўTтїќс9єї§ўTтїќј§ўTтї ќєї§ўЇўUTHISWIDTHPARENTANCHOR BACKCOLORORIBBON BACKCOLOR2 BORDERWIDTHTOPLINE BORDERCOLOR BACKGROUNDTOPLEFTVISIBLE SHOWTOPLINE BOTTOMLINEHEIGHTSHOWBOTTOMLINEIMAGE1ZORDERPICTURE CFILEBMP6 SHOWBACKIMAGEInit,џџ1бqс1сa!!!a!!!Aссс1сA2т)vYўђџ @@7ы%еї уќUu ™ќCъЁ§ў Іќї§љnўTтїќј§ўTтїќј§ўTтїќєєєї§ўTтїќєєєї§ўTтїќј§ўЇўUTHISTOPLEFTHEIGHTPARENTWIDTHANCHORInit,џџ1‘вссqqсA2Ѓ)@Чўђџ ЎЎпУ%Pe_ќU ™єїўUTHISFORMRELEASEClick,џџ1Ё1!)Ўformrep.menubar container foxribbon.vcxformrepg.menubarformrepg7PROCEDURE Init local vcontador this.addlistitem(" ",1,1) for vcontador = 2 to 11 this.addlistitem(padl(alltrim(str(vcontador-1,2,0)),2," ")+" Asc ",vcontador,1) endfor for vcontador = 12 to 21 this.addlistitem(padl(alltrim(str(vcontador-11,2,0)),2," ")+" Desc",vcontador,1) endfor ENDPROC FontBold = .T. FontName = "MS Sans Serif" FontSize = 8 Height = 24 Left = 31 SpecialEffect = 1 Style = 2 Top = 29 Width = 100 SelectedForeColor = 0,0,0 DisabledForeColor = 255,0,0 SelectedBackColor = 255,255,255 BorderStyle = 0 Name = "Combo1" žFontBold = .F. FontName = "MS Sans Serif" FontSize = 9 Alignment = 2 Caption = "Orden" ForeColor = 21,66,139 BackColor = 219,230,244 Name = "Header1" !formreport.panel.p3.lista.Column4textbox!formreport.panel.p3.lista.Column4Header1Чўђџ ЎЎпУ%Pe_ќU ™єїўUTHISFORMRELEASEClick,џџ1Ё1!)Ўribboncommandbuttonformrep.menubar foxribbon.vcxribboncommandbuttonformrepg.menubar containerformheadertextboxPROCEDURE redraw WITH THIS .text.BorderColor = _SCREEN.oRibbon.LinesColor .boton.BACKCOLOR = _SCREEN.oRibbon.BackColor2 .text.FONTNAME = _SCREEN.oRibbon.cFontName .text.DisabledBackColor = _SCREEN.oRibbon.backcolor1 ENDWITH ENDPROC PROCEDURE Init WITH THIS .ReDraw() ENDWITH ENDPROC PROCEDURE MouseLeave LPARAMETERS nButton, nShift, nXCoord, nYCoord if type('thisform.ActiveControl.parent.Name')<>'U' if thisform.ActiveControl.parent.Name<>this.Name this.boton.Visible=.F. endif endif ENDPROC PROCEDURE MouseEnter LPARAMETERS nButton, nShift, nXCoord, nYCoord this.boton.Visible=.T. ENDPROC PROCEDURE GotFocus this.boton.visible=.T. ENDPROC PROCEDURE LostFocus this.boton.visible=.F. this.value=this.text.value ENDPROC єPROCEDURE redraw WITH THIS .BorderColor = _SCREEN.oRibbon.LinesColor .FONTNAME = _SCREEN.oRibbon.cFontName .DisabledBackColor = _SCREEN.oRibbon.backcolor1 ENDWITH ENDPROC PROCEDURE Init WITH THIS .ReDraw() ENDWITH ENDPROC œFontBold = .F. FontName = "MS Sans Serif" FontSize = 9 Alignment = 2 Caption = "Ver" ForeColor = 21,66,139 BackColor = 219,230,244 Name = "Header1" ЯFontBold = .T. FontName = "MS Sans Serif" FontSize = 9 BorderStyle = 0 Margin = 0 ForeColor = 0,0,0 BackColor = 255,255,255 SelectedForeColor = 0,0,0 SelectedBackColor = 255,255,255 Name = "Text1" ЁFontBold = .F. FontName = "MS Sans Serif" FontSize = 9 Alignment = 2 Caption = "Tэtulo 2" ForeColor = 21,66,139 BackColor = 219,230,244 Name = "Header1" ЯFontBold = .T. FontName = "MS Sans Serif" FontSize = 9 BorderStyle = 0 Margin = 0 ForeColor = 0,0,0 BackColor = 255,255,255 SelectedForeColor = 0,0,0 SelectedBackColor = 255,255,255 Name = "Text1" !formreport.panel.p3.lista.Column3textbox!formreport.panel.p3.lista.Column3Header1headerheaderњўђџ ссЦ€%|˜ŽќU/%ќCїјј\й0§љ(ў™ќC-єі§ўўUPMREGUSUTHIS THISENABLEDGotFocus,џџ1ЁсA1N)с5PROCEDURE Click thisform.rep.printdoc() ENDPROC  foxribbon.vcx containertextboxheaderFontBold = .T. FontName = "MS Sans Serif" Height = 21 SelectOnEntry = .T. SpecialEffect = 1 Style = 2 Width = 100 DisabledBackColor = 255,255,255 DisabledForeColor = 255,0,0 BorderColor = 138,175,225 Themes = .F. nlargestfont = 24 nsmallestfont = 6 Name = "combobase" $FontBold = .T. FontName = "MS Sans Serif" Height = 21 SpecialEffect = 1 Width = 50 ColorSource = 0 DisabledBackColor = 255,255,255 SelectedForeColor = 255,255,255 DisabledForeColor = 255,0,0 SelectedBackColor = 0,0,128 BorderColor = 138,175,225 Themes = .F. Name = "spinnerbase" ЁFontBold = .F. FontName = "MS Sans Serif" FontSize = 9 Alignment = 2 Caption = "Tэtulo 1" ForeColor = 21,66,139 BackColor = 219,230,244 Name = "Header1" ЯFontBold = .T. FontName = "MS Sans Serif" FontSize = 9 BorderStyle = 0 Margin = 0 ForeColor = 0,0,0 BackColor = 255,255,255 SelectedForeColor = 0,0,0 SelectedBackColor = 255,255,255 Name = "Text1" !formreport.panel.p3.lista.Column2textboxžFontBold = .F. FontName = "MS Sans Serif" FontSize = 9 Alignment = 2 Caption = "Ancho" ForeColor = 21,66,139 BackColor = 219,230,244 Name = "Header1" !formreport.panel.p3.lista.Column2Header1headerњўђџ ссЦ€%|˜ŽќU/%ќCїјј\й0§љ(ў™ќC-єі§ўўUPMREGUSUTHIS THISENABLEDGotFocus,џџ1ЁсA1N)сribboncommandbutton container„PROCEDURE Init this.DisabledBackColor = _SCREEN.oRibbon.BackColor2 this.DisabledForeColor = _SCREEN.oRibbon.FontColor ENDPROC !formreport.panel.p3.lista.Column1Text1textboxtextbox›FontBold = .F. FontName = "MS Sans Serif" FontSize = 9 Alignment = 2 Caption = "NК" ForeColor = 21,66,139 BackColor = 219,230,244 Name = "Header1" Header1headerЊmousex almacena la coordenada x de la posiciѓn del puntero del mouse mousey almacena la coordenada y de la posiciѓn del puntero del mouse candropicon El cursor al colocar es correcto nodropicon dragthreshold nњmero de pэxeles que un usuario tiene que mover el mouse con el botѓn primario para que se llame al mщtodo Drag. *selectall selecciona todos los elementos del cuadro de lista pasados como un parсmetro *redraw рWidth = 240 Height = 112 BackStyle = 1 BorderWidth = 1 BackColor = 255,255,255 BorderColor = 0,0,0 mousex = 0 mousey = 0 candropicon = DRAGMOVE.CUR nodropicon = NODROP01.CUR dragthreshold = 8 Name = "moverlists" ўђџ §§s{%˜ДІќUK ™ќCъЁ§ў Іќї§љDўTтїќєєєї§ўTтїќєєєї§ўЇўUTHISWIDTHPARENTHEIGHTInit,џџ1‘бqqA1z)§ foxribbon.vcxribboncommandbuttonbot1 foxribbon.vcx_menubarformrepg!formreport.panel.p3.lista.Column1headerformreport.panel.p3listagridformreport.panel.p3 _gradient1 container foxribbon.vcx _gradientЙPROCEDURE DblClick if this.parent.lstselecciones.Selected(This.ListIndex) THIS.Parent.lstcampos.AddItem(This.List(This.ListIndex)) This.RemoveItem(This.ListIndex) endif ENDPROC ўђџ §§s{%˜ДІќUK ™ќCъЁ§ў Іќї§љDўTтїќєєєї§ўTтїќєєєї§ўЇўUTHISWIDTHPARENTHEIGHTInit,џџ1‘бqqA1z)§џўђџ цц#њ%†•ќU'™пуїїўTєєєїќј§ўU RIBBONTABCLICKTHISPARENTP ACTIVEPAGEClick,џџ1сa1?)цџўђџ цц#њ%†•ќU'™пуїїўTєєєїќј§ўU RIBBONTABCLICKTHISPARENTP ACTIVEPAGEClick,џџ1сa1?)цЧўђџ ЎЎпУ%Pe_ќU ™єїўUTHISFORMRELEASEClick,џџ1Ё1!)Ўformrep.menubar _gradient1_menubar{Top = 15 Left = 4 Width = 12 Height = 8 swapcolors = .T. gradient = .F. Name = "_gradient1" IMAGE1.Name = "IMAGE1" formreport.panel.p3EPROCEDURE redraw WITH THIS .BorderColor = _SCREEN.oRibbon.LinesColor ENDWITH ENDPROC PROCEDURE thisenabled parameters vvalor if vvalor this.Enabled = .T. this.fondo.Enabled = .T. if this.check.Value = 1 this.fondo.Picture="vcx\images\in.bmp" else this.fondo.Picture="vcx\images\out.bmp" endif else this.Enabled = .F. this.fondo.Enabled = .F. if this.check.Value = 1 this.fondo.Picture="vcx\images\ine.bmp" else this.fondo.Picture="vcx\images\oute.bmp" endif endif ENDPROC PROCEDURE Init WITH THIS .ReDraw() ENDWITH ENDPROC вPROCEDURE InteractiveChange if this.Value=1 if this.Parent.Enabled=.T. this.Parent.fondo.Picture="vcx\images\in.bmp" else this.Parent.fondo.Picture="vcx\images\ine.bmp" endif else if this.Parent.Enabled=.T. this.Parent.fondo.Picture="vcx\images\out.bmp" else this.Parent.fondo.Picture="vcx\images\oute.bmp" endif endif ENDPROC PROCEDURE ProgrammaticChange if this.Value=1 if this.Parent.Enabled=.T. this.Parent.fondo.Picture="vcx\graficos\in.bmp" else this.Parent.fondo.Picture="vcx\graficos\ine.bmp" endif else if this.Parent.Enabled=.T. this.Parent.fondo.Picture="vcx\graficos\out.bmp" else this.Parent.fondo.Picture="vcx\graficos\oute.bmp" endif endif ENDPROC Yўђџ @@7ы%еї уќUu ™ќCъЁ§ў Іќї§љnўTтїќј§ўTтїќј§ўTтїќєєєї§ўTтїќєєєї§ўTтїќј§ўЇўUTHISTOPLEFTHEIGHTPARENTWIDTHANCHORInit,џџ1‘вссqqсA2Ѓ)@њўђџ ссЦ€%|˜ŽќU/%ќCїјј\й0§љ(ў™ќC-єі§ўўUPMREGUSUTHIS THISENABLEDGotFocus,џџ1ЁсA1N)с0PROCEDURE Click thisform.man.execute ENDPROC  container container foxribbon.vcx _gradient Contenedor4shape classprin.vcx contenedorоPROCEDURE Click if this.parent.check.Value=0 this.parent.check.Value=1 this.parent.fondo.Picture="vcx\images\in.bmp" else this.parent.check.Value=0 this.parent.fondo.Picture="vcx\images\out.bmp" endif ENDPROC Sўђџ ::Ž%Яё нќUo ™ќCъЁ§ў Іќї§љhўTтїќј§ўTтїќј§ўTтїќєєї§ўTтїќєєї§ўTтїќј§ўЇўUTHISTOPLEFTHEIGHTPARENTWIDTHANCHORInit,џџ1‘вссAAсA2•):iTop = 24 Left = 0 Width = 12 Height = 8 gradient = .F. Name = "_gradient1" IMAGE1.Name = "IMAGE1" formrepg _titlebar1ЎPROCEDURE Init DODEFAULT() WITH THIS .TOP = 0 .LEFT = 0 .HEIGHT = THIS.PARENT.PARENT.HEIGHT .WIDTH = THIS.PARENT.PARENT.WIDTH .ANCHOR = 15 ENDWITH ENDPROC (OLEObject = C:\Windows\system\ipre.ocx formreport.panel.p2`PROCEDURE Click THISFORM.LockScreen = .T. nCnt = 1 DO WHILE nCnt <= THIS.Parent.lstselecciones.ListCount IF THIS.Parent.lstselecciones.Selected(nCnt) THIS.Parent.lstcampos.AddItem(THIS.Parent.lstselecciones.List(nCnt)) THIS.Parent.lstselecciones.RemoveItem(nCnt) ELSE nCnt = nCnt + 1 ENDIF ENDDO THISFORM.LockScreen = .F. ENDPROC Аўђџ ——nG%ч. ќUM Іќї§љFўTтїќс9єї§ўTтїќс9єї§ўTтїќс9єї§ўЇўUTHIS BORDERCOLORORIBBON LINESCOLORFONTNAME CFONTNAMEDISABLEDBACKCOLOR BACKCOLOR1UUredraw,џџGotFocusйџџ LostFocusрџџ1б111A432ЎЭЮ юя )— foxribbon.vcxformrep container foxribbon.vcx _titlebarribboncommandbutton container foxribbon.vcx+FontBold = .F. FontName = "Arial" FontSize = 8 Enabled = .F. SpecialEffect = 1 ForeColor = 21,66,139 BackColor = 128,128,128 DisabledBackColor = 219,230,244 SelectedForeColor = 0,0,0 DisabledForeColor = 21,66,139 SelectedBackColor = 255,255,255 BorderColor = 255,255,255 Name = "Text1" kComment = "D" Top = 6 Left = 5 Height = 47 Width = 632 BackColor = 255,255,255 Name = "Contenedor4" KComment = "A" Top = 32 Left = 2 Height = 350 Width = 637 Name = "vs"  olecontrol olecontrolPROCEDURE redraw ENDPROC formreport.panel.p2.plabellabelyinitialresize ПEs la primera vez que se ajustan los controles? initialformheight initialformwidth *adjustcontrols llamada desde el evento Resize de un formulario para ajustar la colocaciѓn y el tamaёo de los objetos contenidos. *addtoarray *setsize *loopthroughcontrols *reset Restablece el control Timer de forma que empiece a contar desde 0. ^acontrolstats[1,5] =ўђџ $$WВ%wЫЁќUc ™ќCъЁ§ў Іќї§љ\ўTтїќтєєїљџџ§ўTтїќй§ўTтїќй§ўTтєїќa§ўЇўU THIS NMENULEFTPARENTRIBBONTEXTBOX1WIDTH PANELCLASSPATH_FORM_MENUMARLETTVISIBLEтЏїїїїўЎїў ™ќCъЁ§ў!%ќCєєєєїъййD§љHўBўўІќєї§љлў`TїќCйRibbonFormCalendarCїјъ]тї Cїјъ]єї јтї є ї тєїтєєїъN§ўTс9єїќї§ў ™ќCєі§ўЇўUNBUTTONNSHIFTNXCOORDNYCOORDLONAMETHISPARENTRIBBONTEXTBOX1VALUE NMENULEFTHEIGHTNMENUTOPTHISFORMHWNDORIBBON LASTOPENFORM MOUSEENTERInit,џџCommand1.MouseDownёџџ1‘бБссёA31q‘AA!бA5Ї аš )$Rўђџ 99ЏК%Ар ЮќU' Іќї§љ ўTтїќс9єї§ўЇўUTHIS BORDERCOLORORIBBON LINESCOLOR Іќї§љў ™ќCті§ўЇўUTHISREDRAWredraw,џџInitџџ1б1A3бБA1Rm‹)9Sўђџ ::Ž%Яё нќUo ™ќCъЁ§ў Іќї§љhўTтїќј§ўTтїќј§ўTтїќєєї§ўTтїќєєї§ўTтїќј§ўЇўUTHISTOPLEFTHEIGHTPARENTWIDTHANCHORInit,џџ1‘вссAAсA2•): _gradient1@dat namewin ncurvature tabtem1 tabtem2 datg tabtem3 pok  container foxribbon.vcx _gradientformrep _titlebar1custom ribbonlabelсPROCEDURE redraw WITH THIS .BorderColor = _SCREEN.oRibbon.LinesColor .FONTNAME = _SCREEN.oRibbon.cFontName .DisabledBackColor = _SCREEN.oRibbon.backcolor1 ENDWITH ENDPROC PROCEDURE Init this.redraw() ENDPROC ўђџ щщ\]%I $XќUz?Ўїїїїїїїїїї ї ї ї ї їўTїќCљџџєєєєі§ўTїќCљџџєєєєі§ўTїќCљџџєєєєі§ўTїќCљџџєєєєі§ўTїќCљџџєєєєі§ўTїќCљџџєєєєі§ўTїќCљџџєєєєі§ўTїќCљџџєєєєі§ўTїќєї§ўTї ќєї§ўTї ќєї§ўTї ќєї§ўTї ќєї§ўTїќCљџџєєєєі §ў Tї ќй§ўQћ forms\confpag(ї бїїїїїїїїїї ї ї ї їў%ќї й§љsў™ќCєї#єєєєі"§ўATєї$ќCCї Cй,ї јјCй,ї јCй,ї јј\g§ўATєї%ќCCї Cй,ї јјCй,ї јCй,ї јј\g§ўATєї&ќCCї Cй,ї јјCй,ї јCй,ї јј\g§ўATєї'ќCCї Cй,ї јјCй,ї јCй,ї јј\g§ўATєї(ќCCї Cй,ї јјCй,ї јCй,ї јј\g§ўJ™ќCCCї Cй,ї јјCй,ї јCй,ї јј\gєєєєі§ўJ™ќCCCї Cй,ї јјCй,ї јCй,ї јј\gєєєєі§ў?TєїќCї Cй,ї јјCй,ї ј Cй,ї јј\§ўATєїќCCї Cй,ї ј јCй,ї ј Cй,ї ј ј\g§ўATєїќCCї Cй,ї ј јCй,ї ј Cй,ї ј ј\g§ў?TєїќCї Cй,ї ј јCй,ї ј Cй,ї ј ј\§ўATєїќCCї Cй,ї ј јCй,ї ј Cй,ї ј ј\g§ў$Tєї)ќCCї Cй,ї ј ј\g§ў ™ќCєі*§ўўU+ VORIENTATION VMARGINLEFT VMARGINRIGHT VMARGINTOP VMARGINBOTTOM VMARGINHEADER VHDRCOLOR VTEXTCOLORVLETRAVTAMANOVALTOVLINEAVDATAVDELIMVPAPELTHISFORMPANELP2VS ORIENTATION MARGINLEFT MARGINRIGHT MARGINTOP MARGINBOTTOM MARGINHEADERHDRCOLOR TEXTCOLORLETRATAMANOALTOLINEA DELIMITADOR PAPERSIZEFORMSDEVICEPRINTERMLEFTMRIGHTMTOPMBOTTOMMHEADERPAPELPROCESOClick,џџ1ёсссссссссбСЁЁёёAбA2)щ container foxribbon.vcxFPROCEDURE KeyPress LPARAMETERS nKeyCode, nShiftAltCtrl local vobjeto do case case (nkeycode>=65.and.nkeycode<=89).or.(nkeycode>=97.and.nkeycode<=122).or.(nkeycode>=48.and.nkeycode<=57) thisform.busca.value=chr(nkeycode) thisform.busca.SetFocus keyboard '{End}' endcase ENDPROC PROCEDURE Init WITH THIS .THEMES = .F. .SETALL("BACKCOLOR", _SCREEN.oRibbon.BackColor2, "Header") .SETALL("FORECOLOR", _SCREEN.oRibbon.FontColor, "Header") .SETALL("FONTNAME", "MS Sans Serif", "Header") .SETALL("FONTSIZE", 9, "Header") ENDWITH this.RecordSource="" ENDPROC labelzTop = 0 Left = 0 Name = "_titlebar1" CONTROLBUTTONS.BUTTONMIN.Image1.Height = 16 CONTROLBUTTONS.BUTTONMIN.Image1.Width = 16 CONTROLBUTTONS.BUTTONMIN.Image1.Name = "Image1" CONTROLBUTTONS.BUTTONMIN.xShape2.Name = "xShape2" CONTROLBUTTONS.BUTTONMIN.Shape1.Name = "Shape1" CONTROLBUTTONS.BUTTONMIN.Command1.Name = "Command1" CONTROLBUTTONS.BUTTONMIN.Image2.Name = "Image2" CONTROLBUTTONS.BUTTONMIN.Ribbonlabel1.Name = "Ribbonlabel1" CONTROLBUTTONS.BUTTONMIN.Ribbonlabel2.Name = "Ribbonlabel2" CONTROLBUTTONS.BUTTONMIN.Marlett.Name = "Marlett" CONTROLBUTTONS.BUTTONMIN.Name = "BUTTONMIN" CONTROLBUTTONS.BUTTONMAX.Image1.Height = 16 CONTROLBUTTONS.BUTTONMAX.Image1.Width = 16 CONTROLBUTTONS.BUTTONMAX.Image1.Name = "Image1" CONTROLBUTTONS.BUTTONMAX.xShape2.Name = "xShape2" CONTROLBUTTONS.BUTTONMAX.Shape1.Name = "Shape1" CONTROLBUTTONS.BUTTONMAX.Command1.Name = "Command1" CONTROLBUTTONS.BUTTONMAX.Image2.Name = "Image2" CONTROLBUTTONS.BUTTONMAX.Ribbonlabel1.Name = "Ribbonlabel1" CONTROLBUTTONS.BUTTONMAX.Ribbonlabel2.Name = "Ribbonlabel2" CONTROLBUTTONS.BUTTONMAX.Marlett.Name = "Marlett" CONTROLBUTTONS.BUTTONMAX.Name = "BUTTONMAX" CONTROLBUTTONS.BUTTONCLOSE.Image1.Height = 16 CONTROLBUTTONS.BUTTONCLOSE.Image1.Width = 16 CONTROLBUTTONS.BUTTONCLOSE.Image1.Name = "Image1" CONTROLBUTTONS.BUTTONCLOSE.xShape2.Name = "xShape2" CONTROLBUTTONS.BUTTONCLOSE.Shape1.Name = "Shape1" CONTROLBUTTONS.BUTTONCLOSE.Command1.Name = "Command1" CONTROLBUTTONS.BUTTONCLOSE.Image2.Name = "Image2" CONTROLBUTTONS.BUTTONCLOSE.Ribbonlabel1.Name = "Ribbonlabel1" CONTROLBUTTONS.BUTTONCLOSE.Ribbonlabel2.Name = "Ribbonlabel2" CONTROLBUTTONS.BUTTONCLOSE.Marlett.Name = "Marlett" CONTROLBUTTONS.BUTTONCLOSE.Name = "BUTTONCLOSE" CONTROLBUTTONS.Name = "CONTROLBUTTONS" Ribbonlabel1.Name = "Ribbonlabel1" Image1.Name = "Image1" Shape1.Name = "Shape1" Image2.Name = "Image2" Command1.Name = "Command1" Щўђџ АА)o%Eg SќUбTєїќй§ў Іќї§љЪў Tтїќ-§ў(™ќCй BACKCOLORс9єїйHeaderті§ў(™ќCй FORECOLORс9єїйHeaderті§ў/™ќCйFONTNAMEй MS Sans SerifйHeaderті§ў"™ќCйFONTSIZEјйHeaderті§ўЇўUTHIS RECORDSOURCETHEMESSETALLORIBBON BACKCOLOR2 FONTCOLORInit,џџ1бСё!A1)Аюўђџ ееiЕ%sŒ‚ќUC5%ќй CCC|Z›й й 19 4 24 5 127 №CЦ- §љ<ўBќ-§ўўUValid,џџ1QqA1i)е _titlebar resizablecustomcColumnCount = 10 Comment = "A" FontBold = .T. FontName = "MS Sans Serif" AllowHeaderSizing = .F. AllowRowSizing = .F. DeleteMark = .F. Height = 272 HighlightRowLineWidth = 0 Left = 5 Panel = 1 RecordMark = .F. ScrollBars = 2 SplitBar = .F. TabIndex = 1 Top = 58 Width = 632 BackColor = 128,128,128 GridLineColor = 128,128,128 ZOrderSet = 38 LockColumns = 8 Themes = .F. Name = "lista" Column1.FontBold = .T. Column1.FontName = "MS Sans Serif" Column1.FontSize = 9 Column1.ControlSource = "" Column1.Enabled = .F. Column1.Width = 24 Column1.Sparse = .F. Column1.BackColor = 128,128,128 Column1.Name = "Column1" Column2.FontBold = .T. Column2.FontName = "MS Sans Serif" Column2.FontSize = 9 Column2.Width = 39 Column2.BackColor = 128,128,128 Column2.Name = "Column2" Column3.FontBold = .T. Column3.FontName = "MS Sans Serif" Column3.FontSize = 9 Column3.Width = 106 Column3.BackColor = 128,128,128 Column3.Name = "Column3" Column4.FontBold = .T. Column4.FontName = "MS Sans Serif" Column4.FontSize = 9 Column4.Width = 105 Column4.BackColor = 128,128,128 Column4.Name = "Column4" Column5.FontBold = .T. Column5.FontName = "MS Sans Serif" Column5.FontSize = 9 Column5.Alignment = 2 Column5.Width = 28 Column5.Sparse = .F. Column5.BackColor = 128,128,128 Column5.Name = "Column5" Column6.FontBold = .T. Column6.FontName = "MS Sans Serif" Column6.FontSize = 9 Column6.Width = 64 Column6.BackColor = 128,128,128 Column6.Name = "Column6" Column7.FontBold = .T. Column7.FontName = "MS Sans Serif" Column7.FontSize = 9 Column7.Alignment = 2 Column7.Width = 43 Column7.BackColor = 128,128,128 Column7.Name = "Column7" Column8.FontBold = .T. Column8.FontName = "MS Sans Serif" Column8.FontSize = 9 Column8.Width = 52 Column8.BackColor = 128,128,128 Column8.Name = "Column8" Column9.FontBold = .T. Column9.FontName = "MS Sans Serif" Column9.FontSize = 9 Column9.Width = 139 Column9.BackColor = 128,128,128 Column9.Name = "Column9" Column10.FontBold = .T. Column10.FontName = "MS Sans Serif" Column10.Width = 139 Column10.BackColor = 128,128,128 Column10.Name = "Column10" ŽAutoSize = .F. Alignment = 2 Caption = "de" Height = 15 Left = 514 Top = 8 Width = 30 TabIndex = 21 ForeColor = 255,0,0 Name = "t2"  foxribbon.vcx PROCEDURE Init DODEFAULT() WITH THIS .TOP = 0 .LEFT = 0 .HEIGHT = THIS.PARENT.HEIGHT .WIDTH = THIS.PARENT.WIDTH .ANCHOR = 15 ENDWITH ENDPROC  resizablePROCEDURE redraw ENDPROC ŽAutoSize = .F. Alignment = 2 Caption = "de" Height = 15 Left = 469 Top = 8 Width = 25 TabIndex = 21 ForeColor = 255,0,0 Name = "t1" formreport.panel.p2.p foxribbon.vcx ribbonlabelKCaption = "de" Left = 496 Top = 8 TabIndex = 21 Name = "Ribbonlabel1" formreport.panel.p2.p Ribbonlabel1 foxribbon.vcx ribbonlabelPCaption = "Pсgina:" Left = 428 Top = 8 TabIndex = 21 Name = "Ribbonlabel5" formreport.panel.p2.p Ribbonlabel5label foxribbon.vcx ribbonlabelпTop = 22 Left = 0 Width = 804 Height = 40 showbackimage = .F. showbottomline = .T. showtopline = .T. movable = .T. Name = "menubar" topline.Name = "topline" bottomline.Name = "bottomline" Image1.Name = "Image1" =PROCEDURE Click thisform.panel.p1.cnbotton2.click ENDPROC FComment = "" Tag = "" Top = 3 Left = 398 Width = 24 Height = 24 TabIndex = 10 TabStop = .F. ToolTipText = "CTRL+Fin (Ultimo Reg)" border = .F. lcurvature = .F. disabledpicture = c:\newproyect\pcont\vcx\images\ultimod.bmp Name = "bot12" Image1.Picture = images\refresh.bmp Image1.Height = 16 Image1.Left = 4 Image1.Top = 4 Image1.Width = 16 Image1.Name = "Image1" xShape2.Name = "xShape2" Shape1.Name = "Shape1" Command1.Name = "Command1" Image2.Name = "Image2" Ribbonlabel1.Name = "Ribbonlabel1" Ribbonlabel2.Name = "Ribbonlabel2" Marlett.Name = "Marlett" formreport.panel.p2.pbot12 container foxribbon.vcxribboncommandbuttonLHeight = 24 Left = 393 Top = 3 Width = 0 Name = "Ribbonmenuseparator4" formreport.panel.p2.pRibbonmenuseparator4line foxribbon.vcxribbonmenuseparatorformreport.panel.p2.pTop = 83 Left = 107 Width = 25 Height = 25 TabIndex = 6 lcurvature = .F. Name = "Ribboncommandbutton4" IMAGE1.Height = 16 IMAGE1.Left = -24 IMAGE1.Top = 5 IMAGE1.Width = 16 IMAGE1.Name = "IMAGE1" XSHAPE2.Name = "XSHAPE2" SHAPE1.Name = "SHAPE1" COMMAND1.Name = "COMMAND1" IMAGE2.Name = "IMAGE2" RIBBONLABEL1.Caption = "<<" RIBBONLABEL1.Height = 17 RIBBONLABEL1.Left = 4 RIBBONLABEL1.Top = 5 RIBBONLABEL1.Width = 18 RIBBONLABEL1.Name = "RIBBONLABEL1" RIBBONLABEL2.Name = "RIBBONLABEL2" MARLETT.Name = "MARLETT" Top = 58 Left = 107 Width = 25 Height = 25 TabIndex = 5 lcurvature = .F. Name = "Ribboncommandbutton3" IMAGE1.Height = 16 IMAGE1.Left = -24 IMAGE1.Top = 5 IMAGE1.Width = 16 IMAGE1.Name = "IMAGE1" XSHAPE2.Name = "XSHAPE2" SHAPE1.Name = "SHAPE1" COMMAND1.Name = "COMMAND1" IMAGE2.Name = "IMAGE2" RIBBONLABEL1.Caption = "<" RIBBONLABEL1.Height = 17 RIBBONLABEL1.Left = 5 RIBBONLABEL1.Top = 5 RIBBONLABEL1.Width = 18 RIBBONLABEL1.Name = "RIBBONLABEL1" RIBBONLABEL2.Name = "RIBBONLABEL2" MARLETT.Name = "MARLETT" Top = 28 Left = 107 Width = 25 Height = 25 TabIndex = 4 lcurvature = .F. Name = "Ribboncommandbutton1" IMAGE1.Height = 16 IMAGE1.Left = -24 IMAGE1.Top = 5 IMAGE1.Width = 16 IMAGE1.Name = "IMAGE1" XSHAPE2.Name = "XSHAPE2" SHAPE1.Name = "SHAPE1" COMMAND1.Name = "COMMAND1" IMAGE2.Name = "IMAGE2" RIBBONLABEL1.Caption = ">>" RIBBONLABEL1.Height = 17 RIBBONLABEL1.Left = 5 RIBBONLABEL1.Top = 5 RIBBONLABEL1.Width = 17 RIBBONLABEL1.Name = "RIBBONLABEL1" RIBBONLABEL2.Name = "RIBBONLABEL2" MARLETT.Name = "MARLETT" ™PROCEDURE Click THISFORM.LockScreen = .T. * The ListCount value changes whenever the RemoveItem method is called nCnt = 1 DO WHILE nCnt <= THIS.Parent.lstcampos.ListCount IF THIS.Parent.lstcampos.Selected(nCnt) THIS.Parent.lstselecciones.AddItem(THIS.Parent.lstcampos.List(nCnt)) THIS.Parent.lstcampos.RemoveItem(nCnt) ELSE nCnt = nCnt + 1 ENDIF ENDDO THISFORM.LockScreen = .F. ENDPROC lPROCEDURE selectall LPARAMETERS oList LOCAL lnCnt FOR lnCnt = 1 to oList.ListCount oList.Selected(lnCnt) = .T. ENDFOR ENDPROC PROCEDURE redraw WITH THIS .BorderColor = _SCREEN.oRibbon.LinesColor ENDWITH ENDPROC PROCEDURE Init This.lstcampos.DragIcon = This.CanDropIcon This.lstselecciones.DragIcon = This.CanDropIcon this.redraw() ENDPROC  аЯрЁБс>ўџ ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ§џџџўџџџўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџRoot EntryџџџџџџџџpщHWвOleObjectDataџџџџXAccessObjSiteData&џџџџџџџџџџџџ8ChangedPropsџџџџџџџџџџџџўџџџўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџF8ШsœJМ?Э6ЂM“ВH ђWG _extentxжA ђWG88UTER€ME=CONTA000ComSpec=C:\WINDOWSрџџџ_extenty,$d.exeESET_OPTIONS= bot11 container foxribbon.vcxribboncommandbuttonformreport.panel.p2.ptext1textboxTop = 3 Left = 107 Width = 25 Height = 25 TabIndex = 3 lcurvature = .F. Name = "Ribboncommandbutton2" IMAGE1.Height = 16 IMAGE1.Left = -24 IMAGE1.Top = 5 IMAGE1.Width = 16 IMAGE1.Name = "IMAGE1" XSHAPE2.Name = "XSHAPE2" SHAPE1.Name = "SHAPE1" COMMAND1.Name = "COMMAND1" IMAGE2.Name = "IMAGE2" RIBBONLABEL1.Caption = ">" RIBBONLABEL1.Height = 17 RIBBONLABEL1.Left = 5 RIBBONLABEL1.Top = 5 RIBBONLABEL1.Width = 18 RIBBONLABEL1.Name = "RIBBONLABEL1" RIBBONLABEL2.Name = "RIBBONLABEL2" MARLETT.Name = "MARLETT"  0ўђџ   Y%§ Ю a ќU2 #ЎїїїїїїїїўTїќєї §ўћ forms\inpfor(ї ў%ќCї Ёё ї й| §љjўBўўTїќCї јCй|ї ј\§ўTїќCї Cй|ї јј<\§ўTїќєї §ўTїќєї §ўTїќєї§ўTїќєї§ўTїќєї§ўTїќєї§ўTїќєї§ўTїќєї§ў"TїќCCјјєіјїі§ў"TїќCCјјєіјїі§ўTїќCјјєі§ў"Tї ќCCјјєіјїі§ў"Tї!ќCCјјєіјїі§ўTї"ќCјјєі§ў"Tї#ќCCјјєіјїі§ў"Tї$ќCCјјєіјїі§ўTї%ќCјјєі§ў"Tї&ќCCјјєіјїі§ў"Tї'ќCCјјєіјїі§ўTї(ќCјјєі§ў"Tї)ќCCјјєіјїі§ў"Tї*ќCCјјєіјїі§ўTї+ќCјјєі§ў"Tї,ќCCјјєіјїі§ў"Tї-ќCCјјєіјїі§ўTї.ќCјјєі§ўTї/ќєї0§ўTї1ќєї2§ўTї3ќєї4§ўTї5ќєї6§ўTї7ќєї8§ўTї9ќєї:§ўTї;ќєї<§ўTї=ќCєє>є?є@єAїB›§ўTїCќCєє>є?єDєAїB›§ўTїEќєє>є?єFїB§ўTїGќєє>є?єHїB§ў Tїќј§ў Tїќј§ў•Tїќйˆselect * from add_modcab(?vcon1,?vcon2,?vcon3,?vcon4,?vcon5,?vcon6,?vcon7,?vcon8,?vcon9,?vcon10,?vcon11,?vcon12,?vcon13,?vcon14,?vcon15,§ўбTїќїйР?vcon16,?vcon17,?vcon18,?vcon19,?vcon20,?vcon21,?vcon22,?vcon23,?vcon24,?vcon25,?vcon26,?vcon27,?vcon28,?vcon29,?vcon30,?vcon31,?vcon32,?vcon33,?vcon34,?vcon35,?vcon36,?vcon37,?vcon38,?vcon39)§ў%ќCєїIїъiљџџ§љѕў*†ќCйNo hay conecciѓnјйERROR...ъx§ўBўљў Hљ љ‹ў ќїј§љ(ў Tїќј§ў ќїј§љ‹ў Tїќј§ўA†ќCй'Ya existe el modelo en la base de datosјйERROR...ъx§ўBўўў%ќCїЊ§љ…ў Fќї§ў~љўTїќCїJјјZ§ўTїќCїKјјZ§ў TїќїL§ў TїќїM§ўTїќCїNaђјѓј6§ў TїќїO§ў TїќїP§ў TїќїQ§ў TїќїR§ў TїќїS§ў TїќїT§ў TїќїU§ў Tї ќїV§ў›%ќCєїIй€select * from add_moddet(?vcon1,?vcon2,?vcon3,?vcon4,?vcon5,?vcon6,?vcon7,?vcon8,?vcon9,?vcon10,?vcon11,?vcon12,?vcon13,?vcon14)ъiљџџ§љFў*†ќCйNo hay conecciѓnјйERROR...ъx§ўBўљ}ў Hљ[љyў ќїј§љyў Tїќј§ўўўўў Hљ–љ+ ў ќїј§љйў2†ќCйEl modelo ha sido creadoјйEXITO...ъx§ў ќїј§љ+ ўA†ќCй'Ya existe el modelo en la base de datosјйERROR...ъx§ўўUWVCON1VCON2VCON3VCON4VRETORNO VTABLAFORVERRORVSQLTHISFORMTABLAFORFORMSVOKTAMANO ORIENTATIONVCON5LINEAVCON6COLNUMVCON7CEROVCON8ALTOVCON9LETRAVCON10DIGANOVCON11VACIOFORFALSAPDIGITOSVCON12VCON13VCON14VCON15VCON16VCON17VCON18VCON19VCON20VCON21VCON22VCON23VCON24VCON25VCON26VCON27VCON28VCON29PAPELVCON30MLEFTVCON31MRIGHTVCON32MTOPVCON33MBOTTOMVCON34MHEADERVCON35SUBTOTALVCON36PANELP4COB3TEXTVALUEVCON37COB1VCON38COB2VCON39RESUMENDATCOLUMNAANCHOTITULO SUBTITULOVERORDENAGRUPARTOTALESCONYCONOORIENTIPOPOSClick,џџ11БAAёё!!q!!q!!q!!q!!q!!qсс‘‘ббQ  БЁAбббAAAёЁQQбббббббббббБ ЁAббAAAAб!A1Т ) #ўђџ   T%ф#;ќUT Іќї§љMў™ќCтєі§ўTтїќтєї§ўTтїќтєї§ў™ќCтєі§ўЇўUTHISRIBBONTEXTBOX1REDRAW BACKCOLOR BORDERCOLORRIBBONCOMMANDBUTTON1a4їў Іќї§љZў%ќCъtј§љVўTтїќї§ўTтєїќї§ў™ќCїтєі§ўўЇўU TLENABLEDTHISENABLEDRIBBONTEXTBOX1RIBBONCOMMANDBUTTON1 THISENABLEDEЏїў%ќCїъйћD§љ/ўTєєїќї§ўљ>ўBќ-§ўўUTDVALUETHISRIBBONTEXTBOX1VALUEBќєєї§ўUTHISRIBBONTEXTBOX1VALUEj Іќї§љcў%ќCтєїЁ§љ7ўTтєїќю§ўўTтїќј§ў ™ќCті§ў™ќCтїті§ўЇўUTHISRIBBONTEXTBOX1 CONTROLSOURCEVALUEHEIGHTREDRAW THISENABLEDENABLEDredraw,џџ thisenabledаџџsetvalue‚џџgetvalueёџџInit$џџ1бс!!сA3qбс!AA3rQ1qA3ђ3б1qAсБёA2Ик ЌBaЉФ\$) ѓўђџ ккюГ%иQ3ќU ™єєїўUTHISPARENTCLICK#Џїїїїў ™єєїўUNBUTTONNSHIFTNXCOORDNYCOORDTHISPARENTSELON#Џїїїїў ™єєїўUNBUTTONNSHIFTNXCOORDNYCOORDTHISPARENTSELOFF#Џїїїїў ™єєїўUNBUTTONNSHIFTNXCOORDNYCOORDTHISPARENTMOUSEUP#Џїїїїў ™єєїўUNBUTTONNSHIFTNXCOORDNYCOORDTHISPARENT MOUSEDOWNClick,џџ MouseEnterUџџ MouseLeaveДџџMouseUpџџ MouseDownuџџ1б31б31б21б21б1$E‡Јщ I i­)кюўђџ ееiЕ%sŒ‚ќUC5%ќй CCC|Z›й й 19 4 24 5 127 №CЦ- §љ<ўBќ-§ўўUValid,џџ1QqA1i)е classprin.vcxbot2ŠPROCEDURE Click IF thisform.lpopupset thisform.lpopupset = .F. RETURN ENDIF thisform.lpopupset = .T. thisform.showe() ENDPROC vComment = "" Tag = "" Top = 3 Left = 377 Width = 13 Height = 24 Visible = .F. TabIndex = 10 TabStop = .F. ToolTipText = "CTRL+Fin (Ultimo Reg)" lcurvature = .F. disabledpicture = c:\newproyect\pcont\vcx\images\ultimod.bmp border = .F. Name = "bot11" Image1.Picture = images\abajo.bmp Image1.Height = 4 Image1.Left = 3 Image1.Top = 10 Image1.Width = 6 Image1.Name = "Image1" xShape2.Name = "xShape2" Shape1.Name = "Shape1" Command1.Name = "Command1" Image2.Name = "Image2" Ribbonlabel1.Name = "Ribbonlabel1" Ribbonlabel2.Name = "Ribbonlabel2" Marlett.Left = 23 Marlett.Top = 7 Marlett.Name = "Marlett" БFontBold = .F. FontName = "Arial" FontSize = 8 Enabled = .F. Height = 24 InputMask = "99999" Left = 344 TabIndex = 6 Top = 3 Visible = .F. Width = 34 Name = "text1"  classprin.vcxtextbase PROCEDURE Init DODEFAULT() WITH THIS .TOP = 0 .LEFT = 0 .HEIGHT = THIS.PARENT.HEIGHT .WIDTH = THIS.PARENT.WIDTH .ANCHOR = 15 ENDWITH ENDPROC iTop = 24 Left = 0 Width = 12 Height = 8 gradient = .F. Name = "_gradient1" IMAGE1.Name = "IMAGE1" ŠPROCEDURE Click IF thisform.lpopupset thisform.lpopupset = .F. RETURN ENDIF thisform.lpopupset = .T. thisform.showd() ENDPROC gComment = "" Tag = "" Top = 3 Left = 328 Width = 13 Height = 24 TabIndex = 10 TabStop = .F. ToolTipText = "CTRL+Fin (Ultimo Reg)" lcurvature = .F. disabledpicture = c:\newproyect\pcont\vcx\images\ultimod.bmp border = .F. Name = "bot10" Image1.Picture = images\abajo.bmp Image1.Height = 4 Image1.Left = 3 Image1.Top = 10 Image1.Width = 6 Image1.Name = "Image1" xShape2.Name = "xShape2" Shape1.Name = "Shape1" Command1.Name = "Command1" Image2.Name = "Image2" Ribbonlabel1.Name = "Ribbonlabel1" Ribbonlabel2.Name = "Ribbonlabel2" Marlett.Left = 23 Marlett.Top = 7 Marlett.Name = "Marlett" formreport.panel.p2.pbot10 container foxribbon.vcxribboncommandbutton@Comment = "" Tag = "" Top = 3 Left = 305 Width = 24 Height = 24 TabIndex = 10 TabStop = .F. ToolTipText = "CTRL+Fin (Ultimo Reg)" lcurvature = .F. disabledpicture = c:\newproyect\pcont\vcx\images\ultimod.bmp border = .F. Name = "bot9" Image1.Picture = images\v1.bmp Image1.Height = 15 Image1.Left = 4 Image1.Top = 4 Image1.Width = 17 Image1.Name = "Image1" xShape2.Name = "xShape2" Shape1.Name = "Shape1" Command1.Name = "Command1" Image2.Name = "Image2" Ribbonlabel1.Name = "Ribbonlabel1" Ribbonlabel2.Name = "Ribbonlabel2" Marlett.Name = "Marlett" formreport.panel.p2.pbot9 container foxribbon.vcxribboncommandbuttonLHeight = 24 Left = 301 Top = 3 Width = 0 Name = "Ribbonmenuseparator3" formreport.panel.p2.pRibbonmenuseparator3line foxribbon.vcxribbonmenuseparator5ўђџ фє%{c, ќUM Іќї§љFўTтїќс9єї§ўTтїќс9єї§ўTтїќс9єї§ўЇўUTHIS BORDERCOLORORIBBON LINESCOLORFONTNAME CFONTNAMEDISABLEDBACKCOLOR BACKCOLOR1)%ќєїй1§љ"ў ™ќCєі§ўўUTHISTAGPLOTHERMCOMPLETEЇ Џїїў7%ќїј ёїј ёїј № єїй1 §љ ўЎїўTїќCїєі§ў%ќCїЁ §љœў ™ќCєі§ўTєїќї§ўTєїќй0§ўўўU NKEYCODE NSHIFTALTCTRLTHISTAGVVALORPLOTHERMUPKEYCOMPLETEVALUETєїќй0§ўUTHISTAG"%ќєїй0§љЃўfTїќCйMENUй VCX\classprinйєїCїјъ]јєїCїјъ]єїјйDocйDescripъл§ў ™ќCєі§ў ™єїўTєїќй1§ўўx™ќCйYselect codigo_cue as codigo,descripcio as descripcio from plancue where codigo_cue like 'Cєї ›й%'єі §ўU THISTAGPLOTHERMTHISFORMTOPLEFTWIDTHSHOWSETFOCUSUPDATEVALUE Іќї§љў ™ќCті§ўЇўUTHISREDRAWC5%ќй CCC|Z›й й 19 4 24 5 127 №CЦ- §љ<ўBќ-§ўўU)%ќєїй1§љ"ў ™ќCєі§ўўUTHISTAGPLOTHERMCOMPLETEredraw,џџ LostFocusйџџKeyPress%џџGotFocusџџInteractiveChangeAџџInitЗџџValidшџџDestroy/џџ1б111A4QбA2БqqQбAA42QaбЁA2бБA3QqA2QбA1ЎЮќ  ?Muл і)$2Š/(Јж4)Аўђџ ——nG% > (ќUM Іќї§љFўTтїќс9єї§ўTтїќс9єї§ўTтїќс9єї§ўЇўUTHIS BORDERCOLORORIBBON LINESCOLORFONTNAME CFONTNAMEDISABLEDBACKCOLOR BACKCOLOR1 Іќї§љў ™ќCті§ўЇўUTHISREDRAWredraw,џџInitйџџ1б111A4бБA2ЎЩщ )— classprin.vcxŠPROCEDURE Click local vorientation,vmarginleft,vmarginright,vmargintop,vmarginbottom,vmarginheader,vhdrcolor,vtextcolor,vletra,vtamano,valto,vlinea,vdata,vdelim,vpapel vorientation=thisform.panel.p2.vs.orientation(-1) vmarginleft=thisform.panel.p2.vs.marginleft(-1) vmarginright=thisform.panel.p2.vs.marginright(-1) vmargintop=thisform.panel.p2.vs.margintop(-1) vmarginbottom=thisform.panel.p2.vs.marginbottom(-1) vmarginheader=thisform.panel.p2.vs.marginheader(-1) vhdrcolor=thisform.panel.p2.vs.hdrcolor(-1) vtextcolor=thisform.panel.p2.vs.textcolor(-1) vletra=thisform.letra vtamano=thisform.tamano valto=thisform.alto vlinea=thisform.linea vdelim=thisform.delimitador vpapel=thisform.panel.p2.vs.papersize(-1) vdata="" DO forms forms\confpag WITH vorientation,vmarginleft,vmarginright,vmargintop,vmarginbottom,vmarginheader,vhdrcolor,vtextcolor,vletra,vtamano,valto,vlinea,vdelim,vpapel to vdata if vdata <> "" thisform.panel.p2.vs.device(thisform.printer) thisform.mleft = val(substr(vdata,at(",",vdata,1)+1,at(",",vdata,2)-at(",",vdata,1)-1)) thisform.mright = val(substr(vdata,at(",",vdata,2)+1,at(",",vdata,3)-at(",",vdata,2)-1)) thisform.mtop = val(substr(vdata,at(",",vdata,3)+1,at(",",vdata,4)-at(",",vdata,3)-1)) thisform.mbottom = val(substr(vdata,at(",",vdata,4)+1,at(",",vdata,5)-at(",",vdata,4)-1)) thisform.mheader = val(substr(vdata,at(",",vdata,5)+1,at(",",vdata,6)-at(",",vdata,5)-1)) thisform.panel.p2.vs.hdrcolor(val(substr(vdata,at(",",vdata,6)+1,at(",",vdata,7)-at(",",vdata,6)-1))) thisform.panel.p2.vs.textcolor(val(substr(vdata,at(",",vdata,7)+1,at(",",vdata,8)-at(",",vdata,7)-1))) thisform.letra=substr(vdata,at(",",vdata,8)+1,at(",",vdata,9)-at(",",vdata,8)-1) thisform.tamano=val(substr(vdata,at(",",vdata,9)+1,at(",",vdata,10)-at(",",vdata,9)-1)) thisform.alto=val(substr(vdata,at(",",vdata,10)+1,at(",",vdata,11)-at(",",vdata,10)-1)) thisform.linea=substr(vdata,at(",",vdata,11)+1,at(",",vdata,12)-at(",",vdata,11)-1) thisform.orientation=val(substr(vdata,at(",",vdata,12)+1,at(",",vdata,13)-at(",",vdata,12)-1)) thisform.papel=val(substr(vdata,at(",",vdata,13)+1)) thisform.proceso() endif ENDPROC VComment = "" Tag = "" Top = 3 Left = 231 Width = 68 Height = 24 TabIndex = 6 lcurvature = .F. border = .F. Name = "bot8" Image1.Picture = images\margen.bmp Image1.Height = 13 Image1.Left = 6 Image1.Top = 4 Image1.Width = 11 Image1.Name = "Image1" xShape2.Name = "xShape2" Shape1.Name = "Shape1" Command1.Name = "Command1" Image2.Name = "Image2" Ribbonlabel1.Caption = "\ (ќUM Іќї§љFўTтїќс9єї§ўTтїќс9єї§ўTтїќс9єї§ўЇўUTHIS BORDERCOLORORIBBON LINESCOLORFONTNAME CFONTNAMEDISABLEDBACKCOLOR BACKCOLOR1 Іќї§љў ™ќCті§ўЇўUTHISREDRAWredraw,џџInitйџџ1б111A4бБA2ЎЩщ )—formbas_menubarbot1FPROCEDURE Click local vruta vruta=getfile("rpt") if !empty(vruta) thisform.panel.p2.vs.loaddoc(vruta) thisform.npage=thisform.panel.p2.vs.pagecount() thisform.panel.p2.p.t1.caption=alltrim(str(1)) thisform.panel.p2.p.t2.caption=alltrim(str(thisform.npage)) thisform.panel.p2.p.bot8.visible=.F. endif ENDPROC BComment = "" Tag = "" Top = 3 Left = 133 Width = 24 Height = 24 TabIndex = 10 TabStop = .F. ToolTipText = "CTRL+Fin (Ultimo Reg)" border = .F. lcurvature = .F. disabledpicture = c:\newproyect\pcont\vcx\images\ultimod.bmp Name = "bot6" Image1.Picture = images\open.bmp Image1.Height = 16 Image1.Left = 4 Image1.Top = 4 Image1.Width = 16 Image1.Name = "Image1" xShape2.Name = "xShape2" Shape1.Name = "Shape1" Command1.Name = "Command1" Image2.Name = "Image2" Ribbonlabel1.Name = "Ribbonlabel1" Ribbonlabel2.Name = "Ribbonlabel2" Marlett.Name = "Marlett" formreport.panel.p2.pbot6 container foxribbon.vcxribboncommandbutton2Height = 500 Width = 750 ShowWindow = 1 DoCreate = .T. AutoCenter = .T. BorderStyle = 1 Caption = "Vista preliminar" MaxButton = .F. MinButton = .F. AlwaysOnTop = .T. dat = .F. namewin = .F. ncurvature = 0 tabtem1 = .F. tabtem2 = .F. datg = .F. tabtem3 = .F. pok = .F. Name = "formrepg" ™PROCEDURE Click local vruta vruta=putfile("Nombre :","reporte.rpt","rpt") if !empty(vruta) thisform.panel.p2.vs.savedoc(vruta) endif ENDPROC formreport.panel.p2.pbot5 container foxribbon.vcxribboncommandbuttonformreport.panel.p2.pPROCEDURE redraw WITH THIS .text.BorderColor = _SCREEN.oRibbon.LinesColor .boton.BACKCOLOR = _SCREEN.oRibbon.BackColor2 .text.FONTNAME = _SCREEN.oRibbon.cFontName .text.DisabledBackColor = _SCREEN.oRibbon.backcolor1 ENDWITH ENDPROC PROCEDURE Init WITH THIS .ReDraw() ENDWITH ENDPROC PROCEDURE MouseLeave LPARAMETERS nButton, nShift, nXCoord, nYCoord if type('thisform.ActiveControl.parent.Name')<>'U' if thisform.ActiveControl.parent.Name<>this.Name this.boton.Visible=.F. endif endif ENDPROC PROCEDURE MouseEnter LPARAMETERS nButton, nShift, nXCoord, nYCoord this.boton.Visible=.T. ENDPROC PROCEDURE GotFocus this.boton.visible=.T. ENDPROC PROCEDURE LostFocus this.boton.visible=.F. this.value=this.text.value ENDPROC DComment = "" Tag = "" Top = 3 Left = 108 Width = 24 Height = 24 TabIndex = 10 TabStop = .F. ToolTipText = "CTRL+Fin (Ultimo Reg)" border = .F. lcurvature = .F. disabledpicture = c:\newproyect\pcont\vcx\images\ultimod.bmp Name = "bot5" Image1.Picture = images\grabar.bmp Image1.Height = 16 Image1.Left = 4 Image1.Top = 4 Image1.Width = 16 Image1.Name = "Image1" xShape2.Name = "xShape2" Shape1.Name = "Shape1" Command1.Name = "Command1" Image2.Name = "Image2" Ribbonlabel1.Name = "Ribbonlabel1" Ribbonlabel2.Name = "Ribbonlabel2" Marlett.Name = "Marlett" LHeight = 24 Left = 105 Top = 3 Width = 0 Name = "Ribbonmenuseparator1" Ribbonmenuseparator1line foxribbon.vcxribbonmenuseparatorŠPROCEDURE Click thisform.rep.FirstPage thisform.menubar.pagina.Caption = "Pсgina "+alltrim(str(thisform.rep.page+1,10,0)) ENDPROC ˆPROCEDURE Click vruta = putfile("Nombre :","report.xls","xls") if !empty(vruta) thisform.man.saveToExcel2(vruta) endif ENDPROC  foxribbon.vcx‹PROCEDURE Click thisform.panel.p2.vs.previewpage(thisform.npage) thisform.panel.p2.p.t1.caption=alltrim(str(thisform.npage)) ENDPROC ;Comment = "" Tag = "" Top = 3 Left = 79 Width = 24 Height = 24 TabIndex = 10 TabStop = .F. ToolTipText = "Ultima pсgina" border = .F. lcurvature = .F. disabledpicture = c:\newproyect\pcont\vcx\images\ultimod.bmp Name = "bot4" Image1.Picture = images\ultimo.bmp Image1.Height = 16 Image1.Left = 4 Image1.Top = 4 Image1.Width = 16 Image1.Name = "Image1" XSHAPE2.Name = "XSHAPE2" Shape1.Name = "Shape1" Command1.Name = "Command1" Image2.Name = "Image2" Ribbonlabel1.Name = "Ribbonlabel1" RIBBONLABEL2.Name = "RIBBONLABEL2" MARLETT.Name = "MARLETT" formreport.panel.p2.pbot4 container foxribbon.vcxribboncommandbuttonSўђџ ::Ž%Яё нќUo ™ќCъЁ§ў Іќї§љhўTтїќј§ўTтїќј§ўTтїќєєї§ўTтїќєєї§ўTтїќј§ўЇўUTHISTOPLEFTHEIGHTPARENTWIDTHANCHORInit,џџ1‘вссAAсA2•): containermenubarфPROCEDURE Click local vnumpag vnumpag=val(thisform.panel.p2.p.t1.caption) if vnumpag+1<=thisform.npage thisform.panel.p2.vs.previewpage(vnumpag+1) thisform.panel.p2.p.t1.caption=alltrim(str(vnumpag+1)) endif ENDPROC CComment = "" Tag = "" Top = 3 Left = 54 Width = 24 Height = 24 TabIndex = 9 TabStop = .F. ToolTipText = "Siguiente pсgina" border = .F. lcurvature = .F. disabledpicture = c:\newproyect\pcont\vcx\images\siguiented.bmp Name = "bot3" Image1.Picture = images\siguiente.bmp Image1.Height = 16 Image1.Left = 4 Image1.Top = 4 Image1.Width = 16 Image1.Name = "Image1" XSHAPE2.Name = "XSHAPE2" Shape1.Name = "Shape1" Command1.Name = "Command1" Image2.Name = "Image2" Ribbonlabel1.Name = "Ribbonlabel1" RIBBONLABEL2.Name = "RIBBONLABEL2" MARLETT.Name = "MARLETT" formreport.panel.p2.pbot3 container foxribbon.vcxribboncommandbutton`ўђџ GGв‘%рўђќUW%ќCєїєєєі§љPў ™ќCCєїєієєєі§ў™ќCєїєі§ўўU THISPARENT LSTCAMPOSSELECTED LISTINDEXLSTSELECCIONESADDITEMLIST REMOVEITEMDblClick,џџ1б1A1Ў)GformbasformbaseиPROCEDURE Click local vnumpag vnumpag=val(thisform.panel.p2.p.t1.caption) if vnumpag-1#0 thisform.panel.p2.vs.previewpage(vnumpag-1) thisform.panel.p2.p.t1.caption=alltrim(str(vnumpag-1)) endif ENDPROC 7Comment = "" Tag = "" Top = 3 Left = 29 Width = 24 Height = 24 TabIndex = 8 TabStop = .F. ToolTipText = "Pсgina" border = .F. lcurvature = .F. disabledpicture = c:\newproyect\pcont\vcx\images\anteriord.bmp Name = "bot2" Image1.Picture = images\anterior.bmp Image1.Height = 16 Image1.Left = 4 Image1.Top = 4 Image1.Width = 16 Image1.Name = "Image1" XSHAPE2.Name = "XSHAPE2" Shape1.Name = "Shape1" Command1.Name = "Command1" Image2.Name = "Image2" Ribbonlabel1.Name = "Ribbonlabel1" RIBBONLABEL2.Name = "RIBBONLABEL2" MARLETT.Name = "MARLETT" formreport.panel.p2.pbot2 container foxribbon.vcxribboncommandbutton‰PROCEDURE Click vruta = putfile("Nombre :","report.pdf","pdf") if !empty(vruta) thisform.man.saveToPDF(vruta,.T.) endif ENDPROC *Top = 60 Left = 12 Name = "Resizable1" ribboncommandbutton foxribbon.vcx containerformbas.menubarqPROCEDURE Click thisform.panel.p2.vs.previewpage(1) thisform.panel.p2.p.t1.caption=alltrim(str(1)) ENDPROC 2Comment = "" Top = 3 Left = 4 Width = 24 Height = 24 TabIndex = 7 TabStop = .F. ToolTipText = "Primera pсgina" border = .F. lcurvature = .F. disabledpicture = c:\newproyect\pcont\vcx\images\primerod.bmp Name = "bot1" Image1.Picture = images\primero.bmp Image1.Height = 16 Image1.Left = 4 Image1.Top = 4 Image1.Width = 16 Image1.Name = "Image1" XSHAPE2.Name = "XSHAPE2" Shape1.Name = "Shape1" Command1.Name = "Command1" Image2.Name = "Image2" Ribbonlabel1.Name = "Ribbonlabel1" RIBBONLABEL2.Name = "RIBBONLABEL2" MARLETT.Name = "MARLETT" formreport.panel.p2.pbot1 container foxribbon.vcxribboncommandbuttonпTop = 22 Left = 0 Width = 804 Height = 40 showbackimage = .F. showbottomline = .T. showtopline = .T. movable = .T. Name = "menubar" topline.Name = "topline" bottomline.Name = "bottomline" Image1.Name = "Image1" 9PROCEDURE Click thisform.panel.ActivePage = 1 ENDPROC Comment = "H" Top = 3 Left = 548 Width = 85 Height = 24 TabIndex = 6 lcurvature = .F. Name = "Ribboncommandbutton2" Image1.Picture = defaultimages\close.png Image1.Height = 16 Image1.Left = 6 Image1.Top = 4 Image1.Width = 16 Image1.Name = "Image1" XSHAPE2.Name = "XSHAPE2" Shape1.Name = "Shape1" Command1.Name = "Command1" Image2.Name = "Image2" Ribbonlabel1.Caption = "\ SYSMETRIC(1)) tnLeft = SYSMETRIC(1) - .WIDTH - 2 ENDIF IF ((tnTop + .HEIGHT) > SYSMETRIC(2)) tnTop = tnTop - .HEIGHT ENDIF SetWindowRgn(.HWND, CreateRoundRectRgn(.LEFT + 1, .TOP + 1, .WIDTH, .HEIGHT, .nCurvature, .nCurvature), 1) m.lnStyle = GetClassLong(.HWND, GCL_STYLE) SetClassLong(.HWND, GCL_STYLE, BITOR(m.lnStyle, CS_DROPSHADOW)) *SetParent(.HWND, 0) *SetWindowPos(.HWND, 0, tnLeft, tnTop, .WIDTH, .HEIGHT, SWP_SHOWWINDOW) ENDWITH ENDPROC PROCEDURE Load this.namewin=pnomform thisform.dat=fcreateconect(pdata) if thisform.dat = 0 return to master thisform.release endif ENDPROC  ButtonCount = 5 Comment = "D" BorderStyle = 0 Value = 1 Height = 37 Left = 15 SpecialEffect = 1 Top = 333 Width = 177 TabIndex = 5 Themes = .F. Name = "opcion" Option1.Picture = images\previo.bmp Option1.BackStyle = 0 Option1.Caption = "" Option1.Value = 1 Option1.Height = 35 Option1.Left = 2 Option1.SpecialEffect = 1 Option1.Style = 1 Option1.TabIndex = 1 Option1.Top = 2 Option1.Width = 35 Option1.ColorSource = 0 Option1.BackColor = 255,255,255 Option1.Themes = .F. Option1.Name = "op1" Option2.Picture = images\imprimir.bmp Option2.BackStyle = 1 Option2.Caption = "" Option2.Height = 35 Option2.Left = 37 Option2.SpecialEffect = 1 Option2.Style = 1 Option2.TabIndex = 2 Option2.Top = 2 Option2.Width = 35 Option2.ColorSource = 0 Option2.Themes = .F. Option2.Name = "op2" Option3.Picture = images\excel.bmp Option3.BackStyle = 0 Option3.Caption = "" Option3.Height = 35 Option3.Left = 72 Option3.SpecialEffect = 1 Option3.Style = 1 Option3.TabIndex = 3 Option3.Top = 2 Option3.Width = 35 Option3.ColorSource = 0 Option3.BackColor = 255,255,255 Option3.Themes = .F. Option3.Name = "op3" Option4.Picture = images\newtable.bmp Option4.BackStyle = 0 Option4.Caption = "" Option4.Height = 35 Option4.Left = 107 Option4.SpecialEffect = 1 Option4.Style = 1 Option4.TabIndex = 4 Option4.Top = 2 Option4.Width = 35 Option4.ColorSource = 0 Option4.BackColor = 255,255,255 Option4.Themes = .F. Option4.Name = "op4" Option5.Picture = images\pdf.bmp Option5.BackStyle = 0 Option5.Caption = "" Option5.Height = 35 Option5.Left = 142 Option5.SpecialEffect = 1 Option5.Style = 1 Option5.TabIndex = 5 Option5.Top = 2 Option5.Width = 35 Option5.ColorSource = 0 Option5.BackColor = 255,255,255 Option5.Themes = .F. Option5.Name = "op5" …PROCEDURE Init dodefault() with this .Width = this.Parent.Parent.Width .Height = this.Parent.Parent.Height endwith ENDPROC jComment = "A" Top = 0 Left = 0 Height = 21 Width = 21 BackColor = 255,255,255 Name = "Contenedor2" 8ErasePage = .T. PageCount = 2 Comment = "A" BorderWidth = 0 Top = 32 Left = 6 Width = 607 Height = 275 SpecialEffect = 2 Tabs = .F. Themes = .F. Name = "p" Page1.Caption = "p1" Page1.BackColor = 255,255,255 Page1.Name = "p1" Page2.Caption = "p2" Page2.BackColor = 255,255,255 Page2.Name = "p2" formreport.panel.p1.p pageframe pageframeЁAutoSize = .F. Comment = "H" FontBold = .T. Alignment = 2 Caption = "Titulo" Height = 15 Left = 391 Top = 7 Width = 224 TabIndex = 24 Name = "titulo" formreport.panel.p1.ptitulolabel foxribbon.vcxshape?PROCEDURE Init local tnLeft , tnTop #DEFINE SWP_SHOWWINDOW 0x0040 #DEFINE GWL_EXSTYLE (-20) #DEFINE WS_EX_TOOLWINDOW 0x00000080 #DEFINE WS_EX_APPWINDOW 0x00040000 #DEFINE WS_EX_TOPMOST 0x8 #DEFINE GCL_STYLE (-26) #DEFINE CS_DROPSHADOW 0x00020000 tnLeft = this.left tnTop = this.top tnHWND = _screen.HWnd WITH THIS m.lStyle = GetWindowLongA(.HWND, GWL_EXSTYLE) m.lStyle = BITAND(BITOR(m.lStyle, WS_EX_TOOLWINDOW), BITNOT(WS_EX_APPWINDOW)) * SetWindowLongA(.HWND, GWL_EXSTYLE, m.lStyle) m.lqPt = BINTOC(tnLeft, '4RS')+BINTOC(tnTop, '4RS') ClientToScreen(tnHWND, @lqPt) tnLeft = CTOBIN(SUBSTR(m.lqPt, 1, 4), '4RS') tnTop = CTOBIN(SUBSTR(m.lqPt, 5, 4), '4RS') IF ((tnLeft + .WIDTH) > SYSMETRIC(1)) tnLeft = SYSMETRIC(1) - .WIDTH - 2 ENDIF IF ((tnTop + .HEIGHT) > SYSMETRIC(2)) tnTop = tnTop - .HEIGHT ENDIF SetWindowRgn(.HWND, CreateRoundRectRgn(.LEFT + 1, .TOP + 1, .WIDTH, .HEIGHT, .nCurvature, .nCurvature), 1) m.lnStyle = GetClassLong(.HWND, GCL_STYLE) SetClassLong(.HWND, GCL_STYLE, BITOR(m.lnStyle, CS_DROPSHADOW)) *SetParent(.HWND, 0) *SetWindowPos(.HWND, 0, tnLeft, tnTop, .WIDTH, .HEIGHT, SWP_SHOWWINDOW) ENDWITH ENDPROC PROCEDURE Load this.namewin=pnomform thisform.dat=fcreateconect(pdata) if thisform.dat = 0 return to master thisform.release endif ENDPROC  ribbonlabelmComment = "H" Top = 2 Left = 386 Height = 23 Width = 233 BackColor = 255,255,255 Name = "Contenedor1" formreport.panel.p1.p Contenedor1 classprin.vcx contenedorыnumwxp dat namewin numcob numcon numind accion tabtem1 tabtem2 tabtem3 tabtem4 conobj cobobj indobj datg tabtem5 *cargar *activacontrol *borrar *desactivacontrol *espera *limpiacontrol *modificar *nuevo  containerJPROCEDURE Click ribbontab::click this.Parent.p.ActivePage = 2 ENDPROC Top = 1 Left = 118 Width = 105 Height = 25 Name = "Ribbontab2" Image2.Name = "Image2" Image1.Picture = images\otras.png Image1.Height = 16 Image1.Left = 8 Image1.Top = 5 Image1.Width = 16 Image1.Name = "Image1" Command1.Name = "Command1" Shape1.Name = "Shape1" Shape2.Name = "Shape2" Ribbonlabel1.Caption = "Otras" Ribbonlabel1.Left = 45 Ribbonlabel1.Top = 5 Ribbonlabel1.Name = "Ribbonlabel1" formreport.panel.p1.p Ribbontab2 container foxribbon.vcx ribbontabоTop = 0 Left = 0 Width = 804 Height = 40 showbackimage = .F. showbottomline = .T. showtopline = .T. movable = .T. Name = "menubar" topline.Name = "topline" bottomline.Name = "bottomline" Image1.Name = "Image1" ribboncommandbuttonbot3JPROCEDURE Click ribbontab::click this.Parent.p.ActivePage = 1 ENDPROC  Top = 1 Left = 13 Width = 105 Height = 25 Name = "Ribbontab1" Image2.Name = "Image2" Image1.Picture = images\general.png Image1.Height = 16 Image1.Left = 8 Image1.Top = 5 Image1.Width = 16 Image1.Name = "Image1" Command1.Name = "Command1" Shape1.Name = "Shape1" Shape2.Name = "Shape2" Ribbonlabel1.Caption = "General" Ribbonlabel1.Left = 41 Ribbonlabel1.Top = 5 Ribbonlabel1.Name = "Ribbonlabel1" formreport.panel.p1.p Ribbontab1 container foxribbon.vcx ribbontabmComment = "A" Top = 10 Left = 10 Width = 619 Height = 313 TabIndex = 2 lcurvature = .F. lshadow = .F. firsttabclick = Ribbontab1 Name = "p" Shape1.Top = 26 Shape1.Left = 0 Shape1.Height = 287 Shape1.Width = 619 Shape1.Name = "Shape1" Line1.Name = "Line1" Line2.Name = "Line2" Shadow.Name = "Shadow" Timer1.Name = "Timer1" Label4.Name = "Label4" formreport.panel.p1 container foxribbon.vcx _pageframehnComment = "D" Top = 329 Left = 10 Height = 45 Width = 188 BackColor = 255,255,255 Name = "Contenedor1" formreport.panel.p1 Contenedor1shape classprin.vcx contenedorformbas.menubarYPROCEDURE GotFocus if substr(pmregusu,2,1)="0" this.thisenabled(.F.) endif ENDPROC ribboncommandbutton foxribbon.vcxPROCEDURE Click ENDPROC Comment = "E" Top = 338 Left = 445 Width = 84 Height = 27 TabIndex = 3 lcurvature = .F. Name = "cnbotton2" Image1.Picture = images\aceptar.bmp Image1.Height = 16 Image1.Left = 6 Image1.Top = 5 Image1.Width = 16 Image1.Name = "Image1" XSHAPE2.Name = "XSHAPE2" Shape1.Name = "Shape1" Command1.Name = "Command1" Image2.Name = "Image2" Ribbonlabel1.Caption = "\ 0 =sqldisconnect(thisform.dat) endif ENDPROC ŒColumnCount = 2 FontName = "MS Sans Serif" DeleteMark = .F. Enabled = .F. Height = 146 Left = 2 Panel = 1 ReadOnly = .T. RecordMark = .F. ScrollBars = 0 SplitBar = .F. Top = 2 Width = 296 BackColor = 212,208,200 GridLineColor = 212,208,200 ZOrderSet = 10 AllowCellSelection = .F. Themes = .F. Name = "lista" Column1.FontName = "MS Sans Serif" Column1.Enabled = .F. Column1.Width = 87 Column1.ReadOnly = .T. Column1.BackColor = 212,208,200 Column1.Name = "Column1" Column2.FontName = "MS Sans Serif" Column2.Enabled = .F. Column2.Width = 204 Column2.ReadOnly = .T. Column2.BackColor = 212,208,200 Column2.Name = "Column2" љTop = 149 Left = 50 Height = 384 Width = 641 ShowWindow = 1 DoCreate = .T. Tag = "Reporte - Plan de Cuentas" ShowTips = .T. BorderStyle = 0 Caption = "" ControlBox = .F. Closable = .F. MaxButton = .F. MinButton = .F. Movable = .F. AlwaysOnBottom = .T. dat = 0 namewin = '' numwxp = 0 tablabase = tabladata = alto = 200 cellscale = 7 cero = 1 colnum = 0 coltc = ( "") delimitador = .F. digano = 0 letra = Courier New linea = a lpopupset = .F. mbottom = 1550 mheader = 550 mleft = 1100 moneda = mright = 300 mtop = 2500 numfoot = 0 numhead = 0 numreg = 0 orden = .F. orientation = .F. pageno = 1 papel = 0 printer = Pcont subtitulo = subtotal = 0 tablafor = tamano = 8 digitos = .F. Name = "formreport" ўђџ ъъ?‰%Q2эќU <їўUTHISO 4ѕ їўTєєїќй§ў†ќCєїѕ їйcdatoъi§ўTєєїќйcdato§ў"Tєєєїќй cdato.codigo§ўKTєєєїќй5iif(!empty(codigo),rgb(255,255,255),rgb(128,128,128))§ў&Tєєєїќйcdato.descripcio§ўKTєєєїќй5iif(!empty(codigo),rgb(255,255,255),rgb(128,128,128))§ў#ќйcdato§)ў ™єєї ўU VSQLTHISFORMLISTA RECORDSOURCEDATCOLUMN1 CONTROLSOURCEDYNAMICBACKCOLORCOLUMN2REFRESHч4їў%ќїј§љ\ў%ќCйcdato+ §љXўHќйcdato§ќј§ў ™єєїў Bќй§ўўў%ќїј§љЖў%ќCйcdato §љВўHќйcdato§ќљџџ§ў ™єєїў Bќй§ўўў%ќїј §љзў Bќєї§ўў Bќй§ўUVKEYTHISFORMLISTAREFRESHCDATOCODIGOh4їїїїўTєїќї§ўTєїќї§ўTєєє є ї ќї§ўTєєє є ї ќї§ўU CTOPCLEFTCTIT1CTIT2THISTOPLEFTTHISFORMLISTACOLUMN1HEADER1CAPTIONCOLUMN2@TєїќCїі§ў%ќєїј§љ9ўB(Мў ™єїўўUTHISFORMDAT FCREATECONECTPDATARELEASE*%ќєїј§љ#ў†ќCєїъg§ўўUTHISFORMDATcomplete,џџupdate@џџupkeyљџџInitџџLoadрџџDestroyRџџ1r3”1С!БaБб3qQQб‘AAQaб‘AAСA‘21‘‘4QAaЁA2AёA1Jgў<"W+(4.Ÿи;)ърўђџ ЧЧ{Ы%^ LќU ™єєїўUTHISPARENTCLICK#Џїїїїў ™єєїўUNBUTTONNSHIFTNXCOORDNYCOORDTHISPARENTMOUSEUP#Џїїїїў ™єєїўUNBUTTONNSHIFTNXCOORDNYCOORDTHISPARENT MOUSEDOWNClick,џџMouseUpUџџ MouseDownЖџџ1б31б21б1$B„Єш )Чрўђџ ЧЧ{Ы%^ LќU ™єєїўUTHISPARENTCLICK#Џїїїїў ™єєїўUNBUTTONNSHIFTNXCOORDNYCOORDTHISPARENTMOUSEUP#Џїїїїў ™єєїўUNBUTTONNSHIFTNXCOORDNYCOORDTHISPARENT MOUSEDOWNClick,џџMouseUpUџџ MouseDownЖџџ1б31б21б1$B„Єш )Чribboncommandbutton foxribbon.vcxformbas.menubarribboncommandbutton foxribbon.vcx containerbot4formbas.menubar!Arial, 0, 9, 5, 15, 12, 32, 3, 0 formmanPixelsClassformformmanribboncommandbutton foxribbon.vcx containerbot5formbas.menubarbot3bot4tituloPixelsClass containertitulo^AutoSize = .F. Alignment = 2 Height = 13 Left = 0 Top = 3 Width = 184 Name = "_titulo" titulo_titulolabel PROCEDURE Init DODEFAULT() WITH THIS .TOP = 0 .LEFT = 0 .HEIGHT = THIS.PARENT.HEIGHT .WIDTH = THIS.PARENT.WIDTH .ANCHOR = 15 ENDWITH ENDPROC |Top = 48 Left = 12 Width = 12 Height = 8 swapcolors = .T. gradient = .T. Name = "_gradient1" Image1.Name = "Image1" formman _gradient1 container foxribbon.vcx _gradientLHeight = 30 Left = 183 Top = 3 Width = 0 Name = "Ribbonmenuseparator2" formman.menubarRibbonmenuseparator2line foxribbon.vcxribbonmenuseparatorLHeight = 30 Left = 150 Top = 3 Width = 0 Name = "Ribbonmenuseparator1" formman.menubarRibbonmenuseparator1line foxribbon.vcxribbonmenuseparator foxribbon.vcx ribbonlabelpTop = 0 Left = 1 Height = 17 Width = 100 BorderStyle = 0 BorderWidth = 0 Visible = .F. Name = "_fondo1" titulo_fondo1shape,PROCEDURE Click thisform.release ENDPROC —Comment = "H" Top = 4 Left = 557 Width = 79 Height = 28 TabIndex = 11 TabStop = .F. caption = \ oControl.width * oControl.FontSize = 8 * ELSE * oControl.FontSize = 10 * ENDIF *ENDIF ENDPROC PROCEDURE loopthroughcontrols LPARAMETERS cTask * Valid parameters for cTask are 'Initialize_And_Adjust' and 'Adjust' cTask = UPPER(cTask) nOldDecimal = SET("DECIMAL") SET DECIMAL TO 4 *#define BASE_CLASS "Commandbutton Combobox Checkbox Listbox Form Grid Textbox Label Shape Editbox Olecontrol Pageframe Image Spinner" #define BASE_CLASS "ABCDEFGHIJPageframeContainer" nPos = 0 THISFORM.LockScreen = .T. FOR m.i = 1 TO THISFORM.ControlCount oControl = THISFORM.Controls[m.i] IF oControl.comment$BASE_CLASS nPos = nPos + 1 DO CASE CASE cTask = 'INITIALIZE_AND_ADJUST' THIS.AddToArray(oControl) THIS.SetSize(oControl, nPos) CASE cTask = 'ADJUST' THIS.SetSize(oControl, nPos) ENDCASE ENDIF IF THISFORM.Controls[m.i].Baseclass$"Pageframe" FOR m.j = 1 TO THISFORM.Controls[m.i].PageCount WITH THISFORM.Controls[m.i].pages[m.j] FOR m.k = 1 TO .ControlCount IF .Controls[m.k].comment$BASE_CLASS nPos = nPos + 1 DO CASE CASE cTask = 'INITIALIZE_AND_ADJUST' THIS.AddToArray(.Controls[m.k]) THIS.SetSize(.Controls[m.k], nPos) CASE cTask = 'ADJUST' THIS.SetSize(.Controls[m.k], nPos) ENDCASE ENDIF ******** IF .Controls[m.k].Baseclass$"Container" WITH .Controls[m.k] FOR m.t = 1 TO .ControlCount IF .Controls[m.t].comment$BASE_CLASS nPos = nPos + 1 DO CASE CASE cTask = 'INITIALIZE_AND_ADJUST' THIS.AddToArray(.Controls[m.t]) THIS.SetSize(.Controls[m.t], nPos) CASE cTask = 'ADJUST' THIS.SetSize(.Controls[m.t], nPos) ENDCASE endif ******** IF .Controls[m.t].Baseclass$"Pageframe" FOR m.u = 1 TO .Controls[m.t].PageCount WITH .Controls[m.t].pages[m.u] FOR m.x = 1 TO .ControlCount IF .Controls[m.x].comment$BASE_CLASS nPos = nPos + 1 DO CASE CASE cTask = 'INITIALIZE_AND_ADJUST' THIS.AddToArray(.Controls[m.x]) THIS.SetSize(.Controls[m.x], nPos) CASE cTask = 'ADJUST' THIS.SetSize(.Controls[m.x], nPos) ENDCASE endif IF .Controls[m.x].Baseclass$"Container" WITH .Controls[m.x] FOR m.z = 1 TO .ControlCount IF .Controls[m.z].comment$BASE_CLASS nPos = nPos + 1 DO CASE CASE cTask = 'INITIALIZE_AND_ADJUST' THIS.AddToArray(.Controls[m.z]) THIS.SetSize(.Controls[m.z], nPos) CASE cTask = 'ADJUST' THIS.SetSize(.Controls[m.z], nPos) ENDCASE endif ENDFOR ENDWITH ENDIF endfor endwith endfor endif ******** ENDFOR ENDWITH ENDIF ******** ENDFOR ENDWITH ENDFOR endif IF THISFORM.Controls[m.i].Baseclass$"Container" WITH THISFORM.Controls[m.i] FOR m.k = 1 TO .ControlCount IF .Controls[m.k].comment$BASE_CLASS nPos = nPos + 1 DO CASE CASE cTask = 'INITIALIZE_AND_ADJUST' THIS.AddToArray(.Controls[m.k]) THIS.SetSize(.Controls[m.k], nPos) CASE cTask = 'ADJUST' THIS.SetSize(.Controls[m.k], nPos) ENDCASE endif ENDFOR ENDWITH ENDIF ENDFOR THISFORM.LockScreen = .F. SET DECIMAL TO nOldDecimal ENDPROC PROCEDURE reset THIS.InitialResize = .T. DIMENSION THIS.aControlStats[1,5] ENDPROC PROCEDURE Init THIS.InitialFormHeight = THISFORM.Height THIS.InitialFormWidth = THISFORM.Width ENDPROC   ўђџ ‡ ‡ Ь|% > IЌ ќUІ 7їўЎїїїїїўTїќєї§ў:™ќCћmodelosћ codigo_modћ codigo_modћ pvartempoі§ў%ќCїЁ §љ˜ ўI†ќCєї й0select * from moddet where codigo_mod=?pvartempoћcforъi§ў%ќєї CћcforN§љ+ўH†ќCй.La cantidad de columnas del modelo no es igualјйERROR...ъx§ўQўBўўI†ќCєї й0select * from modcab where codigo_mod=?pvartempoћcforъi§ўTєї ќє ї §ўTєї ќє ї §ўTєїќє ї§ўTєїќє ї§ўTєїќє ї§ў™єєєєїўTєїќє ї§ўTєїќCє ї›§ўTєїќє ї§ў!Tєіќј§ќј§ќCє їg§ў!Tєіќј§ќј§ќCє їg§ўTєіќј§ќј§ќє ї§ў!Tєіќј§ќј§ќCє їg§ў!Tєіќј§ќј§ќCє їg§ўTєіќј§ќј§ќє ї§ў!Tєіќј§ќј§ќCє їg§ў!Tєіќј§ќј§ќCє їg§ўTєіќј§ќј§ќє ї §ў!Tєіќј§ќј§ќCє ї!g§ў!Tєіќј§ќј§ќCє ї"g§ўTєіќј§ќј§ќє ї#§ў!Tєіќј§ќј§ќCє ї$g§ў!Tєіќј§ќј§ќCє ї%g§ўTєіќј§ќј§ќє ї&§ў!Tєіќј§ќј§ќCє ї'g§ў!Tєіќј§ќј§ќCє ї(g§ўTєіќј§ќј§ќє ї)§ўTєї*ќє ї*§ўTєї+ќє ї+§ўTєї,ќє ї,§ўTєї-ќє ї-§ўTєї.ќє ї.§ўTєї/ќє ї/§ўTєї0ќє ї0§ўTєєєє1ї2ќє ї1§ў„їќј§(ќј§љ]ўTїќйcCїјјZй1§ўTїќйcCїјјZй2§ўTїќйcampoCїјјZ§ўMthisform.panel.p4.&vvalor1..value=str(thisform.forfalsa(vcontador,1),2,0) Mthisform.panel.p4.&vvalor2..value=str(thisform.forfalsa(vcontador,2),2,0) Dthisform.panel.p4.&vvalor3..value=thisform.forfalsa(vcontador,3) …ў™єєєєїў™єєєїў!Tєєєє3є4ї2ќCє ї5›§ў!Tєєєє6є4ї2ќCє ї7›§ўTєєєє8ї2ќє ї9§ўTєєє:є;ї<ќй§ўЬcreate cursor &vtablafor (columna n(2,0),ancho n(3,0),titulo c(50),subtitulo c(50),ver L,orden c(7), agrupar c(2), totales c(8), cony c(100), cono c(100),orien c(3) default "Der",tipo c(1),pos n(2,0)) V†ќCєї й=select * from moddet where codigo_mod=?pvartempo order by posћcforъi§ў~љ_ ў:insert into &vtablafor (columna ,ancho ,titulo ,subtitulo ,ver ,orden , agrupar ,totales , cony , cono ,orien ,tipo,pos) values (val(cfor.columna),val(cfor.ancho),cfor.titulo ,cfor.subtitulo,iif(cfor.ver=1,.T.,.F.) ,cfor.orden ,cfor.agrupar ,cfor.totales ,cfor.cony ,cfor.cono ,cfor.orien ,cfor.tipo,cfor.pos) ўQўgo top in &vtablafor Tєєє:є;ї<ќї§ўў<їўU= PVARTEMPO VTABLAFOR VCONTADORVVALOR1VVALOR2VVALOR3THISFORMTABLAFORNOMLISTADATNUMREGTAMANOCFOR ORIENTATIONLINEACOLNUMCEROPANELP4REFRESHALTOLETRADIGANOFORFALSADE1A1TITULO1DE2A2TITULO2DE3A3TITULO3DE4A4TITULO4DE5A5TITULO5DE6A6TITULO6PAPELMLEFTMRIGHTMTOPMBOTTOMMHEADERSUBTOTALRESUMENVALUECOB3TEXTRESCAMCOB1RESDOCCOB2RESCOLP3LISTA RECORDSOURCEClick,џџ1rqЁ‘ЁAAA‘1111111Q1ёёёёёё1111111СqёёсббAA1С‘С aЂAA‘Aq15 )‡ гўђџ ККp%јЙќUт Ўїїў„їќј§(ќєї§љЬў*TїќєїCCїјјZ›й.tag='H'§ўif &vcontrolљ…ў.TїќєїCCїјјZ›й .enabled=.T.§ў&vcontrol 0TїќєїCCїјјZ›й.check.value=1§ўif &vcontrol љ-ў<TїќєїCCїјјZ›й.picture='graficos\in.bmp'§ў &vcontrol љў=TїќєїCCїјјZ›й.picture='graficos\out.bmp'§ў&vcontrol ўљШў.TїќєїCCїјјZ›й .enabled=.T.§ў &vcontrol ў…ў„їќј§(ќєї§љeў.TїќєїCCїјјZ›й .enabled=.T.§ў &vcontrol 3TїќєїCCїјјZ›й.text.enabled=.T.§ў &vcontrol …ў%ќєїйN§љзў„їќј§(ќєї§љгў.Tїќєї CCїјјZ›й .enabled=.T.§ў &vcontrol …ўў™ќC-єє є і §ў{2ћctrl+nћў™ќC-єє єі §ў{2ћctrl+mћў™ќCaєє єі §ў5on key label ctrl+g &ptemform..menubar.bot3.click ™ќCaєє єі §ў5on key label ctrl+d &ptemform..menubar.bot4.click ™ќC-єє єі §ў{2ћctrl+bћўUVNUMVCONTROLTHISFORMNUMCONCONOBJNUMCOBCOBOBJACCIONNUMINDINDOBJMENUBARBOT1 THISENABLEDCTRLNBOT2MBOT3BOT4BOT5BЉ Ўїїў„їќј§(ќєї§љ`ў.TїќєїCCїјјZ›й .enabled=.F.§ў &vcontrol …ў„їќј§(ќєї§љљў.TїќєїCCїјјZ›й .enabled=.F.§ў &vcontrol 3TїќєїCCїјјZ›й.text.enabled=.F.§ў &vcontrol …ў%ќєїйN§љkў„їќј§(ќєї§љgў.Tїќєї CCїјјZ›й .enabled=.F.§ў &vcontrol …ўўTї ќєї §ў™ќCaєє є і§ў5on key label ctrl+n &ptemform..menubar.bot1.click ™ќCaєє єі§ў5on key label ctrl+m &ptemform..menubar.bot2.click ™ќC-єє єі§ў{2ћctrl+gћў™ќC-єє єі§ў{2ћctrl+dћў™ќCaєє єі§ў5on key label ctrl+b &ptemform..menubar.bot5.click UVNUMVCONTROLTHISFORMNUMCONCONOBJNUMCOBCOBOBJACCIONNUMINDINDOBJPTEMFORMNAMEWINMENUBARBOT1 THISENABLEDBOT2BOT3CTRLGBOT4DBOT5ј Ўїїў„їќј§(ќєї§љ]ў&TїќєїCCїјјZ›й.tag§ў HљXљYўcase &vcontrol = 'C'љЌў+TїќєїCCїјјZ›й .value=''§ў &vcontrol case &vcontrol = 'N'љџў*TїќєїCCїјјZ›й.value=0§ў &vcontrol case &vcontrol = 'D'љYў1TїќєїCCїјјZ›й.value=ctod('')§ў &vcontrol ў…ў„їќј§(ќєї§љ›ў&TїќєїCCїјјZ›й.tag§ў HљЎљ—ўcase &vcontrol = 'C'љ?ў+TїќєїCCїјјZ›й .value=''§ў &vcontrol 0TїќєїCCїјјZ›й.text.value=''§ў &vcontrol case &vcontrol = 'N'љ—ў/TїќєїCCїјјZ›й .text.value=0§ў &vcontrol ў…ў„їќј§(ќєї§љёў+Tїќєї CCїјјZ›й .value=''§ў &vcontrol …ўU VNUM VCONTROLHTHISFORMNUMCONVCONTROLCONOBJNUMCOBCOBOBJNUMINDINDOBJ|Tєїќєєєїј§ўTєїќј§ўTєїќєїј§ў(Tєїќєїєєєїјј§ў ™єєї ўU THISTOP PRINCIPALPRIBBON1LINE7LEFTWIDTHHEIGHT RESIZABLE1ADJUSTCONTROLS†ЎїўTїќєєїј§ўTїќїј§ўTєїќCCїј јZ›§ўTїќCј@ї §ў™ќCєїїєєі§ў ™єєї ўU NWINDOW PRINCIPALPOBARRA ITEMCOUNTPNUMWINTHISNUMWXP ADDMENUITEMTAGREFRESHoЎїў%ќєїј§љ*ў†ќCєїъg§ўў%ќєїј§љQў†ќCєїъg§ўў%ќCєїЊ§љxў Fќєї§ўQўў%ќCєїЊ§љŸў Fќєї§ўQўў%ќCєїЊ§љЦў Fќєї§ўQўў%ќCєїЊ§љэў Fќєї§ўQўў%ќCєїЊ§љў Fќєї§ўQўўTїќє ї §ўTї ќї ј§ў™ќCCїgє є і§ўTїќйwinї§ў <ќї§ўUVNUMWINTHISFORMDATDATGTABTEM1TABTEM2TABTEM3TABTEM4TABTEM5THISNUMWXPPNUMWIN PRINCIPALPOBARRA HIDEMENUITEM ЎїїўTїќєї§ў„їќј§(ќј§љјўTїќCCїјјZ›§ў#vtag=this.menubar.bot&vbot..tag 1if thisform.menubar.bot&vbot..enabled=.T.љжў9on key label &vtag &ptemform..menubar.bot&vbot..click љєўon key label &vtag ў…ў ™єїў ™єєїўU VNUMVBOTPTEMFORMTHISFORMNAMEWINTHISRESIZE RESIZABLE1ADJUSTCONTROLSѕTєїќї§ўTєїќCїі§ў%ќєїј§љIўB(Мў ™єїўўTєїќCї і§ў%ќєїј§љ†ўB(Мў ™єїўў ™ќCъЁ§ўTєї ќCі §ўTєї ќCі §ўTєї ќCі §ўTєїќCі §ўTєїќCі §ў †ќCі§ўUTHISNAMEWINPNOMFORMTHISFORMDAT FCREATECONECTPDATARELEASEDATGPBASETABTEM1GETNAMETABTEM2TABTEM3TABTEM4TABTEM5 PONERSETS activacontrol,џџdesactivacontrolЇџџ limpiacontrolљџџResizeJ џџInit" џџDestroy џџActivate§џџLoadjџџ1БЁЁAссQСббёAсбAAЁсб1бAQЁсбAAB!A!AQAQA!3БЁсбAЁсб1бAQЁсбAAAQAQA!A!AQ5БЁaбСБбСЁбСбABЁaбСБббСёбABЂБбA4бqб3qqЁ1Ёб5qAёAAёA!бAA!бAA!бAA!бAA!бAAQAЁ3Бqq1‘aAAЁб2QAaЁAQAaЁA‘Ё1G+n .H( 3 OiP vo3~w8›Š˜Кѕ­ІЂМ)Кўђџ §§МЌ%SD­ъќUќ Ўїїў„їќј§(ќєї§љў3Tїќй thisform.conCCїјјZ›й.tag='H'§ўif &vcontrolљВў7Tїќй thisform.conCCїјјZ›й .enabled=.T.§ў&vcontrol 9Tїќй thisform.conCCїјјZ›й.check.value=1§ўif &vcontrol љQўETїќй thisform.conCCїјјZ›й.picture='graficos\in.bmp'§ў &vcontrol љЎўFTїќй thisform.conCCїјјZ›й.picture='graficos\out.bmp'§ў&vcontrol ўљўў7Tїќй thisform.conCCїјјZ›й .enabled=.T.§ў &vcontrol ў…ў„їќј§(ќєї§љ­ў7Tїќй thisform.cobCCїјјZ›й .enabled=.T.§ў &vcontrol <Tїќй thisform.cobCCїјјZ›й.text.enabled=.T.§ў &vcontrol …ў%ќєїйN§љ(ў„їќј§(ќєї§љ$ў7Tїќй thisform.indCCїјјZ›й .enabled=.T.§ў &vcontrol …ўў™ќC-єєєі §ў{2ћctrl+nћў™ќC-єєє і §ў{2ћctrl+mћў™ќCaєєєі §ў5on key label ctrl+g &ptemform..menubar.bot3.click ™ќCaєєєі §ў5on key label ctrl+d &ptemform..menubar.bot4.click ™ќC-єєєі §ў{2ћctrl+bћў™ќC-єєєі §ў{2ћctrl+fћў™ќC-єєєі §ў{2ћ ctrl+homeћў™ќC-єєєі §ў{2ћ ctrl+pgupћў™ќC-єєєі §ў{2ћ ctrl+pgdnћў™ќC-єєєі §ў{2ћctrl+endћўUVNUMVCONTROLTHISFORMNUMCONNUMCOBACCIONNUMINDMENUBARBOT1 THISENABLEDCTRLNBOT2MBOT3BOT4BOT5BBOT6FBOT7HOMEBOT8PGUPBOT9PGDNBOT10ENDF Ўїїў„їќј§(ќєї§љiў7Tїќй thisform.conCCїјјZ›й .enabled=.F.§ў &vcontrol …ў„їќј§(ќєї§љў7Tїќй thisform.cobCCїјјZ›й .enabled=.F.§ў &vcontrol <Tїќй thisform.cobCCїјјZ›й.text.enabled=.F.§ў &vcontrol …ў%ќєїйN§љў„їќј§(ќєї§љ‹ў7Tїќй thisform.indCCїјјZ›й .enabled=.F.§ў &vcontrol …ўўTїќєї§ў™ќCaєє є і §ў5on key label ctrl+n &ptemform..menubar.bot1.click ™ќCaєє є і §ў5on key label ctrl+m &ptemform..menubar.bot2.click ™ќC-єє є і §ў{2ћctrl+gћў™ќC-єє єі §ў{2ћctrl+dћў™ќCaєє єі §ў5on key label ctrl+b &ptemform..menubar.bot5.click ™ќCaєє єі §ў5on key label ctrl+f &ptemform..menubar.bot6.click ™ќCaєє єі §ў8on key label ctrl+home &ptemform..menubar.bot7.click ™ќCaєє єі §ў8on key label ctrl+pgup &ptemform..menubar.bot8.click ™ќCaєє єі §ў8on key label ctrl+pgdn &ptemform..menubar.bot9.click ™ќCaєє єі §ў8on key label ctrl+end &ptemform..menubar.bot10.click UVNUMVCONTROLTHISFORMNUMCONNUMCOBACCIONNUMINDPTEMFORMNAMEWINMENUBARBOT1 THISENABLEDBOT2BOT3CTRLGBOT4DBOT5BOT6BOT7BOT8BOT9BOT10I Ўїїў„їќј§(ќєї§љў/Tїќй thisform.conCCїјјZ›й.tag§ў Hљaљ}ўcase &vcontrol = 'C'љОў4Tїќй thisform.conCCїјјZ›й .value=''§ў &vcontrol case &vcontrol = 'N'љў3Tїќй thisform.conCCїјјZ›й.value=0§ў &vcontrol case &vcontrol = 'D'љ}ў:Tїќй thisform.conCCїјјZ›й.value=ctod('')§ў &vcontrol ў…ў„їќј§(ќєї§љуў/Tїќй thisform.cobCCїјјZ›й.tag§ў Hљлљпўcase &vcontrol = 'C'љ~ў4Tїќй thisform.cobCCїјјZ›й .value=''§ў &vcontrol 9Tїќй thisform.cobCCїјјZ›й.text.value=''§ў &vcontrol case &vcontrol = 'N'љпў8Tїќй thisform.cobCCїјјZ›й .text.value=0§ў &vcontrol ў…ў„їќј§(ќєї§љBў4Tїќй thisform.indCCїјјZ›й .value=''§ў &vcontrol …ўUVNUM VCONTROLHTHISFORMNUMCONVCONTROLNUMCOBNUMINDxTєїќєєєїј§ўTєїќј§ўTєїќєїј§ў$Tєїќєїєєєїј§ў ™єєї ўU THISTOP PRINCIPALMRIBBON1LINE7LEFTWIDTHHEIGHT RESIZABLE1ADJUSTCONTROLS†ЎїўTїќєєїј§ўTїќїј§ўTєїќCCїј јZ›§ўTїќCј@ї §ў™ќCєїїєєі§ў ™єєї ўU NWINDOW PRINCIPALMOBARRA ITEMCOUNTPNUMWINTHISNUMWXP ADDMENUITEMTAGREFRESH…Ўїў%ќєїј§љ*ў†ќCєїъg§ўўTїќєї§ўTїќїј§ў™ќCCїgєєі§ўTїќйwinї§ў <ќї§ўU VNUMWINTHISFORMDATTHISNUMWXPPNUMWIN PRINCIPALMOBARRA HIDEMENUITEM ЎїїўTїќєї§ў„їќј§(ќј §љјўTїќCCїјјZ›§ў#vtag=this.menubar.bot&vbot..tag 1if thisform.menubar.bot&vbot..enabled=.T.љжў9on key label &vtag &ptemform..menubar.bot&vbot..click љєўon key label &vtag ў…ў ™єїў ™єєїўU VNUMVBOTPTEMFORMTHISFORMNAMEWINTHISRESIZE RESIZABLE1ADJUSTCONTROLSƒTєїќї§ўTєїќCїі§ў%ќєїј§љIўB(Мў ™єїўўTєїќCі §ўTєї ќCі §ўTєї ќCі §ўU THISNAMEWINPNOMFORMTHISFORMDAT FCREATECONECTPDATARELEASETABTEM1GETNAMETABTEM2TABTEM3 activacontrol,џџdesactivacontrolтџџ limpiacontrolи џџResizebџџInit6џџDestroyџџActivateєџџLoadaџџ1БЁ1Aqс‘QQбaёAqбAAЁqбСбAQЁqбAAB!A!AQAQA!A!AQAQAQAA2БЁqбAЁqбСбAQЁqбAAAQAQA!A!AQAQAAAA5БЁёбСAбС1бСЁбABЁёбСAб‘бСбABЂAбA4бqAб3qqЁ1Ёб5qAёAQAЁ3Бqq1‘aAAЁб2QAaЁA2~5Ѕ 7\4 6b}S‰ƒ3‘‹8 •)eЉЃ€VИ)§рўђџ ЧЧ{Ы%^ LќU ™єєїўUTHISPARENTCLICK#Џїїїїў ™єєїўUNBUTTONNSHIFTNXCOORDNYCOORDTHISPARENTMOUSEUP#Џїїїїў ™єєїўUNBUTTONNSHIFTNXCOORDNYCOORDTHISPARENT MOUSEDOWNClick,џџMouseUpUџџ MouseDownЖџџ1б31б21б1$B„Єш )Чўђџ њњ!‘%AќU7 Џїїў%ќїј §љ0ў\ќћ {leftarrow}§ўўUNKEYCODE NSHIFTALTCTRL#Џїїїїў ™єєїўUNBUTTONNSHIFTNXCOORDNYCOORDTHISPARENTMOUSEUP#Џїїїїў ™єєїўUNBUTTONNSHIFTNXCOORDNYCOORDTHISPARENT MOUSEDOWN ™єєїўUTHISPARENTSELOFF ™єєїўUTHISPARENTSELON ™єєїўUTHISPARENTCLICK#Џїїїїў ™єєїўUNBUTTONNSHIFTNXCOORDNYCOORDTHISPARENTSELON#Џїїїїў ™єєїўUNBUTTONNSHIFTNXCOORDNYCOORDTHISPARENTSELOFFKeyPress,џџMouseUp€џџ MouseDownсџџ LostFocusDџџGotFocusnџџClick—џџ MouseEnterРџџ MouseLeaveџџ1БAA21б21б2б3б3б31б41б2i‡Щ щ- Ma€“ЏТу'H‹!)њтўђџ ЩЩў%7ЂќU6Tєєїќa§ўTєєїќ-§ўTєєїќ-§ўUTHISBBACKVISIBLEIBACKKBACK6Tєєїќ-§ўTєєїќa§ўTєєїќ-§ўUTHISBBACKVISIBLEIBACKKBACK6Tєєїќ-§ўTєєїќ-§ўTєєїќa§ўUTHISBBACKVISIBLEIBACKKBACK Џїїїїў ™єїўUNBUTTONNSHIFTNXCOORDNYCOORDTHISSELON Џїїїїў ™єїўUNBUTTONNSHIFTNXCOORDNYCOORDTHISSELOFF Џїїїїў ™єїўUNBUTTONNSHIFTNXCOORDNYCOORDTHISSELON Џїїїїў ™єїўUNBUTTONNSHIFTNXCOORDNYCOORDTHISSELKEYЛ Іќї§љCў TтїќCс9єїљчџс9єі§ўTтєїќс9єї§ўЇўTєєї ќј§ўTєєї ќј§ўTєєї ќєї ј§ўTєєї ќєї ј§ўTєє ї ќј§ўTєє ї ќј§ўTєє ї ќєї ј§ўTєє ї ќєї ј§ўTєє їќс9єї§ўTєєї ќј§ўTєєї ќј§ўTєєї ќєї ј§ўTєєї ќєї ј§ўTєєїќс9єї§ўTєєї ќј§ўTєєї ќј§ўTєєї ќєї ј§ўTєєї ќєї ј§ўTєєїќс9єї§ўTєєї ќј §ў,Tєєї ќCєї ј 8Cєєї ј 8§ўTєєїќєї§ў,Tєєї ќCєї ј 8Cєєї ј 8§ў*Tєєї ќєї єєї єєї §ўTєєїќєї§ўUTHIS BORDERCOLORORIBBON CHANGECOLOR LINESCOLORLABELFONTNAME CFONTNAMEBOTONTOPLEFTWIDTHHEIGHTIBACKPICTURE CFILEBMP7BBACK CFILEBMP2KBACK CFILEBMP4IMAGENCAPTIONselon,џџseloffŠџџselkeyшџџMouseUpFџџ MouseLeavešџџ MouseEnterяџџ MouseDownCџџInit˜џџ14551Ё21Ё21Ё21Ё2бaA31ЁЁ21ЁЁ21ЁЁ21ЁЁ2СbСЃb5a~а э? ]–ЗёK kІ$СB()Щiўђџ PPžc%ЗќUl Іќї§љeўTтєїќс9єї§ўTтєїќс9єї§ўTтєїќс9єї §ўTтєї ќс9єї §ўЇўU THISTEXT BORDERCOLORORIBBON LINESCOLORBOTON BACKCOLOR BACKCOLOR2FONTNAME CFONTNAMEDISABLEDBACKCOLOR BACKCOLOR1 Іќї§љў ™ќCті§ўЇўUTHISREDRAW‚Џїїїїў6%ќCћ"thisform.ActiveControl.parent.NamebћU§љ{ў%ќєєєїєї§љwўTєє ї ќ-§ўўўU NBUTTONNSHIFTNXCOORDNYCOORDTHISFORM ACTIVECONTROLPARENTNAMETHISBOTONVISIBLE'ЏїїїїўTєєїќa§ўUNBUTTONNSHIFTNXCOORDNYCOORDTHISBOTONVISIBLETєєїќa§ўUTHISBOTONVISIBLE*Tєєїќ-§ўTєїќєєї§ўUTHISBOTONVISIBLEVALUETEXTredraw,џџInitџџ MouseLeaveMџџ MouseEnter3џџGotFocus—џџ LostFocusХџџ1бaaaaA3бБA31aбAA2132a2ы& G&mŒЂТі )PАўђџ ——nG% > (ќUM Іќї§љFўTтїќс9єї§ўTтїќс9єї§ўTтїќс9єї§ўЇўUTHIS BORDERCOLORORIBBON LINESCOLORFONTNAME CFONTNAMEDISABLEDBACKCOLOR BACKCOLOR1 Іќї§љў ™ќCті§ўЇўUTHISREDRAWredraw,џџInitйџџ1б111A4бБA2ЎЩщ )—YPROCEDURE GotFocus if substr(pmregusu,3,1)="0" this.thisenabled(.F.) endif ENDPROC shapeZStretch = 2 Height = 17 Left = 0 Top = 0 Visible = .F. Width = 100 Name = "_fondo" titulo_fondoimageimagetituloshapeaДPROCEDURE freecursor local vtablabase,tabladata vtablabase = thisform.tablabase vtabladata =thisform.tabladata if used('&vtablabase') select(vtablabase) use endif if used('&vtabladata') select (vtabladata) use endif ENDPROC PROCEDURE proceso local vtabla,vnumpos,vexiste,vncol,ccolfalsa,coperaciones,csubtotal,ccabeza,cregistro,nreg,fcabeza,fregistro,s2,contador,nregistro,vvalor local vtitulo,vfilas,vapag,vanchop,temregistro,vpageno,vsubtotal,vnumfoot,vnumsum,vcambio,vnumhead,vhead thisform.panel.p2.vs.docname("PCONT-"+this.titulo) thisform.panel.p2.vs.device(thisform.printer) if thisform.linea="a" thisform.panel.p2.vs.penwidth(20) thisform.panel.p2.vs.tableborder(0) ELSE thisform.panel.p2.vs.tableborder(7) thisform.panel.p2.vs.penwidth(0) IF thisform.linea="b" thisform.panel.p2.vs.penstyle(0) ELSE thisform.panel.p2.vs.penstyle(2) ENDIF ENDIF thisform.panel.p2.vs.orientation(thisform.orientation) if thisform.papel = 0 thisform.panel.p2.vs.papersize(prtinfo(2)) else thisform.panel.p2.vs.papersize(thisform.papel) endif thisform.panel.p2.vs.loadfont(thisform.letra,thisform.tamano) thisform.panel.p2.vs.marginleft(thisform.mleft) thisform.panel.p2.vs.marginright(thisform.mright) thisform.panel.p2.vs.margintop(thisform.mtop) thisform.panel.p2.vs.marginbottom(thisform.mbottom) thisform.panel.p2.vs.marginheader(thisform.mheader) ******************************************* vfilas=int( (thisform.panel.p2.vs.pageheight(-1)-(thisform.panel.p2.vs.margintop(-1)+thisform.panel.p2.vs.marginbottom(-1))) /thisform.alto)-IIF(thisform.colnum=0,2,3)-1 vapag=thisform.panel.p2.vs.pagewidth(-1)-(thisform.panel.p2.vs.marginleft(-1)+thisform.panel.p2.vs.marginright(-1)) vtabla=thisform.tabladata vnumsum=0 fcabeza="" ccabeza="" ccolfalsa="" coperaciones="" csubtotal="" vpageno=thisform.pageno if thisform.digano=1 set century off endif dimension this.aoperaciones(2) dimension this.asubtotal(2) for contador= 1 to alen(this.forcolumna,1) if this.forcolumna(contador,5)=.T. IF this.forcolumna(contador,8) = "Suma" vnumsum=vnumsum+1 dimension this.aoperaciones(2,vnumsum) this.aoperaciones(1,vnumsum)=caracter(contador) if thisform.subtotal = 1 and !empty(thisform.orden) dimension this.asubtotal(2,vnumsum) this.asubtotal(1,vnumsum)=caracter(contador) thisform.numhead = 1 endif endif endif endfor if vnumsum = 0 vfilas=vfilas+1 endif FOR contador=1 TO ALEN(this.aoperaciones,2) this.aoperaciones(2,contador)= 0 endfor if thisform.subtotal = 1 and !empty(thisform.orden) and vnumsum > 0 for contador=1 TO ALEN(this.asubtotal,2) this.asubtotal(2,contador)= 0 endfor endif nreg=0 vnumpos=0 vanchop=0 temregistro="" for contador=1 to alen(this.forcolumna,1) if this.forcolumna(contador,5)=.T. vanchop=vanchop+this.forcolumna(contador,2)*((thisform.cellscale*15)-1)+(thisform.cellscale*20) IF vanchop < vapag nreg=nreg+1 ccabeza=ccabeza+this.forcolumna(contador,3)+IIF(EMPTY(alltrim(this.forcolumna(contador,4))),"",chr(13))+alltrim(this.forcolumna(contador,4))+chr(166) fcabeza=fcabeza+"+^~"+alltrim(str(this.forcolumna(contador,2)*((thisform.cellscale*15)-1)+(thisform.cellscale*20),5,0))+chr(166) do case case ALLTRIM(this.forcolumna(contador,9))="1" *fcabeza=fcabeza+"+>~"+alltrim(str(this.forcolumna(contador,2)*((thisform.cellscale*15)-1)+(thisform.cellscale*20),5,0))+chr(166) temregistro=temregistro+"+>~"+alltrim(str(this.forcolumna(contador,2)*((thisform.cellscale*15)-1)+(thisform.cellscale*20),5,0))+chr(166) case ALLTRIM(this.forcolumna(contador,9))="0" *fcabeza=fcabeza+"+<~"+alltrim(str(this.forcolumna(contador,2)*((thisform.cellscale*15)-1)+(thisform.cellscale*20),5,0))+chr(166) temregistro=temregistro+"+<~"+alltrim(str(this.forcolumna(contador,2)*((thisform.cellscale*15)-1)+(thisform.cellscale*20),5,0))+chr(166) case ALLTRIM(this.forcolumna(contador,9))="2" *fcabeza=fcabeza+"+^~"+alltrim(str(this.forcolumna(contador,2)*((thisform.cellscale*15)-1)+(thisform.cellscale*20),5,0))+chr(166) temregistro=temregistro+"+^~"+alltrim(str(this.forcolumna(contador,2)*((thisform.cellscale*15)-1)+(thisform.cellscale*20),5,0))+chr(166) ENDCASE ENDIF vexiste = 0 FOR vncol=1 TO thisform.colnum IF aschi(this.forcolumna(contador,1)) = this.forfalsa(vncol,1) IF nreg<>aschi(this.forcolumna(contador,1)) vexiste=this.forfalsa(vncol,1)-nreg this.forfalsa(vncol,1)=this.forfalsa(vncol,1)-vexiste this.forfalsa(vncol,2)=this.forfalsa(vncol,2)-vexiste ENDIF vexiste = vncol endif ENDFOR IF vexiste = 0 ccolfalsa=ccolfalsa+alltrim(this.forcolumna(contador,3))+IIF(alltrim(this.forcolumna(contador,4))="","",chr(13))+alltrim(this.forcolumna(contador,4))+chr(166) ELSE ccolfalsa=ccolfalsa+alltrim(this.forfalsa(vexiste,3))+chr(166) endif endif endfor nregistro=nreg fcabeza=substr(fcabeza,1,len(fcabeza)-1) ccabeza=substr(ccabeza,1,len(ccabeza)-1) ccolfalsa=substr(ccolfalsa,1,len(ccolfalsa)-1) vcambio=.T. s2="" nreg=0 vnumfoot = 1 vnumhead = 1 vtitulo=chr(13)+chr(13)+pcab11+" "+evalrep(pcab12)+CHR(13)+pcab21+" "+evalrep(pcab22)+"|"+chr(13)+chr(13)+chr(13)+chr(13)+chr(13)+alltrim(thisform.titulo)+chr(13)+alltrim(thisform.subtitulo)+"|"+chr(13)+chr(13)+pcab31+" "+evalrep(pcab32)+CHR(13)+pcab41+" "+evalrep(pcab42) thisform.panel.p2.vs.header(vtitulo) thisform.panel.p2.vs.footer("Pсgina : "+alltrim(str(vpageno,3,0))) select (vtabla) vcount = reccount() =AFIELDS(arraystru) go top thisform.panel.p2.vs.stardoc(thisform.printer) thisform.panel.p2.vs.addtable(fcabeza,s2,"","","",0) if thisform.subtotal = 1 and !empty(thisform.orden) and vnumsum > 0 vsubtotal = eval(vtabla+"."+thisform.orden) thisform.numfoot = 1 endif vpnreg = 0 do while !eof() principalv.obarra.bar._progressbar1.progress(vpnreg,vcount) do case case nreg=0 nreg=nreg+1 thisform.panel.p2.vs.startable IF thisform.colnum > 0 thisform.panel.p2.vs.addtable(fcabeza,s2,ccolfalsa,"","",1) FOR contador=1 to nregistro thisform.panel.p2.vs.tablecell(25,thisform.panel.p2.vs.tablecf(1),contador,1) thisform.panel.p2.vs.tablecell(7,thisform.panel.p2.vs.tablecf(1),contador,thisform.alto) vexiste = 0 FOR vncol=1 TO thisform.colnum IF contador = this.forfalsa(vncol,1) vexiste = vncol vnumpos = this.forfalsa(vexiste,2)-this.forfalsa(vexiste,1) endif ENDFOR IF vexiste = 0 IF vnumpos <> 0 vnumpos = vnumpos - 1 ELSE thisform.panel.p2.vs.tablecell(41,1,contador,2) ENDIF ELSE thisform.panel.p2.vs.tablecell(17,thisform.panel.p2.vs.tablecf(1),contador,this.forfalsa(vexiste,2)-this.forfalsa(vexiste,1)+1) endif ENDFOR ENDIF thisform.panel.p2.vs.addtable(fcabeza,s2,ccabeza,"","",1) for contador=1 to nregistro thisform.panel.p2.vs.tablecell(25,thisform.panel.p2.vs.tablecf(1),contador,1) thisform.panel.p2.vs.tablecell(7,thisform.panel.p2.vs.tablecf(1),contador,2*thisform.alto) endfor thisform.panel.p2.vs.endtable case nreg = vfilas IF ALEN(this.aoperaciones,2)<>0 thisform.panel.p2.vs.startable thisform.panel.p2.vs.addtable(fregistro,s2,coperaciones,"","",1) for contador=1 to nregistro thisform.panel.p2.vs.tablecell(25,thisform.panel.p2.vs.tablecf(1),contador,1) thisform.panel.p2.vs.tablecell(7,thisform.panel.p2.vs.tablecf(1),contador,thisform.alto) ENDFOR thisform.panel.p2.vs.endtable ENDIF thisform.panel.p2.vs.newpage vpageno=vpageno+1 thisform.panel.p2.vs.header(vtitulo) thisform.panel.p2.vs.footer("Pсgina : "+alltrim(str(vpageno,3,0))) nreg=0 other cregistro="" fregistro="" for contador=1 to nregistro do case case type(vtabla+'.'+this.forcolumna(contador,1))= "N" vvalor=vtabla+"."+this.forcolumna(contador,1) vvalor=&vvalor if thisform.cero=1 cregistro = cregistro+alltrim(fornum(vvalor,20,iif(this.forcolumna(contador,1)+"," $ thisform.coltc,3,pdigitos)))+chr(166) else cregistro = cregistro+alltrim(vacio(vvalor,20,iif(this.forcolumna(contador,1)+"," $ thisform.coltc,3,pdigitos)))+chr(166) endif fregistro=fregistro+"+>~"+alltrim(str(this.forcolumna(contador,2)*((thisform.cellscale*15)-1)+(thisform.cellscale*20),5,0))+chr(166) case type(vtabla+'.'+this.forcolumna(contador,1))= "D" *vvalor="alltrim(dtoc("+vtabla+"."+this.forcolumna(contador,1)+"))" vvalor = vtabla+"."+this.forcolumna(contador,1) if empty(&vvalor) or isnull(&vvalor) vvalor = "" else vvalor=alltrim(dtoc(&vvalor)) endif cregistro = cregistro+vvalor+chr(166) fregistro=fregistro+"+<~"+alltrim(str(this.forcolumna(contador,2)*((thisform.cellscale*15)-1)+(thisform.cellscale*20),5,0))+chr(166) case type(vtabla+'.'+this.forcolumna(contador,1))$ "C,M," vvalor="rtrim("+vtabla+"."+this.forcolumna(contador,1)+")" cregistro = cregistro+&vvalor+chr(166) fregistro=fregistro+"+<~"+alltrim(str(this.forcolumna(contador,2)*((thisform.cellscale*15)-1)+(thisform.cellscale*20),5,0))+chr(166) otherwise cregistro = cregistro+""+chr(166) fregistro=fregistro+"+<~"+alltrim(str(this.forcolumna(contador,2)*((thisform.cellscale*15)-1)+(thisform.cellscale*20),5,0))+chr(166) ENDCASE endfor if thisform.delimitador=.T. fregistro=temregistro endif cregistro=substr(cregistro,1,len(cregistro)-1) fregistro=substr(fregistro,1,len(fregistro)-1) *************************** *****SUBTOTAL *************************** if thisform.subtotal = 1 and !empty(thisform.orden) and vnumsum > 0 if vsubtotal <> eval(vtabla+"."+thisform.orden) *if !empty(vsubtotal) thisform.panel.p2.vs.startable if vnumfoot = 1 IF ALEN(this.asubtotal,2)<>0 thisform.panel.p2.vs.startable thisform.panel.p2.vs.addtable(fregistro,s2,csubtotal,"","",1) for contador=1 to nregistro thisform.panel.p2.vs.tablecell(25,thisform.panel.p2.vs.tablecf(1),contador,1) thisform.panel.p2.vs.tablecell(7,thisform.panel.p2.vs.tablecf(1),contador,thisform.alto) thisform.panel.p2.vs.tablecell(27,thisform.panel.p2.vs.tablecf(1),contador,1) endfor thisform.panel.p2.vs.endtable endif endif for contador=1 to nregistro thisform.panel.p2.vs.tablecell(7,thisform.panel.p2.vs.tablecf(1),contador,thisform.alto) endfor vnumfoot = vnumfoot + 1 thisform.panel.p2.vs.endtable nreg=nreg+1 *endif if vnumfoot = thisform.numfoot+1 for contador=1 to ALEN(this.asubtotal,2) this.asubtotal(2,contador)= 0 endfor vnumfoot = 1 vsubtotal = eval(vtabla+"."+thisform.orden) vcambio = .T. endif loop endif ************** ***cambio***** if vcambio=.T. if !eof() if vnumhead = 1 thisform.panel.p2.vs.startable vhead = eval(vtabla+"."+thisform.orden) do case case type('vhead') = 'N' vhead = str(vhead,20,pdigitos) case type('vhead') = 'D' vhead = dtoc(vhead) endcase thisform.panel.p2.vs.addtable(fregistro,s2,vhead+chr(166)+""+chr(166)+""+chr(166)+""+chr(166)+""+chr(166)+""+chr(166)+"","","",1) thisform.panel.p2.vs.tablecell(17,thisform.panel.p2.vs.tablecf(1),1,9) thisform.panel.p2.vs.tablecell(25,thisform.panel.p2.vs.tablecf(1),1,1) thisform.panel.p2.vs.tablecell(7,thisform.panel.p2.vs.tablecf(1),1,thisform.alto) thisform.panel.p2.vs.tablecell(27,thisform.panel.p2.vs.tablecf(1),1,1) thisform.panel.p2.vs.endtable endif nreg=nreg+1 vnumhead = vnumhead +1 if vnumhead = thisform.numhead +1 vcambio=.F. vnumhead = 1 endif loop else exit endif endif ***************************** if eof() exit endif endif *************************** thisform.panel.p2.vs.startable thisform.panel.p2.vs.addtable(fregistro,s2,cregistro,"","",1) for contador=1 to nregistro thisform.panel.p2.vs.tablecell(7,thisform.panel.p2.vs.tablecf(1),contador,thisform.alto) endfor thisform.panel.p2.vs.endtable coperaciones="" for contador=1 to nregistro do case case type(this.forcolumna(contador,1))= "N" vexiste=0 FOR vncol=1 TO ALEN(this.aoperaciones,2) IF aschi(this.aoperaciones(1,vncol))=contador vexiste = vncol ENDIF ENDFOR IF vexiste <> 0 vvalor=vtabla+"."+this.forcolumna(contador,1) this.aoperaciones(2,vexiste)=this.aoperaciones(2,vexiste)+&vvalor vvalor="alltrim(fornum(this.aoperaciones(2,"+alltrim(STR(vexiste,2,0))+"),20,pdigitos))" coperaciones = coperaciones+&vvalor+chr(166) ELSE coperaciones = coperaciones+""+chr(166) ENDIF case type(this.forcolumna(contador,1))= "D" coperaciones = coperaciones+""+chr(166) case type(this.forcolumna(contador,1))$ "C,M," coperaciones = coperaciones+""+chr(166) endcase endfor coperaciones=substr(coperaciones,1,len(coperaciones)-1) csubtotal="" for contador=1 to nregistro do case case type(this.forcolumna(contador,1))= "N" vexiste=0 FOR vncol=1 TO ALEN(this.asubtotal,2) IF aschi(this.asubtotal(1,vncol))=contador vexiste = vncol ENDIF ENDFOR IF vexiste <> 0 vvalor=vtabla+"."+this.forcolumna(contador,1) this.asubtotal(2,vexiste)=this.asubtotal(2,vexiste)+&vvalor vvalor="alltrim(fornum(this.asubtotal(2,"+alltrim(STR(vexiste,2,0))+"),20,pdigitos))" csubtotal = csubtotal+&vvalor+chr(166) ELSE csubtotal = csubtotal+""+chr(166) ENDIF case type(this.forcolumna(contador,1))= "D" csubtotal = csubtotal+""+chr(166) case type(this.forcolumna(contador,1))$ "C,M," csubtotal = csubtotal+""+chr(166) endcase endfor csubtotal=substr(csubtotal,1,len(csubtotal)-1) nreg=nreg+1 vpnreg = vpnreg + 1 skip if thisform.subtotal = 1 and !empty(thisform.orden) and eof() and vnumsum > 0 *if !empty(vsubtotal) thisform.panel.p2.vs.startable if vnumfoot = 1 IF ALEN(this.asubtotal,2)<>0 thisform.panel.p2.vs.startable thisform.panel.p2.vs.addtable(fregistro,s2,csubtotal,"","",1) for contador=1 to nregistro thisform.panel.p2.vs.tablecell(25,thisform.panel.p2.vs.tablecf(1),contador,1) thisform.panel.p2.vs.tablecell(7,thisform.panel.p2.vs.tablecf(1),contador,thisform.alto) thisform.panel.p2.vs.tablecell(27,thisform.panel.p2.vs.tablecf(1),contador,1) ENDFOR thisform.panel.p2.vs.endtable endif endif for contador=1 to nregistro thisform.panel.p2.vs.tablecell(7,thisform.panel.p2.vs.tablecf(1),contador,thisform.alto) endfor thisform.panel.p2.vs.endtable nreg=nreg+1 *endif endif endcase enddo IF ALEN(this.aoperaciones,2)<>0 thisform.panel.p2.vs.startable thisform.panel.p2.vs.addtable(fregistro,s2,coperaciones,"","",1) for contador=1 to nregistro thisform.panel.p2.vs.tablecell(25,thisform.panel.p2.vs.tablecf(1),contador,1) thisform.panel.p2.vs.tablecell(7,thisform.panel.p2.vs.tablecf(1),contador,thisform.alto) endfor thisform.panel.p2.vs.endtable ENDIF thisform.panel.p2.vs.enddoc IF thisform.linea="a" IF thisform.colnum<>0 nreg=nreg+1 vfilas= vfilas+1 ENDIF FOR contador=1 TO thisform.panel.p2.vs.pagecount() thisform.panel.p2.vs.startoverlay(contador) thisform.panel.p2.vs.drawline(thisform.panel.p2.vs.marginleft(-1),thisform.panel.p2.vs.margintop(-1),thisform.panel.p2.vs.pagewidth(-1)-thisform.panel.p2.vs.marginright(-1),thisform.panel.p2.vs.margintop(-1)) thisform.panel.p2.vs.drawline(thisform.panel.p2.vs.marginleft(-1),thisform.panel.p2.vs.margintop(-1)+IIF(thisform.colnum<>0,3*thisform.alto,2*thisform.alto),thisform.panel.p2.vs.pagewidth(-1)-thisform.panel.p2.vs.marginright(-1),thisform.panel.p2.vs.margintop(-1)+IIF(thisform.colnum<>0,3*thisform.alto,2*thisform.alto)) IF contador = thisform.panel.p2.vs.pagecount() thisform.panel.p2.vs.drawline(thisform.panel.p2.vs.marginleft(-1),thisform.panel.p2.vs.margintop(-1)+((nreg+1)*thisform.alto),thisform.panel.p2.vs.pagewidth(-1)-thisform.panel.p2.vs.marginright(-1),thisform.panel.p2.vs.margintop(-1)+((nreg+1)*thisform.alto)) ELSE thisform.panel.p2.vs.drawline(thisform.panel.p2.vs.marginleft(-1),thisform.panel.p2.vs.margintop(-1)+((vfilas+1)*thisform.alto),thisform.panel.p2.vs.pagewidth(-1)-thisform.panel.p2.vs.marginright(-1),thisform.panel.p2.vs.margintop(-1)+((vfilas+1)*thisform.alto)) ENDIF thisform.panel.p2.vs.endoverlay ENDFOR ENDIF thisform.npage=thisform.panel.p2.vs.pagecount() thisform.panel.p2.p.t1.caption=alltrim(str(1)) thisform.panel.p2.p.t2.caption=alltrim(str(thisform.npage)) if thisform.digano=1 set century on endif RELEASE arraystru ENDPROC PROCEDURE captura local vcon,vdata dimension this.forcolumna(alen(this.datcampos),9) for vcon=1 to alen(this.datcampos) vdata=this.datcampos(vcon) this.forcolumna(vcon,1)=substr(vdata,at(",",vdata,1)+1,at(",",vdata,2)-at(",",vdata,1)-1) &&COLUMNA this.forcolumna(vcon,2)=val(substr(vdata,at(",",vdata,2)+1,at(",",vdata,3)-at(",",vdata,2)-1)) && ANCHO this.forcolumna(vcon,3)=substr(vdata,at(",",vdata,3)+1,at(",",vdata,4)-at(",",vdata,3)-1) &&NOMBRE1 this.forcolumna(vcon,4)=substr(vdata,at(",",vdata,4)+1,at(",",vdata,5)-at(",",vdata,4)-1) &&NOMBRE2 this.forcolumna(vcon,5)=iif(substr(vdata,at(",",vdata,5)+1,at(",",vdata,6)-at(",",vdata,5)-1)=".T.",.T.,.F.) &&VER this.forcolumna(vcon,6)=substr(vdata,at(",",vdata,6)+1,at(",",vdata,7)-at(",",vdata,6)-1) &&ORDEN this.forcolumna(vcon,7)=iif(substr(vdata,at(",",vdata,7)+1,at(",",vdata,8)-at(",",vdata,7)-1)=".T.",.T.,.F.) &&AGRUPAR this.forcolumna(vcon,8)=substr(vdata,at(",",vdata,8)+1,at(",",vdata,9)-at(",",vdata,8)-1) &&TOTALES this.forcolumna(vcon,9)=substr(vdata,at(",",vdata,9)+1,at(",",vdata,10)-at(",",vdata,9)-1) &&ORIENTACION endfor ENDPROC PROCEDURE showd local aMObj,vnamewin vnamewin=this.namewin thisform.ScaleMode= 0 DEFINE POPUP shortcut SHORTCUT FROM thisform.panel.p2.p.bot10.top+thisform.panel.p2.p.bot10.height,thisform.panel.p2.p.bot10.left RELATIVE DEFINE BAR 1 OF shortcut PROMPT "Normal " PICTURE "vcx\images\v1.bmp" DEFINE BAR 2 OF shortcut PROMPT "Dos pсginas " PICTURE "vcx\images\v2.bmp" DEFINE BAR 3 OF shortcut PROMPT "Todas las Pсginas" PICTURE "vcx\images\v3.bmp" DEFINE BAR 4 OF shortcut PROMPT "Toda la ventana " PICTURE "vcx\images\v4.bmp" DEFINE BAR 5 OF shortcut PROMPT "Zoom porcentual " PICTURE "vcx\images\v5.bmp" ON SELECTION BAR 1 OF shortcut &vnamewin..UpdateItem(BAR()) ON SELECTION BAR 2 OF shortcut &vnamewin..UpdateItem(BAR()) ON SELECTION BAR 3 OF shortcut &vnamewin..UpdateItem(BAR()) ON SELECTION BAR 4 OF shortcut &vnamewin..UpdateItem(BAR()) ON SELECTION BAR 5 OF shortcut &vnamewin..UpdateItem(BAR()) ACTIVATE POPUP shortcut DIMENSION aMObj[1] AMOUSEOBJ(aMObj) IF TYPE("aMObj[1].Name")="C" AND UPPER(aMObj[1].Name)="COMMAND2" AND UPPER(aMObj[2].Name)="TBAR1" ELSE THIS.lPopupset = .F. ENDIF thisform.ScaleMode= 3 ENDPROC PROCEDURE showe LOCAL aMObj,vnamewin vnamewin=thisform.namewin thisform.ScaleMode= 0 DEFINE POPUP shortcut SHORTCUT FROM thisform.panel.p2.p.bot11.top+thisform.panel.p2.p.bot11.height,thisform.panel.p2.p.bot11.left RELATIVE DEFINE BAR 1 OF shortcut PROMPT " 50%" DEFINE BAR 2 OF shortcut PROMPT " 75%" DEFINE BAR 3 OF shortcut PROMPT "100%" DEFINE BAR 4 OF shortcut PROMPT "150%" ON SELECTION BAR 1 OF shortcut &vnamewin..UpdateItem1(BAR()) ON SELECTION BAR 2 OF shortcut &vnamewin..UpdateItem1(BAR()) ON SELECTION BAR 3 OF shortcut &vnamewin..UpdateItem1(BAR()) ON SELECTION BAR 4 OF shortcut &vnamewin..UpdateItem1(BAR()) ACTIVATE POPUP shortcut DIMENSION aMObj[1] AMOUSEOBJ(aMObj) IF TYPE("aMObj[1].Name")="C" AND UPPER(aMObj[1].Name)="COMMAND2" AND UPPER(aMObj[2].Name)="TBAR1" ELSE THIS.lPopupset = .F. ENDIF thisform.ScaleMode= 3 ENDPROC PROCEDURE updateitem LPARAMETERS nBarNum DO CASE CASE nBarNum = 1 THIS.panel.p2.p.bot9.image1.Picture = "vcx\images\v1.bmp" THIS.panel.p2.p.bot9.ToolTipText = "Normal" thisform.panel.p2.vs.zoommode(0) thisform.panel.p2.vs.zoommax(120) thisform.panel.p2.vs.zoommin(30) thisform.panel.p2.vs.zoom(30) this.panel.p2.p.text1.Visible = .F. this.panel.p2.p.bot11.Visible = .F. CASE nBarNum = 2 THIS.panel.p2.p.bot9.image1.Picture = "vcx\images\v2.bmp" THIS.panel.p2.p.bot9.ToolTipText = "Dos pсginas" thisform.panel.p2.vs.zoommode(2) this.panel.p2.p.text1.Visible = .F. this.panel.p2.p.bot11.Visible = .F. CASE nBarNum = 3 THIS.panel.p2.p.bot9.image1.Picture = "vcx\images\v3.bmp" THIS.panel.p2.p.bot9.ToolTipText = "Todas las pсginas" thisform.panel.p2.vs.zoommode(1) this.panel.p2.p.text1.Visible = .F. this.panel.p2.p.bot11.Visible = .F. CASE nBarNum = 4 THIS.panel.p2.p.bot9.image1.Picture = "vcx\images\v4.bmp" THIS.panel.p2.p.bot9.ToolTipText = "Toda la ventana" thisform.panel.p2.vs.zoommode(4) this.panel.p2.p.text1.Visible = .F. this.panel.p2.p.bot11.Visible = .F. CASE nBarNum = 5 THIS.panel.p2.p.bot9.image1.Picture = "vcx\images\v5.bmp" THIS.panel.p2.p.bot9.ToolTipText = "Zoom porcentual" THIS.panel.p2.p.text1.value = "50%" thisform.panel.p2.vs.zoommode(0) thisform.panel.p2.vs.zoom(50) thisform.panel.p2.vs.zoommax(50) thisform.panel.p2.vs.zoommin(50) this.panel.p2.p.text1.Visible = .T. this.panel.p2.p.bot11.Visible = .T. ENDCASE ACTIVATE SCREEN ENDPROC PROCEDURE updateitem1 LPARAMETERS nBarNum DO CASE CASE nBarNum = 1 THIS.panel.p2.p.text1.value = "50%" thisform.panel.p2.vs.zoommax(50) thisform.panel.p2.vs.zoommin(50) thisform.panel.p2.vs.zoom(50) CASE nBarNum = 2 THIS.panel.p2.p.text1.value = "75%" thisform.panel.p2.vs.zoommax(75) thisform.panel.p2.vs.zoommin(75) thisform.panel.p2.vs.zoom(75) CASE nBarNum = 3 THIS.panel.p2.p.text1.value = "100%" thisform.panel.p2.vs.zoommax(100) thisform.panel.p2.vs.zoommin(100) thisform.panel.p2.vs.zoom(100) CASE nBarNum = 4 THIS.panel.p2.p.text1.value = "150%" thisform.panel.p2.vs.zoommax(150) thisform.panel.p2.vs.zoommin(150) thisform.panel.p2.vs.zoom(150) ENDCASE ACTIVATE SCREEN ENDPROC PROCEDURE cargarcol parameters pmnumcol local vvalor1,vvalor2,vvalor3,vcontador,vnumfil for vcontador=1 to 6 vvalor1="c"+str(vcontador,1,0)+"1" thisform.panel.p4.&vvalor1..clear vvalor2="c"+str(vcontador,1,0)+"2" thisform.panel.p4.&vvalor2..clear endfor thisform.panel.p4.cob2.clear for vcontador=1 to 6 vvalor1="c"+str(vcontador,1,0)+"1" thisform.panel.p4.&vvalor1..addlistitem(" ") vvalor2="c"+str(vcontador,1,0)+"2" thisform.panel.p4.&vvalor2..addlistitem(" ") vvalor3="campo"+str(vcontador,1,0) thisform.panel.p4.&vvalor3..value="" for vnumfil=1 to pmnumcol thisform.panel.p4.&vvalor1..addlistitem(str(vnumfil,2,0)) thisform.panel.p4.&vvalor2..addlistitem(str(vnumfil,2,0)) endfor endfor for vnumfil=1 to pmnumcol thisform.panel.p4.cob2.addlistitem(str(vnumfil,2,0)) endfor for vcontador=1 to 6 thisform.forfalsa(vcontador,1)=0 thisform.forfalsa(vcontador,2)=0 thisform.forfalsa(vcontador,3)="" endfor thisform.numreg = pmnumcol ENDPROC PROCEDURE Resize this.Top = principalv.ribbon1.line7.top + 1 this.left = 1 this.width = principalv.width - 2 this.Height = principalv.Height - principalv.ribbon1.line7.top - 26 THIS.Resizable1.AdjustControls ENDPROC PROCEDURE Init local nwindow nwindow = principalv.obarra.itemcount + 1 pnumwin = pnumwin + 1 this.numwxp = alltrim(str(nwindow,10,0)) nwindow = chr(64+nwindow) principalv.obarra.addmenuitem (this.tag,pnumwin) principalv.obarra.refresh ENDPROC PROCEDURE Destroy local vnumwin vnumwin = this.numwxp pnumwin = pnumwin - 1 principalv.obarra.hidemenuitem(val(vnumwin)) vnumwin = "win"+vnumwin release (vnumwin) release pcodfor ENDPROC PROCEDURE Activate local vnum,vbot ptemform=thisform.namewin this.Resize this.resizable1.adjustcontrols ENDPROC PROCEDURE Load public pcodfor this.namewin=pnomform thisform.dat=fcreateconect(pdata) if thisform.dat = 0 return to master thisform.release endif thisform.printer=pprinter thisform.panel.p2.vs.loadspace(110) ENDPROC Tag = "CTRL+END" Top = 4 Left = 273 Width = 28 TabIndex = 10 TabStop = .F. ToolTipText = "CTRL+Fin (Ultimo Reg)" border = .F. lcurvature = .F. disabledpicture = c:\newproyect\pcont\vcx\images\ultimod.bmp Name = "bot10" Image1.Picture = images\ultimo.bmp Image1.Height = 16 Image1.Width = 16 Image1.Name = "Image1" xShape2.Name = "xShape2" Shape1.Name = "Shape1" Command1.Name = "Command1" Image2.Name = "Image2" Ribbonlabel1.Name = "Ribbonlabel1" Ribbonlabel2.Name = "Ribbonlabel2" Marlett.Name = "Marlett" Tag = "CTRL+PGDN" Top = 4 Left = 244 Width = 28 TabIndex = 9 TabStop = .F. ToolTipText = "CTRL+AvPag (Reg Siguiente)" border = .F. lcurvature = .F. disabledpicture = c:\newproyect\pcont\vcx\images\siguiented.bmp Name = "bot9" Image1.Picture = images\siguiente.bmp Image1.Height = 16 Image1.Width = 16 Image1.Name = "Image1" xShape2.Name = "xShape2" Shape1.Name = "Shape1" Command1.Name = "Command1" Image2.Name = "Image2" Ribbonlabel1.Name = "Ribbonlabel1" Ribbonlabel2.Name = "Ribbonlabel2" Marlett.Name = "Marlett" Tag = "CTRL+PGUP" Top = 4 Left = 215 Width = 28 TabIndex = 8 TabStop = .F. ToolTipText = "CTRL+RePag (Reg anterior)" border = .F. lcurvature = .F. disabledpicture = c:\newproyect\pcont\vcx\images\anteriord.bmp Name = "bot8" Image1.Picture = images\anterior.bmp Image1.Height = 16 Image1.Width = 16 Image1.Name = "Image1" xShape2.Name = "xShape2" Shape1.Name = "Shape1" Command1.Name = "Command1" Image2.Name = "Image2" Ribbonlabel1.Name = "Ribbonlabel1" Ribbonlabel2.Name = "Ribbonlabel2" Marlett.Name = "Marlett" Tag = "CTRL+HOME" Top = 4 Left = 186 Width = 28 TabIndex = 7 TabStop = .F. ToolTipText = "CTRL+RePag (Primer Reg)" border = .F. lcurvature = .F. disabledpicture = c:\newproyect\pcont\vcx\images\primerod.bmp Name = "bot7" Image1.Picture = images\primero.bmp Image1.Height = 16 Image1.Width = 16 Image1.Name = "Image1" xShape2.Name = "xShape2" Shape1.Name = "Shape1" Command1.Name = "Command1" Image2.Name = "Image2" Ribbonlabel1.Name = "Ribbonlabel1" Ribbonlabel2.Name = "Ribbonlabel2" Marlett.Name = "Marlett" Tag = "CTRL+F" Top = 4 Left = 153 Width = 28 TabIndex = 6 TabStop = .F. ToolTipText = "CTRL+F (Buscar)" border = .F. lcurvature = .F. disabledpicture = c:\newproyect\pcont\vcx\images\buscard.bmp Name = "bot6" Image1.Picture = images\buscar.bmp Image1.Height = 15 Image1.Width = 15 Image1.Name = "Image1" xShape2.Name = "xShape2" Shape1.Name = "Shape1" Command1.Name = "Command1" Image2.Name = "Image2" Ribbonlabel1.Name = "Ribbonlabel1" Ribbonlabel2.Name = "Ribbonlabel2" Marlett.Name = "Marlett" formman.menubar container foxribbon.vcxribboncommandbuttonTag = "CTRL+B" Top = 4 Left = 120 Width = 28 TabIndex = 5 TabStop = .F. ToolTipText = "CTRL+B (Borrar)" border = .F. lcurvature = .F. disabledpicture = c:\newproyect\pcont\vcx\images\borrard.bmp Name = "bot5" Image1.Picture = images\borrar.bmp Image1.Height = 16 Image1.Width = 16 Image1.Name = "Image1" xShape2.Name = "xShape2" Shape1.Name = "Shape1" Command1.Name = "Command1" Image2.Name = "Image2" Ribbonlabel1.Name = "Ribbonlabel1" Ribbonlabel2.Name = "Ribbonlabel2" Marlett.Name = "Marlett" formman.menubarbot5 container foxribbon.vcxribboncommandbuttonTag = "CTRL+D" Top = 4 Left = 91 Width = 28 Enabled = .F. TabIndex = 4 TabStop = .F. ToolTipText = "CTRL+D (Deshacer)" border = .F. lcurvature = .F. disabledpicture = c:\newproyect\pcont\vcx\images\deshacerd.bmp Name = "bot4" Image1.Picture = images\deshacer.bmp Image1.Height = 15 Image1.Width = 15 Image1.Name = "Image1" xShape2.Name = "xShape2" Shape1.Name = "Shape1" Command1.Name = "Command1" Image2.Name = "Image2" Ribbonlabel1.Name = "Ribbonlabel1" Ribbonlabel2.Name = "Ribbonlabel2" Marlett.Name = "Marlett" formman.menubarbot4 container foxribbon.vcxribboncommandbutton1Tag = "CTRL+G" Top = 4 Left = 62 Width = 28 Picture = ..\..\..\prueba\ Enabled = .F. TabIndex = 3 TabStop = .F. ToolTipText = "CTRL+G (Grabar)" border = .F. lcurvature = .F. disabledpicture = c:\newproyect\pcont\vcx\images\grabard.bmp Name = "bot3" Image1.Picture = images\grabar.bmp Image1.Height = 16 Image1.Width = 16 Image1.Name = "Image1" xShape2.Name = "xShape2" Shape1.Name = "Shape1" Command1.Name = "Command1" Image2.Name = "Image2" Ribbonlabel1.Name = "Ribbonlabel1" Ribbonlabel2.Name = "Ribbonlabel2" Marlett.Name = "Marlett" formman.menubarbot3 container foxribbon.vcxribboncommandbuttonTag = "CTRL+M" Top = 4 Left = 33 Width = 28 TabIndex = 2 TabStop = .F. ToolTipText = "CTRL+M (Modificar)" border = .F. lcurvature = .F. disabledpicture = c:\newproyect\pcont\vcx\images\modificard.bmp Name = "bot2" Image1.Picture = images\modificar.bmp Image1.Height = 16 Image1.Width = 16 Image1.Name = "Image1" xShape2.Name = "xShape2" Shape1.Name = "Shape1" Command1.Name = "Command1" Image2.Name = "Image2" Ribbonlabel1.Name = "Ribbonlabel1" Ribbonlabel2.Name = "Ribbonlabel2" Marlett.Name = "Marlett" formman.menubarbot2 container foxribbon.vcxribboncommandbuttonTag = "CTRL+N" Top = 4 Left = 4 Width = 28 TabIndex = 1 TabStop = .F. ToolTipText = "CTRL+N (Nuevo)" border = .F. lcurvature = .F. disabledpicture = c:\newproyect\pcont\vcx\images\nuevoD.bmp Name = "bot1" Image1.Picture = images\nuevo.bmp Image1.Height = 16 Image1.Width = 16 Image1.Name = "Image1" xShape2.Name = "xShape2" Shape1.Name = "Shape1" Command1.Name = "Command1" Image2.Name = "Image2" Ribbonlabel1.Name = "Ribbonlabel1" Ribbonlabel2.Name = "Ribbonlabel2" Marlett.Name = "Marlett" formman.menubarbot1 container foxribbon.vcxribboncommandbuttonоTop = 0 Left = 0 Width = 804 Height = 36 showbackimage = .F. showbottomline = .T. showtopline = .T. movable = .T. Name = "menubar" topline.Name = "topline" bottomline.Name = "bottomline" Image1.Name = "Image1" formmanmenubar container foxribbon.vcx_menubar*Top = 60 Left = 12 Name = "Resizable1" formman Resizable1custom classprin.vcx resizableЛnumwxp dat namewin numcob numcon numind accion tabtem1 tabtem2 tabtem3 *cargar *activacontrol *borrar *desactivacontrol *espera *limpiacontrol *modificar *nuevo iўђџ PPžc%ЗќUl Іќї§љeўTтєїќс9єї§ўTтєїќс9єї§ўTтєїќс9єї §ўTтєї ќс9єї §ўЇўU THISTEXT BORDERCOLORORIBBON LINESCOLORBOTON BACKCOLOR BACKCOLOR2FONTNAME CFONTNAMEDISABLEDBACKCOLOR BACKCOLOR1 Іќї§љў ™ќCті§ўЇўUTHISREDRAW‚Џїїїїў6%ќCћ"thisform.ActiveControl.parent.NamebћU§љ{ў%ќєєєїєї§љwўTєє ї ќ-§ўўўU NBUTTONNSHIFTNXCOORDNYCOORDTHISFORM ACTIVECONTROLPARENTNAMETHISBOTONVISIBLE'ЏїїїїўTєєїќa§ўUNBUTTONNSHIFTNXCOORDNYCOORDTHISBOTONVISIBLETєєїќa§ўUTHISBOTONVISIBLE*Tєєїќ-§ўTєїќєєї§ўUTHISBOTONVISIBLEVALUETEXTredraw,џџInitџџ MouseLeaveMџџ MouseEnter3џџGotFocus—џџ LostFocusХџџ1бaaaaA3бБA31aбAA2132a2ы& G&mŒЂТі )Pўђџ „„†Z%ћ+ ќUM Іќї§љFўTтїќс9єї§ўTтїќс9єї§ўTтїќс9єї§ўЇўUTHIS BORDERCOLORORIBBON LINESCOLORFONTNAME CFONTNAMEDISABLEDBACKCOLOR BACKCOLOR1 ™ќCєі§ўUTHISREDRAWredraw,џџInitйџџ1б111A4б1ЎЩж )„ўђџ ƒ%Qœ~ќUM Іќї§љFўTтїќс9єї§ўTтїќс9єї§ўTтїќс9єї§ўЇўUTHIS BORDERCOLORORIBBON LINESCOLORFONTNAME CFONTNAMEDISABLEDBACKCOLOR BACKCOLOR1C5%ќй CCC|Z›й й 19 4 24 5 127 №CЦ- §љ<ўBќ-§ўўU Іќї§љў ™ќCті§ўЇўUTHISREDRAWredraw,џџValidйџџInit џџ1б111A4QqA2бБA2ЎЪ" =])ƒўђџ jj%! ќUЄ%ќєєєїј§љWўTєєєїќј§ў'Tєєєїќйvcx\images\in.bmp§ўљўTєєєїќј§ў(Tєєєїќйvcx\images\out.bmp§ўўUTHISPARENTCHECKVALUEFONDOPICTUREClick,џџ1ЁaqaA1г)j…ўђџ llЋ‹%ЂйќU%ќєїј§љ„ў%ќєєїa§љPў'Tєєєїќйvcx\images\in.bmp§ўљ€ў(Tєєєїќйvcx\images\ine.bmp§ўўљўў%ќєєїa§љЩў(Tєєєїќйvcx\images\out.bmp§ўљњў)Tєєєїќйvcx\images\oute.bmp§ўўўUTHISVALUEPARENTENABLEDFONDOPICTURE %ќєїј§љˆў%ќєєїa§љRў)Tєєєїќйvcx\graficos\in.bmp§ўљ„ў*Tєєєїќйvcx\graficos\ine.bmp§ўўљў%ќєєїa§љЯў*Tєєєїќйvcx\graficos\out.bmp§ўљў+Tєєєїќйvcx\graficos\oute.bmp§ўўўUTHISVALUEPARENTENABLEDFONDOPICTUREInteractiveChange,џџProgrammaticChangecџџ1AQqAQ‘AA2AQ‘ЁAQЁБAA1Y‚Ч)lўђџ јјbЦ%$WќU' Іќї§љ ўTтїќс9єї§ўЇўUTHIS BORDERCOLORORIBBON LINESCOLOR;4їў %ќї§љŸўTєїќa§ўTєєїќa§ў%ќєєїј§љnў$Tєєїќйvcx\images\in.bmp§ўљ›ў%Tєєїќйvcx\images\out.bmp§ўўљ4ўTєїќ-§ўTєєїќ-§ў%ќєєїј§љў%Tєєїќйvcx\images\ine.bmp§ўљ0ў&Tєєїќйvcx\images\oute.bmp§ўўўUVVALORTHISENABLEDFONDOCHECKVALUEPICTURE Іќї§љў ™ќCті§ўЇўUTHISREDRAWredraw,џџ thisenabledџџInitѓџџ1б1A3qбсqAQAсqQaAB2бБA2Rtџ:)ј)ўђџ кЦ%_З{ќUж ЎїїўTїќєї§ўTїќєї§ўTїќс9ї§ў Іќї§љЯўTѕ їќCтїљьџі§ў#Tѕ їќCCѕ їј €ъЊCщ ъЋъЉ§ў%Tѕ ї ќCїћ4RSъПCїћ4RSъП§ў™ќCїї і §ў TїќCCѕ ї јј\ћ4RSъР§ў TїќCCѕ ї јј\ћ4RSъР§ў%ќїтї Cјъ%§љ-ўTїќCјъ%тї ј§ўў%ќїтї Cјъ%§љ^ўTїќїтї §ўў5™ќCтїCтїјтїјтї тї тїтїіјі §ўTѕ їќCтїљцџі§ў ™ќCтїљцџCѕ їщ ъЊі§ўЇўUTNLEFTTNTOPTHISLEFTTOPTNHWNDHWNDLSTYLEGETWINDOWLONGALQPTCLIENTTOSCREENWIDTHHEIGHT SETWINDOWRGNCREATEROUNDRECTRGN NCURVATURELNSTYLE GETCLASSLONG SETCLASSLONGPTєїќї§ўTєїќCїі§ў%ќєїј§љIўB(Мў ™єїўўUTHISNAMEWINPNOMFORMTHISFORMDAT FCREATECONECTPDATARELEASEInit,џџLoadФџџ1Бёб1T!В‘AВ!AR‚E2QAaЁA1ŸК4*)1Height = 500 Width = 750 ShowWindow = 1 DoCreate = .T. AutoCenter = .T. BorderStyle = 1 Caption = "Vista preliminar" MaxButton = .F. MinButton = .F. AlwaysOnTop = .T. dat = .F. namewin = .F. ncurvature = 0 tabtem1 = .F. tabtem2 = .F. datg = .F. tabtem3 = .F. pok = .F. Name = "formrep"  containerformbase.menubarribboncommandbuttonaPROCEDURE activacontrol local vnum,vcontrol for vnum=1 to thisform.numcon vcontrol="thisform.con"+alltrim(str(vnum,2,0))+".tag='H'" if &vcontrol vcontrol="thisform.con"+alltrim(str(vnum,2,0))+".enabled=.T." &vcontrol vcontrol="thisform.con"+alltrim(str(vnum,2,0))+".check.value=1" if &vcontrol vcontrol="thisform.con"+alltrim(str(vnum,2,0))+".picture='graficos\in.bmp'" &vcontrol else vcontrol="thisform.con"+alltrim(str(vnum,2,0))+".picture='graficos\out.bmp'" &vcontrol endif else vcontrol="thisform.con"+alltrim(str(vnum,2,0))+".enabled=.T." &vcontrol endif endfor for vnum=1 to thisform.numcob vcontrol="thisform.cob"+alltrim(str(vnum,2,0))+".enabled=.T." &vcontrol vcontrol="thisform.cob"+alltrim(str(vnum,2,0))+".text.enabled=.T." &vcontrol endfor if thisform.accion="N" for vnum=1 to thisform.numind vcontrol="thisform.ind"+alltrim(str(vnum,2,0))+".enabled=.T." &vcontrol endfor endif thisform.menubar.bot1.thisenabled(.F.) on key label ctrl+n thisform.menubar.bot2.thisenabled(.F.) on key label ctrl+m thisform.menubar.bot3.thisenabled(.T.) on key label ctrl+g &ptemform..menubar.bot3.click thisform.menubar.bot4.thisenabled(.T.) on key label ctrl+d &ptemform..menubar.bot4.click thisform.menubar.bot5.thisenabled(.F.) on key label ctrl+b thisform.menubar.bot6.thisenabled(.F.) on key label ctrl+f thisform.menubar.bot7.thisenabled(.F.) on key label ctrl+home thisform.menubar.bot8.thisenabled(.F.) on key label ctrl+pgup thisform.menubar.bot9.thisenabled(.F.) on key label ctrl+pgdn thisform.menubar.bot10.thisenabled(.F.) on key label ctrl+end ENDPROC PROCEDURE desactivacontrol local vnum,vcontrol for vnum=1 to thisform.numcon vcontrol="thisform.con"+alltrim(str(vnum,2,0))+".enabled=.F." &vcontrol endfor for vnum=1 to thisform.numcob vcontrol="thisform.cob"+alltrim(str(vnum,2,0))+".enabled=.F." &vcontrol vcontrol="thisform.cob"+alltrim(str(vnum,2,0))+".text.enabled=.F." &vcontrol endfor if thisform.accion="N" for vnum=1 to thisform.numind vcontrol="thisform.ind"+alltrim(str(vnum,2,0))+".enabled=.F." &vcontrol endfor endif ptemform=thisform.namewin thisform.menubar.bot1.thisenabled(.T.) on key label ctrl+n &ptemform..menubar.bot1.click thisform.menubar.bot2.thisenabled(.T.) on key label ctrl+m &ptemform..menubar.bot2.click thisform.menubar.bot3.thisenabled(.F.) on key label ctrl+g thisform.menubar.bot4.thisenabled(.F.) on key label ctrl+d thisform.menubar.bot5.thisenabled(.T.) on key label ctrl+b &ptemform..menubar.bot5.click thisform.menubar.bot6.thisenabled(.T.) on key label ctrl+f &ptemform..menubar.bot6.click thisform.menubar.bot7.thisenabled(.T.) on key label ctrl+home &ptemform..menubar.bot7.click thisform.menubar.bot8.thisenabled(.T.) on key label ctrl+pgup &ptemform..menubar.bot8.click thisform.menubar.bot9.thisenabled(.T.) on key label ctrl+pgdn &ptemform..menubar.bot9.click thisform.menubar.bot10.thisenabled(.T.) on key label ctrl+end &ptemform..menubar.bot10.click ENDPROC PROCEDURE limpiacontrol local vnum,vcontrolh for vnum=1 to thisform.numcon vcontrol="thisform.con"+alltrim(str(vnum,2,0))+".tag" do case case &vcontrol = 'C' vcontrol="thisform.con"+alltrim(str(vnum,2,0))+".value=''" &vcontrol case &vcontrol = 'N' vcontrol="thisform.con"+alltrim(str(vnum,2,0))+".value=0" &vcontrol case &vcontrol = 'D' vcontrol="thisform.con"+alltrim(str(vnum,2,0))+".value=ctod('')" &vcontrol endcase endfor for vnum=1 to thisform.numcob vcontrol="thisform.cob"+alltrim(str(vnum,2,0))+".tag" do case case &vcontrol = 'C' vcontrol="thisform.cob"+alltrim(str(vnum,2,0))+".value=''" &vcontrol vcontrol="thisform.cob"+alltrim(str(vnum,2,0))+".text.value=''" &vcontrol case &vcontrol = 'N' vcontrol="thisform.cob"+alltrim(str(vnum,2,0))+".text.value=0" &vcontrol endcase endfor *if thisform.accion="N" or thisform.accion="B" for vnum=1 to thisform.numind vcontrol="thisform.ind"+alltrim(str(vnum,2,0))+".value=''" &vcontrol endfor *endif ENDPROC PROCEDURE Resize this.Top = principalm.ribbon1.line7.top + 1 this.left = 1 this.width = principalm.width - 2 this.Height = principalm.Height - principalm.ribbon1.line7.top - 26 THIS.Resizable1.AdjustControls ENDPROC PROCEDURE Init local nwindow nwindow = principalm.obarra.itemcount + 1 pnumwin = pnumwin + 1 this.numwxp = alltrim(str(nwindow,10,0)) nwindow = chr(64+nwindow) principalm.obarra.addmenuitem (this.tag,pnumwin) principalm.obarra.refresh ENDPROC PROCEDURE Destroy local vnumwin if thisform.dat > 0 =sqldisconnect(thisform.dat) endif vnumwin = this.numwxp pnumwin = pnumwin - 1 principalm.obarra.hidemenuitem(val(vnumwin)) vnumwin = "win"+vnumwin release (vnumwin) ENDPROC PROCEDURE Activate local vnum,vbot ptemform=thisform.namewin for vnum=1 to 10 vbot=alltrim(str(vnum,2,0)) vtag=this.menubar.bot&vbot..tag if thisform.menubar.bot&vbot..enabled=.T. on key label &vtag &ptemform..menubar.bot&vbot..click else on key label &vtag endif endfor this.Resize this.resizable1.adjustcontrols ENDPROC PROCEDURE Load this.namewin=pnomform thisform.dat=fcreateconect(pdata) if thisform.dat = 0 return to master thisform.release endif thisform.tabtem1 = getname() thisform.tabtem2 = getname() thisform.tabtem3 = getname() ENDPROC •Top = 149 Left = 0 Height = 384 Width = 641 ShowWindow = 1 DoCreate = .T. ShowTips = .T. BorderStyle = 0 Caption = "" ControlBox = .F. Closable = .F. MaxButton = .F. MinButton = .F. Movable = .F. AlwaysOnBottom = .T. BackColor = 255,255,255 numwxp = 0 dat = 0 namewin = '' numcob = 0 numcon = 0 numind = 0 accion = .F. tabtem1 = .F. tabtem2 = .F. tabtem3 = .F. Name = "formman" formLЮўђџ ЕLЕLьш %FЌK[іFќUŽ ЎїїўTїќєї§ўTїќєї§ўif used('&vtablabase')љWў Fќї§ўQўўif used('&vtabladata')љ‡ў Fќї§ўQўўU VTABLABASE TABLADATATHISFORM TABLABASE VTABLADATAЊ'CЎїїїїїїїїїї ї ї ї ї їїў3Ўїїїїїїїїїїїїў&™ќCйPCONT-є!ї"єєєєі §ў™ќCєї$єєєєі#§ў%ќєї%йa§љџў™ќCјєєєєі&§ў™ќCјєєєєі'§ўљŒў™ќCјєєєєі'§ў™ќCјєєєєі&§ў%ќєї%йb§љgў™ќCјєєєєі(§ўљˆў™ќCјєєєєі(§ўўў™ќCєї)єєєєі)§ў%ќєї*ј§љмў™ќCCјъoєєєєі+§ўљў™ќCєї*єєєєі+§ўў"™ќCєї-єї.єєєєі,§ў™ќCєї0єєєєі/§ў™ќCєї2єєєєі1§ў™ќCєї4єєєєі3§ў™ќCєї6єєєєі5§ў™ќCєї8єєєєі7§ўpTїќCCљџџєєєєі9Cљџџєєєєі3Cљџџєєєєі5єї: 8Cєї;јђјѓј6ј§ўITїќCљџџєєєєі<Cљџџєєєєі/Cљџџєєєєі1§ўTїќєї=§ў Tїќј§ў Tї ќй§ў Tїќй§ў Tїќй§ў Tїќй§ў Tїќй§ўTїќєї>§ў%ќєї?ј§љѓўGўўє!і@ќј§ўє!іAќј§ў„ї ќј§(ќCє!рBјЭ§љ,ў%ќCї јє!іBa§љ(ў %ќCї јє!іBйSuma§љ$ўTїќїј§ўє!і@ќј§ќї§ў!Tє!і@ќј§ќї§ќCї іC§ў!%ќєїDј№ CєїEЁ §љ ўє!іAќј§ќї§ў!Tє!іAќј§ќї§ќCї іC§ўTєїFќј§ўўўў…ў%ќїј§љRўTїќїј§ўў„ї ќј§(ќCє!р@јЭ§љ‘ўTє!і@ќј§ќї §ќј§ў…ў,%ќєїDј№ CєїEЁ №їј §љў„ї ќј§(ќCє!рAјЭ§љќўTє!іAќј§ќї §ќј§ў…ўў Tї ќј§ў Tїќј§ў Tїќј§ў Tїќй§ў„ї ќј§(ќCє!рBјЭ§љp ў%ќCї јє!іBa§љl ў9TїќїCї јє!іBєїGјјєїGј§ў%ќїї §љаўTї ќї ј§ўVTїќїCї јє!іBCCCCї јє!іB›ЁђйѓCј 6CCї јє!іB›CјІ §ўPTї ќї й+^~CCCї јє!іBєїGјјєїGјјјZ›CјІ §ў HљљЬў ќCCї ј є!іB›й1§љюўPTїќїй+>~CCCї јє!іBєїGјјєїGјјјZ›CјІ §ў ќCCї ј є!іB›й0§љ]ўPTїќїй+<~CCCї јє!іBєїGјјєїGјјјZ›CјІ §ў ќCCї ј є!іB›й2§љЬўPTїќїй+^~CCCї јє!іBєїGјјєїGјјјZ›CјІ §ўўў Tїќј§ў„їќј§(ќєї;§љЭ ў+%ќCCї јє!іBіHCїјє!іI§љЩ ў %ќї CCї јє!іBіH§љИ ўTїќCїјє!іIї §ў+Tє!іIќї§ќј§ќCїјє!іIї§ў+Tє!іIќї§ќј§ќCїјє!іIї§ўў Tїќї§ўў…ў%ќїј§љ< ўZTїќїCCї јє!іB›CCCї јє!іB›йђйѓCј 6CCї јє!іB›CјІ §ўљh ў$TїќїCCїјє!іI›CјІ §ўўў…ў Tїќї §ўTї ќCї јCї >ј\§ўTїќCїјCї>ј\§ўTїќCїјCї>ј\§ў Tїќa§ў Tї ќй§ў Tї ќј§ў Tїќј§ў Tїќј§ўЕTїќCј Cј їJй CїLіKCј їMй CїNіKй|Cј Cј Cј Cј Cј Cєї"›Cј CєїO›й|Cј Cј їPй CїQіKCј їRй CїSіK§ў™ќCїєєєєіT§ў0™ќCй Pсgina : CCїјјZ›єєєєіU§ў Fќї§ў TїVќCN§ў†ќCъїWъ§ў#)ў™ќCєї$єєєєіX§ў*™ќCї ї йййјєєєєіY§ў,%ќєїDј№ CєїEЁ №їј §љж ўTїќCїй.єїEЮ§ўTєїZќј§ўў Tї[ќј§ў+ќC+ §љЩ"ў™ќCї[їVє\є]є^є_і`§ў Hљ љХ"ў ќї ј§љ ўTї ќї ј§ў™єєєєїaў%ќєї;ј§љVў+™ќCї ї їййјєєєєіY§ў„ї ќј§(ќї§љRў3™ќCјCјєєєєіcї јєєєєіb§ў6™ќCјCјєєєєіcї єї:єєєєіb§ў Tїќј§ў„їќј§(ќєї;§љў%ќї Cїјє!іI§љ‹ў Tїќї§ў'TїќCїјє!іICїјє!іI§ўў…ў%ќїј§љѕў%ќїј§љЦўTїќїј§ўљёў#™ќCј)јї јєєєєіb§ўўљNўQ™ќCјCјєєєєіcї Cїјє!іICїјє!іIјєєєєіb§ўў…ўў+™ќCї ї їййјєєєєіY§ў„ї ќј§(ќї§љ ў3™ќCјCјєєєєіcї јєєєєіb§ў:™ќCјCјєєєєіcї јєї:єєєєіb§ў…ў™єєєєїdў ќї ї§љžў%ќCє!р@јЭј§љў™єєєєїaў+™ќCї ї їййјєєєєіY§ў„ї ќј§(ќї§љў3™ќCјCјєєєєіcї јєєєєіb§ў6™ќCјCјєєєєіcї єї:єєєєіb§ў…ў™єєєєїdўў™єєєєїeўTїќїј§ў™ќCїєєєєіT§ў0™ќCй Pсgina : CCїјјZ›єєєєіU§ў Tї ќј§ў2љХ"ў Tїќй§ў Tї ќй§ў„ї ќј§(ќї§љŸў Hљфљ›ў( ќCїћ.Cї јє!іBbйN§љAў!Tїќїй.Cї јє!іB§ўvvalor=&vvalor %ќєїfј§љœўITїќїCCїјCCї јє!іBй,єїhђјѓїi6іg›CјІ §ўљэўITїќїCCїјCCї јє!іBй,єїhђјѓїi6іj›CјІ §ўўPTї ќї й+>~CCCї јє!іBєїGјјєїGјјјZ›CјІ §ў( ќCїћ.Cї јє!іBbйD§љWў!Tїќїй.Cї јє!іB§ў,if empty(&vvalor) or isnull(&vvalor)љУў Tїќй§ўљьў!vvalor=alltrim(dtoc(&vvalor)) ўTїќїїCјІ §ўPTї ќї й+<~CCCї јє!іBєїGјјєїGјјјZ›CјІ §ў+ ќCїћ.Cї јє!іBbйC,M,§љ,ў0Tїќйrtrim(їй.Cї јє!іBй)§ў*cregistro = cregistro+&vvalor+chr(166) PTї ќї й+<~CCCї јє!іBєїGјјєїGјјјZ›CјІ §ў2љ›ўTїќїйCјІ §ўPTї ќї й+<~CCCї јє!іBєїGјјєїGјјјZ›CјІ §ўў…ў%ќєїka§љТў Tї ќї§ўўTїќCїјCї>ј\§ўTї ќCї јCї >ј\§ў,%ќєїDј№ CєїEЁ №їј §љ<ў%ќїCїй.єїEЮ§љЌў™єєєєїaў%ќїј§љў%ќCє!рAјЭј§љŒў™єєєєїaў+™ќCї ї їййјєєєєіY§ў„ї ќј§(ќї§љuў3™ќCјCјєєєєіcї јєєєєіb§ў6™ќCјCјєєєєіcї єї:єєєєіb§ў3™ќCјCјєєєєіcї јєєєєіb§ў…ў™єєєєїdўўў„ї ќј§(ќї§љсў6™ќCјCјєєєєіcї єї:єєєєіb§ў…ўTїќїј§ў™єєєєїdўTї ќї ј§ў%ќїєїZј§љЄў„ї ќј§(ќCє!рAјЭ§љmўTє!іAќј§ќї §ќј§ў…ў Tїќј§ўTїќCїй.єїEЮ§ў Tїќa§ўў.ўў%ќїa§љ$ў %ќC+ §љў%ќїј§љЖў™єєєєїaўTїќCїй.єїEЮ§ў Hљљnў ќCћvheadbћN§љFўTїќCїјїiZ§ў ќCћvheadbћD§љnўTїќCї*§ўўf™ќCї ї їCјІ йCјІ йCјІ йCјІ йCјІ йCјІ йййјєєєєіY§ў2™ќCјCјєєєєіcјј єєєєіb§ў2™ќCјCјєєєєіcјјєєєєіb§ў5™ќCјCјєєєєіcјєї:єєєєіb§ў2™ќCјCјєєєєіcјјєєєєіb§ў™єєєєїdўўTї ќї ј§ўTїќїј§ў%ќїєїFј§љ ў Tїќ-§ў Tїќј§ўў.ўљ ў!ўўў %ќC+§љ8ў!ўўў™єєєєїaў+™ќCї ї їййјєєєєіY§ў„ї ќј§(ќї§љЫў6™ќCјCјєєєєіcї єї:єєєєіb§ў…ў™єєєєїdў Tїќй§ў„ї ќј§(ќї§љ-ў Hљљ)ў ќCCї јє!іBbйN§љКў Tїќј§ў„їќј§(ќCє!р@јЭ§љў %ќCCјїє!і@іHї §љ‹ў Tїќї§ўў…ў%ќїј§љ—ў!Tїќїй.Cї јє!іB§ўEthis.aoperaciones(2,vexiste)=this.aoperaciones(2,vexiste)+&vvalor QTїќй#alltrim(fornum(this.aoperaciones(2,CCїјјZ›й),20,pdigitos))§ў<coperaciones = coperaciones+&vvalor+chr(166) љЖўTїќїйCјІ §ўў ќCCї јє!іBbйD§љ№ўTїќїйCјІ §ў" ќCCї јє!іBbйC,M,§љ)ўTїќїйCјІ §ўў…ўTїќCїјCї>ј\§ў Tїќй§ў„ї ќј§(ќї§љˆ ў Hљ}љ„ ў ќCCї јє!іBbйN§љ ў Tїќј§ў„їќј§(ќCє!рAјЭ§љљў %ќCCјїє!іAіHї §љѕў Tїќї§ўў…ў%ќїј§љђў!Tїќїй.Cї јє!іB§ў?this.asubtotal(2,vexiste)=this.asubtotal(2,vexiste)+&vvalor NTїќй alltrim(fornum(this.asubtotal(2,CCїјјZ›й),20,pdigitos))§ў6csubtotal = csubtotal+&vvalor+chr(166) љ ўTїќїйCјІ §ўў ќCCї јє!іBbйD§љK ўTїќїйCјІ §ў" ќCCї јє!іBbйC,M,§љ„ ўTїќїйCјІ §ўў…ўTїќCїјCї>ј\§ўTї ќї ј§ўTї[ќї[ј§ўHў2%ќєїDј№ CєїEЁ №C+ №їј §љС"ў™єєєєїaў%ќїј§љH"ў%ќCє!рAјЭј§љD"ў™єєєєїaў+™ќCї ї їййјєєєєіY§ў„ї ќј§(ќї§љ-"ў3™ќCјCјєєєєіcї јєєєєіb§ў6™ќCјCјєєєєіcї єї:єєєєіb§ў3™ќCјCјєєєєіcї јєєєєіb§ў…ў™єєєєїdўўў„ї ќј§(ќї§љ™"ў6™ќCјCјєєєєіcї єї:єєєєіb§ў…ў™єєєєїdўTї ќї ј§ўўўў%ќCє!р@јЭј§љЛ#ў™єєєєїaў+™ќCї ї їййјєєєєіY§ў„ї ќј§(ќї§љЄ#ў3™ќCјCјєєєєіcї јєєєєіb§ў6™ќCјCјєєєєіcї єї:єєєєіb§ў…ў™єєєєїdўў™єєєєїlў%ќєї%йa§љ'ў%ќєї;ј§љ$ўTї ќї ј§ўTїќїј§ўў$„ї ќј§(ќCєєєєіm§љ'ў™ќCї єєєєіn§ў{™ќCCљџџєєєєі/Cљџџєєєєі3Cљџџєєєєі<Cљџџєєєєі1Cљџџєєєєі3єєєєіo§ўЩ™ќCCљџџєєєєі/Cљџџєєєєі3Cєї;јђ јєї:ѓ јєї:6Cљџџєєєєі<Cљџџєєєєі1Cљџџєєєєі3Cєї;јђ јєї:ѓ јєї:6єєєєіo§ў%ќї Cєєєєіm§љ^&ў™ќCCљџџєєєєі/Cљџџєєєєі3ї јєї:Cљџџєєєєі<Cљџџєєєєі1Cљџџєєєєі3ї јєї:єєєєіo§ўљ'ў™ќCCљџџєєєєі/Cљџџєєєєі3їјєї:Cљџџєєєєі<Cљџџєєєєі1Cљџџєєєєі3їјєї:єєєєіo§ўў™єєєєїpў…ўўTєїqќCєєєєіm§ў TєєєєrєsїtќCCјZ›§ў#TєєєєrєuїtќCCєїqZ›§ў%ќєї?ј§љœ'ўG ўў<їWўUvVTABLAVNUMPOSVEXISTEVNCOL CCOLFALSA COPERACIONES CSUBTOTALCCABEZA CREGISTRONREGFCABEZA FREGISTROS2CONTADOR NREGISTROVVALORVTITULOVFILASVAPAGVANCHOP TEMREGISTROVPAGENO VSUBTOTALVNUMFOOTVNUMSUMVCAMBIOVNUMHEADVHEADTHISFORMPANELP2VSDOCNAMETHISTITULODEVICEPRINTERLINEAPENWIDTH TABLEBORDERPENSTYLE ORIENTATIONPAPEL PAPERSIZELOADFONTLETRATAMANO MARGINLEFTMLEFT MARGINRIGHTMRIGHT MARGINTOPMTOP MARGINBOTTOMMBOTTOM MARGINHEADERMHEADER PAGEHEIGHTALTOCOLNUM PAGEWIDTH TABLADATAPAGENODIGANO AOPERACIONES ASUBTOTAL FORCOLUMNACARACTERSUBTOTALORDENNUMHEAD CELLSCALEASCHIFORFALSAPCAB11EVALREPPCAB12PCAB21PCAB22 SUBTITULOPCAB31PCAB32PCAB41PCAB42HEADERFOOTERVCOUNT ARRAYSTRUSTARDOCADDTABLENUMFOOTVPNREG PRINCIPALVOBARRABAR _PROGRESSBAR1PROGRESS STARTABLE TABLECELLTABLECFENDTABLENEWPAGECEROFORNUMCOLTCPDIGITOSVACIO DELIMITADORENDDOC PAGECOUNT STARTOVERLAYDRAWLINE ENDOVERLAYNPAGEPT1CAPTIONT2% ЎїїўєіќCєрЭ§ќј §ў„їќј§(ќCєрЭ§љўTїќCїєі§ўKTєіќї§ќј§ќCїCй,їјјCй,їјCй,їјј\§ўMTєіќї§ќј§ќCCїCй,їјјCй,їјCй,їјј\g§ўKTєіќї§ќј§ќCїCй,їјјCй,їјCй,їјј\§ўKTєіќї§ќј§ќCїCй,їјјCй,їјCй,їјј\§ў\Tєіќї§ќј§ќCCїCй,їјјCй,їјCй,їјј\й.T.ђaѓ-6§ўKTєіќї§ќј§ќCїCй,їјјCй,їјCй,їјј\§ў\Tєіќї§ќј§ќCCїCй,їјјCй,їјCй,їјј\й.T.ђaѓ-6§ўKTєіќї§ќј§ќCїCй,їјјCй,їј Cй,їјј\§ўKTєіќї§ќј §ќCїCй,їј јCй,їј Cй,їј ј\§ў…ўUVCONVDATATHIS FORCOLUMNA DATCAMPOS ЎїїўTїќєї§ўTєїќј§ўGsЦїќєєєє є ї єєєє є ї §ќєєєє є ї §ЬWў<sќј§Уї"ќйNormal §Тќйvcx\images\v1.bmp§ў<sќј§Уї"ќйDos pсginas §Тќйvcx\images\v2.bmp§ў<sќј§Уї"ќйTodas las Pсginas§Тќйvcx\images\v3.bmp§ў<sќј§Уї"ќйToda la ventana §Тќйvcx\images\v4.bmp§ў<sќј§Уї"ќйZoom porcentual §Тќйvcx\images\v5.bmp§ў?ON SELECTION BAR 1 OF shortcut &vnamewin..UpdateItem(BAR()) ?ON SELECTION BAR 2 OF shortcut &vnamewin..UpdateItem(BAR()) ?ON SELECTION BAR 3 OF shortcut &vnamewin..UpdateItem(BAR()) ?ON SELECTION BAR 4 OF shortcut &vnamewin..UpdateItem(BAR()) ?ON SELECTION BAR 5 OF shortcut &vnamewin..UpdateItem(BAR()) tЦїў іќј§ў™ќCъїъм§ўV%ќCй aMObj[1].NamebйC№CCјхїfйCOMMAND2 №CCјхїfйTBAR1 §љRўљhўTєїќ-§ўўTєїќј§ўUAMOBJVNAMEWINTHISNAMEWINTHISFORM SCALEMODESHORTCUTPANELP2PBOT10TOPHEIGHTLEFTNAME LPOPUPSETx ЎїїўTїќєї§ўTєїќј§ўGsЦїќєєєєє ї єєєєє ї §ќєєєєє ї §ЬWўsќј§Уї"ќй 50%§ўsќј§Уї"ќй 75%§ўsќј§Уї"ќй100%§ўsќј§Уї"ќй150%§ў@ON SELECTION BAR 1 OF shortcut &vnamewin..UpdateItem1(BAR()) @ON SELECTION BAR 2 OF shortcut &vnamewin..UpdateItem1(BAR()) @ON SELECTION BAR 3 OF shortcut &vnamewin..UpdateItem1(BAR()) @ON SELECTION BAR 4 OF shortcut &vnamewin..UpdateItem1(BAR()) tЦїў іќј§ў™ќCъїъм§ўV%ќCй aMObj[1].NamebйC№CCјхї fйCOMMAND2 №CCјхї fйTBAR1 §љKўљaўTєїќ-§ўўTєїќј§ўUAMOBJVNAMEWINTHISFORMNAMEWIN SCALEMODESHORTCUTPANELP2PBOT11TOPHEIGHTLEFTNAMETHIS LPOPUPSETgЏїў Hљљ[ў ќїј§љў0Tєєєєєєїќйvcx\images\v1.bmp§ў"TєєєєєїќйNormal§ў™ќCјє єєє і §ў™ќCјxє єєє і §ў™ќCјє єєє і §ў™ќCјє єєє і§ўTєєєєєїќ-§ўTєєєєєїќ-§ў ќїј§љФў0Tєєєєєєїќйvcx\images\v2.bmp§ў'Tєєєєєїќй Dos pсginas§ў™ќCјє єєє і §ўTєєєєєїќ-§ўTєєєєєїќ-§ў ќїј§љў0Tєєєєєєїќйvcx\images\v3.bmp§ў-TєєєєєїќйTodas las pсginas§ў™ќCјє єєє і §ўTєєєєєїќ-§ўTєєєєєїќ-§ў ќїј§љ8ў0Tєєєєєєїќйvcx\images\v4.bmp§ў+TєєєєєїќйToda la ventana§ў™ќCјє єєє і §ўTєєєєєїќ-§ўTєєєєєїќ-§ў ќїј§љ[ў0Tєєєєєєїќйvcx\images\v5.bmp§ў+TєєєєєїќйZoom porcentual§ўTєєєєєїќй50%§ў™ќCјє єєє і §ў™ќCј2є єєє і§ў™ќCј2є єєє і §ў™ќCј2є єєє і §ўTєєєєєїќa§ўTєєєєєїќa§ўўt&ўUNBARNUMTHISPANELP2PBOT9IMAGE1PICTURE TOOLTIPTEXTTHISFORMVSZOOMMODEZOOMMAXZOOMMINZOOMTEXT1VISIBLEBOT11VALUEЏїў Hљљў ќїј§љўTєєєєєїќй50%§ў™ќCј2єєєєі §ў™ќCј2єєєєі §ў™ќCј2єєєєі §ў ќїј§љ ўTєєєєєїќй75%§ў™ќCјKєєєєі §ў™ќCјKєєєєі §ў™ќCјKєєєєі §ў ќїј§љ†ў Tєєєєєїќй100%§ў™ќCјdєєєєі §ў™ќCјdєєєєі §ў™ќCјdєєєєі §ў ќїј§љў Tєєєєєїќй150%§ў™ќCј–єєєєі §ў™ќCј–єєєєі §ў™ќCј–єєєєі §ўўt&ўU NBARNUMTHISPANELP2PTEXT1VALUETHISFORMVSZOOMMAXZOOMMINZOOM)4їўЎїїїїїў„їќј§(ќј§љНўTїќйcCїјјZй1§ў%thisform.panel.p4.&vvalor1..clear TїќйcCїјјZй2§ў%thisform.panel.p4.&vvalor2..clear …ў™єєєє ї ў„їќј§(ќј§љgўTїќйcCїјјZй1§ў1thisform.panel.p4.&vvalor1..addlistitem(" ") TїќйcCїјјZй2§ў1thisform.panel.p4.&vvalor2..addlistitem(" ") TїќйcampoCїјјZ§ў(thisform.panel.p4.&vvalor3..value="" „їќј§(ќї§љcў=thisform.panel.p4.&vvalor1..addlistitem(str(vnumfil,2,0)) >thisform.panel.p4.&vvalor2..addlistitem(str(vnumfil,2,0)) …ў…ў„їќј§(ќї§љЃў!™ќCCїјјZєєєє і §ў…ў„їќј§(ќј§љўTєі ќї§ќј§ќј§ўTєі ќї§ќј§ќј§ўTєі ќї§ќј§ќй§ў…ўTєї ќї§ўUPMNUMCOLVVALOR1VVALOR2VVALOR3 VCONTADORVNUMFILTHISFORMPANELP4COB2CLEAR ADDLISTITEMFORFALSANUMREGxTєїќєєєїј§ўTєїќј§ўTєїќєїј§ў$Tєїќєїєєєїј§ў ™єєї ўU THISTOP PRINCIPALVRIBBON1LINE7LEFTWIDTHHEIGHT RESIZABLE1ADJUSTCONTROLS†ЎїўTїќєєїј§ўTїќїј§ўTєїќCCїј јZ›§ўTїќCј@ї §ў™ќCєїїєєі§ў ™єєї ўU NWINDOW PRINCIPALVOBARRA ITEMCOUNTPNUMWINTHISNUMWXP ADDMENUITEMTAGREFRESHeЎїўTїќєї§ўTїќїј§ў™ќCCїgєєі§ўTїќйwinї§ў <ќї§ў<їўUVNUMWINTHISNUMWXPPNUMWIN PRINCIPALVOBARRA HIDEMENUITEMPCODFOR5 ЎїїўTїќєї§ў ™єїў ™єєїўU VNUMVBOTPTEMFORMTHISFORMNAMEWINTHISRESIZE RESIZABLE1ADJUSTCONTROLS€7їўTєїќї§ўTєїќCїі§ў%ќєїј§љPўB(Мў ™єїўўTєї ќї §ў™ќCјnєє є є і§ўUPCODFORTHISNAMEWINPNOMFORMTHISFORMDAT FCREATECONECTPDATARELEASEPRINTERPPRINTERPANELP2VS LOADSPACE freecursor,џџprocesoіџџcapturaи,џџshowd+0џџshowe&4џџ updateitem7џџ updateitem1<џџ cargarcolw>џџResizeBџџInitђBџџDestroyжCџџActivateŠDџџLoadEџџ1БсЁAAсЁAA311aСQ‘‘‘‘Q‘‘AAСAССA!ССССС‘ббббббAaAёЁaaAAAAAёСAСёСAAббббёЁ‘aбёёёAAбЁБСББAбAAЁAAAAгВБББббббR ЁЂТтQСЁСБAвттв1AБq1aбЁСбqAA1AAAAБq1ЁA1‘1Бq1aA1A1Ёбббqб!A‘‘AСбAqБЁqAA!бAББФё2‘1Бq1a1A1AAqaA1‚ёСAбББAAAєб1Бб‘Q‘ёAa!!Q!1AБбAAAAAТAAA2БqaA1бqбёбёбAAQСqAёq!qAAБвqбёбёбAAёсaqAёq!qAAБA!2‘1Бq1a1A1AAqaA1BAA‘1Бq1aA1A1RAAAЁБ‘ сб б A2AAб1AaAq5ББСQБбББСБСББA3БqСССССђёёёёбсbсA3Бq‚бсbсA3qб!‘‘‘‘ЁЁq‘ЁЁб‘ЁЁБ‘ЁЁБё‘‘‘‘ЁЁAQ3qбё‘‘‘ё‘‘‘‘‘‘‘‘‘BQ3qqqёQёQA1qёёсqбсAArArСССA2бqAб3qqЁ1Ёб5qQAЁq3БЁб2qQAaЁA‘2ш KD™iDЙHПЈеHRMаПnMШPэдщPзV ўљVЙY7йYЁ]V6О]ƒ^x<ž^…_€DЃ_K`ŒLj`Т`–Qн`Љaœ)ЕLюўђџ ееХ%cŒ rќUОTєїќa§ў Tїќј§ў+ќїєєєї§љЉў%ќCїєєєі§љŒў$™ќCCїєєєі єєєі §ў™ќCїєєєі §ўљЅўTїќїј§ўўўTєїќ-§ўU THISFORM LOCKSCREENNCNTTHISPARENTLSTSELECCIONES LISTCOUNTSELECTED LSTCAMPOSADDITEMLIST REMOVEITEMClick,џџ1сбББAqAAс1U)е foxribbon.vcx containerbot5formbase.menubar`DataSession = 2 Height = 318 Width = 506 ShowWindow = 1 DoCreate = .T. AutoCenter = .T. BorderStyle = 1 Caption = "Form" MaxButton = .F. MinButton = .F. WindowType = 1 dat = .F. namewin = .F. ncurvature = 0 tabtem1 = .F. tabtem2 = .F. datg = .F. tabtem3 = .F. pok = .F. tabtem4 = .F. tabtem5 = .F. tabtem6 = .F. Name = "forminp" _marcoshapetipo *redraw BArial, 0, 8, 5, 14, 11, 29, 3, 0 Arial, 0, 9, 5, 15, 12, 32, 3, 0  _datepickerPixelsClass container _datepicker0Top = 2 Left = 83 Width = 15 Height = 18 TabStop = .F. lcurvature = .F. Name = "Ribboncommandbutton1" Image1.Height = 16 Image1.Left = 6 Image1.Top = 30 Image1.Width = 16 Image1.Name = "Image1" xShape2.Name = "xShape2" Shape1.Name = "Shape1" Command1.TabStop = .F. Command1.Name = "Command1" Image2.Name = "Image2" Ribbonlabel1.Left = 26 Ribbonlabel1.Top = 27 Ribbonlabel1.Name = "Ribbonlabel1" Ribbonlabel2.Left = 124 Ribbonlabel2.Top = 25 Ribbonlabel2.Name = "Ribbonlabel2" Marlett.Left = 2 Marlett.Top = 3 Marlett.Name = "Marlett"  _datepickerRibboncommandbutton1textbox)ўђџ кЦ%_З{ќUж ЎїїўTїќєї§ўTїќєї§ўTїќс9ї§ў Іќї§љЯўTѕ їќCтїљьџі§ў#Tѕ їќCCѕ їј €ъЊCщ ъЋъЉ§ў%Tѕ ї ќCїћ4RSъПCїћ4RSъП§ў™ќCїї і §ў TїќCCѕ ї јј\ћ4RSъР§ў TїќCCѕ ї јј\ћ4RSъР§ў%ќїтї Cјъ%§љ-ўTїќCјъ%тї ј§ўў%ќїтї Cјъ%§љ^ўTїќїтї §ўў5™ќCтїCтїјтїјтї тї тїтїіјі §ўTѕ їќCтїљцџі§ў ™ќCтїљцџCѕ їщ ъЊі§ўЇўUTNLEFTTNTOPTHISLEFTTOPTNHWNDHWNDLSTYLEGETWINDOWLONGALQPTCLIENTTOSCREENWIDTHHEIGHT SETWINDOWRGNCREATEROUNDRECTRGN NCURVATURELNSTYLE GETCLASSLONG SETCLASSLONGPTєїќї§ўTєїќCїі§ў%ќєїј§љIўB(Мў ™єїўўUTHISNAMEWINPNOMFORMTHISFORMDAT FCREATECONECTPDATARELEASEInit,џџLoadФџџ1Бёб1T!В‘AВ!AR‚E2QAaЁA1ŸК4*)ribboncommandbutton foxribbon.vcx containerbot6formbase.menubarcnbottonbot7WTop = 0 Left = 0 Height = 19 Width = 200 BackColor = 255,255,255 Name = "_marco" DWidth = 200 Height = 19 BackStyle = 0 tipo = 0 Name = "titulo"  containerformbasepanelPixelsClass containerpanel *redraw  classprin.vcx container Cnbotton1formbas.menubar,PROCEDURE Click thisform.release ENDPROC ribboncommandbutton foxribbon.vcx containerformbase.menubarribboncommandbutton foxribbon.vcx containerbot8linePixelsClass–PROCEDURE redraw WITH THIS .BORDERCOLOR = _SCREEN.oRibbon.LinesColor ENDWITH ENDPROC PROCEDURE Init WITH THIS .ReDraw() ENDWITH ENDPROC DWidth = 200 Height = 200 BackColor = 255,255,255 Name = "panel"  container‹ўђџ rrъЗ% )ќUwTєїќa§ў „їќј§(ќєєєї§љRў$™ќCCїєєєі єєєі§ў…ў™єєєї ўTєїќ-§ўU THISFORM LOCKSCREENITHISPARENTLSTSELECCIONES LISTCOUNT LSTCAMPOSADDITEMLISTCLEARClick,џџ1сAAс2ш)r‹ўђџ rrъЗ% )ќUwTєїќa§ў „їќј§(ќєєєї§љRў$™ќCCїєєєі єєєі§ў…ў™єєєї ўTєїќ-§ўU THISFORM LOCKSCREENITHISPARENT LSTCAMPOS LISTCOUNTLSTSELECCIONESADDITEMLISTCLEARClick,џџ1сAAс3р)rюўђџ ееХ%cŒ rќUОTєїќa§ў Tїќј§ў+ќїєєєї§љЉў%ќCїєєєі§љŒў$™ќCCїєєєі єєєі §ў™ќCїєєєі §ўљЅўTїќїј§ўўўTєїќ-§ўU THISFORM LOCKSCREENNCNTTHISPARENT LSTCAMPOS LISTCOUNTSELECTEDLSTSELECCIONESADDITEMLIST REMOVEITEMClick,џџ1свББAqAAс1Ž)е:ўђџ !!ёŸ%iИšќUCЏїўЎїў„їќј§(ќєї§љ<ўTєіќї§ќa§ў…ўUOLISTLNCNT LISTCOUNTSELECTED' Іќї§љ ўTтїќс9єї§ўЇўUTHIS BORDERCOLORORIBBON LINESCOLOR<Tєєїќєї§ўTєєїќєї§ў ™ќCєі§ўUTHIS LSTCAMPOSDRAGICON CANDROPICONLSTSELECCIONESREDRAW selectall,џџredraw–џџInitщџџ1qqЁAA2б1A4aaб2{˜к ѕa)!formbase.menubarribbonmenuseparator foxribbon.vcxRibbonmenuseparator1formbas.menubarLHeight = 32 Left = 165 Top = 4 Width = 0 Name = "Ribbonmenuseparator1"  _gradient!Arial, 0, 9, 5, 15, 12, 32, 3, 0 formformbase PROCEDURE Init DODEFAULT() WITH THIS .TOP = 0 .LEFT = 0 .HEIGHT = THIS.PARENT.HEIGHT .WIDTH = THIS.PARENT.WIDTH .ANCHOR = 15 ENDWITH ENDPROC formbase _gradient1 containerЅPROCEDURE Init DODEFAULT() WITH THIS .nMenuLeft = (.PARENT.RibbonTextBox1.WIDTH * -1) .PanelClass = "" .Path_Form_Menu = "" .Marlett.VISIBLE = .T. ENDWITH ENDPROC PROCEDURE Command1.MouseDown LPARAMETERS nButton, nShift, nXCoord, nYCoord LOCAL loName DODEFAULT() IF VARTYPE(THIS.PARENT.PARENT.RibbonTextBox1.VALUE) # "D" RETURN ENDIF WITH THIS.PARENT loName = CREATEOBJECT("RibbonFormCalendar", OBJTOCLIENT(THIS, 2) + .nMenuLeft, ; OBJTOCLIENT(THIS, 1) + THIS.HEIGHT - 2 + .nMenuTop, THISFORM.HWND, ; .PARENT.RibbonTextBox1, .PARENT.RibbonTextBox1.VALUE) _SCREEN.oRibbon.LastOpenForm = loName THIS.MOUSEENTER() ENDWITH ENDPROC  container foxribbon.vcxribboncommandbutton|Top = 48 Left = 12 Width = 12 Height = 8 swapcolors = .T. gradient = .T. Name = "_gradient1" Image1.Name = "Image1"  foxribbon.vcx _gradientLHeight = 30 Left = 183 Top = 3 Width = 0 Name = "Ribbonmenuseparator2" formbase.menubarRibbonmenuseparator2line foxribbon.vcxribbonmenuseparatorformbase.menubarRibbonmenuseparator1line Cnbotton1њPROCEDURE redraw WITH THIS .BorderColor = _SCREEN.oRibbon.LinesColor .FONTNAME = _SCREEN.oRibbon.cFontName .DisabledBackColor = _SCREEN.oRibbon.backcolor1 ENDWITH ENDPROC PROCEDURE GotFocus ENDPROC PROCEDURE LostFocus ENDPROC ZHeight = 22 Left = 0 SelectOnEntry = .T. Top = 0 Width = 82 Name = "Ribbontextbox1"  _datepickerRibbontextbox1 foxribbon.vcx ribbontextbox:calform *redraw *thisenabled *setvalue *getvalue ЈPROCEDURE Load thisform.tabtem1 = getname() thisform.tabtem2 = getname() thisform.tabtem3 = getname() thisform.tabtem4 = getname() thisform.tabtem5 = getname() thisform.tabtem6 = getname() this.namewin=pnomform thisform.dat=fcreateconect(pdata) if thisform.dat = 0 return to master thisform.release endif thisform.datg=fcreateconect(pbase) if thisform.datg = 0 return to master thisform.release endif =ponersets() ENDPROC PROCEDURE Destroy if thisform.dat > 0 =sqldisconnect(thisform.dat) endif if thisform.datg > 0 =sqldisconnect(thisform.datg) endif if used(thisform.tabtem1) select (thisform.tabtem1) use endif if used(thisform.tabtem2) select (thisform.tabtem2) use endif if used(thisform.tabtem3) select (thisform.tabtem3) use endif if used(thisform.tabtem4) select (thisform.tabtem4) use endif if used(thisform.tabtem5) select (thisform.tabtem5) use endif ENDPROC LHeight = 30 Left = 150 Top = 3 Width = 0 Name = "Ribbonmenuseparator1"  foxribbon.vcx containergPROCEDURE redraw WITH THIS .RibbonTextBox1.Redraw() .BACKCOLOR = .RibbonTextBox1.BACKCOLOR .BORDERCOLOR = .RibbonTextBox1.BORDERCOLOR .RibbonCommandButton1.Redraw() ENDWITH ENDPROC PROCEDURE thisenabled PARAMETERS tlEnabled WITH THIS IF PCOUNT() = 1 .ENABLED = tlEnabled .RibbonTextBox1.ENABLED = tlEnabled .RibbonCommandButton1.ThisEnabled(tlEnabled) ENDIF ENDWITH ENDPROC PROCEDURE setvalue *-- Thanks to Claudio Luna (Uruguay) LPARAMETERS tdvalue IF VARTYPE(tdvalue) = 'D' THIS.ribbontextbox1.VALUE = tdvalue ELSE RETURN .F. ENDIF ENDPROC PROCEDURE getvalue *-- Thanks to Claudio Luna (Uruguay) RETURN THIS.ribbontextbox1.VALUE ENDPROC PROCEDURE Init WITH THIS IF EMPTY(.RibbonTextBox1.CONTROLSOURCE) .RibbonTextBox1.VALUE = {} ENDIF .HEIGHT = 22 .Redraw() .ThisEnabled(.ENABLED) ENDWITH ENDPROC PWidth = 100 Height = 22 BorderWidth = 1 calform = .F. Name = "_datepicker"  container!Arial, 0, 9, 5, 15, 12, 32, 3, 0 formbasPixelsClassformformbasribbonmenuseparator,PROCEDURE Click thisform.release ENDPROC formbase.menubar classprin.vcxcnbottonformbase.menubarbot10 container foxribbon.vcxribboncommandbuttonformbase.menubarbot9 container foxribbon.vcxribboncommandbutton PROCEDURE Init DODEFAULT() WITH THIS .TOP = 0 .LEFT = 0 .HEIGHT = THIS.PARENT.HEIGHT .WIDTH = THIS.PARENT.WIDTH .ANCHOR = 15 ENDWITH ENDPROC |Top = 48 Left = 12 Width = 12 Height = 8 swapcolors = .T. gradient = .T. Name = "_gradient1" Image1.Name = "Image1" formbas _gradient1 container foxribbon.vcxzDataSession = 2 Top = 149 Left = 0 Height = 384 Width = 641 ShowWindow = 1 DoCreate = .T. ShowTips = .T. BorderStyle = 0 Caption = "" ControlBox = .F. Closable = .F. MaxButton = .F. MinButton = .F. Movable = .F. AlwaysOnBottom = .T. BackColor = 255,255,255 numwxp = 0 dat = 0 namewin = '' numcob = 0 numcon = 0 numind = 0 accion = .F. Name = "formbase" Comment = "H" Top = 5 Left = 675 Width = 69 Height = 30 TabIndex = 11 TabStop = .F. caption = \к O Ј`ЙФџнМjс)6Comment = "H" Top = 5 Left = 675 Width = 69 Height = 30 TabIndex = 11 TabStop = .F. caption = \ 0 =sqldisconnect(thisform.dat) endif if thisform.datg > 0 =sqldisconnect(thisform.datg) endif if used(thisform.tabtem1) select (thisform.tabtem1) use endif if used(thisform.tabtem2) select (thisform.tabtem2) use endif if used(thisform.tabtem3) select (thisform.tabtem3) use endif if used(thisform.tabtem4) select (thisform.tabtem4) use endif if used(thisform.tabtem5) select (thisform.tabtem5) use endif vnumwin = this.numwxp pnumwin = pnumwin - 1 principalp.obarra.hidemenuitem(val(vnumwin)) vnumwin = "win"+vnumwin release (vnumwin) ENDPROC PROCEDURE Activate local vnum,vbot ptemform=thisform.namewin for vnum=1 to 5 vbot=alltrim(str(vnum,2,0)) vtag=this.menubar.bot&vbot..tag if thisform.menubar.bot&vbot..enabled=.T. on key label &vtag &ptemform..menubar.bot&vbot..click else on key label &vtag endif endfor this.Resize this.resizable1.adjustcontrols ENDPROC PROCEDURE Load this.namewin=pnomform thisform.dat=fcreateconect(pdata) if thisform.dat = 0 return to master thisform.release endif thisform.datg=fcreateconect(pbase) if thisform.datg = 0 return to master thisform.release endif dodefault() thisform.tabtem1 = getname() thisform.tabtem2 = getname() thisform.tabtem3 = getname() thisform.tabtem4 = getname() thisform.tabtem5 = getname() =ponersets() ENDPROC DataSession = 2 Top = 149 Left = 0 Height = 426 Width = 750 ShowWindow = 1 DoCreate = .T. ShowTips = .T. BorderStyle = 0 Caption = "" ControlBox = .F. Closable = .F. MaxButton = .F. MinButton = .F. Movable = .F. AlwaysOnBottom = .T. BackColor = 255,255,255 numwxp = 0 dat = 0 namewin = '' numcob = 0 numcon = 0 numind = 0 accion = .F. tabtem1 = .F. tabtem2 = .F. tabtem3 = .F. tabtem4 = .F. conobj = thisform.con cobobj = thisform.cob indobj = thisform.ind datg = .F. tabtem5 = .F. Name = "formbas" zTop = 0 Left = 0 Name = "_titlebar1" CONTROLBUTTONS.BUTTONMIN.IMAGE1.Height = 16 CONTROLBUTTONS.BUTTONMIN.IMAGE1.Width = 16 CONTROLBUTTONS.BUTTONMIN.IMAGE1.Name = "IMAGE1" CONTROLBUTTONS.BUTTONMIN.XSHAPE2.Name = "XSHAPE2" CONTROLBUTTONS.BUTTONMIN.SHAPE1.Name = "SHAPE1" CONTROLBUTTONS.BUTTONMIN.COMMAND1.Name = "COMMAND1" CONTROLBUTTONS.BUTTONMIN.IMAGE2.Name = "IMAGE2" CONTROLBUTTONS.BUTTONMIN.RIBBONLABEL1.Name = "RIBBONLABEL1" CONTROLBUTTONS.BUTTONMIN.RIBBONLABEL2.Name = "RIBBONLABEL2" CONTROLBUTTONS.BUTTONMIN.MARLETT.Name = "MARLETT" CONTROLBUTTONS.BUTTONMIN.Name = "BUTTONMIN" CONTROLBUTTONS.BUTTONMAX.IMAGE1.Height = 16 CONTROLBUTTONS.BUTTONMAX.IMAGE1.Width = 16 CONTROLBUTTONS.BUTTONMAX.IMAGE1.Name = "IMAGE1" CONTROLBUTTONS.BUTTONMAX.XSHAPE2.Name = "XSHAPE2" CONTROLBUTTONS.BUTTONMAX.SHAPE1.Name = "SHAPE1" CONTROLBUTTONS.BUTTONMAX.COMMAND1.Name = "COMMAND1" CONTROLBUTTONS.BUTTONMAX.IMAGE2.Name = "IMAGE2" CONTROLBUTTONS.BUTTONMAX.RIBBONLABEL1.Name = "RIBBONLABEL1" CONTROLBUTTONS.BUTTONMAX.RIBBONLABEL2.Name = "RIBBONLABEL2" CONTROLBUTTONS.BUTTONMAX.MARLETT.Name = "MARLETT" CONTROLBUTTONS.BUTTONMAX.Name = "BUTTONMAX" CONTROLBUTTONS.BUTTONCLOSE.IMAGE1.Height = 16 CONTROLBUTTONS.BUTTONCLOSE.IMAGE1.Width = 16 CONTROLBUTTONS.BUTTONCLOSE.IMAGE1.Name = "IMAGE1" CONTROLBUTTONS.BUTTONCLOSE.XSHAPE2.Name = "XSHAPE2" CONTROLBUTTONS.BUTTONCLOSE.SHAPE1.Name = "SHAPE1" CONTROLBUTTONS.BUTTONCLOSE.COMMAND1.Name = "COMMAND1" CONTROLBUTTONS.BUTTONCLOSE.IMAGE2.Name = "IMAGE2" CONTROLBUTTONS.BUTTONCLOSE.RIBBONLABEL1.Name = "RIBBONLABEL1" CONTROLBUTTONS.BUTTONCLOSE.RIBBONLABEL2.Name = "RIBBONLABEL2" CONTROLBUTTONS.BUTTONCLOSE.MARLETT.Name = "MARLETT" CONTROLBUTTONS.BUTTONCLOSE.Name = "BUTTONCLOSE" CONTROLBUTTONS.Name = "CONTROLBUTTONS" RIBBONLABEL1.Name = "RIBBONLABEL1" IMAGE1.Name = "IMAGE1" SHAPE1.Name = "SHAPE1" IMAGE2.Name = "IMAGE2" COMMAND1.Name = "COMMAND1"  аЯрЁБс>ўџ ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ§џџџўџџџўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџRoot EntryџџџџџџџџPвУЗњвOleObjectDataџџџџXAccessObjSiteData&џџџџџџџџџџџџ8ChangedPropsџџџџџџџџџџџџўџџџўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџF8ШsœJМ?Э6ЂM“ВH ђWG _extentxM ђWG88UTER€ME=CONTA000ComSpec=C:\WINDOWSрџџџ_extentyѕ,d.exeESET_OPTIONS= Top = 5 Left = 137 Width = 30 Height = 30 TabIndex = 5 TabStop = .F. border = .F. lcurvature = .F. disabledpicture = c:\newproyect\pvent\vcx\images\crosse.png Name = "Ribboncommandbutton3" Image1.Picture = images\ultimo.bmp Image1.Height = 16 Image1.Left = 7 Image1.Top = 7 Image1.Width = 16 Image1.Name = "Image1" xShape2.Name = "xShape2" Shape1.Name = "Shape1" Command1.Name = "Command1" Image2.Name = "Image2" Ribbonlabel1.Name = "Ribbonlabel1" Ribbonlabel2.Name = "Ribbonlabel2" Marlett.Name = "Marlett" Top = 5 Left = 105 Width = 30 Height = 30 TabIndex = 5 TabStop = .F. border = .F. lcurvature = .F. disabledpicture = c:\newproyect\pvent\vcx\images\crosse.png Name = "Ribboncommandbutton2" Image1.Picture = images\siguiente.bmp Image1.Height = 16 Image1.Left = 7 Image1.Top = 7 Image1.Width = 16 Image1.Name = "Image1" xShape2.Name = "xShape2" Shape1.Name = "Shape1" Command1.Name = "Command1" Image2.Name = "Image2" Ribbonlabel1.Name = "Ribbonlabel1" Ribbonlabel2.Name = "Ribbonlabel2" Marlett.Name = "Marlett" Top = 5 Left = 73 Width = 30 Height = 30 TabIndex = 5 TabStop = .F. border = .F. lcurvature = .F. disabledpicture = c:\newproyect\pvent\vcx\images\crosse.png Name = "Ribboncommandbutton1" Image1.Picture = images\anterior.bmp Image1.Height = 16 Image1.Left = 7 Image1.Top = 7 Image1.Width = 16 Image1.Name = "Image1" xShape2.Name = "xShape2" Shape1.Name = "Shape1" Command1.Name = "Command1" Image2.Name = "Image2" Ribbonlabel1.Name = "Ribbonlabel1" Ribbonlabel2.Name = "Ribbonlabel2" Marlett.Name = "Marlett" Comment = "H" Top = 5 Left = 675 Width = 69 Height = 30 TabIndex = 11 TabStop = .F. caption = \CCCєїјZ›>§љNўSTїќCјєєїєєї Cєєї ђћBѓћ6Cєєї ђћIѓћ6ъ$§ўkTєєї ќCCCѕ їјZ›ћ%єєїєєї Cєєї ђћBѓћ6Cєєї ђћIѓћ6ъ#ї§ў5Tєєї ќCєїєєї ј 8єєї ј§ўTєєї ќєєї §ўўTєїќѕ ї§ў$Tєєї ќCєїєїјd 8§ў!TєєїќCCѕ їјZ›ћ%§ўTєєїќєєї§ў+%ќєєї єєї јєєї §љ|ў9%ќєєї єєї јєєї єєї ј§љ?ўTєєї ќєєї §ўљxў1Tєєї ќєєї єєї єєї ј§ўўљ—ўTєєї ќј§ўўў%ќєєїєї §љаўTєєїќєї§ўўU IPROGRESSCTASK IPERCENTAGE IAVGCHARWIDTHTHIS CCURRENTTASKIBASIS LBLPERCENTAGEFONTNAMEFONTSIZEFONTBOLD FONTITALICWIDTHLEFTSHPTHERMBARMAXWIDTH SHPTHERMBARLBLPERCENTAGE2CAPTIONLBLTASK G] ўU‰4їїїўTєїќї§ўTєєїќєї§ў'Tєєї ќCCѕ їЁђћѓѕ ї6§ў$TєїќCCѕ їЁђјѓѕ ї6§ўG]ўU CTITLEIBASIS IINTERVALTHIS INTERVALOSHAPE5 FILLCOLOR BACKCOLORLBLTITLECAPTIONcomplete,џџupdateCџџUnloadђџџInitџџџ1’ГAт!1B1!qqA3ѕБ’qAQ#A2ё!AБa4ДR‘A!A‘В’‘A1AAВaA3a2ѕaqAd1ШхШ 7х ђ U9 ы X)" аЯрЁБс>ўџ ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ§џџџўџџџўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџRoot Entryџџџџџџџџ№еI34єгРOleObjectDataџџџџAccessObjSiteData&џџџџџџџџџџџџ8ChangedPropsџџџџџџџџџџџџўџџџўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџˆ—EKN˜ЮЎйБсЗTPF0TPreviewControlPreviewControlLeftTop@88њџџџњџџџ€њџџџњџџџњџџџњџџџњџџџњџџџњџџџњџџџџџџџзœjџЎ"Щv,џџџџџџџџџWidthщHeightВCaptionPreviewControlColor clBtnFace Font.CharsetDEFAULT_CHARSET Font.Color clWindowText Font.Heightѕ Font.Name MS Sans Serif Font.Style OldCreateOrder PixelsPerInch` TextHeight џџњџџџљџџџџџџџџџџџлžhџЎ"Эx'џџџџџўџџџљџџџљџџџљџџџњџџџњџџџњџџџњџџџњџџџњџџџњџџџњџџџњџџџњџџџњџџџњџџџњџџџ аЯрЁБс>ўџ ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ§џџџўџџџўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџRoot EntryџџџџџџџџР`I34єгOleObjectDataџџџџyAccessObjSiteData&џџџџџџџџџџџџ8ChangedPropsџџџџџџџџџџџџўџџџўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџIс0м)AEНўНžo1~TPF0TRpActiveXReportLeftTopWidthKHeig88џџџџA€ FX'˜„ўџџHтX'8тX'џџnhtPreview ShowProgressShowPrintDialogLanguage”…џџџџ8чX'ЈцX'˜цX'Tsк mSUVљ  ˆ†јEX'ШzX'ИzX'˜zX'Р†шЮаƒјчX'ичX'ШчX'ЈРР„ФЌФСырEX'Ь†‡јEX'QШzX'ИzX'˜zX'Top = 5 Left = 137 Width = 30 Height = 30 TabIndex = 5 TabStop = .F. border = .F. lcurvature = .F. disabledpicture = c:\newproyect\pvent\vcx\images\crosse.png Name = "bot5" Image1.Picture = images\primero.bmp Image1.Height = 16 Image1.Left = 7 Image1.Top = 7 Image1.Width = 16 Image1.Name = "Image1" xShape2.Name = "xShape2" Shape1.Name = "Shape1" Command1.Name = "Command1" Image2.Name = "Image2" Ribbonlabel1.Name = "Ribbonlabel1" Ribbonlabel2.Name = "Ribbonlabel2" Marlett.Name = "Marlett" oPROCEDURE Click local vvar11,vfile,lOk,oEmail vfile = sys(5)+sys(2003)+"\"+getname()+".pdf" thisform.man.saveToPDF(vfile,.T.) do form forms\inp_email with "","",vfile,"" to vvar11 if empty(vvar11) return endif vdest=alltrim(substr(vvar11,1,at("|",vvar11,1)-1)) vasunto=alltrim(substr(vvar11,at("|",vvar11,1)+1,at("|",vvar11,2)-at("|",vvar11,1)-1)) vadjunto=alltrim(substr(vvar11,at("|",vvar11,2)+1,at("|",vvar11,3)-at("|",vvar11,2)-1)) vmensaje=alltrim(substr(vvar11,at("|",vvar11,3)+1)) oEmail = CREATEOBJECT("JMail.Message") oEmail.Logging = .T. oEmail.Silent = .T. oEmail.From = "coelectric@speedy.com.pe" oEmail.FromName = "COELECTRIC" ***************************** i = 1 ini = 0 do while at(";",vdest,i)<>0 if !empty(alltrim(substr(vdest,ini+1,at(";",vdest,i)-ini-1))) oEmail.AddRecipient(alltrim(substr(vdest,ini+1,at(";",vdest,i)-ini-1)),"") endif ini = iif(at(";",vdest,i)<>0,at(";",vdest,i),at(";",vdest,i-1)) i= i+1 enddo if !empty(alltrim(substr(vdest,ini+1))) oEmail.AddRecipient(alltrim(substr(vdest,ini+1)),"") endif ***************************** oEmail.AddRecipientBCC("coelectric_1985@hotmail.com") *oEmail.AddRecipientCC("coelectric@speedy.com.pe","Intranet") oEmail.Subject = vasunto oEmail.Body = vmensaje *oEmail.HTMLBody = "" if file(vadjunto) oEmail.AddAttachment(vadjunto,.F.) endif oEmail.MailServerPassword = "180119571801" oEmail.MailServerUserName = "coelectric@speedy.com.pe" lOk = oEmail.SEND("smtp.speedy.com.pe") IF lOk MESSAGEBOX("Mensaje enviado!",48,"EXITO..") ELSE MESSAGEBOX("Mensaje no enviado!",16,"EROOR") endif delete file &vfile ENDPROC Top = 5 Left = 100 Width = 30 Height = 30 TabIndex = 4 TabStop = .F. border = .F. lcurvature = .F. disabledpicture = c:\newproyect\pcont\vcx\images\deshacerd.bmp Name = "bot4" Image1.Picture = images\email.bmp Image1.Height = 22 Image1.Left = 4 Image1.Top = 4 Image1.Width = 22 Image1.Name = "Image1" xShape2.Name = "xShape2" Shape1.Name = "Shape1" Command1.Name = "Command1" Image2.Name = "Image2" Ribbonlabel1.Name = "Ribbonlabel1" Ribbonlabel2.Name = "Ribbonlabel2" Marlett.Name = "Marlett" Top = 5 Left = 68 Width = 30 Height = 30 Picture = ..\..\..\prueba\ TabIndex = 3 TabStop = .F. border = .F. lcurvature = .F. disabledpicture = c:\newproyect\pcont\vcx\images\grabard.bmp Name = "bot3" Image1.Picture = images\excel.bmp Image1.Height = 16 Image1.Left = 7 Image1.Top = 7 Image1.Width = 16 Image1.Name = "Image1" xShape2.Name = "xShape2" Shape1.Name = "Shape1" Command1.Name = "Command1" Image2.Name = "Image2" Ribbonlabel1.Name = "Ribbonlabel1" Ribbonlabel2.Name = "Ribbonlabel2" Marlett.Name = "Marlett" Top = 5 Left = 36 Width = 30 Height = 30 TabIndex = 2 TabStop = .F. border = .F. lcurvature = .F. disabledpicture = c:\newproyect\pcont\vcx\images\modificard.bmp Name = "bot2" Image1.Picture = images\pdf.bmp Image1.Stretch = 0 Image1.Height = 16 Image1.Left = 7 Image1.Top = 7 Image1.Width = 16 Image1.Name = "Image1" xShape2.Name = "xShape2" Shape1.Name = "Shape1" Command1.Name = "Command1" Image2.Name = "Image2" Ribbonlabel1.Name = "Ribbonlabel1" Ribbonlabel2.Name = "Ribbonlabel2" Marlett.Name = "Marlett" Top = 5 Left = 4 Width = 30 Height = 30 TabIndex = 1 TabStop = .F. border = .F. lcurvature = .F. disabledpicture = c:\newproyect\pvent\vcx\images\pluse.png Name = "bot1" Image1.Picture = images\imprimir.bmp Image1.Height = 16 Image1.Left = 7 Image1.Top = 7 Image1.Width = 16 Image1.Name = "Image1" xShape2.Name = "xShape2" Shape1.Name = "Shape1" Command1.Name = "Command1" Image2.Name = "Image2" Ribbonlabel1.Name = "Ribbonlabel1" Ribbonlabel2.Name = "Ribbonlabel2" Marlett.Name = "Marlett" zTop = 0 Left = 0 Name = "_titlebar1" CONTROLBUTTONS.BUTTONMIN.IMAGE1.Height = 16 CONTROLBUTTONS.BUTTONMIN.IMAGE1.Width = 16 CONTROLBUTTONS.BUTTONMIN.IMAGE1.Name = "IMAGE1" CONTROLBUTTONS.BUTTONMIN.XSHAPE2.Name = "XSHAPE2" CONTROLBUTTONS.BUTTONMIN.SHAPE1.Name = "SHAPE1" CONTROLBUTTONS.BUTTONMIN.COMMAND1.Name = "COMMAND1" CONTROLBUTTONS.BUTTONMIN.IMAGE2.Name = "IMAGE2" CONTROLBUTTONS.BUTTONMIN.RIBBONLABEL1.Name = "RIBBONLABEL1" CONTROLBUTTONS.BUTTONMIN.RIBBONLABEL2.Name = "RIBBONLABEL2" CONTROLBUTTONS.BUTTONMIN.MARLETT.Name = "MARLETT" CONTROLBUTTONS.BUTTONMIN.Name = "BUTTONMIN" CONTROLBUTTONS.BUTTONMAX.IMAGE1.Height = 16 CONTROLBUTTONS.BUTTONMAX.IMAGE1.Width = 16 CONTROLBUTTONS.BUTTONMAX.IMAGE1.Name = "IMAGE1" CONTROLBUTTONS.BUTTONMAX.XSHAPE2.Name = "XSHAPE2" CONTROLBUTTONS.BUTTONMAX.SHAPE1.Name = "SHAPE1" CONTROLBUTTONS.BUTTONMAX.COMMAND1.Name = "COMMAND1" CONTROLBUTTONS.BUTTONMAX.IMAGE2.Name = "IMAGE2" CONTROLBUTTONS.BUTTONMAX.RIBBONLABEL1.Name = "RIBBONLABEL1" CONTROLBUTTONS.BUTTONMAX.RIBBONLABEL2.Name = "RIBBONLABEL2" CONTROLBUTTONS.BUTTONMAX.MARLETT.Name = "MARLETT" CONTROLBUTTONS.BUTTONMAX.Name = "BUTTONMAX" CONTROLBUTTONS.BUTTONCLOSE.IMAGE1.Height = 16 CONTROLBUTTONS.BUTTONCLOSE.IMAGE1.Width = 16 CONTROLBUTTONS.BUTTONCLOSE.IMAGE1.Name = "IMAGE1" CONTROLBUTTONS.BUTTONCLOSE.XSHAPE2.Name = "XSHAPE2" CONTROLBUTTONS.BUTTONCLOSE.SHAPE1.Name = "SHAPE1" CONTROLBUTTONS.BUTTONCLOSE.COMMAND1.Name = "COMMAND1" CONTROLBUTTONS.BUTTONCLOSE.IMAGE2.Name = "IMAGE2" CONTROLBUTTONS.BUTTONCLOSE.RIBBONLABEL1.Name = "RIBBONLABEL1" CONTROLBUTTONS.BUTTONCLOSE.RIBBONLABEL2.Name = "RIBBONLABEL2" CONTROLBUTTONS.BUTTONCLOSE.MARLETT.Name = "MARLETT" CONTROLBUTTONS.BUTTONCLOSE.Name = "BUTTONCLOSE" CONTROLBUTTONS.Name = "CONTROLBUTTONS" RIBBONLABEL1.Name = "RIBBONLABEL1" IMAGE1.Name = "IMAGE1" SHAPE1.Name = "SHAPE1" IMAGE2.Name = "IMAGE2" COMMAND1.Name = "COMMAND1" Tag = "CTRL+N" Top = 4 Left = 4 Width = 28 TabIndex = 1 TabStop = .F. ToolTipText = "CTRL+N (Nuevo)" border = .F. lcurvature = .F. disabledpicture = c:\newproyect\pcont\vcx\images\nuevoD.bmp Name = "bot1" Image1.Picture = images\nuevo.bmp Image1.Height = 16 Image1.Width = 16 Image1.Name = "Image1" xShape2.Name = "xShape2" Shape1.Name = "Shape1" Command1.Name = "Command1" Image2.Name = "Image2" Ribbonlabel1.Name = "Ribbonlabel1" Ribbonlabel2.Name = "Ribbonlabel2" Marlett.Name = "Marlett" љPROCEDURE redraw with this .borderwidth = 0 ._marco.BorderColor = _SCREEN.oRibbon.LinesColor *._marco.BackColor = _SCREEN.oRibbon.BackColor2 ._marco.Width = this.Width ._marco.Height = this.Height if this.tipo = 0 ._fondo.Visible = .T. ._fondo.Top = 2 ._fondo.Left = 2 ._fondo.Width = this.Width - 4 ._fondo.Height = this.Height - 4 ._fondo.Picture = _SCREEN.oRibbon.cFileBMP6 else ._fondo1.Visible = .T. ._fondo1.Top = 2 ._fondo1.Left = 2 ._fondo1.Width = this.Width - 4 ._fondo1.Height = this.Height - 4 ._fondo1.BackColor = _SCREEN.oRibbon.BackColor2 endif ._titulo.Width = this.Width ._titulo.Height = this.Height endwith ENDPROC PROCEDURE Init WITH THIS .ReDraw() ENDWITH ENDPROC —Comment = "H" Top = 4 Left = 557 Width = 79 Height = 28 TabIndex = 11 TabStop = .F. caption = \ 0 =sqldisconnect(thisform.dat) endif vnumwin = this.numwxp pnumwin = pnumwin - 1 principalv.obarra.hidemenuitem(val(vnumwin)) vnumwin = "win"+vnumwin release (vnumwin) ENDPROC PROCEDURE Activate local vnum,vbot ptemform=thisform.namewin for vnum=1 to 10 vbot=alltrim(str(vnum,2,0)) vtag=this.menubar.bot&vbot..tag if thisform.menubar.bot&vbot..enabled=.T. on key label &vtag &ptemform..menubar.bot&vbot..click else on key label &vtag endif endfor this.Resize this.resizable1.adjustcontrols ENDPROC PROCEDURE Load this.namewin=pnomform thisform.dat=fcreateconect(pdata) if thisform.dat = 0 return to master thisform.release endif =ponersets() ENDPROC 1PROCEDURE Load thisform.tabtem1 = getname() thisform.tabtem2 = getname() thisform.tabtem3 = getname() this.namewin=pnomform thisform.dat=fcreateconect(pdata) if thisform.dat = 0 return to master thisform.release endif thisform.datg=fcreateconect(pbase) if thisform.datg = 0 return to master thisform.release endif =ponersets() ENDPROC PROCEDURE Destroy if used(thisform.tabtem1) select (thisform.tabtem1) use endif if used(thisform.tabtem2) select (thisform.tabtem2) use endif if used(thisform.tabtem3) select (thisform.tabtem3) use endif ENDPROC PROCEDURE Init parameters pmfile,pmsql,pmparam,ppath dodefault() thisform._titlebar1.ribbonlabel1.Caption = "Pvent - "+pmfile this.man.preview = .F. *this.man.defaultPrinter = "\\GERENCIA\KONICA MINOLTA PagePro 1390 MF" this.man.ShowPrintDialog = .T. this.man.filename = pmfile this.man.language = 1 if parameters() <= 3 vdata =podbc+"UID="+puser+";"+"PWD="+ppassword+";"+"DBNAME="+pserver+":"+pdata+";" else vdata = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=dBASE Files;Initial Catalog="+ppath endif thisform.man.setDatabaseConnectionString("PVENT",vdata) thisform.man.SetDatasetSQL("PVENT",pmsql) thisform.man.setParamValue("VRUC",pruc) thisform.man.setParamValue("VRAZON",prazon) if parameters() = 3 if !empty(pmparam) thisform.man.setParamValue("VPARAM",pmparam) endif endif this.rep.SetReport(this.man.Report) this.rep.autoScroll = .F. this.rep.keyPreview = .T. thisform.menubar.pagina.Caption = "Pсgina "+alltrim(str(1,10,0)) ENDPROC