Re: edit extended
Posted: Tue Jul 09, 2013 6:54 pm
Merci beaucoup,
Exclusive forum for HMG, a Free / Open Source xBase WIN32/64 Bits / GUI Development System
http://mail.hmgforum.com/
[u]Moderator Notes[/u] (Pablo César) wrote:Your Topic was moved from HMG Unicode version because your message is not regarding HMG version.
Code: Select all
#include "hmg.ch"
// #include "fileio.ch"
PROCEDURE Main
SET LANGUAGE TO SLOVENIAN
REQUEST HB_CODEPAGE_SLWIN
HB_CDPSELECT("SLWIN")
HMG_MESSAGES_UTF8_TO_ANSI("SLWIN")
USE SIF_DAVK SHARED
// msginfo(HMG_CharSetName()+" "+HMG_GetLanguage())
DEFINE WINDOW Win_1 AT 0,0 WIDTH 540 HEIGHT 460 MAIN ON INTERACTIVECLOSE SIF_DAVK->( dbCloseArea() )
ON KEY ESCAPE ACTION Win_1.Release
Define Button Button_4
Row 300
Col 80
Caption 'Test EDIT'
Action sifdavk()
End Button
END WINDOW
Win_1.Center
Win_1.Activate
RETURN
procedure sifdavk()
// Local variable declarations.----------------------------------------
LOCAL aFieldName := { "Šifra", "Naziv davka", "Tarifa", "Davek v %", "Mejni datum", ;
"Davek % pred sprem.", "Skupaj" }
LOCAL aVisTable := { .t., .t., .t., .t., .t., .t., .f. }
LOCAL aFieldEdit := { .t., .t., .t., .t., .t., .t., .f. }
LOCAL aOptions := Array( 3, 2 )
LOCAL bSave := {|aValues, lNew| sifdavksave( aValues, lNew, cArea ) }
LOCAL bSearch := {|| MsgInfo( "Your own search function" ) }
LOCAL bPrint := {|| MsgInfo( "Your own print function" ) }
aOptions[1,1] := "Možnost 1"
aOptions[1,2] := { || MsgInfo( "" ) }
aOptions[2,1] := "Možnost 1"
aOptions[2,2] := { || MsgInfo( "" ) }
aOptions[3,1] := "Opis programa"
aOptions[3,2] := { || MsgInfo( "" ) }
// USE SIF_DAVK
cArea="SIF_DAVK"
SIF_DAVK->( ordListAdd( "DAVK1.NTX", "Šifra davka" ) )
SIF_DAVK->( ordSetFocus( 1 ) )
EDIT EXTENDED ;
WORKAREA SIF_DAVK ;
TITLE "Davène skupine" ;
FIELDNAMES aFieldName ;
FIELDENABLED aFieldEdit ;
TABLEVIEW aVisTable ;
OPTIONS aOptions ;
ON SAVE bSave
// CLOSE SIF_DAVK
return
function sifdavksave( aValues, lNew, cArea )
LOCAL i := 1
IF Empty( aValues[1] ) // First name.
msgInfo( "Šifra davka mora biti vnešena !" )
return ( .f. )
ENDIF
IF lNew
sif_davk->( dbAppend() )
ENDIF
FOR i := 1 TO Len( aValues )
rlock()
sif_davk->( FieldPut( i, aValues[i] ) )
unlock
NEXT
return ( .t. )
FUNCTION HMG_MESSAGES_UTF8_TO_ANSI (cCPID)
LOCAL k, i, nIndex, cUTF8Str, cANSIStr
LOCAL aPos := {128, 129, 130, 131, 132, 133, 134, 136, 137, 331, 371}
FOR k = 1 TO HMG_LEN (aPos)
nIndex := aPos [k]
IF ValType (_HMG_SYSDATA [nIndex]) == "A"
FOR i = 1 TO HMG_LEN (_HMG_SYSDATA [nIndex])
cUTF8Str := _HMG_SYSDATA [nIndex] [i]
cANSIStr := HB_UTF8TOSTR (cUTF8Str, cCPID)
_HMG_SYSDATA [nIndex] [i] := cANSIStr
NEXT
ELSE
cUTF8Str := _HMG_SYSDATA [nIndex]
cANSIStr := HB_UTF8TOSTR (cUTF8Str, cCPID)
_HMG_SYSDATA [nIndex] := cANSIStr
ENDIF
NEXT
RETURN NIL
I understand your question. It is due missing part of scrolling window, as showing in this image: -------------radohabjan wrote:Is there possible to have another two parameters in function EDIT EXTEND :
HEIGHT and WIDTH
EDIT EXTENDED ;
HEIGHT 300;
WIDTH 400 ;
WORKAREA SIF_DAVK ;
TITLE "Davčne skupine" ;
FIELDNAMES aFieldName ;
FIELDENABLED aFieldEdit ;
TABLEVIEW aVisTable ;
OPTIONS aOptions ;
ON SAVE bSave
This as the error message shows it is not finding the cArea variable. So at begining of your prg add red lines as shows below:radohabjan wrote:now I have problem by save function in EDIT EXTENDED: "Variable does not exist: cArea"