รายงานรายการบิลของลูกค้าแสดงใบลดหนี้ใน Microsoft Dynamics NAV 2009 รุ่นภาษาอิตาลี

...        OnAfterGetRecord=BEGIN
                           CALCFIELDS("Amount (LCY)","Remaining Amt. (LCY)");

// Delete the following line.
                           IF ((OnlyOpened) OR ("Document Type" IN ["Document Type"::Payment,"Document Type"::"Credit Memo","Document Type"::" "])) AND

                             ("Remaining Amt. (LCY)" = 0)
                           THEN
                             CurrReport.SKIP;
...

...        OnAfterGetRecord=BEGIN
                           CALCFIELDS("Amount (LCY)","Remaining Amt. (LCY)");

// Add the following line.
                           IF ((OnlyOpened) OR ("Document Type" IN ["Document Type"::Payment,"Document Type"::Refund,"Document Type"::" "])) AND

                             ("Remaining Amt. (LCY)" = 0)
                           THEN
                             CurrReport.SKIP;
...

...                           RemainingAmountLCY := 0;
                           ExposureAmount := 0;

// Delete the following lines.
                            IF ("Document Type" = "Document Type"::Invoice) OR
                               ("Document Type" = "Document Type"::"Finance Charge Memo") OR
                               ("Document Type" = "Document Type"::Reminder)

                           THEN BEGIN
                             IF ("Bank Receipt Issued") AND
                                ("Due Date" > ExposureDate)
...

...                           RemainingAmountLCY := 0;
                           ExposureAmount := 0;

// Add the following lines.
                            IF "Document Type" IN
                               ["Document Type"::Invoice,
                                "Document Type"::"Credit Memo",
                                "Document Type"::"Finance Charge Memo",
                                "Document Type"::Reminder]
// End of the lines.

                           THEN BEGIN
                             IF ("Bank Receipt Issued") AND
                                ("Due Date" > ExposureDate)
...

...                      END;

        OnAfterGetRecord=BEGIN
                           // IT0015.begin
                           //VSTF275923 begin
                           // VSTF305887.begin
...

...        OnAfterGetRecord=BEGIN

// Add the following lines.
                            IF ("Entry No." = 0) OR ("Unapplied by Entry No." <> 0) OR
                               ("Document Type" IN
                               ["Document Type"::Payment,"Document Type"::Refund,"Document Type"::Dishonored,"Document Type"::" "])
                            THEN
                              ShowDetailedCustLedgerEntry := TRUE
                            ELSE
                              ShowDetailedCustLedgerEntry := FALSE;
// End of the lines.

                           // IT0015.begin
                           //VSTF275923 begin
                           // VSTF305887.begin
...

...            SectionWidth=24450;
            SectionHeight=846;
            OnPreSection=BEGIN

// Delete the following lines.
                            // IT0009.begin
                            // IT0012.begin
                            IF (CustLedgEntry1."Document Type" = CustLedgEntry1."Document Type"::Payment) OR
                               (CustLedgEntry1."Document Type" = CustLedgEntry1."Document Type"::"Credit Memo") OR
                               //VSTF275923 begin
                               (CustLedgEntry1."Document Type" = CustLedgEntry1."Document Type"::Dishonored) OR
                               //VSTF275923 end
                               (CustLedgEntry1."Document Type" = CustLedgEntry1."Document Type"::" ") OR
                               ("Unapplied by Entry No." <> 0)
                            THEN
                            // IT0012.end
                              CurrReport.SHOWOUTPUT(FALSE)
                            ELSE
                              CurrReport.SHOWOUTPUT(TRUE);
                            // IT0009.end
                            // IT0010.begin
                            //IF ("Unapplied by Entry No." <> 0) THEN
                            //  CurrReport.SHOWOUTPUT(FALSE);
                            // IT0010.end
// End of the lines.

                         END;

          }
...

...            SectionWidth=24450;
            SectionHeight=846;
            OnPreSection=BEGIN

// Add the following line.
                           CurrReport.SHOWOUTPUT(ShowDetailedCustLedgerEntry)

                         END;

          }
...

...                                                         ForeColor=65535;
                                                         SourceExpr="Document Type" = "Document Type"::Dishonored;
                                                         DataSetFieldName=Document_Type_____Document_Type___Dishonored }
          }
           }
        { PROPERTIES
...

...                                                         ForeColor=65535;
                                                         SourceExpr="Document Type" = "Document Type"::Dishonored;
                                                         DataSetFieldName=Document_Type_____Document_Type___Dishonored }

// add the following lines.
             { 1130123;TextBox   ;24000;0    ;150  ;423  ;Visible=No;
                                                          SourceExpr=ShowDetailedCustLedgerEntry;
                                                          DataSetFieldName=ShowDetailedCustLedgerEntry }
// End of the lines.

          }
           }
        { PROPERTIES
...

...      NULL@1130013 : DateFormula;
      CustLedgEntry3@1130130 : Record 21;
      PrintCustLedgEntry2@1130014 : Boolean;

    BEGIN
    {
...

...      NULL@1130013 : DateFormula;
      CustLedgEntry3@1130130 : Record 21;
      PrintCustLedgEntry2@1130014 : Boolean;

// Add the following line.
      ShowDetailedCustLedgerEntry@1130015 : Boolean INDATASET;


    BEGIN
    {
...

...                  </TableRows>
                </Header>
                <Visibility>

// Delete the following line.
                  <Hidden>=IIF(Fields!Detailed_Cust__Ledg__Entry_Cust__Ledger_Entry_No_.Value = 0,true,false)</Hidden>

                </Visibility>
              </TableGroup>
            </TableGroups>
...

...                  </TableRows>
                </Header>
                <Visibility>

// Add the following line.
                  <Hidden>=IIF(Fields!ShowDetailedCustLedgerEntry.Value,TRUE,FALSE)</Hidden>

                </Visibility>
              </TableGroup>
            </TableGroups>
...

...        <Field Name="Detailed_Cust__Ledg__Entry_Cust__Ledger_Entry_No_">
          <DataField>Detailed_Cust__Ledg__Entry_Cust__Ledger_Entry_No_</DataField>
        </Field>
      </Fields>
      <Query>
        <CommandText />
...

...        <Field Name="Detailed_Cust__Ledg__Entry_Cust__Ledger_Entry_No_">
          <DataField>Detailed_Cust__Ledg__Entry_Cust__Ledger_Entry_No_</DataField>
        </Field>

// Add the following lines.
         <Field Name="ShowDetailedCustLedgerEntry">
           <DataField>ShowDetailedCustomerLedgerEntry</DataField>
         </Field>
// end of the lines.

      </Fields>
      <Query>
        <CommandText />
...