Hola buenos días para todos y tambien para el asistente IA
Al momento de compilar nuestra aplicación con la versión FW 2606, estamos teniendo el siguiente error, que no ocurro con FWH 2409, no si sea importante aclarar que es en 64 bits
Code: Select all | Expand
Aplicación
==========
Ruta y nombre: C:\cmplar_64\hymlyma.exe (64 bits)
Tamaño: ********* bytes
Versión del compilador: xHarbour 1.3.2 Intl. (SimpLex) (Build 20251210)
Versión de FiveWin: FWH 26.03
Versión del compilador C: LLVM/Clang C 5.0.2 (64-bit)
Windows 8 64 Bits, version: 6.2, Build 9200
Tiempo desde inicio: 36 sec
Error ocurrido en: 25/09/2026, 13:03:56
Descripción del error: Error BASE/1081 Error de argumento: +
Argumentos:
[ 1] = B {|| ... }
[ 2] = N 391
Pila de llamadas
================
Llamado desde: C:\fwteam\source/classes/control.prg => (b)TCONTROL:TCONTROL( 211 )
Llamado desde: => TDOCKPNEL:_NHEIGHT( 0 )
Llamado desde: C:\fwteam\source/internal/tdockpnel.prg => TDOCKPNEL:SETCOORS( 303 )
Llamado desde: .\PRG\R32_arti.prg => PINFOARTICULO( 138 )
Llamado desde: .\PRG\R32_arti.prg => R32_ARTI( 86 )
Llamado desde: .\PRG\Alyma.prg => (b)TLYMA:AUTORIZA( 1746 )
Llamado desde: .\PRG\Alyma.prg => TLYMA:AUTORIZA( 1746 )
Llamado desde: .\PRG\R32_menu.prg => (b)VTNAPRINCIPAL( 771 )
Llamado desde: C:\fwteam\source/classes/trbtn.prg => TRBTN:CLICK( 720 )
Llamado desde: C:\fwteam\source/classes/trbtn.prg => TRBTN:LBUTTONUP( 876 )
Llamado desde: C:\fwteam\source/classes/control.prg => TCONTROL:HANDLEEVENT( 1896 )
Llamado desde: C:\fwteam\source/classes/trbtn.prg => TRBTN:HANDLEEVENT( 1575 )
Llamado desde: C:\fwteam\source/classes/window.prg => _FWH( 1076 )
Llamado desde: => WINRUN( 0 )
Llamado desde: C:\fwteam\source/classes/window.prg => TMDIFRAME:ACTIVATE( 1205 )
Llamado desde: .\PRG\R32_menu.prg => VTNAPRINCIPAL( 1136 )
Llamado desde: .\PRG\R32_menu.prg => MAIN( 127 )
y adjuntamos el código en donde se genera la linea
Code: Select all | Expand
*********************************
*CATALOGO CON SALDOS DE ARTICULOS
*********************************
Function pInfoarticulo()
Local cFont := "Liberation Mono"
Local cFecIni := space(0)
Local cQry:= "SELECT o_fechas FROM "+oLamcla:tMovi+" WHERE o_contro='II' AND YEAR(o_fechas)="+oLamcla:vGano+" LIMIT 0,1"
Local oConsCA := AdoExecute( oCnArt, { |oCn| FW_OPENRECORDSET(oCn,cQry,adLockOptimistic,adOpenKeyset) } )
Local nRegistros := oConsCA:RecordCount()
If nRegistros#0
cFecIni := dtoc(oConsCA:Fields( "o_fechas" ):Value)
Else
cFecIni := "01/01/"+alltrim(oLamcla:vGano)
Endif
DEFINE FONT oFont NAME cFont SIZE 0,-11
DEFINE FONT oFontB NAME cFont SIZE 0,-14 BOLD //ARIAL NARROW
DEFINE FONT oFont1 NAME cFont SIZE 0,-11 BOLD
DEFINE FONT oFontE NAME cFont SIZE 0,-14
DEFINE FONT oFont2 NAME cFont SIZE 0,-16
DEFINE FONT oFont3 NAME cFont SIZE 0,-20 //BOLD
DEFINE FONT oFont4 NAME "CALIBRI" SIZE 0,-16
DEFINE FONT oFontCtrl NAME cFont SIZE 0, -9 BOLD
DEFINE FONT oFontS NAME "FIXEDSYS" SIZE 0,-12
DEFINE WINDOW oWChArti MDICHILD TITLE "Catálogo Artículos" ICON "#8001" OF oWnd
oDock1 := TDockPnel():New( oWChArti )
WITH OBJECT oDock1
:SetHeightCaption( 50 )
:SetCoors( { | o | 10 }, ;
{ | o | 10 }, ;
{ | o | Int( o:oWnd:nHeight ) - 50 }, ;
{ | o | Int( o:oWnd:nWidth / 2 ) - XEVal( o:nLeft, o ) } )
:SetCaption( { | o | "Saldos Acumulados Por Artículo" } )
:SetColors( CLR_WHITE, Rgb( 0,120,215 ) , Rgb( 88, 88, 88 ), CLR_HGRAY )
:SetFont( oFont4 )
:lLeftImgs := .F.
:SetBorderSize( 4 )
:SetCtrlsPnel( { | o, nT, nL, nH, nW, oB | oB := fSaldoArti( o, nT, nL, nH, nW ),;
fCuentaPaginas(cGbsCta) } )
:SetImgsFiles( { { oLamcla:cIcoBcIm, { | o | ImprimirEtiquetas() }, "Imprimir etiquetas" } ,;
{ oLamcla:cIcoCrB1, { | o | crearBloque() }, "Crear artículos en bloque tallas / colores" } ,;
{ oLamcla:cIcoBcOr, { | o | crucecatalogoinventarios() }, "Cruce catálogo con movimiento año "+alltrim(oLamcla:vGano) } ,;
{ oLamcla:cIcoBcIp, { | o | pImpArticu() }, "Importar Artículos" },;
{ oLamcla:cIcoBcBr, { | o | eval(cbBorr) }, "Borrar Artículo" },;
{ oLamcla:cIcoBcEd, { | o | eval(cbModi) }, "Modificar Artículo" },;
{ oLamcla:cIcoBcAg, { | o | (manteArticu(0,oCnArt,oBrwAr,aArti),actArticuloArray()) }, "Agregar Artículo" } ;
} )
:bRClicked := { || MsgInfo( oDock1:oWnd:aControls[ 1 ]:ClassName() ) }
:Activate()
END
oDock2 := TDockPnel():New( oWChArti )
WITH OBJECT oDock2
:SetHeightCaption( 50 )
:SetCoors( { | o | XEval( o:oWnd:aControls[ 1 ]:nTop, o ) }, ;
{ | o | XEval( o:oWnd:aControls[ 1 ]:nRight, o ) + 10 }, ;
{ | o | XEval( o:oWnd:aControls[ 1 ]:nBottom, o ) - 1 }, ;
{ | o | Int( o:oWnd:nWidth / 2 ) + XEval( o:nLeft, o ) - 25 } )
:SetCaption( { | o | "Saldo Discriminado Mes"+CRLF+"Desde: 01/01/"+oLamcla:vGano+" - Hasta: 31/12/"+oLamcla:vGano } )
:SetColors( CLR_WHITE, Rgb( 0,120,215 ) , Rgb( 88, 88, 88 ), CLR_HGRAY )
:SetBorderSize( 4 )
:SetFont( oFont4 )
:lLeftImgs := .F.
:SetImgsFiles( { { oLamcla:cIcoBcCr, { | o | oWChArti:end() }, "Cerrar Ventana" } } )
:SetCtrlsPnel( { | o, nT, nL, nH, nW, oB | oB := fDiscriArtiMes( o, nT, nL, nH, nW ) } )
:Activate()
END
oBtArt:disable()
ACTIVATE WINDOW oWChArti MAXIMIZED ON INIT ( if(len(aArti)!=0,actualizamesarti(aArti[oBrwAr:nArrayAt]),),;
navegapaginas(0),lCondicion:=.T. ) VALID(oBtArt:enable(),.t. )
Return nil
No se si me puedes ayudar a solucionar el problema o pasarme un ejemplo funcional, que tenga dos paneles uno a la izquierda y otro a la derecha.
