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.
Code: Select all
#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.
