procedure pdrPrintObj(zs_bz:String=''''0'''');
var
  lpt: TextFile;
  str,Other:String;
begin
  AssignFile(lpt, ''''LPT1'''');
  try
    ReWrite(lpt);
    with PrintObj do
    begin
      BlackMark:=''''SP512MC'''';
      if UpperCase(BlackMark)=UpperCase(''''SP512MC'''') then
      begin
          Writeln(lpt, '''''''');
          Writeln(lpt, Format(''''    %S'''', [sswyj]));
          Writeln(lpt, Format(''''    %S       %S'''', [Hbsbh, dffsny]));
          Writeln(lpt, Format(''''    %S'''', [Khmc]));
          Writeln(lpt, Format(''''    %S'''', [Khdz]));
          Writeln(lpt, Format(''''    %-11S%-11S%-11S'''', [Dbcbh1,Dbcbh2,Dbcbh3]));
          Writeln(lpt, Format(''''    %-11S%-11S%-11S'''', [Jsbl1,Jsbl2,Jsbl3]));
          Writeln(lpt, Format(''''    %-11S%-11S%-11S'''', [Scbm1,Scbm2,Scbm3]));
          Writeln(lpt, Format(''''    %-11S%-11S%-11S'''', [Bcbm1,Bcbm2,Bcbm3]));
          Writeln(lpt, '''''''');
          Writeln(lpt, Format(''''%-11S%-11S%-11S%S'''', [Fldl1, Shdl1, Fldj1,
            Fldf1]));
          Writeln(lpt, Format(''''%-11S%-11S%-11S%S'''', [Fldl2, Shdl2, Fldj2,
            Fldf2]));
          Writeln(lpt, Format(''''%-11S%-11S%-11S%S'''', [Fldl3, Shdl3, Fldj3,
            Fldf3]));
          Writeln(lpt, Format(''''    %-20S%S'''', [Hjdl, Hjdf]));
          //zs_bz:走收标致"1"为走收，"0"非走收
          if zs_bz=''''0'''' then
          begin
            Writeln(lpt, Format(''''     %-20S%S'''', [Scjy, Bcss]));
            Writeln(lpt, Format(''''     %-20S%S'''', [Bcxz, Bcjy]));
            Writeln(lpt, Format(''''     %S'''', [Ssdx]));
          end
          else
          begin
            Writeln(lpt, Format(''''     %-20S%S'''', ['''''''', Hjdf]));
            Writeln(lpt, Format(''''     %-20S%S'''', [Hjdf, '''''''']));
            Writeln(lpt, Format(''''     %S'''', [JeToDx(StrToFloatDef(Hjdf,0))]));
          end;
          Writeln(lpt, Format(''''  %-15S%-15S%S'''', [Cby, Sky, Rq]));
          Writeln(lpt, '''''''');
          Writeln(lpt, Format(''''       %S'''', [Fphm]));
          Writeln(lpt, Format(''''    %-24S%S'''', [Hbsbh, dffsny]));
          if zs_bz=''''0'''' then
          begin
            Writeln(lpt, Format(''''    %-24S%S'''', [Bcss, Bcjy]));
          end
          else
          begin
            Writeln(lpt, Format(''''    %-24S%S'''', [Hjdf+JeToDx(StrToFloatDef(Hjdf,0)), '''''''']));
          end;
          Writeln(lpt, Format(''''     %-23S%S'''', [Sky, Rq]));

//发送黑标指令
          Write(lpt, #12);
      end
    end;
  finally
    CloseFile(lpt);
  end;
end;
end.

上一页  [1] [2]