SF.net SVN: ledger-smb:[6259] addons/1.3/wxPOS/scripts/WXPOS/UI

[..hidden..]

Revision: 6259
          http://sourceforge.net/p/ledger-smb/code/6259
Author:   einhverfr
Date:     2013-11-08 07:24:27 +0000 (Fri, 08 Nov 2013)
Log Message:
-----------
Beginnings of payment dialog box

Modified Paths:
--------------
    addons/1.3/wxPOS/scripts/WXPOS/UI/AR.pm

Added Paths:
-----------
    addons/1.3/wxPOS/scripts/WXPOS/UI/AR/
    addons/1.3/wxPOS/scripts/WXPOS/UI/AR/Pay.pm

Added: addons/1.3/wxPOS/scripts/WXPOS/UI/AR/Pay.pm
===================================================================
--- addons/1.3/wxPOS/scripts/WXPOS/UI/AR/Pay.pm	                        (rev 0)
+++ addons/1.3/wxPOS/scripts/WXPOS/UI/AR/Pay.pm	2013-11-08 07:24:27 UTC (rev 6259)
@@ -0,0 +1,49 @@
+
+package WXPOS::UI::AR::Pay;
+use Wx qw(wxDefaultPosition wxDefaultSize wxOK wxCENTRE wxTE_PASSWORD wxCLOSE_BOX wxBITMAP_TYPE_PNG);
+use base qw(Wx::Dialog);
+use Wx::Event qw(EVT_BUTTON);
+use WXPOS::Sysconfig;
+
+sub new{
+    my ($class, $parent) = @_;
+    my $self =  Wx::Dialog->new(undef , -1, "LedgerSMB", wxDefaultPosition, 
+        [600, 400]);
+    bless $self, $class;
+    $self->{parent_window} = $parent; # Need this access for storing payments 
+    $self->{WxPanel} = Wx::Panel->new($self, -1, wxDefaultPosition, [800, 300]);
+    Wx::InitAllImageHandlers();
+
+    ### ENTRY LINE:  Amount, Type, Source
+    Wx::StaticText->new($self->{WxPanel}, -1, 'Amount', [50, 00], [80, 24]);
+    $self->{payment} = Wx::TextCtrl->new($self->{WxPanel}, -1, '', 
+                                 [130, 00], [60, 24]
+    );
+    Wx::StaticText->new($self->{WxPanel}, -1, 'Type', [200, 00], [80, 24]);
+    $self->{memo} = Wx::ComboBox->new($self->{WxPanel}, -1, $list->[0], 
+                                 [250, 0], [60, 24], [''], wxCB_READONLY);
+    
+    Wx::StaticText->new($self->{WxPanel}, -1, 'Source', [300, 00], [80, 24]);
+    $self->{source} = Wx::TextCtrl->new($self->{WxPanel}, -1, '', 
+                                 [350, 00], [60, 24]
+    );
+    
+
+    ### LIST BOX
+
+    ### POST/CANCEL BUTTONS
+
+    ### SHOW DIALOG
+    $self->ShowModal();
+}
+
+sub _AddPayment {
+}
+
+sub _Cancel{
+}
+
+sub _Post {
+}
+
+1;

Modified: addons/1.3/wxPOS/scripts/WXPOS/UI/AR.pm
===================================================================
--- addons/1.3/wxPOS/scripts/WXPOS/UI/AR.pm	2013-11-08 05:49:22 UTC (rev 6258)
+++ addons/1.3/wxPOS/scripts/WXPOS/UI/AR.pm	2013-11-08 07:24:27 UTC (rev 6259)
@@ -6,6 +6,8 @@
 use Wx::Grid;
 use WXPOS::Part;
 use WXPOS::Counterparty;
+use lib 'scripts';
+use WXPOS::UI::AR::Pay;
 
 # TODO:
 # Need payment/posting screen
@@ -268,7 +270,6 @@
 
 sub _InvoicePay {
  my($self) = @_;
- Wx::MessageBox("At this point we should be able to track each account and the account to set.", "DEBUG", wxOK|wxCENTRE|wxICON_ERROR, $self->{tab});
- return 1;
+ WXPOS::UI::AR::Pay->new();
 }
 1;

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.


------------------------------------------------------------------------------
November Webinars for C, C++, Fortran Developers
Accelerate application performance with scalable programming models. Explore
techniques for threading, error checking, porting, and tuning. Get the most 
from the latest Intel processors and coprocessors. See abstracts and register
http://pubads.g.doubleclick.net/gampad/clk?id=60136231&iu=/4140/ostg.clktrk
_______________________________________________
Ledger-smb-commits mailing list
..hidden..
https://lists.sourceforge.net/lists/listinfo/ledger-smb-commits