FOLDER NO APARECE CON RECURSOS

[Luis]

En primer lugar muchas gracias por dejarme pertenecer a este foro.
El Problema que tengo es el siguiente:
Recien estoy cambiandome a Harbour, trabajo con Fivewin y con archivos DLL en workshop siguiendo los pasos de este foro cambie todos los recursos borland y logre cambiar los
DLL de 16 a 32 bits usando RC2DLL32.BAT convirtiendolos archivos .RC a DLL DE 32 pero el asunto es que
cuando ejecuto el programa el FOLDER no se ve como si no existiera sin embargo esta, se ven los que contiene el FOLDER 1 pero nada mas; ademas que el recurso se ve mas
pequeño que la pantalla normal.
Cual es el problema me pueden ayudar en FIVEWIN funciona normal.
USO HARBOUR Harbour 1.1.0 + CC5.5 + WORKSHOP CON RC2DLL32.BAT

#Include "FiveWin.Ch"
#include "Folder.ch"
FUNCTION Sys111(oWPpal)

Local oWnd, oDlg, oFld, oBrw, oBr1, oLbx, fntArial, fntAria1, vAlias, TEM, l3d:= .F., oCurDedo, oBtn, oBt1
Local aDatos:= {}, cPic:= "@ze 999,999.99" // Array MultiDimensional
Local hBmp:= ReadBitMap( 0, "finger.bmp" ) // Dedicado a mi amigo Mario Goanzalez
Local cVar := {Ctod(""),; // 1 fecha
Space(5),; // 2 serped
Space(10),; // 3 numped
Space(4),; // 4 codven
Space(3),; // 5 codpag
Space(2),; // 6 cobdoc
Ctod(""),; // 7 fecent
Space(5),; // 8 codcli
Space(2),; // 9 codalm
Space(20),; // 10 NOM VEND
Space(20),; // 11 nom fpago
Space(8),; // 12 VAR BASE AYUDA
Space(10),; // 13 nomcli
Space(10),; // 14 dircli
Space(10),; // 15 discli
Space(10),; // 16 VAR BASE AYUDA
"N" },; // 17 SI EXISTE PED
oObj := Array(16),;
aSample := { {"","",0} },;
aSampl1 := { {"","",0} }
Local cDet := { Space(08),Space(80),0,0 }
Local oDet[04]
Local cGen := { Space(08),Space(80),0 }
Local oGen[03]

SET _3DLOOK ON

DEFINE FONT fntArial NAME "Arial Negrita" SIZE 0,-13
DEFINE FONT fntAria1 NAME "Arial" SIZE 0,-11
DEFINE CURSOR oCurDedo RESOURCE "Dedo"
DEFINE Window oWnd MDICHILD OF owppal TITLE "Ingreso de Pedidos - ("+Procname()+")" FROM 0,1 TO 40.15, 112.2 // 40.15, 112.2
oWnd:bgotfocus:={||oDlg:setfocus()}

DEFINE DIALOG oDlg RESOURCE "INGPEDI" OF oWnd FONT fntArial

REDEFINE GET oObj[1] VAR cVar[01] ID 158 OF oDlg
REDEFINE GET oObj[2] VAR cVar[02] ID 117 OF oDlg;
VALID Eval ( {|| ( cVar[02]:=Nceros(Ltrim(cVar[02]),5,'r'), oObj[2]:Refresh() ), .T. } )
REDEFINE GET oObj[3] VAR cVar[03] ID 141 OF oDlg;
VALID Eval ( {|| ( cVar[03]:=Nceros(Ltrim(cVar[03]),10,'r'),;
oObj[3]:Refresh(),;
vAlias := Abrebase("PEDIDO","PEDID1",,"ANULADO:=.F."),;
Iif( (vAlias)->(Dbseek(cVar[02]+cVar[03])),;
( cVar[17]:="S",;
Iif ( MSGNOYES("Continua ?","Pedido Ya Existe"),;
.T.,;
(cVar[02]:=Space(05),cVar[03]:=Space(10),oObj[3]:oJump:=oObj[2],oObj[2]:Refresh(),oObj[3]:Refresh()) ) ) ,;
.F. ),;
(vAlias)->(dbCloseArea()) ), .T. } )

REDEFINE GET oObj[4] VAR cVar[04] ID 159 OF oDlg ;
VALID Empty(cVar[04]) .OR. Eval ( {|| ( vAlias := Abrebase("Maeven","Maeven1","Maeven2"),;
cVar[04] := Nceros(Ltrim(cVar[04]),4,'r'), oObj[4]:Refresh(),;
Iif( (vAlias)->(Dbseek(cVar[04])),;
( cVar[10]:=Subs((vAlias)->Nombre,1,30), oObj[10]:Refresh() ),;
( Msgstop("Vendedor NO Existe"),cVar[04]:=Space(4),oObj[4]:oJump:=oObj[4],oObj[4]:Refresh(),.F.)) ),;
(vAlias)->(dbCloseArea()),.T. } )
REDEFINE BITMAP ID 126 ADJUST RESOURCE "BUSCAR" OF oDlg CURSOR oCurDedo;
ON CLICK (vAlias := Abrebase("Maeven","Maeven1","Maeven2"),;
cVar[04] := Buscadato(vAlias,"Maeven1","Maeven2"),;
oObj[04]:Setfocus(), oObj[04]:Refresh())
REDEFINE SAY oObj[10] PROMPT cVar[10] ID 200 OF oDlg
REDEFINE GET oObj[5] VAR cVar[05] ID 120 OF oDlg ;
VALID Empty(cVar[05]) .OR. Eval ( {|| (vAlias := Abrebase("Maecon","Maecon1",),;
cVar[05] := Nceros(Ltrim(cVar[05]),3,'r'), oObj[5]:Refresh(),;
Iif( (vAlias)->(Dbseek(cVar[05])),;
( cVar[11] := Subs((vAlias)->Nombre,1,25), oObj[11]:Refresh() ),;
( Msgstop("Condici¢n NO Existe"),cVar[05]:=Space(3),oObj[5]:oJump:=oObj[5],oObj[5]:Refresh(),.F.) ) ),;
(vAlias)->(dbCloseArea()),.T. } )
REDEFINE BITMAP ID 127 ADJUST RESOURCE "BUSCAR" OF oDlg CURSOR oCurDedo;
ON CLICK (vAlias := Abrebase("Maecon","Maecon1",),;
cVar[05] := Buscadato(vAlias,"Maecon1",),;
oObj[5]:Setfocus(), oObj[5]:Refresh())
REDEFINE SAY oObj[11] PROMPT cVar[11] ID 202 OF oDlg
REDEFINE GET oObj[6] VAR cVar[06] ID 119 OF oDlg ;
VALID Empty(cVar[06]) .OR. Eval ( {||vAlias := Abrebase("Maedoc","Maedoc1",),;
cVar[06] := Nceros(Ltrim(cVar[06]),2,'r'), oObj[6]:Refresh(),;
Iif( (vAlias)->(Dbseek(cVar[06])),;
(cVar[12] := Subs((vAlias)->Nombre,1,20),;
oObj[6]:Refresh(), oObj[12]:Refresh() ),;
(Msgstop("Documento NO Existe"),cVar[06]:=Space(2),oObj[6]:oJump:=oObj[6],oObj[6]:Refresh(),.F.)),;
(dbCloseArea()),.T. } )
REDEFINE BITMAP ID 136 ADJUST RESOURCE "BUSCAR" OF oDlg CURSOR oCurDedo;
ON CLICK (vAlias := Abrebase("Maedoc","Maedoc1",),;
cVar[06] := Buscadato(vAlias,"Maedoc1",),;
oObj[6]:Setfocus(), oObj[6]:Refresh())
REDEFINE SAY oObj[12] PROMPT cVar[12] ID 201 OF oDlg
REDEFINE GET oObj[7] VAR cVar[07] ID 140 OF oDlg
REDEFINE GET oObj[8] VAR cVar[08] ID 115 OF oDlg ;
VALID Empty(cVar[08]) .OR. Eval ( {|| (vAlias) := Abrebase("Cli","Cli1","Cli5"),;
cVar[08] := Nceros(Ltrim(cVar[08]),5,'r'), oObj[8]:Refresh(),;
Iif( (vAlias)->(Dbseek(cVar[08])),;
( cVar[13] := Oemtoansi((vAlias)->Nombres),;
cVar[16] := (vAlias)->Ruc,;
cVar[14] := Oemtoansi((vAlias)->Direccion),;
cVar[15] := Oemtoansi((vAlias)->Distrito),;
oObj[13]:Refresh(),;
oObj[14]:Refresh(),;
oObj[15]:Refresh(),;
oObj[16]:Refresh() ),;
( Msgstop("Cliente NO Existe"), cVar[08]:=Space(5), oObj[8]:oJump:=oObj[8], oObj[8]:Refresh(),.F. ) ),;
(vAlias)->(dbCloseArea()),.T. } )
REDEFINE SAY oObj[13] PROMPT cVar[13] ID 123 OF oDlg
REDEFINE SAY oObj[14] PROMPT cVar[14] ID 116 OF oDlg
REDEFINE SAY oObj[15] PROMPT cVar[15] ID 124 OF oDlg
REDEFINE SAY oObj[16] PROMPT cVar[16] ID 125 OF oDlg
REDEFINE BITMAP ID 128 ADJUST RESOURCE "BUSCAR" OF oDlg CURSOR oCurDedo;
ON CLICK (vAlias := Abrebase("Cli","Cli1","Cli5"),;
cVar[08] := Buscadato(vAlias,"Cli1","Cli5"),;
oObj[8]:Setfocus(), oObj[8]:Refresh())
REDEFINE GET oObj[9] VAR cVar[09] ID 114 OF oDlg;
VALID Eval ( {|| ( cVar[09]:=Nceros(Ltrim(cVar[09]),2,'r'), oObj[9]:Refresh() ), .T. } )

REDEFINE FOLDER oFld ID 118 OF oDlg ;
PROMPT "&Detalles", "&Generico" // ;
// DIALOGS "INGPEDIDET", "INGPEDIGEN"

//---------- FOLDER 1 ---------//

REDEFINE GET oDet[01] VAR cDet[01] ID 109 OF oFld:aDialogs[ 1 ];
VALID EMPTY(cDet[01]) .OR. Eval ( {|| cDet[01] := Nceros(Ltrim(cDet[01]),8,'r'), oDet[01]:Refresh(),;
(vAlias := Abrebase("Maeart","Maeart1",),;
Iif( (vAlias)->(Dbseek(cDet[01])),;
( cDet[02] := (vAlias)->descrip,;
oDet[02]:Refresh() ),;
( Msgstop("Producto NO Existe"),cDet[01]:=Space(8),;
oDet[01]:Refresh(),.F.)) ),;
(vAlias)->(dbCloseArea()), .T. } )

REDEFINE BITMAP ID 111 ADJUST RESOURCE "BUSCAR" OF oFld:aDialogs[ 1 ] CURSOR oCurDedo;
ON CLICK ( vAlias := Abrebase("Maeart","Maeart1",),;
cDet[01] := Buscadato(vAlias,"Maeart1",),;
oDet[01]:Setfocus(), oDet[01]:Refresh() )

REDEFINE SAY oDet[02] PROMPT cDet[02] ID 110 OF oFld:aDialogs[ 1 ]
REDEFINE GET oDet[03] VAR cDet[03] ID 112 OF oFld:aDialogs[ 1 ]

REDEFINE BUTTON oBtn ID 113 OF oFld:aDialogs[ 1 ] ACTION ( AgrDat(cDet,oBrw,aSample,oDet),;
cDet[01] := Space(8), cDet[02] := Space(80), cDet[03] := 0,;
oDet[01]:Refresh(), oDet[02]:Refresh(), oDet[03]:Refresh(),;
oBtn:oJump:=oDet[01], oDet[01]:Setfocus() )

// TWBrowse():lHScroll:= .T.
REDEFINE LISTBOX oBrw ;
FIELDS "","","" ;
HEADERS "CODIGO","DESCRIPCION","CANTIDAD" ;
FIELDSIZES 90,600,90 ;
ID 108 ;
OF oFld:aDialogs[ 1 ]

oBrw:aJustify := {.F.,.F.,.T.}
oBrw:nAt = 1
oBrw:bLine = { || { aSample[ oBrw:nAt ][ 1 ],;
aSample[ oBrw:nAt ][ 2 ],;
TRANSF(aSample[ oBrw:nAt ][ 3 ],"999,999.99") } }
oBrw:bGoTop = { || oBrw:nAt := 1 }
oBrw:bGoBottom = { || oBrw:nAt := Eval( oBrw:bLogicLen ) }
oBrw:bSkip = { | nWant, nOld | nOld := oBrw:nAt, oBrw:nAt += nWant,;
oBrw:nAt := Max( 1, Min( oBrw:nAt, Eval( oBrw:bLogicLen ) ) ),;
oBrw:nAt - nOld }
oBrw:bLogicLen = { || Len( aSample ) }
oBrw:cAlias = "Array"

If l3D
oBrw:Set3DStyle()
EndIf

REDEFINE SAY oDet[04] PROMPT cDet[04] ID 115 OF oFld:aDialogs[ 1 ]

//---------- FOLDER 2 ---------//

REDEFINE GET oGen[01] VAR cGen[01] ID 109 OF oFld:aDialogs[ 2 ];
VALID EMPTY(cGen[01]) .OR. Eval ( {|| cGen[01] := Nceros(Ltrim(cGen[01]),8,'r'), oGen[01]:Refresh(),;
(vAlias := Abrebase("Maeart","Maeart1",),;
Iif( (vAlias)->(Dbseek(cGen[01])),;
( cGen[02] := (vAlias)->descrip,;
oGen[02]:Refresh() ),;
( Msgstop("Producto NO Existe"),cGen[01]:=Space(8),;
oGen[01]:Refresh(),.F.)) ),;
(vAlias)->(dbCloseArea()), .T. } )

REDEFINE BITMAP ID 111 ADJUST RESOURCE "BUSCAR" OF oFld:aDialogs[ 2 ] CURSOR oCurDedo;
ON CLICK ( vAlias := Abrebase("Maeart","Maeart1",),;
cGen[01] := Buscadato(vAlias,"Maeart1",),;
oGen[01]:Setfocus(), oGen[01]:Refresh() )

REDEFINE SAY oGen[02] PROMPT cGen[02] ID 110 OF oFld:aDialogs[ 2 ]
REDEFINE GET oGen[03] VAR cGen[03] ID 112 OF oFld:aDialogs[ 2 ]

REDEFINE BUTTON oBt1 ID 113 OF oFld:aDialogs[ 2 ] ACTION ( AgrGen(cGen,oBr1,aSampl1),;
cGen[01] := Space(8), cGen[02] := Space(80), cGen[03] := 0,;
oGen[01]:Refresh(), oGen[02]:Refresh(), oGen[03]:Refresh(),;
oBt1:oJump:=oGen[01], oGen[01]:Setfocus() )

// TWBrowse():lHScroll:= .T.
REDEFINE LISTBOX oBr1 ;
FIELDS "","","" ;
HEADERS "CODIGO","DESCRIPCION","CANTIDAD" ;
FIELDSIZES 90,600,90 ;
ID 108 ;
OF oFld:aDialogs[ 2 ]

oBr1:aJustify := {.F.,.F.,.T.}
oBr1:nAt = 1
oBr1:bLine = { || { aSampl1[ oBr1:nAt ][ 1 ],;
aSampl1[ oBr1:nAt ][ 2 ],;
TRANSF(aSampl1[ oBr1:nAt ][ 3 ],"999,999.99") } }
oBr1:bGoTop = { || oBr1:nAt := 1 }
oBr1:bGoBottom = { || oBr1:nAt := Eval( oBr1:bLogicLen ) }
oBr1:bSkip = { | nWant, nOld | nOld := oBr1:nAt, oBr1:nAt += nWant,;
oBr1:nAt := Max( 1, Min( oBr1:nAt, Eval( oBr1:bLogicLen ) ) ),;
oBr1:nAt - nOld }
oBr1:bLogicLen = { || Len( aSampl1 ) }
oBr1:cAlias = "Array"

If l3D
oBr1:Set3DStyle()
EndIf

REDEFINE BUTTON ID 121 OF oDlg ACTION ( Grabar:=.T., Graven(cVar,aSample,aSampl1), dbCloseAll(), ownd:End() )
REDEFINE BUTTON ID 122 OF oDlg ACTION ( Grabar:=.F., dbCloseAll(), ownd:End() )

ACTIVATE DIALOG oDlg NOWAIT on init (oDlg:Move(0,0))
ACTIVATE WINDOW oWnd NORMAL
Sysrefresh()

RETURN NIL

Muchas Gracias
Luis Quiroz

[Raymundo Islas M.]

Luis,

En la definicion del Folder, anulaste los dialogos.

Code: Select all  Expand view

REDEFINE FOLDER oFld ID 118 OF oDlg ;
PROMPT "&Detalles", "&Generico" // ;
// DIALOGS "INGPEDIDET", "INGPEDIGEN"    <====
 

Por eso no te muestra el contenido del mismo.


Saludos

[Daniel Garcia-Gil]

Luis...


asegurate que el folder dentro de recurso este llamado de esta forma: "SysTabControl32"

[ICO]

Boa Tarde..
as suas dialogs "&Detalles", "&Generico" também terão que ser definida como CHILD

entre nas Propriedades da dialog e em "Window Type" terá as opções.

< > Popup
< > Overlapped
<X> Child // defina esta.

Abraços..