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

[..hidden..]

Revision: 6300
          http://sourceforge.net/p/ledger-smb/code/6300
Author:   einhverfr
Date:     2013-11-21 10:52:48 +0000 (Thu, 21 Nov 2013)
Log Message:
-----------
Saving customers now works.

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

Modified: addons/1.3/wxPOS/WXPOS/UI/AR.pm
===================================================================
--- addons/1.3/wxPOS/WXPOS/UI/AR.pm	2013-11-21 10:35:35 UTC (rev 6299)
+++ addons/1.3/wxPOS/WXPOS/UI/AR.pm	2013-11-21 10:52:48 UTC (rev 6300)
@@ -51,9 +51,9 @@
 
 ### Customer
  my $dft_custom = $self->{sesion}->{defaults}->{custom} || '';
- if ($WXPOS::Sysconfig::Args->{name}){
-    $dft_custom = $WXPOS::Sysconfig::Args->{name};
-    delete $WXPOS::Sysconfig::Args->{name};
+ if ($WXPOS::State::Args->{name}){
+    $dft_custom = $WXPOS::State::Args->{name};
+    delete $WXPOS::State::Args->{name};
  }
  $dft_custom ||= $WXPOS::Sysconfig::default_customer;
  Wx::StaticLine->new($self->{tab}, -1, [0, 0], [800, 2], wxLI_HORIZONTAL);

Modified: addons/1.3/wxPOS/WXPOS/UI/Contact.pm
===================================================================
--- addons/1.3/wxPOS/WXPOS/UI/Contact.pm	2013-11-21 10:35:35 UTC (rev 6299)
+++ addons/1.3/wxPOS/WXPOS/UI/Contact.pm	2013-11-21 10:52:48 UTC (rev 6300)
@@ -4,6 +4,7 @@
 use Wx::Event qw(EVT_BUTTON EVT_TEXT EVT_LISTBOX_DCLICK EVT_COMBOBOX EVT_LIST_ITEM_RIGHT_CLICK EVT_LIST_ITEM_SELECTED EVT_LIST_ITEM_DESELECTED);
 use base qw(Wx::Frame);
 use Wx::Grid;
+use WXPOS::State;
 use WXPOS::UI::AR;
 use WXPOS::UI::AP;
 use WXPOS::Counterparty;
@@ -92,16 +93,22 @@
 sub _add_invoice {
     my ($self) = @_;
     $self->_save;
+    print STDERR "Saved \n";
     $self->_close_pane;
+    print STDERR "Closed Pane \n";
     my $nb = $WXPOS::State::Notebook;
-    $WXPOS::State::Args = {name => $self->{name}->GetValue};
+    $WXPOS::State::Args = {name => $self->{name_value} };
+    print STDERR "Set Args.  nb = $nb, WXPOS::State::Args->{name} = $WXPOS::State::Args->{name} \n";
     if ($self->{entity_class} == 2){
-        $nb->AddPage(WXPOS::UI::AR->new($self->{parent_window}->{sesion},
-                                        'Invoice'), 'Invoice', 1);
+        my $tab = WXPOS::UI::AR->new($self->{sesion},
+                                        'Invoice');
+        print STDERR "Set Tab\n";
+        $nb->AddPage($tab, 'Invoice', 1);
     } else {
-        $nb->AddPage(WXPOS::UI::AP->new($self->{parent_window}->{sesion},
-                                        'Invoice'), 'Invoice', 1);
+        $nb->AddPage(WXPOS::UI::AP->new($self->{sesion},
+                                        'Invoice'), 'Purchase', 1);
     }
+    print STDERR "Done\n";
 }
 
 sub Customer {
@@ -119,6 +126,7 @@
     my %args = ();
     $args{entity_class} = $self->{entity_class};
     $args{name} = $self->{name}->GetValue;
+    $self->{name_value} = $args{name};
     $args{phone} = $self->{tel}->GetValue;
     $args{email} = $self->{email}->GetValue;
     my $contact = WXPOS::Counterparty->new(%args);

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


------------------------------------------------------------------------------
Shape the Mobile Experience: Free Subscription
Software experts and developers: Be at the forefront of tech innovation.
Intel(R) Software Adrenaline delivers strategic insight and game-changing 
conversations that shape the rapidly evolving mobile landscape. Sign up now. 
http://pubads.g.doubleclick.net/gampad/clk?id=63431311&iu=/4140/ostg.clktrk
_______________________________________________
Ledger-smb-commits mailing list
..hidden..
https://lists.sourceforge.net/lists/listinfo/ledger-smb-commits