Primero que nada, disculpen la demora, pero hace poco raro logr茅 retomar la compilaci贸n de programas.
Agradezco profundamente sus respuesta, de hecho, logr茅 compilar y ver mi aplicaci贸n, y estoy feliz por eso, pero al ejecutar la acci贸n que me lleva de un browse a un men煤, me arroja el siguiente error:
Realmente, no se qu茅 pasa, por que con la 2.6 funciona fant谩stico, adjunto c贸digo fuente para an谩lisis.
#include "FiveWin.ch"
*------------------------------------------------------------------------------------
function To_Work(Empresas,_Ruta)
聽 聽 Local oWnd, oTree,oBtns[100],oMainFont,oMenuIt[100],oToolBar1,oToolBar2,oToolBar3,oToolBar4,oToolBar5,oToolBar6,oToolBar7,oBtns2[100],oMIt[100],Execute[100]
聽 聽Local oMru1, oMru2, oMru3,Menos1,Menos2,Menos3,Menos4,Menos5,Menos6,Menos7,oDbf[100]
聽 聽Local cColorPan, hBorland,LTB1:=0,LTB2:=0,LTB3:=0,LTB4:=0,LTB5:=0,LTB6:=0,LTB7:=0,_FontLarge,oBmp
聽 聽Local _Ancho,_Largo,oImageList,oImgList1,oImgList2,oImgList3,oImgList4,oImgList5,oImgList6,oImgList7
聽 聽local oReBar, oToolBar, oPanel, oBtn1, oFolder, oFolders,oPanels
聽 聽local oHand,oFont3
聽 聽 If ( DbUseFile(Alltrim(_Ruta)+"Empresa.DBF",.T.,"DBFNTX") )
聽 聽 聽 DataBase oDbf[100]
聽 聽Else
聽 聽 聽 聽Return Nil
聽 聽EndIf
聽 聽(oDbf[100]:GoTop())
聽 聽 Empresa:=Alltrim((oDbf[100]:cAlias)->Razon_Soc)
聽 聽 oDbf[100]:Close()
聽 聽 Public HPAN1:=0,HPAL1:=0,;
聽 聽 聽 聽 聽 HPAN2:=0,HPAL2:=0,;
聽 聽 聽 聽 聽 HPAN3:=0,HPAL3:=0,;
聽 聽 聽 聽 聽 HPAN4:=0,HPAL4:=0,;
聽 聽 聽 聽 聽 HPAN5:=0,HPAL5:=0,;
聽 聽 聽 聽 聽 聽 HPAN6:=0,HPAL6:=0,;
聽 聽 聽 聽 聽 HPWPG:=0,HPLarge:=0
聽 聽Public RutEmp:=Space(12),Razon:=Space(50),Direc:=Space(50),ComCiud:=Space(50)
聽 聽 Select 1
聽 聽If ( DbUseFile("C:\Printers\H_P.DBF",.T.,"DBFNTX"))
聽 聽 聽 DataBase oDbf[100]
聽 聽 Else
聽 聽 聽 Return Nil
聽 聽EndIf
聽 聽 (oDbf[100]:GoTop())
聽 聽Set Filter To (oDbf[100]:cAlias)->Selec=' >>'
聽 聽(oDbf[100]:GoTop())
聽 聽HPAN1:=(oDbf[100]:cAlias)->Ancho1
聽 聽HPAL1:=(oDbf[100]:cAlias)->Alto1
聽 聽HPAN2:=(oDbf[100]:cAlias)->Ancho2
聽 聽HPAL2:=(oDbf[100]:cAlias)->Alto2
聽 聽HPAN3:=(oDbf[100]:cAlias)->Ancho3
聽 聽HPAL3:=(oDbf[100]:cAlias)->Alto3
聽 聽HPAN4:=(oDbf[100]:cAlias)->Ancho4
聽 聽HPAL4:=(oDbf[100]:cAlias)->Alto4
聽 聽HPAN5:=(oDbf[100]:cAlias)->Ancho5
聽 聽HPAL5:=(oDbf[100]:cAlias)->Alto5
聽 聽HPWPG:=(oDbf[100]:cAlias)->Ancho
聽 聽HPAN6:=(oDbf[100]:cAlias)->Ancho6
聽 聽HPAL6:=(oDbf[100]:cAlias)->Alto6
聽 聽HPLarge:=(oDbf[100]:cAlias)->Largo
聽 聽oDbf[100]:Close()
聽 聽 DEFINE FONT oFont NAME "Estrangelo Edessa" WEIGHT 18 Bold
聽 聽 Define Font oFont2 Name "Blue Highway" Size _FontLarge,24 Bold
聽 聽 DEFINE FONT oMainFont NAME "Estrangelo Edessa" Size 6,17 Bold
聽 聽 DEFINE FONT oFont3 NAME "Estrangelo Edessa" Size 6,14 Bold
聽 聽 DEFINE WINDOW oWnd From .1,.1 to 14.2,127 TITLE "Certificados de Sueldos y Honorarios - "+Alltrim(Empresas) 聽NOZOOM
聽 聽 Set Font Of oWnd To oFont
聽 聽 oImgList1:=TImageList():New(48,48)
聽 聽 oImgList1:AddMasked( TBitmap():Define( ,"Emp.Bmp", oWnd ), 聽)
聽 聽 oImgList1:AddMasked( TBitmap():Define( ,"User.Bmp", oWnd ), 聽)
聽 聽 oImgList1:AddMasked( TBitmap():Define( ,"Empresa.BMP", oWnd ), 聽)
聽 聽 oImgList1:AddMasked( TBitmap():Define( ,"Factor.BMP", oWnd ), 聽)
聽 聽 oImgList1:AddMasked( TBitmap():Define( ,"Param.BMP", oWnd ), 聽)
聽 聽 oImgList2:=TImageList():New(48,48)
聽 聽 oImgList2:AddMasked( TBitmap():Define( ,"CS.BMP", oWnd ), 聽)
聽 聽 oImgList2:AddMasked( TBitmap():Define( ,"CH.BMP", oWnd ), 聽)
聽 聽 oImgList2:AddMasked( TBitmap():Define( ,"GS.BMP", oWnd ), 聽)
聽 聽 oImgList2:AddMasked( TBitmap():Define( ,"GH.BMP", oWnd ), 聽)
聽 聽 oImgList3:=TImageList():New(48,48)
聽 聽 oImgList3:AddMasked( TBitmap():Define( ,"Orden.BMP", oWnd ), 聽)
聽 聽 oImgList3:AddMasked( TBitmap():Define( ,"End.BMP", oWnd ), 聽)
聽 聽 oReBar = TReBar():New( oWnd )
聽 聽 oPanels := TPanel():New( 0, 0, 66, 2000, oRebar )
聽 聽oPanel := TPanel():New( 85, 0, 85, 1000, oReBar )
聽 聽 @ .1, .1 BitMap oBmp FILE Alltrim(_LOGOGR) SIZE 206, 65 OF oPanels NO BORDER Adjust
聽 聽 @ 0,35 Say oSay1 Var Empresas Of oPanels Font oMainFont
聽 聽 @ 1,35 Say oSay1 Var "R.U.T. "+_RRRR Of oPanels Font oFont3
聽 聽 @ 2,35 Say oSay1 Var "Representante Legal : "+_RLegal Of oPanels Font oFont3
聽 聽 @ 3,35 Say oSay1 Var "R.U.T. Representante Legal : "+_RRLegal Of oPanels Font oFont3
聽 聽@ 聽44, 2 FOLDER oFolder PROMPTS "Maestros", "Certificados", "Miscelaneas" SIZE 800, 95
聽 聽 oToolBar = TToolBar():New( oFolder:aDialogs[ 1 ], 68, 68, oImgList1 )
聽 聽oToolBar:nLeft = 5
聽 聽 oToolBar:AddSeparator()
聽 聽oToolBar:AddButton( { || Empleados() }, "Maestro de Empleados","Maestro de Empleados" )
聽 聽 oToolBar:AddSeparator()
聽 聽oToolBar:AddButton( { || Agentess() },"Agentes Prestadores","Agentes Prestadores" )
聽 聽 oToolBar:AddSeparator()
聽 聽oToolBar:AddButton( { || MsgAlert("Desde el control Principal...") },"Mantenci贸n Empresa","Mantenci贸n Empresa" )
聽 聽 oToolBar:AddSeparator()
聽 聽oToolBar:AddButton( { || Factor() }, "Maestro de Factores","Maestro de Factores" )
聽 聽oToolBar:AddSeparator()
聽 聽oToolBar:AddButton( { || MsgAlert() },"Parametros del Sistema","Parametros del Sistema" )
聽 聽 oToolBar:AddSeparator()
聽 聽oToolBar2 = TToolBar():New( oFolder:aDialogs[ 2 ], 68, 68, oImgList2 )
聽 聽 oToolBar2:AddSeparator()
聽 聽oToolBar2:AddButton( { || Certif() }, "Certificados de Sueldos","Certificados de Sueldos" )
聽 聽oToolBar2:AddSeparator()
聽 聽oToolBar2:AddButton( { || Honorarios() },"Certificados de Honorarios","Certificados de Honorarios" )
聽 聽 oToolBar2:AddSeparator()
聽 聽oToolBar2:AddButton( { || Certificado_Sueldos_Empresa() } ,"Cuadratura Empresa Sueldos","Cuadratura Empresa Sueldos" )
聽 聽 oToolBar2:AddSeparator()
聽 聽oToolBar2:AddButton( { || Certificado_Honorarios_Empresa() } ,"Cuadratura Empresa Honorarios","Cuadratura Empresa Honorarios" )
聽 聽 oToolBar2:AddSeparator()
聽 聽 oToolBar3 = TToolBar():New( oFolder:aDialogs[ 3 ], 68, 68, oImgList3 )
聽 聽 oToolBar3:AddSeparator()
聽 聽oToolBar3:AddButton( { || Index() }, "Ordenar Archivos","Ordenar Archivos" )
聽 聽 oToolBar3:AddSeparator()
聽 聽oToolBar3:AddButton({|| (oWnd:End())} ,"Salir del Sistema","Salir del Sistema" )
聽 聽oToolBar3:AddSeparator()
聽 聽 oReBar:InsertBand( oPanels )
聽 聽 oReBar:InsertBand( oFolder )
聽 聽DEFINE STATUSBAR OF oWnd PROMPT PM_Date(Date()) Font oMainFont
聽 聽ACTIVATE WINDOW oWnd
return nil
*---------------------------------------------------------------
De antemano, a todos los que puedan ayudarme, gracias.
