Voor het uitwisselen van ervaringen, vragen om ondersteuning e.d.
kunt u zich abonneren op de mailing list voor gebruikers op
SourceForge.
De EekBoek gebruikers houden zelf
een wiki bij met
tips en andere wetenswaardigheden.
EekBoek kan gratis worden gedownload en
gebruikt. Mocht u echter aanvullende wensen hebben op het gebied van
ondersteuning dan kan dat ook.
Squirrel Consultancy
is gaarne bereid u betaalde ondersteuning te bieden, bijvoorbeeld bij het
installeren van EekBoek, het opzetten van
administraties, en het overzetten van uw bestaande administraties naar
EekBoek. Ook kunnen specifieke uitbreidingen
of aanpassingen naar uw wens worden gerealiseerd.
Voor meer informatie:
info\@squirrel.nl.
EOD
$md->SetTitle($title);
$md->ShowModal;
$md->Destroy;
# end wxGlade
}
sub OnClear {
my ($self, $event) = @_;
# wxGlade: EB::Wx::Shell::MainFrame::OnClear
$self->{t_output}->SetValue("");
# end wxGlade
}
sub OnPrefs {
my ($self, $event) = @_;
# wxGlade: EB::Wx::Shell::MainFrame::OnPrefs
$self->{d_prefs} ||= EB::Wx::Shell::PreferencesDialog->new($self, -1, "Preferences");
for ( keys( %$prefctl ) ) {
if ( exists $self->{d_prefs}->{"cx_$_"} ) {
$self->{d_prefs}->{"cx_$_"}->SetValue( $self->{"prefs_$_"} );
}
elsif ( exists $self->{d_prefs}->{"spin_$_"} ) {
$self->{d_prefs}->{"spin_$_"}->SetValue( $self->{"prefs_$_"} );
}
}
my $ret = $self->{d_prefs}->ShowModal;
if ( $ret == wxID_OK ) {
for ( keys( %$prefctl ) ) {
if ( exists $self->{d_prefs}->{"cx_$_"} ) {
$self->{"prefs_$_"} = $self->{d_prefs}->{"cx_$_"}->GetValue;
}
elsif ( exists $self->{d_prefs}->{"spin_$_"} ) {
$self->{"prefs_$_"} = $self->{d_prefs}->{"spin_$_"}->GetValue;
}
}
}
# end wxGlade
}
sub FillHistory {
my ($self, $histfile) = @_;
$self->{_histfile} = $histfile;
$self->{_cmd} = [];
$self->{_cmdptr} = 0;
if ( -s $histfile ) {
my $fh;
return unless open($fh, "<:encoding(utf-8)", $histfile);
my $prev = '';
while ( <$fh> ) {
chomp;
next if $_ eq $prev;
$self->PutOnHistory($_);
$prev = $_;
}
close($fh);
}
$self->{_cmdinit} = $self->{_cmdptr} = $#{$self->{_cmd}} + 1;
}
sub GetPreferences {
my ( $self ) = @_;
my $conf = Wx::ConfigBase::Get;
for ( keys( %$prefctl ) ) {
$self->{"prefs_$_"} = $conf->ReadInt( "preferences/$_", $prefctl->{$_} );
}
}
sub SaveHistory {
my $self = shift;
my $fh;
my $histfile = $self->{_histfile};
$self->{_cmdinit} = $self->{_cmdptr} - $self->{prefs_histlines};
$self->{_cmdinit} = 0 if $self->{_cmdinit} < 0;
return unless open($fh, ">:encoding(utf-8)", $histfile);
while ( $self->{_cmdinit} < $self->{_cmdptr} ) {
print { $fh } ($self->{_cmd}->[$self->{_cmdinit}], "\n");
$self->{_cmdinit}++;
}
close($fh);
}
sub SavePreferences {
my ( $self ) = @_;
my $conf = Wx::ConfigBase::Get;
for ( keys( %$prefctl ) ) {
$conf->WriteInt( "preferences/$_", $self->{"prefs_$_"} );
}
}
sub OnMenuBal {
my ($self, $event, $sub) = @_;
# wxGlade: EB::Wx::Shell::MainFrame::OnMenuBal
if ( defined $sub && $sub >= 0 ) {
$self->_cmd("balans --verdicht --detail=$sub --gen-wxhtml\n");
}
else {
$self->_cmd("balans --gen-wxhtml\n");
}
# end wxGlade
}
sub OnMenuRes {
my ($self, $event, $sub) = @_;
# wxGlade: EB::Wx::Shell::MainFrame::OnMenuRes
if ( defined $sub && $sub >= 0 ) {
$self->_cmd("result --verdicht --detail=$sub --gen-wxhtml\n");
}
else {
$self->_cmd("result --gen-wxhtml\n");
}
# end wxGlade
}
sub OnMenuAP {
my ($self, $event) = @_;
# wxGlade: EB::Wx::Shell::MainFrame::OnMenuAP
$self->_cmd("crediteuren --gen-wxhtml\n");
# end wxGlade
}
sub OnMenuAR {
my ($self, $event) = @_;
# wxGlade: EB::Wx::Shell::MainFrame::OnMenuAR
$self->_cmd("debiteuren --gen-wxhtml\n");
# end wxGlade
}
sub OnMenuVAT {
my ($self, $event) = @_;
# wxGlade: EB::Wx::Shell::MainFrame::OnMenuAR
$self->_cmd("btwaangifte --gen-wxhtml\n");
# end wxGlade
}
sub OnMenuUns {
my ($self, $event) = @_;
# wxGlade: EB::Wx::Shell::MainFrame::OnMenuUns
$self->_cmd("openstaand --gen-wxhtml\n");
# end wxGlade
}
sub OnTrial {
my ($self, $event) = @_;
# wxGlade: EB::Wx::Shell::MainFrame::OnTrial
$self->_cmd("proefensaldibalans --gen-wxhtml\n");
# end wxGlade
}
sub OnJournal {
my ($self, $event) = @_;
# wxGlade: EB::Wx::Shell::MainFrame::OnJournal
$self->_cmd("journaal --gen-wxhtml\n");
# end wxGlade
}
#### Callbacks from HTML links
sub _HTMLCallBack {
my ($self, $command, $args) = @_;
my $cmd = $command;
$cmd .= " " . delete($args->{select});
while ( my($k,$v) = each( %$args ) ) {
$cmd .= " --$k=$v";
}
$cmd .= " --gen-wxhtml";
$self->_cmd($cmd."\n");
}
sub ShowRJnl { shift->_HTMLCallBack( "journaal", @_ ) }
sub ShowRGbk { shift->_HTMLCallBack( "grootboek", @_ ) }
sub ShowRCrd { shift->_HTMLCallBack( "crediteuren", @_ ) }
sub ShowRDeb { shift->_HTMLCallBack( "debiteuren", @_ ) }
# end of class EB::Wx::Shell::MainFrame
1;