ACCURATE BUSINESS CENTER KEMAYORAN 

 

 

Telp. 021 - 2937 1464 / 65

Team Marketing
  •  Agus

          085 777 555 721 

          085 777 555 721

  •  Arika     ​

          0856 9482 1700

          0812 9493 0813

  •  Dewi 

          0878 7210 7373

          0813 5490 8290

  •  Raymond

          0856 9771 4094 

          0856 9771 4094

  •  Rizal

          0812 1383 4578 

          0857 1744 3233

  •  Wati

          0812 938 2595

          0812 938 2595

 

 

Informasi
Produk Kami
Manual Book Accurate Online

Berita-berita - Menampilkan Quantity dalam Keterangan Per Unit
  22 Apr 2016

Menampilkan Quantity dalam Keterangan Per Unit

POSTED BY ADMIN ⋅  22 APRIL 2016

ACCURATE, PROGRAM, ACCURATE ACCOUNTING SOFTWARE

Accounting Software Yach..... ACCURATE

 

Jika ada kebutuhan untuk Menampilkan Quantity dalam Keterangan Per Unit di preview templatenya, itu bisa kita lakukan. Berikut adalah contoh ilustrasi serta langkah-langkahnya dengan contoh Ratio Item sbb :

01

Kemudian misal transaksinya adalah seperti ini :

02

Ingin di Preview hingga menjadi 10 Dus 1 Pak, maka edit templatenya :

  • Masuk dari menu Setup | Form Template | Delivery Order, double klik nama template DO yg akan di edit.
  • Ke Tab Detail, lalu centang box Print pada variable Reserved 1.

03

  • Klik Designer
  • Double klik kolom Reserved 1 , hapus kolom begin – end, lalu copas script dibawah ini :
begin
  Memo := '';
  QtySisa := [Quantity] * [UnitRatio];
  if (QtySisa = 0) then
  begin
    Memo := '0 ' + [Unit]
  end
  else begin
    ResultExpr := '';
    if ([Ratio 3] > 0) then
    begin
      if (Int(QtySisa / [Ratio 3]) > 0) then
      begin
        ResultExpr := ResultExpr + FormatFloat('#,##0.##', Int(QtySisa / [Ratio 3])) + ' ' + [Unit3];
        QtySisa := QtySisa mod [Ratio 3];
      end
    end;
    if ([Ratio 2] > 0) then
    begin
      if (Int(QtySisa / [Ratio 2]) > 0) then
      begin
        if (ResultExpr <> '') then
          ResultExpr := ResultExpr + ' ';
        ResultExpr := ResultExpr + FormatFloat('#,##0.##', Int(QtySisa / [Ratio 2])) + ' ' + [Unit2];
        QtySisa := QtySisa mod [Ratio 2];
      end
    end;
    if (QtySisa > 0) then
    begin
      if (ResultExpr <> '') then
        ResultExpr := ResultExpr + ' ';
      ResultExpr := ResultExpr + FormatFloat('#,##0.##', QtySisa) + ' ' + [Unit];
    end;
    Memo := ResultExpr;
  end
end

04

  • Save templatenya
  • Kemudian coba tes Preview DO nya dengan template yg sudah di ditambahkan kolom Reserved 1 tadi. Sehingga tampilannya adalah sbb :

05

  • Selesai.

(Available for V4 & V5)


Berita Terbaru
PENGGUNA ACCURATE