Modifying the cash receipt Journals

asembereng

Hi, i am trying to modify the cash receipt journal but i am getting an error message indicating the Gen. Journal template "" does not exit.. Can someone please go over my form and tell me what i am doing wrong..
Thanks

OBJECT Form 50000 Payment Posting
{
  OBJECT-PROPERTIES
  {
    Date=29/06/09;
    Time=12:20:34;
    Modified=Yes;
    Version List=;
  }
  PROPERTIES
  {
    Width=11880;
    Height=14740;
    SourceTable=Table81;
  }
  CONTROLS
  {
    { 1000000000;Label  ;330  ;2640 ;3630 ;440  ;CaptionML=ENU=Customer Name }
    { 1000000001;Label  ;330  ;3520 ;3630 ;440  ;CaptionML=ENU=Receipt No. }
    { 1000000002;Label  ;330  ;4400 ;3630 ;440  ;CaptionML=ENU=Card Type }
    { 1000000003;Label  ;330  ;6050 ;3630 ;440  ;CaptionML=ENU=Amount }
    { 1000000004;Label  ;330  ;6820 ;3630 ;440  ;CaptionML=ENU=Posting Date }
    { 1000000005;TextBox;4400 ;2640 ;4840 ;440  ;SourceExpr=name }
    { 1000000006;TextBox;4400 ;3520 ;4840 ;440  ;SourceExpr=docNo }
    { 1000000007;TextBox;4400 ;4400 ;4840 ;440  ;Lookup=Yes;
                                                 SourceExpr=type;
                                                 TableRelation=Customer;
                                                 LookupFormID=Customer List }
    { 1000000008;TextBox;4400 ;6050 ;2420 ;440  ;SourceExpr=amt }
    { 1000000009;TextBox;4400 ;6820 ;2420 ;440  ;SourceExpr=postingDate }
    { 1000000010;CommandButton;5720;8250;3410;550;
                                                 CaptionML=ENU=Post and Print;
                                                 OnPush=BEGIN

                                                          IF Gen.FINDLAST THEN
                                                            LineNo := Gen."Line No.";


                                                          Gen.INIT;
                                                          Gen."Journal Template Name" := 'GENERAL';
                                                          Gen."Journal Batch Name" := 'DEFAULT';
                                                          Gen."Posting Date" := postingDate;
                                                          Gen."Document Date" := postingDate;
                                                          Gen.Description := name;
                                                          Gen."Document Type" := Gen."Document Type"::Payment;
                                                          Gen."Account Type" := Gen."Account Type"::"Bank Account";
                                                          Gen."Document No." :=  docNo;
                                                          Gen.Amount := amt;

                                                          Gen."Account No." := AccNo;
                                                          Gen."Bal. Account Type" := Gen."Bal. Account Type"::Customer;
                                                          Gen."Bal. Account No." := type;
                                                          Gen."Line No." := LineNo + 1;
                                                          Gen.INSERT;








                                                          CODEUNIT.RUN(CODEUNIT::"Gen. Jnl.-Post+Print",Rec);
                                                          CurrentJnlBatchName := GETRANGEMAX("Journal Batch Name");
                                                          CurrForm.UPDATE(FALSE);

                                                          CLEAR(name);
                                                          CLEAR(docNo);
                                                          CLEAR(AccNo);
                                                          CLEAR(postingDate);
                                                          CLEAR(Amount);
                                                          CLEAR(type);
                                                        END;
                                                         }
    { 1000000011;Label  ;440  ;440  ;9130 ;660  ;HorzAlign=Center;
                                                 FontSize=12;
                                                 FontBold=Yes;
                                                 CaptionML=ENU=Gambia Biometric Identification System }
    { 1000000012;Label  ;2090 ;1430 ;5500 ;440  ;HorzAlign=Center;
                                                 FontSize=12;
                                                 FontBold=Yes;
                                                 CaptionML=ENU=Cashier Payment Form }
    { 1000000013;Label  ;330  ;5280 ;3630 ;440  ;CaptionML=ENU=Cashier Account }
    { 1000000014;TextBox;4400 ;5280 ;4840 ;440  ;Lookup=Yes;
                                                 SourceExpr=AccNo;
                                                 TableRelation="Bank Account".No.;
                                                 LookupFormID=Bank Account List }
  }
  CODE
  {
    VAR
      name@1000000000 : Text[200];
      type@1000000001 : Code[10];
      postingDate@1000000002 : Date;
      docNo@1000000003 : Text[30];
      amt@1000000004 : Decimal;
      ChangeExchangeRate@1000000016 : Form 511;
      GLReconcile@1000000015 : Form 345;
      GenJnlManagement@1000000014 : Codeunit 230;
      ReportPrint@1000000013 : Codeunit 228;
      CurrentJnlBatchName@1000000012 : Code[10];
      AccName@1000000011 : Text[50];
      BalAccName@1000000010 : Text[50];
      Balance@1000000009 : Decimal;
      TotalBalance@1000000008 : Decimal;
      ShowBalance@1000000007 : Boolean;
      ShowTotalBalance@1000000006 : Boolean;
      ShortcutDimCode@1000000005 : ARRAY [8] OF Code[20];
      AccNo@1000000017 : Code[20];
      Gen@1000000018 : Record 81;
      LineNo@1000000019 : Integer;

    PROCEDURE UpdateBalance@1000000002();
    BEGIN
      {GenJnlManagement.CalcBalance(
        Rec,xRec,Balance,TotalBalance,ShowBalance,ShowTotalBalance);
      CurrForm.Balance.VISIBLE := ShowBalance;
      CurrForm.TotalBalance.VISIBLE := ShowTotalBalance;
      }
    END;

    BEGIN
    END.
  }
}

asembereng

I need help on this.. Can some please come to my rescue??

Karenh

At what point is the error generated?

asembereng

When it tries to post.. The first post is always successful after accessing the main the journal template and filling the fields manually but when i tried to post without going to the table i have the error.