Question

将用于艺术的ifclause添加到主报告中，并以-1的倍数乘以Netto以得到信用发票中的-ve结果，我得到了; expected错误指示器跳到随后的过程。

这可能是一个非常愚蠢的错误，但目前我无法解决这个问题。注释掉新的ifclause可以解决问题，所以就解决了这个问题。

procedure FooterSR1OnBeforePrint(Sender: TfrxComponent);
begin
if ( <frxdsqryKopfdaten."MwStNichtAusweisbar"> = 0 ) then
   mmoBrutto.Memo.Text := FormatFloat('#,##0.00', EndBrutto ) + ' ' + <frxdsqryKopfdaten."CurrencyString">                                            
   else
   mmoBrutto.Memo.Text := FormatFloat('#,##0.00', EndNetto ) + ' ' + <frxdsqryKopfdaten."CurrencyString">;
end;  

procedure Hauptkopf1OnBeforePrint(Sender: TfrxComponent);
begin
  if (<frxdsqryArt."Art"> = 'Gutschrift') then
    begin                                    
      EndNetto := EndNetto * (-1)                                                                                                                                                                                        
    end else begin             
      EndNetto := EndNetto;
    end;
end;    
begin
  mmoNetto.Memo.Text := FormatFloat('#,##0.00', EndNetto ) + ' ' + frxdsqryKopfdaten."CurrencyString">
end;

procedure BandBankOnBeforePrint(Sender: TfrxComponent);
begin
   if <frxdsqryFirma."Bank1"> <> '' then
           mmoBank.Visible := False           
   else
           mmoBank.Visible := FALSE;

   if <frxdsqryFirma."IBAN1"> <> '' then
   begin                     
           mmoIBAN.Visible := FALSE;  
           mmoBank.Visible := FALSE;  
           mmoBank.Height := 0                                                           
   end else begin                                                              
           mmoIBAN.Visible := FALSE;
           mmoBank.Visible := FALSE;                                                                         
   end;           
end;

Answer 1

这是错误的（4×begin，但只有3×end）：

procedure Hauptkopf1OnBeforePrint(Sender: TfrxComponent);
begin
  if (<frxdsqryArt."Art"> = 'Gutschrift') then
    begin                                    
      EndNetto := EndNetto * (-1)                                                                                                                                                                                        
    end else begin             
      EndNetto := EndNetto;
    end;
end;    
begin
  mmoNetto.Memo.Text := FormatFloat('#,##0.00', EndNetto ) + ' ' + frxdsqryKopfdaten."CurrencyString">
end;

您可能想要这个（但很难说）：

procedure Hauptkopf1OnBeforePrint(Sender: TfrxComponent);
begin
  if (<frxdsqryArt."Art"> = 'Gutschrift') then
    begin                                    
      EndNetto := EndNetto * (-1)                                                                                                                                                                                        
    end else begin             
      EndNetto := EndNetto;
    end;
  end;    
  mmoNetto.Memo.Text := FormatFloat('#,##0.00', EndNetto ) + ' ' + frxdsqryKopfdaten."CurrencyString">
end;

在过程中添加新的ifclause之后，获取调试错误“；预期”

1 个答案: