-
Sivaprakash BKR
- PowerBuilder
- Saturday, 23 August 2025 06:28 AM UTC
Hello,
Development: PB 2022 R3 Runtime build: 3397 in Windows 10, PostgreSQL 15 in Ubuntu Linux
Production: PB 2022 R3 Runtime build: 3397 in Windows Server 2022 R2 / Windows 10, PostgreSQL 15 in Ubuntu Linux
Select a.voucherdate,
Cast(Sum(a.opcurr_cashamount) + Sum(a.opprev_cashamount) as numeric(17,2)) as opcashamount,
Cast(Sum(a.opcurr_upiamount) + Sum(a.opprev_upiamount) as numeric(17,2)) as opupiamount,
Cast(Sum(Case When a.optotalamount > 0
Then (a.optotalamount - (a.opdiscount1 + a.opdiscount2 + a.opdiscount3 + a.opdiscount4 + a.opdiscount5 + a.opdiscount6)
- (a.opcurr_cashamount) - (a.opprev_cashamount) - (a.opcurr_upiamount) - (a.opprev_upiamount)
- (a.opcurr_recdisc) - (a.opprev_recdisc) - (a.opcurr_cn) - (a.opprev_cn))
Else 0 End) as numeric(17,2)) + Cast(Sum(a.opadvanceadj) as numeric(17,2)) as opdebtors_dr,
Cast(Sum(Coalesce(a.opprev_cashamount,0)) +
Sum(Coalesce(a.opprev_upiamount,0)) +
Sum(Coalesce(a.opprev_recdisc,0)) +
Sum(Coalesce(a.opprev_cn,0)) as numeric(17,2)) as opdebtors_cr,
Cast(Sum(a.opcurr_recdisc) + Sum(a.opprev_recdisc) +
Sum(a.opcurr_cn) + Sum(a.opprev_cn) as numeric(17,2)) as opdiscount,
Cast(Sum(a.opdiscount1) as numeric(17,2)) as opdisc1,
Cast(Sum(a.opdiscount2) as numeric(17,2)) as opdisc2,
Cast(Sum(a.opdiscount3) as numeric(17,2)) as opdisc3,
Cast(Sum(a.opdiscount4) as numeric(17,2)) as opdisc4,
Cast(Sum(a.opdiscount5) as numeric(17,2)) as opdisc5,
Cast(Sum(a.opdiscount6) as numeric(17,2)) as opdisc6,
Cast(Sum(a.optotalamount) as numeric(17,2)) as opincome,
Cast(Sum(a.opadvance) as numeric(17,2)) as advance_dr,
Cast(Sum(a.opadvanceadj) as numeric(17,2)) as advance_cr
From (
Select a.voucherdate,
(a.billamount + Coalesce(a.discountamount,0)) as optotalamount,
Case When Coalesce(a.discountamount,0) > 0 and a.discountaccountfk = :as_opdiscfk1 Then Coalesce(a.discountamount,0) Else 0 End as opdiscount1 ,
Case When Coalesce(a.discountamount,0) > 0 and a.discountaccountfk = :as_opdiscfk2 Then Coalesce(a.discountamount,0) Else 0 End as opdiscount2 ,
Case When Coalesce(a.discountamount,0) > 0 and a.discountaccountfk = :as_opdiscfk3 Then Coalesce(a.discountamount,0) Else 0 End as opdiscount3 ,
Case When Coalesce(a.discountamount,0) > 0 and a.discountaccountfk = :as_opdiscfk4 Then Coalesce(a.discountamount,0) Else 0 End as opdiscount4 ,
Case When Coalesce(a.discountamount,0) > 0 and a.discountaccountfk = :as_opdiscfk5 Then Coalesce(a.discountamount,0) Else 0 End as opdiscount5 ,
Case When Coalesce(a.discountamount,0) > 0 and a.discountaccountfk = :as_opdiscfk6 Then Coalesce(a.discountamount,0) Else 0 End as opdiscount6 ,
Cast(0 as Numeric(17,2)) as opprev_totalamount,
Cast(0 as Numeric(17,2)) as opprev_discount,
Coalesce(( Select Case When Sum(c.discountone) = 0 Then
Case When Sum(c.adjustedamount) >= Sum(b.receiptamount) Then Sum(b.receiptamount) Else Sum(c.adjustedamount) End
Else Case When Sum(c.adjustedamount) >= Sum(b.receiptamount) Then Sum(b.receiptamount) Else Sum(c.netadjustedamount - c.discountone) End End
From co_cashbill_receipt_mode_detail b
Join ar_receipt_detail c
On b.receiptheaderfk = c.receiptheaderfk
Where c.adjustedfk = a.opbillingheaderpk
And b.voucherdate = :ad_ason
And b.banktype = 'H'), 0) as opcurr_cashamount,
Cast(0 as Numeric(17,2)) as opprev_cashamount,
Coalesce(( Select Case When Sum(c.discountone) = 0 Then
Case When Sum(c.adjustedamount) >= Sum(b.receiptamount) Then Sum(b.receiptamount) Else Sum(c.adjustedamount) End
Else Case When Sum(c.adjustedamount) >= Sum(b.receiptamount) Then Sum(b.receiptamount) Else Sum(c.netadjustedamount - Coalesce(c.discountone,0)) End End
From co_cashbill_receipt_mode_detail b
Join ar_receipt_detail c
On b.receiptheaderfk = c.receiptheaderfk
Where c.adjustedfk = a.opbillingheaderpk
And b.voucherdate = :ad_ason
And b.banktype = 'U'), 0) as opcurr_upiamount,
Cast(0 as Numeric(17,2)) as opprev_upiamount,
Coalesce(( Select Sum(c.discountone)
From ar_receipt_detail c
Where c.adjustedfk = a.opbillingheaderpk
And c.voucherdate = :ad_ason), 0) as opcurr_recdisc,
Cast(0 as Numeric(17,2)) as opprev_recdisc,
Coalesce(( Select Sum(c.adjustedamount)
From ar_cn_header b
Join ar_receipt_detail c
On c.receiptcnheaderfk = b.cnheaderpk
Where c.adjustedfk = a.opbillingheaderpk
And b.voucherdate = :ad_ason), 0) as opcurr_cn,
Cast(0 as Numeric(17,2)) as opprev_cn,
Cast(0 as Numeric(17,2)) as opadvance,
Cast(0 as Numeric(17,2)) as opadvanceadj,
Cast(0 as Numeric(17,2)) as opprev_creditamount,
Cast(0 as Numeric(17,2)) as labtotalamount,
Cast(0 as Numeric(17,2)) as labdiscount1,
Cast(0 as Numeric(17,2)) as labdiscount2,
Cast(0 as Numeric(17,2)) as labdiscount3,
Cast(0 as Numeric(17,2)) as labdiscount4,
Cast(0 as Numeric(17,2)) as labdiscount5,
Cast(0 as Numeric(17,2)) as labdiscount6,
Cast(0 as Numeric(17,2)) as labprev_totalamount,
Cast(0 as Numeric(17,2)) as labprev_discount,
Cast(0 as Numeric(17,2)) as labcurr_cashamount,
Cast(0 as Numeric(17,2)) as labprev_cashamount,
Cast(0 as Numeric(17,2)) as labcurr_upiamount,
Cast(0 as Numeric(17,2)) as labprev_upiamount,
Cast(0 as Numeric(17,2)) as labcurr_recdisc,
Cast(0 as Numeric(17,2)) as labprev_recdisc,
Cast(0 as Numeric(17,2)) as labcurr_cn,
Cast(0 as Numeric(17,2)) as labprev_cn,
Cast(0 as Numeric(17,2)) as labprev_creditamount,
Cast(0 as Numeric(17,2)) as sctotalamount1,
Cast(0 as Numeric(17,2)) as sctotalamount2,
Cast(0 as Numeric(17,2)) as sctotalamount3,
Cast(0 as Numeric(17,2)) as sctotalamount4,
Cast(0 as Numeric(17,2)) as scprev_totalamount,
Cast(0 as Numeric(17,2)) as scprev_discount,
Cast(0 as Numeric(17,2)) as sccurr_cashamount,
Cast(0 as Numeric(17,2)) as scprev_cashamount,
Cast(0 as Numeric(17,2)) as sccurr_upiamount,
Cast(0 as Numeric(17,2)) as scprev_upiamount,
Cast(0 as Numeric(17,2)) as sccurr_recdisc,
Cast(0 as Numeric(17,2)) as scprev_recdisc,
Cast(0 as Numeric(17,2)) as sccurr_cn,
Cast(0 as Numeric(17,2)) as scprev_cn,
Cast(0 as Numeric(17,2)) as scadvance,
Cast(0 as Numeric(17,2)) as scadvanceadj,
Cast(0 as Numeric(17,2)) as scprev_creditamount
From ho_op_billing_header a
Where a.companycode = :as_company
And a.branchcode = :as_branch
And a.voucherseries = 'HOOPBILL'
and a.voucherdate = :ad_ason
and a.billstatus = 'N'
) a
Group By a.voucherdate
Order By 1
The dw which contains the above query runs fine in development environment (both when run from IDE and exe)
The same dw / window gives the following error when run from exe at production machine.
Select Error: The command extension block has not been allocated.
Not sure, whether it's a PB error or PostgreSQL error.
Tried: @Production machine.
1. Tried running the query, after substituting retrieval argument, using PGAdmin. It runs well. No Issue.
2. In PB, SQLPreview event is executed.
3. In PB, DBError event is not triggered.
This error occurs only for this datawindow.
Any idea to resolve this error.
Happiness Always
BKR Sivaprakash
Find Questions by Tag
Helpful?
If a reply or comment is helpful for you, please don’t hesitate to click the Helpful button. This action is further confirmation of their invaluable contribution to the Appeon Community.