FiveTech Support Forums

cnavarro wrote:Manuel, he detectado lo siguiente:
Cuando se crea un nuevo item, primero lo crea y después muestra el cuadro de diálogo de propiedades. Creo que debería ser al revés para poder cancelar la operacion y por lo tanto controlar el proceso

FUNCTION SetTextObj( oItem, nArea, i )
   .....
   if oItem:lVisible
      IF !Empty(  oER:aItems[nArea,i])   // añadido por si es nil
         oER:aItems[nArea,i]:End()
      endif

      oER:aItems[nArea,i] := ;
         TSay():New( oEr:nRulerTop + ER_GetPixel( oItem:nTop ), oER:nRuler + ER_GetPixel( oItem:nLeft ), ;
                     {|| oItem:cText }, oER:aWnd[ nArea ],, ;
                     oFont, lCenter, lRight, ( oItem:lBorder .OR. oGenVar:lShowBorder ), ;
                     .T., oER:GetColor( oItem:nColText ), oER:GetColor( oItem:nColPane ), ;
                     ER_GetPixel( oItem:nWidth ), ER_GetPixel( oItem:nHeight ), ;
                     .F., .T., .F., .F., .F. )
 --------
  
function NewItem( cTyp, nArea, nTmpCopyArea, nTmpCopyEntry, cTmpItemCopy )
.......

 IF oER:lNewFormat
      INI oIni FILE oER:cDefIni
         SET SECTION cAreaIni+"Items" ENTRY AllTrim(STR(nFree,5)) TO cItemDef OF oIni
      ENDINI
   else
      INI oIni FILE cAreaIni
          SET SECTION "Items" ENTRY AllTrim(STR(nFree,5)) TO cItemDef OF oIni
      ENDINI
   endif
   
   // movemos esto aqui y lo comentamos abajo 
   if cTyp <> "COPY"
      ItemProperties( i, nArea,, .T. )
   ELSE
      Add2Undo( "", nFree, nArea )
   endif

   ShowItem( nFree, nArea, cAreaIni, @aFirst, @nElemente )

Seria Interesante que todo se grabe en un solo archivo, y no como lo hace un VRD Y LOS V01'--V??

Seria ..

#include "FiveWin.ch"

function Main()

local cGeneralIni:= "c:\vrd.ini" +space(20)
local oDlg, oBtn,oGet

DEFINE DIALOG oDlg TiTle "Registrar EReport"

@ 2, 2 GET oget VAR cGeneralIni ACTION SetinGet( oGet )

@ 3, 4 BUTTON oBtn PROMPT "Registrar" ACTION Registrar( alltrim( cGeneralIni ) )

@ 3, 15 BUTTON "Salir" ACTION oDlg:End() CANCEL

ACTIVATE DIALOG oDlg CENTERED

return nil

//-----------------------------------------------------------------------------

Function Registrar( cGeneralIni )
local cSerial, cRegist, lOk
local cDrive := hb_CurDrive( cGeneralIni )+":\"


cSerial := alltrim(str(GetSerialHD( cDrive ) ))
cRegist := GetRegistKey( cSerial )
lok := CheckRegist( cSerial, cRegist, cGeneralIni )

if lok
msginfo("registro realizado")
else
msginfo("registro no realizado")
endif

Return nil

//-----------------------------------------------------------------------------

Function SetinGet( oget )
local cfile:= cGetFile( oget:cText )
if !empty(cFile)
oget:cText(cFile)
endif

Return nil

//-----------------------------------------------------------------------------

FUNCTION GetSerialHD( cDrive )

LOCAL cLabel := Space(32)
LOCAL cFileSystem := Space(32)
LOCAL nSerial := 0
LOCAL nMaxComp := 0
LOCAL nFlags := 0

DEFAULT cDrive := "C:\"

GetVolInfo( cDrive, @cLabel, Len( cLabel ), @nSerial, @nMaxComp, @nFlags, ;
@cFileSystem, Len( cFileSystem ) )

RETURN nSerial

DLL32 Function GetVolInfo( sDrive AS STRING, ;
sVolName AS STRING, ;
lVolSize AS LONG , ;
@lVolSerial AS PTR , ;
@lMaxCompLength AS PTR , ;
@lFileSystFlags AS PTR , ;
@sFileSystName AS STRING, ;
lFileSystSize AS LONG ) ;
AS LONG PASCAL ;
FROM "GetVolumeInformationA" ;
LIB "kernel32.dll"


//-----------------------------------------------------------------------------

FUNCTION CheckRegist( cSerial, cRegist, cGeneralIni )

LOCAL lOK := .F.

if !file( cGeneralIni )
msginfo("archivo ini no encontrado")
return .f.
endif

IF ALLTRIM( cRegist ) == GetRegistKey( cSerial )
WritePProString( "General", "RegistKey", ALLTRIM( cRegist ) , cGeneralIni )
lOK := .T.
ENDIF

RETURN ( lOK )


//-----------------------------------------------------------------------------

FUNCTION GetRegistKey( cSerial )

LOCAL cReg := ALLTRIM( STR( INT( ( VAL( ALLTRIM( cSerial ) ) * 167 ) * 4.12344 ), 30 ) )

cReg := SUBSTR( cReg + ALLTRIM( STR( 47348147489715610655, 30 ) ), 1, 12 )

cReg := CHR( VAL( SUBSTR( cReg, 8, 1 ) ) + 74 ) + ;
CHR( VAL( SUBSTR( cReg, 4, 1 ) ) + 68 ) + ;
CHR( VAL( SUBSTR( cReg, 2, 1 ) ) + 70 ) + ;
CHR( VAL( SUBSTR( cReg, 6, 1 ) ) + 66 ) + ;
SUBSTR( cReg, 5 )

RETURN ( cReg )

ruben Dario wrote:Seria Interesante que todo se grabe en un solo archivo, y no como lo hace un VRD Y LOS V01'--V??

ruben Dario wrote:Pero este código supuesta mente activa la versión de Eysareport antigua.

Saludos

Ruben, la implementacion de lo que comentas la ha realizado Manuel, mira

viewtopic.php?f=31t=29070start=180#p166177

&&

Gracias, quedo claro, lo único que veo que si borro un objeto del reporte y luego grabo , vuevo a carga el reporte pero no hace efecto los cambios.

Perfecto mastintin, Hice el Cambio , funciono
Gracias , mastintin

he metido codigo que sincroniza la selección del tree con los elementos selecionados .Podemos selecionar un elemento y esto mueve el elmento selecionado en el tree y tambien podemos selecionar un elemento desde el tree.
He ocultado el panel derecho para buscar una versión estable , sin cosas por completar.
Tenemos que buscar bugs y una vez corregidos colocar una versión funcional que pueda sustituir la version de Tim .

Dear mastintin,

I believe that we are all wrong,

FWH needs a simple report designer as fast report but in a more simple and intuitive.

I thought were upon to create for each report (order type or simple list) a window with a ButtonBar. In this window must be shown the sheet (a4 / a3) not divided by areas but the entire sheet

In this paper we could define areas eg page header, body, foot with their properties (length, width, on even pages on odd pages) and display them in paper box with a dotted line

Then there must be the property of the page (horizontal and vertical, paper size, margins, frame)
On these areas we could enter text and fields databases, graphic files, the box lines

Carles has done an excellent job: Carles has seen far away, in the report of carles you can see the whole sheet and not divided by areas.

In myrep designer would put the dialog's input to the properties of objects as they are in easyreport instead of inspector

Dear mastintin,

this evening I'm trying to create a report ( italian order) with Er
I have many and many problems
Italian report type order is too different from all world formats
We need many fields
where I can sent you a test (made with hand) to see you what I need
Perhaps you can help to realize it with Er..

Silvio.Falconi wrote:Dear mastintin,

this evening I'm trying to create a report ( italian order) with Er
I have many and many problems
Italian report type order is too different from all world formats
We need many fields
where I can sent you a test (made with hand) to see you what I need
Perhaps you can help to realize it with Er..

Manuel,

Muchas gracias por todo tu esfuerzo y dedicación. En efecto, la idea es arreglar EasyReport y dejarlo operativo.

Silvio, quizás podrías contratar a Manuel para que realice un reporter según tus necesidades y las de tu cliente.

Muchas gracias.