• Introduction
  • What is HAL?
  • Get Started
  • Language Reference
    • Declarations, assignments and statements
    • Keywords and operations
• Tutorials
  • Change a window
    • Find the window
    • Modify the window
  • Create a report
• HAL Primitives
• HAL Procedures/Functions
• HAL Discussions

Description:

returns name of N/L transaction type by code

Parameters:
trcode	transaction type

global
procedure OutTRRows(record TRVc TRr)
begin
  Integer rwcnt,i;
  row TRVc TRrw;
  string 255 tstr;
  
  rwcnt = MatRowCnt(TRr);
  for (i = 0 ; i<rwcnt ;i=i+1) begin
    MatRowGet(TRr,i,TRrw);
    if (TRrw.ovst==0) then begin
      if (TRrw.stp==1) then begin
        ExportLongInt(TRr.Number);
        tstr = StrTRCode(TRr.IntYc);
        ExportString(tstr);
        ExportDate(TRr.RegDate);
        ExportString(TRr.Comment);
        ExportDate(TRr.TransDate);
        ExportString(TRr.RefStr);
        ExportString(TRrw.AccNumber);
        ExportString(TRrw.Objects);
        ExportString(TRrw.Comment);
        ExportString(TRrw.VATCode);
        ExportVal(TRrw.Qty,M4Qty);
        ExportVal(TRrw.DebVal,M4Val);
        ExportVal(TRrw.CredVal,M4Val);
        ExportVal(TRrw.CurDebVal,M4Val);
        ExportVal(TRrw.CurCredVal,M4Val);
        ExportString(TRrw.Curncy);
        ExportVal(TRrw.FrRate,M4Val);
        ExportVal(TRrw.ToRateB1,M4Val);
        ExportVal(TRrw.ToRateB2,M4Val);
        ExportVal(TRrw.BaseRate1,M4Val);
        ExportVal(TRrw.BaseRate1,M4Val);
        NewLine;
      end;
    end;
  end;
  return;
end;

Related topics: