Hola a todos.
Estoy ahora tratando de hacer una funci贸n en la que se inscriban acuerdo de empresas en libros de inscripciones. Muchos de vosotros ya conocer茅is lo que es un tomo de libro inscripciones del Registro de la Propiedad, por ejemplo, pero en este caso se trata de empresas en la que se inscriben acuerdos (no es el Registro Mercantil).
Pues estoy trantado de hacer con un splitter y un otree ver la forma de c贸mo hacerlo. Ver茅is, cada tomo contiene 200 folios (tama帽o un poco menor que un A3), por anverso y reverso, y de lo que se trata es de digitalizar lo que hay en papel y continuar con el pdf generado de los libro sy a partir de ah铆 hacer las inscripciones con el acrobat profesional. El otree m谩s o menos lo tengo claro, pero me gustar铆a que se ver铆a en la ventana de la derecha el pdf.
Aqu铆 ten茅is una composici贸n de la de lo que ser铆a la idea:
El c贸digo con el que he empezado el tema es este:
Estoy ahora tratando de hacer una funci贸n en la que se inscriban acuerdo de empresas en libros de inscripciones. Muchos de vosotros ya conocer茅is lo que es un tomo de libro inscripciones del Registro de la Propiedad, por ejemplo, pero en este caso se trata de empresas en la que se inscriben acuerdos (no es el Registro Mercantil).
Pues estoy trantado de hacer con un splitter y un otree ver la forma de c贸mo hacerlo. Ver茅is, cada tomo contiene 200 folios (tama帽o un poco menor que un A3), por anverso y reverso, y de lo que se trata es de digitalizar lo que hay en papel y continuar con el pdf generado de los libro sy a partir de ah铆 hacer las inscripciones con el acrobat profesional. El otree m谩s o menos lo tengo claro, pero me gustar铆a que se ver铆a en la ventana de la derecha el pdf.
Aqu铆 ten茅is una composici贸n de la de lo que ser铆a la idea:
El c贸digo con el que he empezado el tema es este:
#include "FiveWin.ch"
#include "Splitter.ch"
//----------------------------------------------------------------------------//
function Main()
聽 聽local oWnd, oBar, oTree, oItem1, oItem2, oBmp1, oBmp2, oImageList, oSplit
聽 聽DEFINE WINDOW oWnd FROM 3, 6 TO 20, 70 ;
聽 聽 聽 TITLE "Libro de registro de empresas"
聽 聽DEFINE BUTTONBAR oBar OF oWnd _3D
聽 聽DEFINE BUTTON RESOURCE "open" OF oBar ACTION oTree:aItems[ 1 ]:Expand() ;
聽 聽 聽 TOOLTIP "Expand" NOBORDER
聽 聽DEFINE BUTTON RESOURCE "close" OF oBar ACTION oTree:aItems[ 1 ]:Collapse() ;
聽 聽 聽 TOOLTIP "Colapse" NOBORDER
聽 聽DEFINE BUTTON RESOURCE "open" OF oBar ACTION oTree:ExpandAll() ;
聽 聽 聽 TOOLTIP "Expand all items" NOBORDER
聽 聽DEFINE BUTTON RESOURCE "close" OF oBar ACTION oTree:ColapseAll() ;
聽 聽 聽 TOOLTIP "Colapse all items" NOBORDER
聽 聽DEFINE BUTTON RESOURCE "close" OF oBar ACTION oTree:GetSelected():SetText( Time() ) ;
聽 聽 聽 TOOLTIP "Change Text" NOBORDER
聽 聽oImageList = TImageList():New()
聽 聽oBmp1 = TBitmap():Define( "folder",, oWnd )
聽 聽oBmp2 = TBitmap():Define( "fldMask",, oWnd )
聽 聽oImageList:Add( oBmp1, oBmp2 )
聽 聽oTree = TTreeView():New( 2, 0, oWnd )
聽 聽oTree:bChanged = { || oWnd:SetText( If( oTree:GetSelected():GetParent() != nil,;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽oTree:GetSelected():GetParent():cPrompt + " + ", "" ) + ;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽oTree:GetSelText() ) }
聽 聽oTree:SetImageList( oImageList )
聽 聽oItem1 = oTree:Add( "Tomo 1" )
聽 聽oItem2 = oItem1:Add( "Folio 1" )
聽 聽 聽 oItem2:Add( "Anverso" )
聽 聽 聽 oItem2:Add( "Reverso" )
聽 聽 聽oItem2 = oTree:Add( "Tomo 2" )
聽 聽 聽 oItem2 = oItem2:Add( "Folio 2" )
聽 聽 聽 oItem2:Add( "Anverso" )
聽 聽 聽 oItem2:Add( "Reverso" )
聽 聽
聽 聽@ 29, 200 SPLITTER oSplit ;
聽 聽 聽 VERTICAL _3DLOOK ;
聽 聽 聽 PREVIOUS CONTROLS oTree ;
聽 聽 聽 SIZE 4, 200 PIXEL ;
聽 聽 聽 OF oWnd
聽 聽ACTIVATE WINDOW oWnd ;
聽 聽 聽 ON RESIZE oSplit:AdjClient()
聽 聽oImageList:End()
聽 聽oBmp1:End()
聽 聽oBmp2:End()
return nil
//----------------------------------------------------------------------------//
procedure AppSys 聽// Xbase++ requirement
return
//----------------------------------------------------------------------------//FWH 20.12 BCC7
