Codeunit_0000000274.txt

OBJECT Codeunit 274 Res. Jnl.-B.Post+Print
{
  OBJECT-PROPERTIES
  {
    Date=06/08/01;
    Time=12:00:00 PM;
    Version List=NAVW13.00;
  }
  PROPERTIES
  {
    TableNo=236;
    OnRun=BEGIN
            ResJnlBatch.COPY(Rec);
            Code;
            Rec := ResJnlBatch;
          END;

  }
  CODE
  {
    VAR
      Text000@1000 : TextConst 'ENU=Do you want to post the journals and print the posting report?;ESM=¨Confirma que desea registrar los diarios e imprimir el informe de registro?;FRC=D‚sirez-vous reporter le journal et imprimer le rapport?;ENC=Do you want to post the journals and print the posting report?';
      Text001@1001 : TextConst 'ENU=The journals were successfully posted.;ESM=Se han registrado correctamente los diarios.;FRC=Le journal a ‚t‚ report‚ avec succŠs.;ENC=The journals were successfully posted.';
      Text002@1002 : TextConst 'ENU="It was not possible to post all of the journals. ";ESM="No ha sido posible registrar todos los diarios. ";FRC="Il a ‚t‚ impossible de reporter tous les journaux. ";ENC="It was not possible to post all of the journals. "';
      Text003@1003 : TextConst 'ENU=The journals that were not successfully posted are now marked.;ESM=Los diarios que no se han registrado est n marcados.;FRC=Les journaux qui n''ont pas ‚t‚ report‚s sont maintenant indiqu‚s.;ENC=The journals that were not successfully posted are now marked.';
      ResJnlTemplate@1004 : Record 206;
      ResJnlBatch@1005 : Record 236;
      ResJnlLine@1006 : Record 207;
      ResReg@1007 : Record 240;
      ResJnlPostBatch@1008 : Codeunit 213;
      JnlWithErrors@1009 : Boolean;

    LOCAL PROCEDURE Code@1();
    BEGIN
      WITH ResJnlBatch DO BEGIN
        ResJnlTemplate.GET("Journal Template Name");
        ResJnlTemplate.TESTFIELD("Posting Report ID");

        IF NOT CONFIRM(Text000) THEN
          EXIT;

        FIND('-');
        REPEAT
          ResJnlLine."Journal Template Name" := "Journal Template Name";
          ResJnlLine."Journal Batch Name" := Name;
          ResJnlLine."Line No." := 1;
          CLEAR(ResJnlPostBatch);
          IF ResJnlPostBatch.RUN(ResJnlLine) THEN BEGIN
            MARK(FALSE);
            IF ResReg.GET(ResJnlLine."Line No.") THEN BEGIN
              ResReg.SETRECFILTER;
              REPORT.RUN(ResJnlTemplate."Posting Report ID",FALSE,FALSE,ResReg);
            END;
          END ELSE BEGIN
            MARK(TRUE);
            JnlWithErrors := TRUE;
          END;
        UNTIL NEXT = 0;

        IF NOT JnlWithErrors THEN
          MESSAGE(Text001)
        ELSE
          MESSAGE(
            Text002 +
            Text003);

        IF NOT FIND('=><') THEN BEGIN
          RESET;
          Name := '';
        END;
      END;
    END;

    BEGIN
    END.
  }
}