E-Fatura Betik Kodları ( Orkestra Scripts )

İrsaliyede Ana Birim ve 2. Birim Toplamlarının Yazdırılması (Miktar + Adet)

İki birimli irsaiye tasarımı oluşturmak ve toplam miktarlarları irsaliye altına yazdırmak için Logo Tanımları / Firmalar / X Firması / Efatura Uyarlamaları / X Uyarlama / Betik (Satır) sekmesi altına aşağıdaki betiği yapıştırınız.

String malzRef = line.getItemField("stockrefItemsLink.reference");
String b = "";
if (StringUtil.length(malzRef)>0){
Object sorguMalzeme= createSql("SELECT BARCODE FROM $SN$LG_$F$_UNITBARCODE WHERE ITEMREF="+malzRef);
Object rowMalz = executeSql(sorguMalzeme);
if (rowMalz != null){
b = StringUtil.trim(rowMalz.getString("BARCODE"));
}
}
if(StringUtil.length(b)>0){
line.setUblValue("Item/SellersItemIdentification/ID","value",b);
line.addNote(b);
}
//String malzRef = line.getItemField("stockrefItemsLink.reference");
if (StringUtil.length(malzRef)>0){
Object sorguBirim = createSql("SELECT A.CONVFACT1,A.CONVFACT2,B.CODE FROM $SN$LG_$F$_ITMUNITA A LEFT OUTER JOIN $SN$LG_$F$_UNITSETL B ON A.UNITLINEREF=B.LOGICALREF WHERE A.ITEMREF="+malzRef+" AND A.UNITLINEREF="+line.getItemField("uomref"));
Object rowBirim = executeSql(sorguBirim);
if (rowBirim != null){
Console.println("Orj Birim : "+rowBirim.buildPairString(",",false));
Object digerBirim = createSql("SELECT A.CONVFACT1,A.CONVFACT2,B.CODE FROM $SN$LG_$F$_ITMUNITA A LEFT OUTER JOIN $SN$LG_$F$_UNITSETL B ON A.UNITLINEREF=B.LOGICALREF WHERE A.ITEMREF="+malzRef+" AND A.UNITLINEREF!="+line.getItemField("uomref"));
Object rowBirim2 = executeSql(digerBirim);
if (rowBirim2 != null){
BigDecimal a1 = rowBirim.getBigDecimal("CONVFACT1");
BigDecimal a2 = rowBirim.getBigDecimal("CONVFACT2");
BigDecimal b1 = rowBirim2.getBigDecimal("CONVFACT1");
BigDecimal b2 = rowBirim2.getBigDecimal("CONVFACT2");
BigDecimal sifir = MathUtil.bigDecimal(0);
BigDecimal miktar = MathUtil.bigDecimal(line.getItemField("amount"));
Console.println("Diğer Birim : "+rowBirim2.buildPairString(",",false));
if(a1>sifir && b1>sifir && a2>sifir && b2>sifir){
BigDecimal katsayi = b1.multiply(a2).divide(b2.multiply(a1),8,0);
BigDecimal hedefMiktar = miktar*katsayi;
Console.println("Miktar : "+MathUtil.format(miktar,"#,###.00"));
Console.println("Hedef : "+MathUtil.format(hedefMiktar,"#,###.00"));
Console.println("-----------------------------------------------------");
line.setIdentification("manufacturer", hedefMiktar.stripTrailingZeros().toPlainString());
line.setUblValue("Item/BuyersItemIdentification/ID","value",rowBirim2.getString("CODE"));
}
}
}
}
String barkod = line.getBarcode(1);
if (StringUtil.length(barkod)>0){
line.appendNote(barkod);
}else{
line.insertNote("");
}
String mysql = "SELECT SPECODE FROM LG_$F$_$P$_STLINE WHERE LOGICALREF="+line.getItemField("reference");
Console.println("sql: "+ mysql);
Object row = executeSql(createSql(mysql));
if (row != null && StringUtil.length(row.getString("SPECODE"))>0){
Console.println("bulundu "+row.getString("SPECODE"));
//line.addNote(row.getString("SPECODE"));
line.setIdentification("buyer",row.getString("SPECODE"));
}

İrsaliye tasarımınızda yeni bir kolon açarak aşağıdaki örnekte olduğu gibi ikinci bririmi XML'de buyers alanından ikinci miktarı XML'de manufacturer alanından çekmelisiniz.

Başlık kod satırı:

<th class="tbl_capth"><div class="tbl_cap ">Adet</div></th>

 İçerik kod satırı:

<td class="satir_td">
<xsl:value-of select="./cac:Item/cac:ManufacturersItemIdentification/cbc:ID" disable-output-escaping="yes"/>
<xsl:text>&#160;</xsl:text>
<xsl:value-of select="./cac:Item/cac:BuyersItemIdentification/cbc:ID" disable-output-escaping="yes"/>
</td>

İrsaliye tasarımının alt toplam alanında yapılması gereken güncelleme:

Kod satırı:

<tr class="alt_toplam_tr">
<td class="alt_toplam_cap">Toplam Miktar</td>
<td class="alt_toplam_val">
<div>
<xsl:value-of select="format-number(sum(//n1:DespatchAdvice/cac:DespatchLine/cbc:DeliveredQuantity),'###.##0,00','european')" disable-output-escaping="yes"/>
<xsl:text> Adet / </xsl:text>
<xsl:value-of select="format-number(sum(//n1:DespatchAdvice/cac:DespatchLine/cac:Item/cac:ManufacturersItemIdentification/cbc:ID),'###.##0,00','european')"/>
<xsl:text> Kg</xsl:text>
</div>
</td>
</tr>

Örnek irsaliye önizlemesi: