gbfg55 / gbg-20-git (public) (License: Unspecified) (since 2018-10-16) (hash sha1)
Buderim Trial Repository
Clone URLs: https://rocketgit.com/user/gbfg55/gbg-20-git ssh://rocketgit@ssh.rocketgit.com/user/gbfg55/gbg-20-git git://git.rocketgit.com/user/gbfg55/gbg-20-git
master
List of commits:
Subject Hash Author Date (UTC)
k2155 86ded46bdb75580f51d14ba9b9d02c5b0e74199b nac 2014-09-04 00:58:06
c1474 1e6975340fddfad71c1da85972c906b15ad455c3 nac 2014-07-28 03:16:10
c1474 5abda4b993a526d461af27de8e74b352f173e775 gbg 2014-07-03 14:15:32
Update tpl library for EFT Bank File Creation with workaround for amounts 91dab2d3618b99b8758bf65d58cd8facc6df08ff gbg 2014-03-03 07:29:21
d2561 a3d2e47f82c1e0d9b245391d8e9cebec9a900afd gbg 2014-02-21 04:33:43
d2561 46df2f4ab87f400e7d20dfb31faf448d396f04fa gbg 2014-02-21 03:35:00
d2561 5614d485d8c4bcfd6402d6df9f1edbd4d8371305 gbg 2014-02-21 03:23:35
d2561 732b3761194e0c0783b9f31ae2df7541bdcd598f gbg 2014-02-21 01:12:15
d2561 b4b13a6ba9792b545ab63e8dfd600253e321c163 gbg 2014-02-21 00:51:11
d2561 df49e7e8ba5529218cb6c78a3bcaa11b6810830e gbg 2014-02-21 00:44:04
d2561 1ea4b24c354f3797da29ffba02870e0ff674a4d8 gbg 2014-02-21 00:28:48
d2561 377b24a944d64666775de8306b607fb8c9e524ae gbg 2014-02-21 00:00:44
d2561 ddcc8ed0c739b426768a8caf646260bfb008a1d9 gbg 2014-02-20 15:01:12
update 3cb83d589cf9081322366ee4eb38c0df910837f2 gbg 2013-12-20 08:35:41
Initial Load for Buderim Ginger e79fcfa36e7a9a80e19b84d121e99b53397dd5ba gbg 2013-12-18 03:24:58
Commit 86ded46bdb75580f51d14ba9b9d02c5b0e74199b - k2155
Author: nac
Author date (UTC): 2014-09-04 00:58
Committer name: nac
Committer date (UTC): 2014-09-04 00:58
Parent(s): 1e6975340fddfad71c1da85972c906b15ad455c3
Signer:
Signing key:
Signing status: N
Tree: 202e72feed5777ed352489af2c4bd81daf672743
File Lines added Lines deleted
mfg/2013/base/src/xfiv1009.p 209 158
mfg/2013/base/src/xfiv10u0.i 117 0
mfg/2013/base/src/xfiv10u5.i 0 0
mfg/2013/base/src/xfiv10ub.i 0 0
mfg/2013/base/src/xfiv10ue.i 0 0
mfg/2013/base/src/xfrp1009.p 189 73
mfg/2013/base/src/xfso10u0.i 0 0
mfg/2013/base/src/xfso10u5.i 0 0
mfg/2013/base/src/xfso10ub.i 0 0
mfg/2013/base/src/xfso10ue.i 0 0
File mfg/2013/base/src/xfiv1009.p copied from file mfg/2013/base/src/soiv1002.p (similarity 88%) (mode: 100644) (index 6dad54f..fa37605)
1 /* soiv1002.p - INVOICE HISTORY INVOICE REPRINT MAINLOOP */
1 /* xfiv1009.p - INVOICE HISTORY INVOICE REPRINT MAINLOOP */
2 2 /* soiv1001.p - INVOICE HISTORY INVOICE REPRINT MAINLOOP */ /* soiv1001.p - INVOICE HISTORY INVOICE REPRINT MAINLOOP */
3 3 /* Copyright 1986 QAD Inc. All rights reserved. */ /* Copyright 1986 QAD Inc. All rights reserved. */
4 4 /* $Id$: */ /* $Id$: */
 
62 62 /* Revision: 1.82 BY: Manjusha Inglay DATE: 12/14/09 ECO: *R1VM* */ /* Revision: 1.82 BY: Manjusha Inglay DATE: 12/14/09 ECO: *R1VM* */
63 63 /* Revision: 1.83 BY: Sandeep Rohila DATE: 02/03/10 ECO: *R1XM* */ /* Revision: 1.83 BY: Sandeep Rohila DATE: 02/03/10 ECO: *R1XM* */
64 64 /* Revision: 1.84 BY: Trupti Khairnar DATE: 08/24/10 ECO: *Q4BT* */ /* Revision: 1.84 BY: Trupti Khairnar DATE: 08/24/10 ECO: *Q4BT* */
65 /* BGL LAST MODIFIED: 2014-FEB-12 BY: gbg *d2561 */
65 /* Revision: eB3SP5 BY: Achint Lele DATE: 02/08/10 ECO: *eb3sp5* */
66 /* Revision: QAD2012.1 BY: Steve Hong DATE: 25/10/12 ECO: *93sp12.1 */
67 /* BGL LAST MODIFIED: 2014-SEP-03 BY: nac *K2155 */
66 68 /*-Revision end---------------------------------------------------------------*/ /*-Revision end---------------------------------------------------------------*/
67 69
68 70 /******************************************************************************/ /******************************************************************************/
 
86 88 FRAME BASED ON THE VALUE OF THE FLAG "DISPLAY TAXABLE/NON-TAXABLE FRAME BASED ON THE VALUE OF THE FLAG "DISPLAY TAXABLE/NON-TAXABLE
87 89 AMOUNT ON TRAILER" IN THE GLOBAL TAX MANAGEMENT CTRL FILE AMOUNT ON TRAILER" IN THE GLOBAL TAX MANAGEMENT CTRL FILE
88 90 */ */
91 using com.qad.eefin.bpaymentcondition.PaymentConditionDescByLng.
89 92 {us/bbi/mfdeclre.i} {us/bbi/mfdeclre.i}
90 93 {us/bbi/gplabel.i} /* EXTERNAL LABEL INCLUDE */ {us/bbi/gplabel.i} /* EXTERNAL LABEL INCLUDE */
91 {us/px/pxmaint.i}
92 {us/px/pxphdef.i adcrxr}
93 94
94 95 {us/gp/gprunpdf.i "sopl" "p"} {us/gp/gprunpdf.i "sopl" "p"}
95 96 {us/so/sotxidef.i} {us/so/sotxidef.i}
96 97
97
98 /*d2561* start added code >>> */
98 /*k2155* start added code >>> */
99 99 {xx2561.i new} {xx2561.i new}
100 100 {xxtaxfn.i} {xxtaxfn.i}
101 /*d2561* end added code <<< */
101 /*k2155* end added code <<< */
102
103 {us/xf/xfdefa.i} /*eb3sp5*/
104
105 {us/xf/xfiv10v.i} /*eb3sp5*/
106
107 {us/xf/xfiv10u.i} /*eb3sp5*/
102 108
103 109 define new shared variable undo_txdetrp like mfc_logical. define new shared variable undo_txdetrp like mfc_logical.
104 110 define new shared variable rmaso like mfc_logical. define new shared variable rmaso like mfc_logical.
 
... ... define shared variable billto as character
133 139 format "x(38)" extent 6. format "x(38)" extent 6.
134 140 define shared variable soldto as character define shared variable soldto as character
135 141 format "x(38)" extent 6. format "x(38)" extent 6.
136 define shared variable termsdesc as character format "x(40)" label "Description" no-undo.
142 define shared variable termsdesc like ct_desc.
137 143 define shared variable shipdate like ih_ship_date. define shared variable shipdate like ih_ship_date.
138 144 define shared variable shipdate1 like shipdate. define shared variable shipdate1 like shipdate.
139 145 define shared variable addr as character define shared variable addr as character
 
... ... define variable l_tot_amt as decimal no-undo.
239 245 define variable l_tax_total_message as character extent 2 define variable l_tax_total_message as character extent 2
240 246 format "x(13)" no-undo. format "x(13)" no-undo.
241 247 define variable l_basetaxtot like glt_amt no-undo. define variable l_basetaxtot like glt_amt no-undo.
242 define variable is_fallback as logical no-undo.
243
244 248
249
245 250 /* InvoiceCerification 20110405 : Add a new variable that will hold the invoice-certificate text that needs to be printed on the invoice for the Portugese decree-363 */ /* InvoiceCerification 20110405 : Add a new variable that will hold the invoice-certificate text that needs to be printed on the invoice for the Portugese decree-363 */
246 define variable vcInvoiceCertificationText as character no-undo.
247 define variable vcInvoiceYearVoucherNumber as character no-undo.
248
251 define variable vcInvoiceCertificationText as character no-undo.
252 define variable vcInvoiceYearVoucherNumber as character no-undo.
253
254
255 /* QAD Financials Data Objects DEFINITIONS */
256 define variable hQADFinancialsLib as handle no-undo.
257 define variable PaymentCondition as PaymentConditionDescByLng no-undo.
249 258
250 259 define buffer abs_mst1 for abs_mstr. define buffer abs_mst1 for abs_mstr.
251 260 define buffer ih_buff for ih_hist. define buffer ih_buff for ih_hist.
 
... ... assign l_tax_total_message[1] = getTermLabel("TOTAL_TAX",9)
268 277 + getTermLabel("IN",2) + getTermLabel("IN",2)
269 278 l_tax_total_message[2] = getTermLabel("TOTAL_TAX",9). l_tax_total_message[2] = getTermLabel("TOTAL_TAX",9).
270 279
280 {us/xf/xftxtots.i} /*eb3sp5*/
271 281
272 282 {us/so/sodiscwk.i &new="new"} {us/so/sodiscwk.i &new="new"}
273 283
 
... ... assign
283 293 {us/et/etvar.i} {us/et/etvar.i}
284 294 {us/et/etrpvar.i &new="new"} {us/et/etrpvar.i &new="new"}
285 295
286 /*d2561* {us/mf/mfivtrla.i "NEW"} */
287 /*d2561*/ {xxmfivtrla.i "NEW"}
296 {us/mf/mfivtrla.i "NEW"}
288 297 {us/bbi/wbgp03.i &new="NEW SHARED"} {us/bbi/wbgp03.i &new="NEW SHARED"}
289 298
290 {us/px/pxpgmmgr.i}
291 {us/px/pxphdef.i pccalcxr}
292
293 299 assign assign
294 300 l_nontaxable_lbl = getTermLabelRtColon("NON-TAXABLE", 12) l_nontaxable_lbl = getTermLabelRtColon("NON-TAXABLE", 12)
295 301 l_taxable_lbl = getTermLabelRtColon("TAXABLE", 12). l_taxable_lbl = getTermLabelRtColon("TAXABLE", 12).
 
... ... prepaid_old = tot_prepaid_amt:format.
325 331
326 332 find first rmc_ctrl where rmc_domain = global_domain no-lock no-error. find first rmc_ctrl where rmc_domain = global_domain no-lock no-error.
327 333
328 /* Get statutory currency */
329 {us/px/pxrun.i &PROC = 'getStatutoryCurrency'
330 &PROGRAM='pccalcxr.p'
331 &handle = ph_pccalcxr
332 &PARAM = "(output g_mgmt_curr,
333 output is_fallback)"
334 &NOAPPERROR=true
335 &CATCHERROR=true}
336
337 334 mainloop: mainloop:
338 335 do: do:
339 336 for each ih_buff for each ih_buff
 
... ... do:
402 399 end. /* IF mc-error-number <> 0 */ end. /* IF mc-error-number <> 0 */
403 400
404 401 /* EXCLUDE CREDIT/DEBIT INVOICE */ /* EXCLUDE CREDIT/DEBIT INVOICE */
402 /*eb3sp5 comment begin
405 403 if not incinv if not incinv
406 404 or not incmemo or not incmemo
407 405 then do: then do:
408
406 eb3sp5 comment end*/
407 do : /*eb3sp5*/
409 408 /* OBTAIN TOTAL INVOICE VALUE */ /* OBTAIN TOTAL INVOICE VALUE */
410 409 if first-of(ih_buff.ih_inv_nbr) if first-of(ih_buff.ih_inv_nbr)
411 410 then then
 
... ... do:
421 420 and ord_amt < 0) and ord_amt < 0)
422 421 then then
423 422 l_skip_rec = yes. l_skip_rec = yes.
423
424 /*eb3sp5 add begin*/
425 assign invcrdt = if ord_amt >= 0 then "TAX INVOICE"
426 else "ADJUSTMENT NOTE".
427 /*eb3sp5 add end*/
424 428
425 429 end. /* IF NOT incinv OR ... */ end. /* IF NOT incinv OR ... */
426 430
 
... ... do:
444 448
445 449 run removeEmptyStrings. run removeEmptyStrings.
446 450
447 /* InvoiceCerification 20110405 : Fill the new variable with the invoice-certificate text that needs to be printed on the invoice for the Portugese decree-363 ; this will be printed on the forms defined in soivhfrm.i */
448 /* This text needs to be printed in portugese regardless the language used for the other parts of the print and regardless the langauge of the user. It can thus be that the user is working in English, the print is requested in Dutch but even in this scenario this fixed text should be in Portugese */
449 if ih__qadc05 <> "":U and
450 ih__qadc05 <> ? and
451 num-entries(ih__qadc05,chr(4)) = 2
452 then assign vcInvoiceCertificationText = trim(entry(2,ih__qadc05,chr(4))) + "-Processado por Programa Certificado n. ":U + trim(entry(1,ih__qadc05,chr(4))) + "/DGCI":U
453 vcInvoiceYearVoucherNumber = substring(ih_inv_nbr,1,4) + substring(ih_inv_nbr,6,length(ih_inv_nbr) - 14) + "/" + substring(ih_inv_nbr,length(ih_inv_nbr) - 8).
454 else assign vcInvoiceCertificationText = "":U
455 vcInvoiceYearVoucherNumber = ih_inv_nbr.
456
457
451 /* InvoiceCerification 20110405 : Fill the new variable with the invoice-certificate text that needs to be printed on the invoice for the Portugese decree-363 ; this will be printed on the forms defined in soivhfrm.i */
452 /* This text needs to be printed in portugese regardless the language used for the other parts of the print and regardless the langauge of the user. It can thus be that the user is working in English, the print is requested in Dutch but even in this scenario this fixed text should be in Portugese */
453 if ih__qadc05 <> "":U and
454 ih__qadc05 <> ? and
455 num-entries(ih__qadc05,chr(4)) = 2
456 then assign vcInvoiceCertificationText = trim(entry(2,ih__qadc05,chr(4))) + "-Processado por Programa Certificado n. ":U + trim(entry(1,ih__qadc05,chr(4))) + "/DGCI":U
457 vcInvoiceYearVoucherNumber = substring(ih_inv_nbr,1,4) + substring(ih_inv_nbr,6,length(ih_inv_nbr) - 14) + "/" + substring(ih_inv_nbr,length(ih_inv_nbr) - 8).
458 else assign vcInvoiceCertificationText = "":U
459 vcInvoiceYearVoucherNumber = ih_inv_nbr.
460
461
458 462 /* form frame phead1 & phead1ent PAGE-TOP FRAME DEFINITION */ /* form frame phead1 & phead1ent PAGE-TOP FRAME DEFINITION */
459 /*d2561* {us/so/soivhfrm.i} */
460 /*d2561*/ {xxivhfrm.i}
463 {us/so/soivhfrm.i}
461 464
465 /*eb3sp5 comment begin
462 466 run GetHeading. run GetHeading.
463 467 if isDomOrder then if isDomOrder then
464 468 view frame phead1ent. view frame phead1ent.
465 469 else else
466 470 view frame phead1. view frame phead1.
471 eb3sp5 comment end*/
467 472 first-invoice = if first-of(ih_inv_nbr) then yes else no. first-invoice = if first-of(ih_inv_nbr) then yes else no.
468 473
469 474 for first cil_mstr for first cil_mstr
 
... ... do:
474 479 end. /* FOR FIRST cil_mstr */ end. /* FOR FIRST cil_mstr */
475 480
476 481 if available cil_mstr and not prt_cor then next. if available cil_mstr and not prt_cor then next.
477 if first-invoice then page.
482 /* if first-invoice then page. */ /*eb3sp5*/
478 483 if ih_fsm_type = "FSM-RO" then tax_tr_type = '16'. if ih_fsm_type = "FSM-RO" then tax_tr_type = '16'.
479 484 pages = page-number - 1. pages = page-number - 1.
480 485
 
... ... do:
489 494 {us/bbi/pxmsg.i &MSGNUM=863 &ERRORLEVEL=3} {us/bbi/pxmsg.i &MSGNUM=863 &ERRORLEVEL=3}
490 495 next. next.
491 496 end. /* IF AVAIL rnd_mstr */ end. /* IF AVAIL rnd_mstr */
492
497 /*eb3sp5 comment begin
493 498 {us/so/socurfmt.i} {us/so/socurfmt.i}
494 499
495 500 /* SET CURRENCY DEPENDENT FORMATS */ /* SET CURRENCY DEPENDENT FORMATS */
496 501 prepaid_fmt = prepaid_old. prepaid_fmt = prepaid_old.
497
502 eb3sp5 comment end*/
498 503 {us/bbi/gprun.i ""gpcurfmt.p"" "(input-output prepaid_fmt, {us/bbi/gprun.i ""gpcurfmt.p"" "(input-output prepaid_fmt,
499 504 input rndmthd)"} input rndmthd)"}
500 505 oldcurr = ih_curr. oldcurr = ih_curr.
 
... ... do:
557 562 next. next.
558 563 end. /* IF AVAIL rmc_ctrl */ end. /* IF AVAIL rmc_ctrl */
559 564
560 {us/px/pxrun.i &PROC='getTermsDescription' &PROGRAM='adcrxr.p'
561 &HANDLE=ph_adcrxr
562 &PARAM="(input ih_cr_terms,
563 output termsdesc)"}
565 find ct_mstr
566 where ct_domain = global_domain
567 and ct_code = ih_cr_terms
568 no-lock no-error.
564 569
570 if available ct_mstr
571 then do:
572 /* Run the data object class to return the Payment Condition Description */
573 /* Parameters: PaymentConditionCode, LngCode */
574 do on error undo, throw:
575 PaymentCondition = new PaymentConditionDescByLng(ih_cr_terms,global_user_lang).
576 catch anError as Progress.Lang.Error:
577 /* Start qflib.p - QAD Financials Library running persistently */
578 run mfairunh.p
579 (input 'qflib.p',
580 input '?',
581 output hQADFinancialsLib) no-error.
582 run processExceptions in hQADFinancialsLib (input anError).
583 return.
584 end catch.
585 end.
586 if PaymentCondition:Available
587 then do:
588 termsdesc = PaymentCondition:PaymentConditionDescription.
589 delete object PaymentCondition.
590 end.
591 end.
592 else
593 termsdesc = "".
565 594 find ad_mstr find ad_mstr
566 595 where ad_domain = global_domain where ad_domain = global_domain
567 596 and ad_addr = ih_bill and ad_addr = ih_bill
568 597 no-lock no-wait no-error. no-lock no-wait no-error.
569 598 update billto = "". update billto = "".
570
599 /*eb3sp5 add begin*/
600 assign
601 billto_city = ""
602 billto_state = ""
603 billto_zip = ""
604 billto_attn = ""
605 billto_fax = ""
606 billto_phn = "".
607 /*eb3sp5 add end*/
571 608 if available ad_mstr then do: if available ad_mstr then do:
572 609
573 610 /* Assign values to addr and format */ /* Assign values to addr and format */
574 611 {us/mf/mfadfmt.i} {us/mf/mfadfmt.i}
575
612 /*eb3sp5 add begin*/
613
614 {us/xf/xfaddr.i "billto"} /*eb3sp5*/
615
616 assign
617 addr[5] = ""
618 billto_city = ad_city
619 billto_state = ad_state
620 billto_zip = ad_zip
621 billto_fax = ad_fax
622 billto_attn = ad_attn
623 billto_phn = ad_phone.
624
625 /*eb3sp5 add end*/
626
576 627 for first cm_mstr where cm_domain = global_domain for first cm_mstr where cm_domain = global_domain
577 628 and cm_addr = ih_bill and cm_addr = ih_bill
578 629 no-lock: end. no-lock: end.
 
... ... do:
590 641 billto[5] = addr[5] billto[5] = addr[5]
591 642 billto[6] = addr[6]. billto[6] = addr[6].
592 643
644 /*eb3sp5 comment begin
593 645 hdr_po = getTermLabel("PURCHASE_ORDER",14) + ": " + ih_po. hdr_po = getTermLabel("PURCHASE_ORDER",14) + ": " + ih_po.
594 646
595 647 if addr[6] <> "" if addr[6] <> ""
596 648 and ih_po = "" and ih_po = ""
597 649 then then
598 650 billto[6] = addr[6]. billto[6] = addr[6].
599
651 eb3sp5 comment end*/
600 652 end. /* IF AVAIL ad_mstr */ end. /* IF AVAIL ad_mstr */
601 653 else do: else do:
602 654 for first usr_mstr for first usr_mstr
 
... ... do:
609 661 input usr_ctry_code). input usr_ctry_code).
610 662 end. end.
611 663
612 /*d2561* start added code >>> */
613 find ad_mstr where ad_domain = global_domain
614 and ad_addr = ih_ship
615 no-lock no-wait no-error.
616 /*d2561* end added code <<< */
617 /*d2561* start deleted code >>>
618 664 find ad_mstr where ad_domain = global_domain find ad_mstr where ad_domain = global_domain
619 665 and ad_addr = ih_cust and ad_addr = ih_cust
620 666 no-lock no-wait no-error. no-lock no-wait no-error.
621 *d2561* end deleted code <<<< */
622
623 667 update soldto = "". update soldto = "".
668 /*eb3sp5 add begin*/
669 assign
670 soldto_city = ""
671 soldto_state = ""
672 soldto_zip = "".
673 /*eb3sp5 add end*/
624 674
625 675 if available ad_mstr then do: if available ad_mstr then do:
626 676
627 677 /* Assign values to addr and format */ /* Assign values to addr and format */
628 678 {us/mf/mfadfmt.i} {us/mf/mfadfmt.i}
629
679
680 /*eb3sp5 add begin*/
681 {us/xf/xfaddr.i "soldto"} /*eb3sp5*/
682 assign
683 addr[5] = ""
684 soldto_city = ad_city
685 soldto_state = ad_state
686 soldto_zip = ad_zip.
687 /*eb3sp5 add end*/
688
630 689 assign assign
631 690 soldto[1] = addr[1] soldto[1] = addr[1]
632 691 soldto[2] = addr[2] soldto[2] = addr[2]
 
... ... do:
648 707 find ad_mstr where ad_domain = global_domain find ad_mstr where ad_domain = global_domain
649 708 and ad_addr = ih_ship and ad_addr = ih_ship
650 709 no-lock no-wait no-error. no-lock no-wait no-error.
710 /*eb3sp5 add begin*/
711 assign
712 shipto_city = ""
713 shipto_state = ""
714 shipto_zip = ""
715 shipto_attn = ""
716 shipto_phn = "".
717 /*eb3sp5 add end*/
651 718
652 719 if available ad_mstr if available ad_mstr
653 720 then do: then do:
654
721
722 /*eb3sp5 add begin*/
723 assign
724 shipto_city = ad_city
725 shipto_state = ad_state
726 shipto_zip = ad_zip
727 shipto_attn = ad_attn
728 shipto_phn = ad_phone
729 shipto[1] = ad_name
730 shipto[2] = ad_line1
731 shipto[3] = ad_line2
732 shipto[4] = ad_line3
733 shipto[5] = ""
734 shipto[6] = ad_country.
735 /*eb3sp5 add end*/
736
655 737 vatreg1 = "". vatreg1 = "".
656 738 for first cm_mstr for first cm_mstr
657 739 where cm_domain = global_domain where cm_domain = global_domain
 
... ... do:
707 789 end. end.
708 790 end. end.
709 791
710 /*d2561* start added code >>> */
711 for first Debtor no-lock
712 where Debtor.DebtorCode = ih_cust,
713 first BusinessRelation of Debtor no-lock,
714 each Address no-lock
715 where Address.BusinessRelation_ID =
716 BusinessRelation.BusinessRelation_ID,
717 first AddressType no-lock
718 where AddressType.AddressType_ID = Address.AddressType_ID
719 and AddressType.AddressTypeCode = "REMINDER"
720 and AddressType.AddressTypeIsActive,
721 first Contact no-lock
722 where Contact.Address_ID = Address.Address_ID
723 and Contact.ContactIsPrimary:
724 vemail = Contact.ContactEmail.
725 end.
726
727 if not isDomOrder then
728 form
729 header
730 getTermLabelRtColon("SALES_ORDER",15) format "x(15)" to 15
731 ih_nbr
732 getTermLabelRtColon("SHIP_DATE",20) format "x(20)" to 55
733 ih_ship_date
734 getTermLabelRtColon("ORDER_DATE",15) format "x(15)" to 15
735 ih_ord_date
736 hdr_po to 78 no-label
737 getTermLabelRtColon("SALESPERSON(S)",15) format "x(15)" to 15
738 ih_slspsn[1]
739 ih_slspsn[2]
740 getTermLabelRtColon("SHIP_TO",20) format "x(20)" to 55
741 ih_ship
742 ih_slspsn[3] at 17
743 ih_slspsn[4]
744 getTermLabelRtColon("SHIP_VIA",20) format "x(20)" to 55
745 ih_shipvia
746 getTermLabelRtColon("CREDIT_TERMS",15) format "x(15)" to 15
747 ih_cr_terms
748
749 getTermLabelRtColon("BOL",10) format "x(10)" to 55
750 ih_bol
751 " " to 15
752 termsdesc
753 getTermLabelRtColon("FOB_POINT",15) format "x(15)" to 55
754 ih_fob
755 getTermLabelRtColon("RESALE",15) format "x(15)" to 15
756 resale
757 hdr_call to 64 no-label
758 getTermLabelRtColon("REMARKS",15) format "x(15)" to 15
759 ih_rmks
760 " Sold-To Email:" /* format "x(15)" */ to 15
761 vemail
762 skip(1)
763 with frame phead2 width 90.
764 /*d2561* end added code <<< */
765 /*d2561* start deleted code >>>
766 792 if not isDomOrder then if not isDomOrder then
767 793 form form
768 794 header header
 
... ... do:
797 823 getTermLabelRtColon("REMARKS",15) format "x(15)" to 15 getTermLabelRtColon("REMARKS",15) format "x(15)" to 15
798 824 ih_rmks skip (1) ih_rmks skip (1)
799 825 with frame phead2 width 90. with frame phead2 width 90.
800 *d2561* end deleted code <<< */
801 {&d2561-tag-1000} /* new form definition */
802 826 else else
803 827 form form
804 828 header header
 
... ... do:
859 883 if first-of(ih_inv_nbr) then do: if first-of(ih_inv_nbr) then do:
860 884 /* INITIALIZE VARIABLES FOR INVOICE TOTALS.*/ /* INITIALIZE VARIABLES FOR INVOICE TOTALS.*/
861 885 {us/so/soivtot2.i} {us/so/soivtot2.i}
886 /*eb3sp5
862 887 view frame continue. view frame continue.
863 888 if not isDomOrder then if not isDomOrder then
864 889 view frame phead2. view frame phead2.
865 890 else else
866 891 view frame phead2ent. view frame phead2ent.
867
892 eb3sp5*/
893 {us/xf/xfiv1009m0.i} /*eb3sp5*/
868 894 if ih_fsm_type = "SC" then do: if ih_fsm_type = "SC" then do:
869 895
870 896 svremarks = getTermLabel("FOR_PERIOD",25) + ": " svremarks = getTermLabel("FOR_PERIOD",25) + ": "
871 897 + string(ih_req_date,"99/99/99") + " " + string(ih_req_date,"99/99/99") + " "
872 898 + getTermLabel("TO",10) + ": " + getTermLabel("TO",10) + ": "
873 899 + string(ih_due_date,"99/99/99"). + string(ih_due_date,"99/99/99").
874 put svremarks at 15.
900 /* put svremarks at 15. */ /*eb3sp5*/
901
902 {us/xf/xfiv1009m0a.i} /*eb3sp5*/
875 903
876 904 svremarks = getTermLabel("SERVICE_CONTRACT",30) + ": " svremarks = getTermLabel("SERVICE_CONTRACT",30) + ": "
877 905 + ih_sa_nbr. + ih_sa_nbr.
878 put svremarks at 15.
906 /*put svremarks at 15. eb3sp5*/
879 907 end. /* IF ih_fsm_type = "SC" */ end. /* IF ih_fsm_type = "SC" */
880 908
909 /*eb3sp5 comment begin
881 910 run PrintHeaderComment(input ih_cmtindx, run PrintHeaderComment(input ih_cmtindx,
882 911 input vcPriHeadComment). input vcPriHeadComment).
883 912 put skip(1). put skip(1).
913 eb3sp5 comment end*/
914 {us/xf/xfcmtprt.i &type=IN &id=ih_cmtindx &rectype=A} /*eb3sp5*/
884 915 /* IF THIS INVOICE IS FOR AN RMA WHICH REFERENCES */ /* IF THIS INVOICE IS FOR AN RMA WHICH REFERENCES */
885 916 /* A CALL, PRINT HEADER COMMENTS FROM THAT CALL */ /* A CALL, PRINT HEADER COMMENTS FROM THAT CALL */
886 917
 
... ... do:
894 925 no-lock no-error. no-lock no-error.
895 926
896 927 if available ca_mstr then do: if available ca_mstr then do:
928 /*eb3sp5 comment begin
897 929 put skip(1). put skip(1).
898 930 run PrintHeaderComment(input ca_cmtindx, run PrintHeaderComment(input ca_cmtindx,
899 931 input vcPriHeadComment). input vcPriHeadComment).
932 eb3sp5 comment end*/
933 {us/xf/xfcmtprt.i &type=IN &id=ca_cmtindx &rectype=F} /*eb3sp5*/
900 934 end. /* IF AVAIL ca_mstr */ end. /* IF AVAIL ca_mstr */
901 935 else do: else do:
902 936 find first chm_mstr find first chm_mstr
 
... ... do:
906 940 no-lock no-error. no-lock no-error.
907 941
908 942 if available chm_mstr then do: if available chm_mstr then do:
943 /*eb3sp5 comment begin
909 944 put skip(1). put skip(1).
910 945 run PrintHeaderComment(input chm_cmtindx, run PrintHeaderComment(input chm_cmtindx,
911 946 input vcPriHeadComment). input vcPriHeadComment).
947 eb3sp5 comment end*/
948 {us/xf/xfcmtprt.i &type=IN &id=ca_cmtindx &rectype=F} /*eb3sp5*/
949
912 950 end. /* IF AVAIL chm_mstr */ end. /* IF AVAIL chm_mstr */
913 951 end. /* ELSE NOT AVAIL ca_mstr */ end. /* ELSE NOT AVAIL ca_mstr */
914 952 end. /* IF rmaso */ end. /* IF rmaso */
 
... ... do:
923 961 /* FOURTH AND FIFTH OUTPUT PARAMETERS ARE ADDED FOR /* FOURTH AND FIFTH OUTPUT PARAMETERS ARE ADDED FOR
924 962 CALCULATING TAXABLE AND NON TAXABLE LINE AND CONTAINER CALCULATING TAXABLE AND NON TAXABLE LINE AND CONTAINER
925 963 CHARGES */ CHARGES */
926 /*d2561* {us/bbi/gprun.i ""soivrp1a.p"" */
927 /*d2561*/ {us/bbi/gprun.i ""xxivrp1a.p""
964 {us/xf/xfiv1009mv.i} /*eb3sp5*/
965 /*93sp12.1 {us/bbi/gprun.i ""soivrp1a.p"" */
966 /*eb3sp5*/ {us/bbi/gprun.i ""xfivrp1a.p""
928 967 "(output invtot_container_amt, "(output invtot_container_amt,
929 968 output invtot_linecharge_amt, output invtot_linecharge_amt,
930 969 input-output l_nontax_amt, input-output l_nontax_amt,
 
... ... do:
949 988 {us/gp/gprunp.i "gpccpl" "p" "isCCOrder" {us/gp/gprunp.i "gpccpl" "p" "isCCOrder"
950 989 "(input ih_nbr, output vlResult)"} "(input ih_nbr, output vlResult)"}
951 990 /*If it is view credit card message frame*/ /*If it is view credit card message frame*/
991 /*93sp12.1
952 992 if vlResult then if vlResult then
953 993 display vcCreditCardMsg with frame soccmsg. display vcCreditCardMsg with frame soccmsg.
994 */
954 995
955 996 if disc_sum_key <> "1" and if disc_sum_key <> "1" and
956 997 disc_sum_key <> disc_det_key disc_sum_key <> disc_det_key
 
... ... do:
963 1004 end. /* IF disc_sum_key <> "1" */ end. /* IF disc_sum_key <> "1" */
964 1005
965 1006 /* PRINT DISCOUNT SUMMARY, DELETE DISC WKFL RECORDS */ /* PRINT DISCOUNT SUMMARY, DELETE DISC WKFL RECORDS */
966 {us/so/sopiprn2.i}
1007 /*93sp12.1 {us/so/sopiprn2.i} */
1008 {us/xf/xfpiprn2.i} /*eb3sp5*/
1009
967 1010 assign assign
968 1011 tot_prepaid_amt = tot_prepaid_amt + ih_hist.ih_prepaid tot_prepaid_amt = tot_prepaid_amt + ih_hist.ih_prepaid
969 1012 tot_ptax_amt = tot_ptax_amt + ih_hist.ih_prep_tax. tot_ptax_amt = tot_ptax_amt + ih_hist.ih_prep_tax.
 
... ... do:
1008 1051 /* txdetrpa.i FOR DISPLAYING THE APPROPRIATE CURRENCY */ /* txdetrpa.i FOR DISPLAYING THE APPROPRIATE CURRENCY */
1009 1052 /* AMOUNT. */ /* AMOUNT. */
1010 1053
1011 {us/bbi/gprun.i ""txdetrp.p"" "(input tax_tr_type,
1054 /*93sp12.1 {us/bbi/gprun.i ""txdetrp.p"" "(input tax_tr_type, */
1055 /*eb3sp5*/ {us/bbi/gprun.i ""xfdetrp.p"" "(input tax_tr_type,
1012 1056 input ih_inv_nbr, input ih_inv_nbr,
1013 1057 input '*', input '*',
1014 1058 input col-80, input col-80,
 
... ... do:
1091 1135 l_conso = no l_conso = no
1092 1136 l_tax_in = 0. l_tax_in = 0.
1093 1137
1138 /*93sp12.1
1094 1139 if can-find(mfc_ctrl where mfc_domain = global_domain if can-find(mfc_ctrl where mfc_domain = global_domain
1095 1140 and mfc_module = "SO" and mfc_module = "SO"
1096 1141 and mfc_seq = 170) and mfc_seq = 170)
1097 1142 then do: then do:
1098 view frame continue.
1143 /*view frame continue. eb3sp5*/
1099 1144 {us/so/soivtotb.i} {us/so/soivtotb.i}
1100 hide frame continue.
1145 /*hide frame continue. eb3sp5*/
1101 1146 end. /* FOUND mfc_ctrl RECORD */ end. /* FOUND mfc_ctrl RECORD */
1147 */
1102 1148
1103 1149 add-trl-length = if tot_prepaid_amt <> 0 then add-trl-length = if tot_prepaid_amt <> 0 then
1104 1150 3 3
1105 1151 else 0. else 0.
1106 1152
1153 /*eb3sp5 comment begin
1107 1154 if page-size - line-counter < 12 + add-trl-length if page-size - line-counter < 12 + add-trl-length
1108 1155 then do: then do:
1109 1156 view frame continue. view frame continue.
 
... ... do:
1119 1166
1120 1167 put fill("-",77) format "x(77)" skip. put fill("-",77) format "x(77)" skip.
1121 1168 currdisp = ih_curr. currdisp = ih_curr.
1169 eb3sp5 comment end*/
1122 1170
1123 1171 /* DETERMINE IF THIS INVOICE IS A CONSOLIDATED INVOICE WHICH */ /* DETERMINE IF THIS INVOICE IS A CONSOLIDATED INVOICE WHICH */
1124 1172 /* WAS CONSOLIDATED FROM A DOM GLOBAL ORDER */ /* WAS CONSOLIDATED FROM A DOM GLOBAL ORDER */
 
... ... do:
1132 1180 output so-trl3-cd, output so-trl3-cd,
1133 1181 output isConsolDom)"} output isConsolDom)"}
1134 1182 end. end.
1135
1136 /* Calculate SC amount of total tax */
1137 tax_sc_amt = invtot_tax_amt.
1138 if ih_curr <> g_mgmt_curr then do:
1139 {us/gp/gprunp.i "mcpl" "p" "mc-curr-conv"
1140 "(input ih_curr,
1141 input g_mgmt_curr,
1142 input ih_mgmt_ex_rate,
1143 input ih_mgmt_ex_rate2,
1144 input tax_sc_amt,
1145 input true, /* ROUND */
1146 output tax_sc_amt,
1147 output mc-error-number)"}
1148 if mc-error-number <> 0 then do:
1149 {us/bbi/pxmsg.i &MSGNUM=mc-error-number &ERRORLEVEL=2}
1150 end.
1151 end.
1152 1183
1184 /*eb3sp5 add begin*/
1185 if nontax_fmt <> "" then
1186 assign nontaxable_amt:format in frame ihtot = nontax_fmt.
1187 if taxable_fmt <> "" then
1188 assign taxable_amt:format in frame ihtot = taxable_fmt.
1189 if line_tot_fmt <> "" then
1190 assign line_total:format in frame ihtot = line_tot_fmt.
1191 if disc_fmt <> "" then
1192 assign disc_amt:format in frame ihtot = disc_fmt.
1193
1194 if trl_amt_fmt <> "" then
1195 assign
1196 ih_trl1_amt:format in frame ihtot = trl_amt_fmt
1197 ih_trl2_amt:format in frame ihtot = trl_amt_fmt
1198 ih_trl3_amt:format in frame ihtot = trl_amt_fmt.
1199
1200 if tax_amt_fmt <> "" then
1201 assign tax_amt:format in frame ihtot = tax_amt_fmt.
1202 if container_fmt <> "" then
1203 assign container_charge_total:format in frame ihtot = container_fmt.
1204 if line_charge_fmt <> "" then
1205 assign line_charge_total:format in frame ihtot = line_charge_fmt.
1206 if ord_amt_fmt <> "" then
1207 assign ord_amt:format in frame ihtot = ord_amt_fmt.
1208 /*eb3sp5 add end*/
1209
1153 1210 /* SET CURRENCY DEPENDENT FORMATS */ /* SET CURRENCY DEPENDENT FORMATS */
1211 /*eb3sp5 comment begin
1154 1212 assign assign
1155 1213 nontaxable_amt:format in frame ihtot = nontax_fmt nontaxable_amt:format in frame ihtot = nontax_fmt
1156 1214 taxable_amt:format in frame ihtot = taxable_fmt taxable_amt:format in frame ihtot = taxable_fmt
 
... ... do:
1163 1221 container_charge_total:format in frame ihtot = container_fmt container_charge_total:format in frame ihtot = container_fmt
1164 1222 line_charge_total:format in frame ihtot = line_charge_fmt line_charge_total:format in frame ihtot = line_charge_fmt
1165 1223 ord_amt:format in frame ihtot = ord_amt_fmt. ord_amt:format in frame ihtot = ord_amt_fmt.
1224 eb3sp5 comment end*/
1225 /*93sp12.1 {us/so/soivto10.i} */
1226 {us/xf/xfivto10.i} /*eb3sp5*/
1166 1227
1167 /*d2561* {us/so/soivto10.i} */
1168 /*d2561* start added code >>> */
1169 /* Calculate Trailer Tax */
1170 assign
1171 tr1pct = gettrltaxpct(ih_inv_nbr, ih_trl1_cd)
1172 tr1tax = gettrltaxamt(ih_inv_nbr, ih_trl1_cd)
1173 tr2pct = gettrltaxpct(ih_inv_nbr, ih_trl2_cd)
1174 tr2tax = gettrltaxamt(ih_inv_nbr, ih_trl2_cd)
1175 tr3pct = gettrltaxpct(ih_inv_nbr, ih_trl3_cd)
1176 tr3tax = gettrltaxamt(ih_inv_nbr, ih_trl3_cd)
1177 .
1178 {xxivto10.i}
1179 /*d2561* end added code <<< */
1228 /*eb3sp5 comment begin
1180 1229 if tot_prepaid_amt <> 0 if tot_prepaid_amt <> 0
1181 1230 then do: then do:
1182 1231 price_fmt = "-zzzz,zzz,zz9.99". price_fmt = "-zzzz,zzz,zz9.99".
 
... ... do:
1199 1248 with frame ihprepd. with frame ihprepd.
1200 1249
1201 1250 end. /* IF tot_prepaid_amt <> 0 */ end. /* IF tot_prepaid_amt <> 0 */
1251 eb3sp5 comment end*/
1202 1252
1203 1253 end. /* IF LAST-OF ih_inv_nbr */ end. /* IF LAST-OF ih_inv_nbr */
1204 1254
 
... ... END PROCEDURE. /*removeEmptyStrings*/
1535 1585
1536 1586 /* procedures of print settings */ /* procedures of print settings */
1537 1587 {us/so/soprprc1.i} {us/so/soprprc1.i}
1588
File mfg/2013/base/src/xfiv10u0.i added (mode: 100644) (index 0000000..a1a52d3)
1 /* xfiv10u0.i - INVOICE RE-PRINT USER CODE RECORD TYPE "0" */
2 /* Copyright 1986-2009 QAD Inc., Carpinteria, CA, USA. */
3 /* All rights reserved worldwide. This is an unpublished work. */
4 /* Revision: eB3SP5 BY: Achint Lele DATE: 02/08/10 ECO: *eb3sp5* */
5 /* BGL LAST MODIFIED: 2014-SEP-03 BY: nac *K2155 */
6 /*V8:ConvertMode=Report */
7
8 /*******************************************************************************
9 *
10 * Code may be added here to extend the standard output record or
11 * create additional records.
12 *
13 * To extend the standard record:
14 *
15 * Fields should be output starting at a position beyond the end
16 * of the existing standard record.
17 * Attempts to put data at positions less than this will result in a
18 * new record being generated as Progress will not over-write existing
19 * data (even if that position contains nulls).
20 *
21 * Output should be in the form:-
22 * put
23 * <field> at <pos> format <format>
24 * <field> at <pos> format <format>
25 * .
26 *
27 * where 'field' = field name, variable, constant, expression
28 * 'pos' = position within the record
29 * 'format' = Progress format mask.
30 *
31 * Notes:
32 * Do not add a 'skip' to the put statement as the main program
33 * will do this on return.
34 *
35 * Be explicit with position and format. Do not let these
36 * default as dictionary changes in later releases may cause
37 * data alignment problems.
38 *
39 *
40 *
41 * To create new records:
42 *
43 * Issuing a 'put skip.' statement will close the existing record.
44 *
45 * A new record can then be created using the logic above for extending
46 * an existing record with the starting position set to '1' and
47 * incrementing from there.
48 *
49 * Heed the notes above and do not put a 'skip' on the last record
50 * created as the main program will do this.
51 *
52 *
53 * Standards:
54 *
55 * To achieve consistency with standard output formats, you should
56 * ensure that your code conforms to the conventions illustrated in
57 * the sample code below. Note the format for dates 'yyyymmdd',
58 * quantities, prices etc and the convention of commenting each line
59 * so that subsequent maintenance is made easier.
60 *
61 *
62 * /* line detail records */
63 * put
64 * "B" at 1 format "x" /* type "B" */
65 * sod_line at 2 format ">>9" /* line number*/
66 * sod_part at 5 format "x(18)" /* item number*/
67 * sod_taxable at 23 format "yes/no" /* taxable */
68 * year(sod_due_date) at 26 format "9999" /* due date */
69 * month(sod_due_date) at 30 format "99"
70 * day(sod_due_date) at 32 format "99"
71 * sod_qty_inv at 34 format "->>>>>>>>9.999999999"
72 * /* qty inv */
73 * qty_bo at 54 format "->>>>>>>>9.999999999"
74 * /* qty b/o */
75 * sod_um at 74 format "x(2)" /* uom */
76 * sod_price at 76 format "->>>>>>>>9.99999"
77 * /* price */
78 * ext_price at 92 format "->>>>>>>>9.99999"
79 * /* line value */
80 * sod_site at 108 format "x(8)" /* site */
81 * sod_custpart at 116 format "x(30)" /* cust item */
82 * desc1 at 146 format "x(24)" /* item desc 1*/
83 * desc2 at 170 format "x(24)" /* item desc 2*/
84 * sod_disc_pct at 194 format "->>9.99"
85 * /* disc % */
86 * sod_list_pr at 201 format "->>>>>>>>9.99999"
87 * /* list price */
88 * sod_pr_list at 217 format "x(8)" /* price list */
89 * skip.
90 *
91 ******************************************************************************/
92
93 /* start of new code >> */
94
95 /*k2155* start added code >>> */
96 for first Debtor no-lock
97 where Debtor.DebtorCode = so_cust,
98 first BusinessRelation of Debtor no-lock,
99 each Address no-lock
100 where Address.BusinessRelation_ID =
101 BusinessRelation.BusinessRelation_ID,
102 first AddressType no-lock
103 where AddressType.AddressType_ID = Address.AddressType_ID
104 and AddressType.AddressTypeCode = "REMINDER"
105 and AddressType.AddressTypeIsActive,
106 first Contact no-lock
107 where Contact.Address_ID = Address.Address_ID
108 and Contact.ContactIsPrimary:
109 put stream ft
110 {us/xf/xfput.i Contact.ContactEmail 948 "x(40)" }
111 .
112 /* vemail = Contact.ContactEmail. */
113 end.
114 /*k2155* end added code <<< */
115
116
117 /* end of new code << */
File mfg/2013/base/src/xfiv10u5.i added (mode: 100644) (index 0000000..bb67cde)
File mfg/2013/base/src/xfiv10ub.i added (mode: 100644) (index 0000000..832eb0a)
File mfg/2013/base/src/xfiv10ue.i added (mode: 100644) (index 0000000..832eb0a)
File mfg/2013/base/src/xfrp1009.p copied from file mfg/2013/base/src/sorp1002.p (similarity 90%) (mode: 100644) (index 495ab9a..5bb2993)
1 /* xxrp1002.p - SALES ORDER INVOICE PRINT FOR ENGLISH PRINT CODE "1" */
2 /* sorp1001.p - SALES ORDER INVOICE PRINT FOR ENGLISH PRINT CODE "1" */
1 /* xfrp1009.p - SALES ORDER INVOICE PRINT FOR ENGLISH PRINT CODE "9" */
3 2 /* sorp1001.p - SALES ORDER INVOICE PRINT FOR ENGLISH PRINT CODE "1" */ /* sorp1001.p - SALES ORDER INVOICE PRINT FOR ENGLISH PRINT CODE "1" */
4 3 /* Copyright 1986 QAD Inc. All rights reserved. */ /* Copyright 1986 QAD Inc. All rights reserved. */
5 4 /* $Id$: */ /* $Id$: */
 
117 116 /* Revision: 1.29.1.58 BY: Dipanshu Talwar DATE: 11/06/09 ECO: *R1TK* */ /* Revision: 1.29.1.58 BY: Dipanshu Talwar DATE: 11/06/09 ECO: *R1TK* */
118 117 /* Revision: 1.29.1.60 BY: Jean Miller DATE: 11/22/09 ECO: *R1TV* */ /* Revision: 1.29.1.60 BY: Jean Miller DATE: 11/22/09 ECO: *R1TV* */
119 118 /* Revision: 1.29.1.61 BY: Jean Miller DATE: 11/23/09 ECO: *R1TW* */ /* Revision: 1.29.1.61 BY: Jean Miller DATE: 11/23/09 ECO: *R1TW* */
120 /* BGL LAST MODIFIED: 2014-FEB-12 BY: gbg *d2561 */
119 /* Revision: eB3SP5 BY: Achint Lele DATE: 02/08/10 ECO: *eb3sp5* */
120 /* Revision: QAD2012.1 BY: Steve Hong DATE: 25/10/12 ECO: *93sp12.1 */
121 /* BGL LAST MODIFIED: 2014-SEP-03 BY: nac *K2155 */
121 122 /*-Revision end---------------------------------------------------------------*/ /*-Revision end---------------------------------------------------------------*/
122 123 /******************************************************************************/ /******************************************************************************/
123 124 /* All patch markers and commented out code have been removed from the source */ /* All patch markers and commented out code have been removed from the source */
 
133 134 /* SINGLE/MULTIPLE ORDERS, SKIP THE LOCKED ORDER AND PRINT THE */ /* SINGLE/MULTIPLE ORDERS, SKIP THE LOCKED ORDER AND PRINT THE */
134 135 /* INVOICES FOR THE REMAINING ORDERS. */ /* INVOICES FOR THE REMAINING ORDERS. */
135 136
137 using com.qad.eefin.bpaymentcondition.PaymentConditionDescByLng.
136 138 using com.qad.eefin.buser.EntitySecurityCheck. using com.qad.eefin.buser.EntitySecurityCheck.
137 139 {us/bbi/mfdeclre.i} {us/bbi/mfdeclre.i}
138 140 {us/bbi/gplabel.i} {us/bbi/gplabel.i}
139 {us/px/pxmaint.i}
140 {us/px/pxphdef.i adcrxr}
141 141
142 142 {us/gp/gpldcons.i} /* CONSTANTS FOR LEGAL DOCUMENT */ {us/gp/gpldcons.i} /* CONSTANTS FOR LEGAL DOCUMENT */
143 {us/xf/xfso10u.i} /*eb3sp5*/
144 {us/xf/xfso10v.i} /*eb3sp5*/
145 {us/xf/xfdefa.i} /*eb3sp5*/
143 146
144 /*d2561* start added code >>> */
147 /*k2155* start added code >>> */
145 148 {xx2561.i new} {xx2561.i new}
146 /*d2561* end added code <<< */
149 {xxtaxfn.i}
150 /*k2155* end added code <<< */
147 151
148 152 define variable daybookSetBySiteInstalled like mfc_logical no-undo. define variable daybookSetBySiteInstalled like mfc_logical no-undo.
149 153 define variable hDaybooksetValidation as handle no-undo. define variable hDaybooksetValidation as handle no-undo.
 
... ... define variable so-trl3-cd like so_trl3_cd no-undo.
258 262 define variable isConsolDom as logical no-undo. define variable isConsolDom as logical no-undo.
259 263 define variable pass-con as integer no-undo. define variable pass-con as integer no-undo.
260 264
261 define variable termsdesc as character format "x(40)" label "Description" no-undo.
265 define variable termsdesc like ct_desc.
262 266 define variable prepaid-lbl as character format "x(12)" no-undo. define variable prepaid-lbl as character format "x(12)" no-undo.
263 267 define variable po-lbl as character format "x(8)" no-undo. define variable po-lbl as character format "x(8)" no-undo.
264 268 define variable po-lbl2 as character format "x(16)" no-undo. define variable po-lbl2 as character format "x(16)" no-undo.
 
... ... define variable prepaid_fmt as character no-undo.
307 311 define variable prepaid_old as character no-undo. define variable prepaid_old as character no-undo.
308 312 define variable h_format as handle no-undo. define variable h_format as handle no-undo.
309 313 define variable oldcurr like so_curr no-undo. define variable oldcurr like so_curr no-undo.
310 define variable tot_prepaid_amt like so_prepaid.
314 define variable tot_prepaid_amt like so_prepaid.
311 315 define variable hdl_sum_disc_lbl as handle. define variable hdl_sum_disc_lbl as handle.
312 316 define variable tax-tran-type as character no-undo. define variable tax-tran-type as character no-undo.
313 317 define variable l_consolidate as logical initial no no-undo. define variable l_consolidate as logical initial no no-undo.
 
... ... define variable l_consign_progs as character no-undo.
345 349
346 350 /* QAD Financials Data Objects Definitions */ /* QAD Financials Data Objects Definitions */
347 351 define variable hQADFinancialsLib as handle no-undo. define variable hQADFinancialsLib as handle no-undo.
352 define variable PaymentCondition as PaymentConditionDescByLng no-undo.
348 353 define variable EntitySecurity as EntitySecurityCheck no-undo. define variable EntitySecurity as EntitySecurityCheck no-undo.
349 354
350 355 l_consign_progs = "socnaimt.p,socnuac.p,socnuac3.p,socnuac5.p,socnuac7.p" + l_consign_progs = "socnaimt.p,socnuac.p,socnuac3.p,socnuac5.p,socnuac7.p" +
 
... ... assign
366 371 + getTermLabel("IN",2) + getTermLabel("IN",2)
367 372 l_tax_total_message[2] = getTermLabel("TOTAL_TAX",9). l_tax_total_message[2] = getTermLabel("TOTAL_TAX",9).
368 373
374 {us/xf/xftxtots.i} /*eb3sp5*/
369 375
370 376 c-cont = CAPS(dynamic-function('getTermLabelFillCentered' in h-label, c-cont = CAPS(dynamic-function('getTermLabelFillCentered' in h-label,
371 377 input "CONTINUED", input "CONTINUED",
 
... ... form
427 433 resale colon 15 resale colon 15
428 434 hdr_call to 64 no-label hdr_call to 64 no-label
429 435 so_rmks colon 15 so_rmks colon 15
430 /*d2561*/ vemail colon 15 label "Sold-To Email"
431 436 skip(1) skip(1)
432 437 with frame phead2 side-labels width 90. with frame phead2 side-labels width 90.
433 438
 
... ... setFrameLabels(frame phead2:handle).
437 442 {us/et/etvar.i} {us/et/etvar.i}
438 443 {us/et/etrpvar.i &new="new"} {us/et/etrpvar.i &new="new"}
439 444
440 {us/et/etsotrla.i "NEW"}
445 /*93sp12.1 {us/et/etsotrla.i "NEW"} */
446 {us/xf/xfsotrla.i "NEW"} /*eb3sp5*/
441 447 {us/so/so10a01.i} {us/so/so10a01.i}
442 448
443 449 {us/fs/fsconst.i} /* FIELD SERVICE CONSTANTS */ {us/fs/fsconst.i} /* FIELD SERVICE CONSTANTS */
 
... ... with frame soccmsg no-labels width 132.
464 470 hdl_sum_disc_lbl = prnt_sum_disc_amt:handle in frame disc_sum_print. hdl_sum_disc_lbl = prnt_sum_disc_amt:handle in frame disc_sum_print.
465 471
466 472 /* ASSIGN ORIGINAL FORMAT TO _OLD VARIABLES */ /* ASSIGN ORIGINAL FORMAT TO _OLD VARIABLES */
473 /*eb3sp5 comment begin
467 474 assign assign
468 475 nontax_old = nontaxable_amt:format nontax_old = nontaxable_amt:format
469 476 taxable_old = taxable_amt:format taxable_old = taxable_amt:format
 
... ... assign
475 482 prepaid_old = so_prepaid:format prepaid_old = so_prepaid:format
476 483 container_old = container_charge_total:format container_old = container_charge_total:format
477 484 line_charge_old = line_charge_total:format. line_charge_old = line_charge_total:format.
485 eb3sp5 comment end*/
478 486
479 487 find first sac_ctrl where sac_domain = global_domain no-lock no-error. find first sac_ctrl where sac_domain = global_domain no-lock no-error.
480 488 find first rmc_ctrl where rmc_domain = global_domain no-lock no-error. find first rmc_ctrl where rmc_domain = global_domain no-lock no-error.
 
... ... then do:
535 543 and lgd_mstr.oid_lgd_mstr = lgdd_det.oid_lgd_mstr and lgd_mstr.oid_lgd_mstr = lgdd_det.oid_lgd_mstr
536 544 and lgd_nbr >= ldnbr and lgd_nbr <= ldnbr1 and lgd_nbr >= ldnbr and lgd_nbr <= ldnbr1
537 545 and lgd_shipfrom >= ldshipfrom and lgd_shipfrom <= ldshipfrom1)) and lgd_shipfrom >= ldshipfrom and lgd_shipfrom <= ldshipfrom1))
538 or
539 not can-find(first lgdd_det where lgdd_domain = global_domain and lgdd_order = so_nbr)
540 546 then do: then do:
541 547 so_recno = recid(so_mstr). so_recno = recid(so_mstr).
542 548 run p_check_locked(input so_recno). run p_check_locked(input so_recno).
 
... ... repeat while available so_mstr:
674 680 leave blocka. leave blocka.
675 681 end. end.
676 682
683 /*eb3sp5 comment begin
677 684 {us/so/socurfmt.i} {us/so/socurfmt.i}
678 685 prepaid_fmt = prepaid_old. prepaid_fmt = prepaid_old.
679 686 {us/bbi/gprun.i ""gpcurfmt.p"" "(input-output prepaid_fmt, {us/bbi/gprun.i ""gpcurfmt.p"" "(input-output prepaid_fmt,
680 687 input rndmthd)"} input rndmthd)"}
688 eb3sp5 comment end*/
681 689
682 690 oldcurr = so_curr. oldcurr = so_curr.
683 691 end. /* IF (OLDCURR <> SO_CURR) */ end. /* IF (OLDCURR <> SO_CURR) */
 
... ... repeat while available so_mstr:
711 719 /* TOTAL INVOICE */ /* TOTAL INVOICE */
712 720 undo_trl2 = true. undo_trl2 = true.
713 721
714 {us/bbi/gprun.i ""soivtrl2.p""
722 /*93sp12.1 {us/bbi/gprun.i ""soivtrl2.p"" */
723 /*eb3sp5*/ {us/bbi/gprun.i ""xfivtrl2.p""
715 724 "(input so_nbr, "(input so_nbr,
716 725 input '', input '',
717 726 input col-80 /* REPORT WIDTH */, input col-80 /* REPORT WIDTH */,
 
... ... repeat while available so_mstr:
726 735
727 736 /* CREDIT PRINT TEST */ /* CREDIT PRINT TEST */
728 737 if not incmemo and ord_amt < 0 then leave blocka. if not incmemo and ord_amt < 0 then leave blocka.
729
738 /*eb3sp5 add begin*/
739 assign
740 invcrdt = if ord_amt < 0 then "ADJUSTMENT NOTE"
741 else "TAX INVOICE".
742 /*eb3sp5 add end*/
730 743 {us/so/soivtot2.i} /* Initialize variables for invoice totals. */ {us/so/soivtot2.i} /* Initialize variables for invoice totals. */
731 744
732 745 end. end.
 
... ... repeat while available so_mstr:
773 786 /* SACONTRACT INDICATES A SERVICE CONTRACT INVOICE */ /* SACONTRACT INDICATES A SERVICE CONTRACT INVOICE */
774 787 if so_fsm_type = "SC" then sacontract = yes. if so_fsm_type = "SC" then sacontract = yes.
775 788
776 termsdesc = "".
777 {us/px/pxrun.i &PROC='getTermsDescription' &PROGRAM='adcrxr.p'
778 &HANDLE=ph_adcrxr
779 &PARAM="(input so_cr_terms,
780 output termsdesc)"}
789 find ct_mstr where ct_domain = global_domain
790 and ct_code = so_cr_terms
791 no-lock no-error.
792
793 if available ct_mstr
794 then do:
795
796 /* Run the data object class to return the Payment Condition Description */
797 /* Parameters: PaymentConditionCode, LngCode */
798 do on error undo, throw:
799 PaymentCondition = new PaymentConditionDescByLng(so_cr_terms,global_user_lang).
800 catch anError as Progress.Lang.Error:
801 /* Start qflib.p - QAD Financials Library running persistently */
802 run mfairunh.p
803 (input 'qflib.p',
804 input '?',
805 output hQADFinancialsLib) no-error.
806 run processExceptions in hQADFinancialsLib (input anError).
807 return.
808 end catch.
809 end.
810 if PaymentCondition:Available
811 then do:
812 termsdesc = PaymentCondition:PaymentConditionDescription.
813 delete object PaymentCondition.
814 end.
815 end.
816 else
817 termsdesc = "".
781 818
782 819 find ad_mstr where ad_domain = global_domain find ad_mstr where ad_domain = global_domain
783 820 and ad_addr = so_bill and ad_addr = so_bill
 
... ... repeat while available so_mstr:
785 822
786 823 update billto = "". update billto = "".
787 824
825 /*eb3sp5 add begin*/
826 assign
827 billto_city = ""
828 billto_state = ""
829 billto_zip = ""
830 billto_attn = ""
831 billto_fax = ""
832 billto_phn = "".
833 /*eb3sp5 add end*/
788 834 if available ad_mstr then do: if available ad_mstr then do:
789 835
836 /*eb3sp5 add begin*/
837 assign
838 billto_city = ad_city
839 billto_state = ad_state
840 billto_zip = ad_zip
841 billto_attn = ad_attn
842 billto_fax = ad_fax
843 billto_phn = ad_phone.
844 /*eb3sp5 add end*/
790 845 /* Assign values to addr and format */ /* Assign values to addr and format */
791 846 {us/mf/mfadfmt.i} {us/mf/mfadfmt.i}
847 assign addr[5] = "". /*eb3sp5*/
848 {us/xf/xfaddr.i "billto"} /*eb3sp5*/
792 849
793 850 assign assign
794 851 billto[1] = addr[1] billto[1] = addr[1]
 
... ... repeat while available so_mstr:
808 865
809 866 /* Move the PO number up into the address window */ /* Move the PO number up into the address window */
810 867 /* (if it fits) */ /* (if it fits) */
868 /*eb3sp5 comment begin
811 869 hdr_po = po-lbl2 + so_po. hdr_po = po-lbl2 + so_po.
812 870
813 871 if addr[6] <> "" if addr[6] <> ""
814 872 and so_po = "" and so_po = ""
815 873 then then
816 874 billto[6] = addr[6]. billto[6] = addr[6].
817
875 eb3sp5 comment end*/
818 876 end. /* if available ad_mstr */ end. /* if available ad_mstr */
819 877 else do: else do:
820 878 for first usr_mstr for first usr_mstr
 
... ... repeat while available so_mstr:
826 884 (input global_user_lang, input usr_ctry_code). (input global_user_lang, input usr_ctry_code).
827 885 end. end.
828 886
829 /*d2561* start added code >>> */
830 find ad_mstr where ad_domain = global_domain
831 and ad_addr = so_ship
832 no-lock no-wait no-error.
833 /*d2561* end added code <<< */
834 /*d2561* start deleted code >>>>
835 887 find ad_mstr where ad_domain = global_domain find ad_mstr where ad_domain = global_domain
836 888 and ad_addr = so_cust and ad_addr = so_cust
837 889 no-lock no-wait no-error. no-lock no-wait no-error.
838 *d2561* end deleted code <<<< */
839 890
840 891 update soldto = "". update soldto = "".
892 /*eb3sp5 add begin*/
893 assign
894 soldto_city = ""
895 soldto_state = ""
896 soldto_zip = "" .
897 /*eb3sp5 add end*/
841 898
842 899 if available ad_mstr then do: if available ad_mstr then do:
843 900
901 /*eb3sp5 add begin*/
902 assign
903 soldto_city = ad_city
904 soldto_state = ad_state
905 soldto_zip = ad_zip .
906 /*eb3sp5 add end*/
907
844 908 /* Assign values to addr and format */ /* Assign values to addr and format */
845 909 {us/mf/mfadfmt.i} {us/mf/mfadfmt.i}
910 assign addr[5] = "". /*eb3sp5*/
911 {us/xf/xfaddr.i "soldto"} /*eb3sp5*/
846 912
847 913 assign assign
848 914 soldto[1] = addr[1] soldto[1] = addr[1]
 
... ... repeat while available so_mstr:
870 936 find ad_mstr where ad_domain = global_domain find ad_mstr where ad_domain = global_domain
871 937 and ad_addr = so_ship and ad_addr = so_ship
872 938 no-lock no-wait no-error. no-lock no-wait no-error.
873
939 /*eb3sp5 add begin*/
940 update shipto = "".
941 assign
942 shipto_city = ""
943 shipto_state = ""
944 shipto_zip = ""
945 shipto_attn = ""
946 shipto_phn = "".
947 /*eb3sp5 add end*/
874 948 if available ad_mstr if available ad_mstr
875 949 then do: then do:
950 /*eb3sp5 add begin*/
951 assign
952 shipto_city = ad_city
953 shipto_state = ad_state
954 shipto_zip = ad_zip
955 shipto_attn = ad_attn
956 shipto_phn = ad_phone
957 shipto[1] = ad_name
958 shipto[2] = ad_line1
959 shipto[3] = ad_line2
960 shipto[4] = ad_line3
961 shipto[5] = ""
962 shipto[6] = ad_country.
963 /*eb3sp5 add end*/
876 964 vatreg1 = "". vatreg1 = "".
877 965 for first cm_mstr where cm_domain = global_domain for first cm_mstr where cm_domain = global_domain
878 966 and cm_addr = so_cust and cm_addr = so_cust
 
... ... repeat while available so_mstr:
976 1064 input '16')"} input '16')"}
977 1065 end. /* IF NOT conso */ end. /* IF NOT conso */
978 1066
979
980
981 /*d2561* start added code >>> */
982 for first Debtor no-lock
983 where Debtor.DebtorCode = so_cust,
984 first BusinessRelation of Debtor no-lock,
985 each Address no-lock
986 where Address.BusinessRelation_ID =
987 BusinessRelation.BusinessRelation_ID,
988 first AddressType no-lock
989 where AddressType.AddressType_ID = Address.AddressType_ID
990 and AddressType.AddressTypeCode = "REMINDER"
991 and AddressType.AddressTypeIsActive,
992 first Contact no-lock
993 where Contact.Address_ID = Address.Address_ID
994 and Contact.ContactIsPrimary:
995 vemail = Contact.ContactEmail.
996 end.
997 /*d2561* end added code <<< */
998 if execname = "sosorp20.p" then do:
999 /*d2561* {us/so/sorphfrm.i} /* Form definitions for phead1 */ */
1000 /*d2561*/ {xxrphfrm.i} /* Form definitions for phead1 */
1067 /* if execname = "sosorp20.p" then do: */ /*eb3sp5*/
1068 do : /*eb3sp5*/
1069 {us/so/sorphfrm.i} /* Form definitions for phead1 */
1001 1070
1002 1071 run GetHeading. run GetHeading.
1072 /*eb3sp5 comment begin
1003 1073 view frame phead1. view frame phead1.
1004 1074
1005 1075 if old_sod_nbr <> ? then page. if old_sod_nbr <> ? then page.
 
... ... repeat while available so_mstr:
1022 1092 hdr_call hdr_call
1023 1093 resale resale
1024 1094 so_rmks so_rmks
1025 /*d2561*/ vemail
1026 1095 with frame phead2. with frame phead2.
1027 1096
1028 1097 hide frame phead2. hide frame phead2.
1098 eb3sp5 comment end*/
1029 1099
1100 {us/xf/xfso10m0.i} /*eb3sp5*/
1030 1101 if sacontract then do: if sacontract then do:
1031 1102
1032 1103 /* FOR SERVICE CONTRACT INVOICES, PRINT THE PERIOD */ /* FOR SERVICE CONTRACT INVOICES, PRINT THE PERIOD */
 
... ... repeat while available so_mstr:
1035 1106 string(so_req_date,"99/99/99") + string(so_req_date,"99/99/99") +
1036 1107 " " + getTermLabel("TO",10) + ": " + " " + getTermLabel("TO",10) + ": " +
1037 1108 string(so_due_date,"99/99/99"). string(so_due_date,"99/99/99").
1038 put fsremarks at 15.
1109 /* put fsremarks at 15. */ /*eb3sp5*/
1039 1110
1040 1111 fsremarks = getTermLabel("SERVICE_CONTRACT",35) + ": " + so_sa_nbr. fsremarks = getTermLabel("SERVICE_CONTRACT",35) + ": " + so_sa_nbr.
1041 1112 put fsremarks at 15. put fsremarks at 15.
1042 1113
1043 1114 end. /* if sacontract */ end. /* if sacontract */
1044 1115
1116 /*eb3sp5 comment begin
1045 1117 run PrintHeaderComment(input so_cmtindx, run PrintHeaderComment(input so_cmtindx,
1046 1118 input vcPriHeadComment). input vcPriHeadComment).
1047 1119 put skip(1). put skip(1).
1120 eb3sp5 comment end*/
1121 {us/xf/xfcmtprt.i &type=IN &id=so_cmtindx &rectype=A} /*eb3sp5*/
1048 1122
1049 1123 /* IF THIS INVOICE IS FOR AN RMA WHICH REFERENCES */ /* IF THIS INVOICE IS FOR AN RMA WHICH REFERENCES */
1050 1124 /* A CALL, PRINT HEADER COMMENTS FROM THAT CALL */ /* A CALL, PRINT HEADER COMMENTS FROM THAT CALL */
 
... ... repeat while available so_mstr:
1057 1131 and ca_category = "0" and ca_category = "0"
1058 1132 no-lock no-error. no-lock no-error.
1059 1133 if available ca_mstr then do: if available ca_mstr then do:
1134 /*eb3sp5 comment begin
1060 1135 put skip(1). put skip(1).
1061 1136 run PrintHeaderComment(input ca_cmtindx, run PrintHeaderComment(input ca_cmtindx,
1062 1137 input vcPriHeadComment). input vcPriHeadComment).
1138 eb3sp5 comment end*/
1139 {us/xf/xfcmtprt.i &type=IN &id=ca_cmtindx &rectype=F} /*eb3sp5*/
1063 1140 end. /* if available ca_mstr */ end. /* if available ca_mstr */
1064 1141 end. /* if available rma_mstr */ end. /* if available rma_mstr */
1065 1142 end. /* if rmaso */ end. /* if rmaso */
 
... ... repeat while available so_mstr:
1079 1156 disc_prnt_label = lngd_translation. disc_prnt_label = lngd_translation.
1080 1157 end. end.
1081 1158
1082 if execname = "sosorp20.p" then do:
1083 /*d2561* {us/bbi/gprun.i ""sorp1a01.p"" "(output tot_cont_charge,*/
1084 /*d2561*/ {us/bbi/gprun.i ""xxrp1a01.p"" "(output tot_cont_charge,
1159 /*eb3sp5 add begin*/
1160 {us/xf/xfrp10mv.i}
1161 /*** WHEN CONSOLIDATION THEN CALCULATE TAX AND THEN PRINT ***/
1162 if not conso
1163 and not l_inv_conso
1164 then do :
1165 {us/bbi/gprun.i ""xfrp1a01.p"" "(
1166 output tot_cont_charge,
1167 output tot_line_charge)"}
1168 end. /*if not conso*/
1169 /*eb3sp5 add end*/
1170 /* if execname = "sosorp20.p" then do: */ /*eb3sp5*/
1171 do : /*eb3sp5*/
1172 /*eb3sp5 comment begin
1173 {us/bbi/gprun.i ""sorp1a01.p"" "(output tot_cont_charge,
1085 1174 output tot_line_charge)"} output tot_line_charge)"}
1175 eb3sp5 comment end*/
1086 1176 end. end.
1087 1177
1088 1178 find si_mstr where si_domain = global_domain find si_mstr where si_domain = global_domain
 
... ... repeat while available so_mstr:
1112 1202 and not l_inv_conso and not l_inv_conso
1113 1203 then do: then do:
1114 1204 undo_trl2 = true. undo_trl2 = true.
1115 {us/bbi/gprun.i ""soivtrl2.p"" "(input so_inv_nbr,
1205 /*93sp12.1 {us/bbi/gprun.i ""soivtrl2.p"" "(input so_inv_nbr, */
1206 /*eb3sp5*/ {us/bbi/gprun.i ""xfivtrl2.p"" "(input so_inv_nbr,
1116 1207 input so_nbr, input so_nbr,
1117 1208 input col-80 /* REPORT WIDTH */, input col-80 /* REPORT WIDTH */,
1118 1209 input '16', input '16',
 
... ... repeat while available so_mstr:
1199 1290 output r-result)" } output r-result)" }
1200 1291
1201 1292 undo_trl2 = true. undo_trl2 = true.
1202 {us/bbi/gprun.i ""soivtrl2.p"" "(input so_mstr.so_inv_nbr,
1293 /*93sp12.1 {us/bbi/gprun.i ""soivtrl2.p"" "(input so_mstr.so_inv_nbr, */
1294 /*eb3sp5*/ {us/bbi/gprun.i ""xfivtrl2.p"" "(input so_mstr.so_inv_nbr,
1203 1295 input (if conso input (if conso
1204 1296 or (not conso and l_inv_conso) or (not conso and l_inv_conso)
1205 1297 then then
 
... ... repeat while available so_mstr:
1216 1308 yes yes
1217 1309 else else
1218 1310 l_consolidate ))"} l_consolidate ))"}
1311 /*eb3sp5 add begin*/
1312 /* tx2d_det records exists now. So Print the lines */
1313 {us/bbi/gprun.i ""xfrp1a01.p"" "(output tot_cont_charge,
1314 output tot_line_charge)"}
1315 /*eb3sp5 add end*/
1219 1316 if undo_trl2 then return. if undo_trl2 then return.
1220 1317
1221 1318 {us/so/soivtod7.i} /* ACCUMULATE INVOICE TOTALS */ {us/so/soivtod7.i} /* ACCUMULATE INVOICE TOTALS */
 
... ... repeat while available so_mstr:
1248 1345 so_recno = recid(somstr2). so_recno = recid(somstr2).
1249 1346 /* GET THE INVOICE TOTAL */ /* GET THE INVOICE TOTAL */
1250 1347 undo_trl2 = true. undo_trl2 = true.
1251 {us/bbi/gprun.i ""soivtrl2.p""
1348 /*93sp12.1 {us/bbi/gprun.i ""soivtrl2.p"" */
1349 /*eb3sp5*/ {us/bbi/gprun.i ""xfivtrl2.p""
1252 1350 "(input comb_inv_nbr, "(input comb_inv_nbr,
1253 1351 input so_nbr, input so_nbr,
1254 1352 input col-80 /* REPORT WIDTH */, input col-80 /* REPORT WIDTH */,
 
... ... repeat while available so_mstr:
1343 1441 output r-result)" } output r-result)" }
1344 1442
1345 1443 undo_trl2 = true. undo_trl2 = true.
1346 {us/bbi/gprun.i ""soivtrl2.p""
1444 /*93sp12.1 {us/bbi/gprun.i ""soivtrl2.p"" */
1445 /*eb3sp5*/ {us/bbi/gprun.i ""xfivtrl2.p""
1347 1446 "(input so_mstr.so_inv_nbr, "(input so_mstr.so_inv_nbr,
1348 1447 input (if conso input (if conso
1349 1448 or (not conso and l_inv_conso) or (not conso and l_inv_conso)
 
... ... repeat while available so_mstr:
1362 1461 else else
1363 1462 l_consolidate ))"} l_consolidate ))"}
1364 1463
1464 /*eb3sp5 add begin*/
1465 /* tx2d_det records exists now. So Print the lines */
1466 {us/bbi/gprun.i ""xfrp1a01.p"" "(output tot_cont_charge,
1467 output tot_line_charge)"}
1468 /*eb3sp5 add end*/
1365 1469 if undo_trl2 then return. if undo_trl2 then return.
1366 1470 assign assign
1367 1471 l_ctrk = l_ctrj l_ctrk = l_ctrj
 
... ... repeat while available so_mstr:
1434 1538
1435 1539 end. /* IF CONSO */ end. /* IF CONSO */
1436 1540
1437 if execname = "sosorp20.p" then do:
1541 /* if execname = "sosorp20.p" then do: */ /*eb3sp5*/
1542 do : /*eb3sp5*/
1438 1543 if can-find(mfc_ctrl where mfc_domain = global_domain and if can-find(mfc_ctrl where mfc_domain = global_domain and
1439 1544 mfc_module = "SO" and mfc_module = "SO" and
1440 1545 mfc_seq = 170) mfc_seq = 170)
1441 1546 then do: then do:
1442 1547 so_recno = recid(so_mstr). so_recno = recid(so_mstr).
1443 {us/bbi/gprun.i ""sorp10c.p""}
1548 /*93sp12.1 {us/bbi/gprun.i ""sorp10c.p""} */
1549 /*eb3sp5*/ {us/bbi/gprun.i ""xfrp10c.p""}
1444 1550 end. end.
1445 1551
1446 1552 hide frame continue. hide frame continue.
 
... ... repeat while available so_mstr:
1461 1567 end. end.
1462 1568
1463 1569 /* Print discount summary, delete disc wkfl records */ /* Print discount summary, delete disc wkfl records */
1464 {us/so/sopiprn2.i}
1465
1570 /*93sp12.1 {us/so/sopiprn2.i} */
1571 {us/xf/xfpiprn2.i} /*eb3sp5*/
1466 1572 end. end.
1467 1573
1468 1574 find first soc_ctrl where soc_domain = global_domain find first soc_ctrl where soc_domain = global_domain
 
... ... repeat while available so_mstr:
1584 1690 end. end.
1585 1691 end. end.
1586 1692
1587 if execname = "sosorp20.p" then do:
1588 {us/bbi/gprun.i ""txdetrp.p"" "(input '16',
1693 /* if execname = "sosorp20.p" then do: */ /*eb3sp5*/
1694 do : /*eb3sp5*/
1695 /*93sp12.1 {us/bbi/gprun.i ""txdetrp.p"" "(input '16', */
1696 /*eb3sp5*/ {us/bbi/gprun.i ""xfdetrp.p"" "(input '16',
1589 1697 input so_nbr, input so_nbr,
1590 1698 input '*', input '*',
1591 1699 input col-80, input col-80,
 
... ... repeat while available so_mstr:
1637 1745 &labelpos=23} &labelpos=23}
1638 1746 end. end.
1639 1747
1748 /*eb3sp5 comment begin
1640 1749 if page-size - line-counter < trl_length + add-trl-length then if page-size - line-counter < trl_length + add-trl-length then
1641 1750 page. page.
1642 1751
 
... ... repeat while available so_mstr:
1660 1769 tot_ptax_amt:format in frame prepd = price_fmt. tot_ptax_amt:format in frame prepd = price_fmt.
1661 1770 tot_prepaid_nett:format in frame prepd = price_fmt. tot_prepaid_nett:format in frame prepd = price_fmt.
1662 1771 amt_due_af_prep:format in frame prepd = price_fmt. amt_due_af_prep:format in frame prepd = price_fmt.
1772 eb3sp5 comment end*/
1773 {us/xf/xfivtot8.i} /*eb3sp5*/
1663 1774
1664 1775 if tot_prepaid_amt <> 0 then do: if tot_prepaid_amt <> 0 then do:
1665 1776
 
... ... repeat while available so_mstr:
1672 1783 tot_prepaid_nett = tot_prepaid_amt + tot_ptax_amt tot_prepaid_nett = tot_prepaid_amt + tot_ptax_amt
1673 1784 amt_due_af_prep = invtot_ord_amt - tot_prepaid_nett. amt_due_af_prep = invtot_ord_amt - tot_prepaid_nett.
1674 1785
1786 /*eb3sp5 comment begin
1675 1787 display display
1676 1788 tot_prepaid_amt tot_prepaid_amt
1677 1789 tot_ptax_amt tot_ptax_amt
 
... ... repeat while available so_mstr:
1679 1791 amt_due_af_prep amt_due_af_prep
1680 1792 with frame prepd. with frame prepd.
1681 1793
1794 eb3sp5 comment end*/
1682 1795 end. end.
1796 /*eb3sp5 comment begin
1683 1797
1684 1798 page. page.
1799 eb3sp5 comment end*/
1685 1800 end. end.
1686 1801
1687 1802 assign update_post = true. assign update_post = true.
 
... ... PROCEDURE process-conso:
1810 1925 {us/bbi/gprun.i ""sosoina.p""} {us/bbi/gprun.i ""sosoina.p""}
1811 1926
1812 1927 /* PRINT SALES ORDER LINES */ /* PRINT SALES ORDER LINES */
1813 /*d2561* {us/bbi/gprun.i ""sorp1a01.p"" "(output tot_cont_charge,*/
1814 /*d2561*/ {us/bbi/gprun.i ""xxrp1a01.p"" "(output tot_cont_charge,
1928 /*93sp12.1 {us/bbi/gprun.i ""sorp1a01.p"" "(output tot_cont_charge, */
1929 /*eb3sp5*/ {us/bbi/gprun.i ""xfrp1a01.p"" "(output tot_cont_charge,
1815 1930 output tot_line_charge)"} output tot_line_charge)"}
1816 1931 /* TOTAL SALES ORDER */ /* TOTAL SALES ORDER */
1817 1932 /* TOTAL ORDER, BUT DON'T PRINT THE DETAIL REPORT YET */ /* TOTAL ORDER, BUT DON'T PRINT THE DETAIL REPORT YET */
1818 1933 undo_trl2 = true. undo_trl2 = true.
1819 {us/bbi/gprun.i ""soivtrl2.p"" "(input comb_inv_nbr,
1934 /*93sp12.1 {us/bbi/gprun.i ""soivtrl2.p"" "(input comb_inv_nbr, */
1935 /*eb3sp5*/ {us/bbi/gprun.i ""xfivtrl2.p"" "(input comb_inv_nbr,
1820 1936 input somstr3.so_nbr, input somstr3.so_nbr,
1821 1937 input col-80, input col-80,
1822 1938 input '16', input '16',
 
... ... PROCEDURE p_consotot:
1902 2018 input tax-tran-type)" } input tax-tran-type)" }
1903 2019
1904 2020 undo_trl2 = true. undo_trl2 = true.
1905 {us/bbi/gprun.i ""soivtrl2.p"" "(input somstr4.so_inv_nbr,
2021 /*93sp12.1 {us/bbi/gprun.i ""soivtrl2.p"" "(input somstr4.so_inv_nbr, */
2022 /*eb3sp5*/ {us/bbi/gprun.i ""xfivtrl2.p"" "(input somstr4.so_inv_nbr,
1906 2023 input '*', input '*',
1907 2024 input col-80 /* REPORT WIDTH */, input col-80 /* REPORT WIDTH */,
1908 2025 input '16', input '16',
 
... ... PROCEDURE p_check_locked:
1940 2057 and (so_slspsn[1] >= sls-psn and so_slspsn[1] <= sls-psn1) and (so_slspsn[1] >= sls-psn and so_slspsn[1] <= sls-psn1)
1941 2058 and (so_daybookset >= daybookset and so_daybookset <= daybookset1) and (so_daybookset >= daybookset and so_daybookset <= daybookset1)
1942 2059 and so_compl_stat = "" and so_compl_stat = ""
1943 and (can-find(first lgdd_det where lgdd_domain = global_domain
2060 and can-find(first lgdd_det where lgdd_domain = global_domain
1944 2061 and lgdd_order = so_nbr and lgdd_order = so_nbr
1945 2062 and can-find(first lgd_mstr where lgd_domain = global_domain and can-find(first lgd_mstr where lgd_domain = global_domain
1946 2063 and lgd_type = yes and lgd_type = yes
 
... ... PROCEDURE p_check_locked:
1949 2066 and lgd_mstr.oid_lgd_mstr = lgdd_det.oid_lgd_mstr and lgd_mstr.oid_lgd_mstr = lgdd_det.oid_lgd_mstr
1950 2067 and lgd_nbr >= ldnbr and lgd_nbr <= ldnbr1 and lgd_nbr >= ldnbr and lgd_nbr <= ldnbr1
1951 2068 and lgd_shipfrom >= ldshipfrom and lgd_shipfrom <= ldshipfrom1)) and lgd_shipfrom >= ldshipfrom and lgd_shipfrom <= ldshipfrom1))
1952 or
1953 not can-find(first lgdd_det where lgdd_domain = global_domain and lgdd_order = so_nbr))
1954 2069 no-lock no-error. no-lock no-error.
1955 2070 else else
1956 2071 find next so_mstr find next so_mstr
 
... ... END PROCEDURE. /* p_check_locked */
1979 2094
1980 2095 /* procedures of print settings */ /* procedures of print settings */
1981 2096 {us/so/soprprc1.i} {us/so/soprprc1.i}
2097
File mfg/2013/base/src/xfso10u0.i added (mode: 100644) (index 0000000..fb9e634)
File mfg/2013/base/src/xfso10u5.i added (mode: 100644) (index 0000000..91a5ed6)
File mfg/2013/base/src/xfso10ub.i added (mode: 100644) (index 0000000..561c5a3)
File mfg/2013/base/src/xfso10ue.i added (mode: 100644) (index 0000000..832eb0a)
Hints:
Before first commit, do not forget to setup your git environment:
git config --global user.name "your_name_here"
git config --global user.email "your@email_here"

Clone this repository using HTTP(S):
git clone https://rocketgit.com/user/gbfg55/gbg-20-git

Clone this repository using ssh (do not forget to upload a key first):
git clone ssh://rocketgit@ssh.rocketgit.com/user/gbfg55/gbg-20-git

Clone this repository using git:
git clone git://git.rocketgit.com/user/gbfg55/gbg-20-git

You are allowed to anonymously push to this repository.
This means that your pushed commits will automatically be transformed into a merge request:
... clone the repository ...
... make some changes and some commits ...
git push origin main