1

我想从客户表中选择余额（流域）记录到账单表。我有一个 Customer 表和一个 BillPros 表。客户表中的余额是一个流场。

//Customer on Variable Band Billing
Customers.RESET;
Customers.SETCURRENTKEY(Customers."No.");
Customers.SETFILTER(Customers."No.",'%1',MeterR."Customer Number");
Customers.SETFILTER(Customers."Customer Posting 
         Group",'%1',Surcharge."Customer Posting Group");
Customers.CALCFIELDS("Balance (LCY)");
Bal := Customers."Balance (LCY)";

IF Customers.FIND('-')THEN 

   //Post Metre Reading;
      PostReading.RESET;
      PostReading.Date := MeterR.Period;
      PostReading.MetreID :=MeterR."Metre ID";
      PostReading."Last Reading" := MeterR."Metre Reading";
      PostReading.INSERT;



      //Bill Info Process
      TotalAmount:=0;
        BillPros.INIT;
        BillPros."Customer No." := MeterR."Customer Number";
        BillPros.Consumption := TotalReading;
        BillPros.Rate := Bands."Rate Amount";
        BillPros."Invoice No." := MeterR."Invoice Number";
        BillPros.Amount := TotalReading*Bands."Rate Amount";


        BillPros.Balance := Bal;
4

1 回答 1

0

你的代码是错误的。您应该在 FIND('-') 之后调用 CALCFIELDS。在此之前，您“没有”实际的客户记录。而且你不需要 Bal 变量。你可以写 BillPros.Balance := Customer."Balance (LCY)";

于 2016-04-17T21:34:29.457 回答