Menampilkan Quantity Dalam Keterengan Per Unit

Menampilkan Quantity Dalam Keterengan Per Unit

Menampilkan Quantity Dalam Keterengan Per Unit.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 :

Kemuadian misal transaksinya adalah seperti ini :

Ingin di preview hingga menjadi 10 dus 1 pak, maka edit templatenya :

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

• Klik Desaigner
• Double klik kolom Reseved 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

• Save Templatenya
• Kemudian coba tes Preview Do nya dengan template yang sudah di tambahkan kolom Reserved 1 tadi sehingga tampilannya menjadi sbb :

• Selesai