CONNECT USING SQLCA;
IF SQLCA.SQLCODE <> 0 and SQLCA.SQLCODE <> -1 THEN
    MessageBox("SQLCODE ->" + STRING(SQLCA.SQLCODE) + "<-",SQLCA.SQLERRTEXT)
    HALT
END IF

date ADate
integer LDetId
real Extended
long FillLength
string DisplayAmount

ADate = date(sle_adate.text)
st_date_display.text = string(ADate,"mmm mm/dd/yy")

DECLARE Journal CURSOR FOR
SELECT "detail"."ldet_id",
    "order"."acctg_date",
    sum("detail"."qty" * "detail"."each")
FROM "detail",
    "order"
WHERE ( "order"."order_id" = "detail"."order_id" ) and
    ( ( "order"."acctg_date" = :ADate ) )
GROUP BY "order"."acctg_date",
    "detail"."ldet_id";

OPEN Journal;

FETCH Journal INTO :LDetId, :ADate, :Extended;

if SQLCA.SQLCode <> 0 then
    messagebox("Nothing to Journalize","There were no details for " + string(ADate,"mm/dd/yyyy"))
    DISCONNECT;
    return
end if

lb_jv.Reset()
st_date_display.text = "JV for " + string(ADate,"mmm mm/dd/yy")

do while SQLCA.SQLCode = 0
    DisplayAmount = string(Extended,"#0.00;(##0.00)")
    FillLength = 12 - len(DisplayAmount)
    if Extended > 0 then FillLength -= 1
    lb_jv.AddItem(string(LDetId) + fill(" ",FillLength) + DisplayAmount)
    FETCH Journal INTO :LDetId, :ADate, :Extended;
loop

DISCONNECT;