[Home] [Help]
381: SELECT edi_flag,
382: print_flag
383: INTO l_EDI_flag,
384: l_Print_flag
385: FROM ra_customer_trx rct,
386: ece_tp_details etd,
387: hz_cust_acct_sites rad,
388: hz_cust_site_uses rsu
389: WHERE rct.bill_to_site_use_id = rsu.site_use_id
400: xProgress,
401: 'INFO',
402: 'EDI FLAG, PRINT FLAG',
403: 'TABLE_NAME',
404: 'RA_CUSTOMER_TRX, ECE_TP_DETAILS, HZ_CUST_ACCT_SITES,HZ_CUST_SITE_USES' );
405: END;
406:
407: IF l_EDI_Flag = 'Y' AND
408: l_Print_Flag = 'Y'
424:
425: ec_debug.pl ( 3, 'L_UPDATE_VALUE: ',l_Update_Value );
426:
427: xProgress := '2010-20';
428: UPDATE ra_customer_trx
429: SET last_update_date = SYSDATE,
430: printing_pending = DECODE (Document_Type,
431: 'CM', 'N',
432: 'OACM', 'N',
457: xProgress,
458: 'INFO',
459: 'EDI PROCESSED',
460: 'TABLE_NAME',
461: 'RA_CUSTOMER_TRX' );
462: END IF;
463:
464: /* The following lines were commented out was because of a request
465: from a beta site. Their business practice requires them to
523:
524: xProgress := '2000-30';
525: BEGIN
526: SELECT remit_to_address_id INTO l_Remit_To_Address_ID
527: FROM RA_CUSTOMER_TRX
528: WHERE CUSTOMER_TRX_ID = Get_Remit_Address.Customer_Trx_ID;
529: EXCEPTION
530: WHEN NO_DATA_FOUND THEN
531: ec_debug.pl ( 1,
535: xProgress,
536: 'INFO',
537: 'REMIT TO ADDRESS ID',
538: 'TABLE_NAME',
539: 'RA_CUSTOMER_TRX' );
540: END;
541:
542: ec_debug.pl ( 3, 'l_Remit_To_Address_ID: ', l_Remit_To_Address_ID );
543:
547: DECLARE
548:
549: CURSOR remit_cur IS
550: SELECT rt.address_id
551: FROM ra_customer_trx rct,
552: hz_cust_acct_sites a,
553: hz_party_sites hps,
554: hz_locations loc,
555: ra_remit_tos rt
762: l_First_Installment_Code,
763: Multiple_Installments_Flag,
764: Maximum_Installment_Number,
765: l_Minimum_Installment_Number
766: FROM ra_customer_trx rct,
767: ra_cust_trx_types rctt,
768: ra_terms_lines rtl,
769: ra_terms rt,
770: fnd_currencies fc
787: xProgress,
788: 'INFO',
789: 'PAYMENT SCHEDULE',
790: 'TABLE_NAME',
791: 'RA_CUSTOMER_TRX, RA_CUST_TRX_TYPES, RA_TERMS_LINES, RA_TERMS, FND_CURRENCIES' );
792: END;
793:
794: ec_debug.pl ( 3, 'l_Term_ID: ', l_Term_ID );
795: ec_debug.pl ( 3, 'l_Currency_Precision: ', l_Currency_Precision );
872: l_Term_Relative_Amount /
873: l_Term_Base_Amount),
874: 0)
875: INTO Amount_Charges_Due
876: FROM ra_customer_trx_lines rctl
877: WHERE rctl.customer_trx_id = Get_Payment.Customer_Trx_ID
878: AND rctl.line_type = 'CHARGES';
879: EXCEPTION
880: WHEN NO_DATA_FOUND THEN
885: xProgress,
886: 'INFO',
887: 'CHARGE AMOUNT DUE',
888: 'TABLE_NAME',
889: 'RA_CUSTOMER_TRX_LINES' );
890: END;
891:
892: ec_debug.pl ( 3, 'Amount_Charges_Due: ', Amount_Charges_Due );
893:
903: l_Term_Relative_Amount /
904: l_Term_Base_Amount),
905: l_Currency_Precision)
906: INTO l_Amount_Line_Items_Due
907: FROM ra_customer_trx_lines
908: WHERE customer_trx_id = Get_Payment.Customer_Trx_ID
909: AND line_type NOT IN ('TAX','FREIGHT','CHARGES');
910: EXCEPTION
911: WHEN NO_DATA_FOUND THEN
916: xProgress,
917: 'INFO',
918: 'LINE ITEM AMOUNT DUE',
919: 'TABLE_NAME',
920: 'RA_CUSTOMER_TRX_LINES' );
921: END;
922:
923: ec_debug.pl ( 3, 'l_Amount_Line_Items_Due: ', l_Amount_Line_Items_Due );
924:
928: l_Term_Relative_Amount /
929: l_Term_Base_Amount),
930: l_Currency_Precision)
931: INTO l_Amount_Charges_Due
932: FROM ra_customer_trx_lines
933: WHERE customer_trx_id = Get_Payment.Customer_Trx_ID
934: AND line_type = 'CHARGES';
935: EXCEPTION
936: WHEN NO_DATA_FOUND THEN
941: xProgress,
942: 'INFO',
943: 'CHARGE AMOUNT DUE',
944: 'TABLE_NAME',
945: 'RA_CUSTOMER_TRX_LINES' );
946: END;
947:
948: ec_debug.pl ( 3, 'l_Amount_Charges_Due: ', l_Amount_Charges_Due );
949:
960: xProgress := '2080-40';
961: BEGIN
962: SELECT SUM(extended_amount)
963: INTO l_Amount_Tax_Due
964: FROM ra_customer_trx_lines
965: WHERE customer_trx_id = Get_Payment.Customer_Trx_ID
966: AND line_type = 'TAX';
967: EXCEPTION
968: WHEN NO_DATA_FOUND THEN
973: xProgress,
974: 'INFO',
975: 'TAX AMOUNT DUE',
976: 'TABLE_NAME',
977: 'RA_CUSTOMER_TRX_LINES' );
978: END;
979:
980: ec_debug.pl (3, 'l_Amount_Tax_Due: ', l_Amount_Tax_Due);
981:
982: xProgress := '2090-40';
983: BEGIN
984: SELECT SUM(extended_amount)
985: INTO l_Amount_Freight_Due
986: FROM ra_customer_trx_lines
987: WHERE customer_trx_id = Get_Payment.Customer_Trx_ID
988: AND line_type = 'FREIGHT';
989: EXCEPTION
990: WHEN NO_DATA_FOUND THEN
995: xProgress,
996: 'INFO',
997: 'FREIGHT AMOUNT DUE',
998: 'TABLE_NAME',
999: 'RA_CUSTOMER_TRX_LINES' );
1000: END;
1001:
1002: ec_debug.pl (3, 'l_Amount_Freight_Due: ', l_Amount_Freight_Due);
1003:
1016: l_Term_Relative_Amount /
1017: l_Term_Base_Amount),
1018: l_Currency_Precision)
1019: INTO l_Amount_Tax_Due
1020: FROM ra_customer_trx_lines
1021: WHERE customer_trx_id = Get_Payment.Customer_Trx_ID
1022: AND line_type = 'TAX';
1023: EXCEPTION
1024: WHEN NO_DATA_FOUND THEN
1029: xProgress,
1030: 'INFO',
1031: 'TAX AMOUNT DUE',
1032: 'TABLE_NAME',
1033: 'RA_CUSTOMER_TRX_LINES' );
1034: END;
1035:
1036: ec_debug.pl ( 3, 'l_Amount_Tax_Due: ', l_Amount_Tax_Due );
1037:
1041: l_Term_Relative_Amount /
1042: l_Term_Base_Amount),
1043: l_Currency_Precision)
1044: INTO l_Amount_Freight_Due
1045: FROM ra_customer_trx_lines
1046: WHERE customer_trx_id = Get_Payment.Customer_Trx_ID
1047: AND line_type = 'FREIGHT';
1048: EXCEPTION
1049: WHEN NO_DATA_FOUND THEN
1054: xProgress,
1055: 'INFO',
1056: 'FREIGHT AMOUNT DUE',
1057: 'TABLE_NAME',
1058: 'RA_CUSTOMER_TRX_LINES' );
1059: END;
1060:
1061: ec_debug.pl ( 3, 'l_Amount_Freight_Due: ', l_Amount_Freight_Due );
1062:
3350: WSH_TRIPS
3351: WTP,
3352: WSH_DOCUMENT_INSTANCES
3353: WDI,
3354: RA_CUSTOMER_TRX_LINES
3355: RCTL
3356: WHERE
3357: TO_NUMBER(RCTL.INTERFACE_LINE_ATTRIBUTE6) =
3358: WDD.SOURCE_LINE_ID AND
4063:
4064: /* 2945057*/
4065: select bill_to_contact_id,ship_to_contact_id,sold_to_contact_id
4066: into l_bill_to_contact_id,l_ship_to_contact_id,l_sold_to_contact_id
4067: from ra_customer_trx
4068: where customer_trx_id=l_header_tbl(nPos1).value;
4069:
4070: If (l_bill_to_contact_id is not null) then
4071: begin