process/copy-invoices.p

   1 &ANALYZE-SUSPEND _VERSION-NUMBER UIB_v8r12
   2 &ANALYZE-RESUME
   3 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS Procedure
   4 /*--------------------------------------------------------------------------
   5   ------------------------------------------------------------------------*/
   6 DEF INPUT PARAMETER report-options AS CHAR NO-UNDO.
   7
   8 DEF VAR invoice-1 AS INT NO-UNDO   INIT ?.
   9 DEF VAR invoice-n AS INT NO-UNDO   INIT ?.
  10
  11 DEF VAR invoice-date AS DATE NO-UNDO   INIT ?.
  12 DEF VAR due-date     AS DATE NO-UNDO   INIT ?.
  13
  14 RUN parse-parameters.
  15
  16 DEF VAR user-name AS CHAR NO-UNDO.
  17 {inc/username.i "user-name"}
  18
  19 {inc/ofc-this.i}
  20
  21 /* _UIB-CODE-BLOCK-END */
  22 &ANALYZE-RESUME
  23
  24
  25 &ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK
  26
  27 /* ********************  Preprocessor Definitions  ******************** */
  28
  29 &Scoped-define PROCEDURE-TYPE Procedure
  30 &Scoped-define DB-AWARE no
  31
  32
  33
  34 /* _UIB-PREPROCESSOR-BLOCK-END */
  35 &ANALYZE-RESUME
  36
  37
  38
  39 /* *********************** Procedure Settings ************************ */
  40
  41 &ANALYZE-SUSPEND _PROCEDURE-SETTINGS
  42 /* Settings for THIS-PROCEDURE
  43    Type: Procedure
  44    Allow:
  45    Frames: 0
  46    Add Fields to: Neither
  47    Other Settings: CODE-ONLY COMPILE
  48  */
  49 &ANALYZE-RESUME _END-PROCEDURE-SETTINGS
  50
  51 /* *************************  Create Window  ************************** */
  52
  53 &ANALYZE-SUSPEND _CREATE-WINDOW
  54 /* DESIGN Window definition (used by the UIB)
  55   CREATE WINDOW Procedure ASSIGN
  56          HEIGHT             = .25
  57          WIDTH              = 32.57.
  58 /* END WINDOW DEFINITION */
  59                                                                         */
  60 &ANALYZE-RESUME
  61
  62 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _INCLUDED-LIB Procedure
  63 /* ************************* Included-Libraries *********************** */
  64
  65 {inc/method/m-txtrep.i}
  66
  67 /* _UIB-CODE-BLOCK-END */
  68 &ANALYZE-RESUME
  69
  70
  71
  72
  73
  74 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK Procedure
  75
  76
  77 /* ***************************  Main Block  *************************** */
  78
  79 RUN copy-invoices.
  80
  81 /* _UIB-CODE-BLOCK-END */
  82 &ANALYZE-RESUME
  83
  84
  85 /* **********************  Internal Procedures  *********************** */
  86
  87 &IF DEFINED(EXCLUDE-copy-invoices) = 0 &THEN
  88
  89 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE copy-invoices Procedure
  90 PROCEDURE copy-invoices :
  91 /*------------------------------------------------------------------------------
  92   Purpose:     Actually copy the invoices
  93 ------------------------------------------------------------------------------*/
  94 DEFINE BUFFER NewInvoice FOR Invoice.
  95 DEFINE BUFFER NewInvoiceLine FOR InvoiceLine.
  96
  97 /* Override the Invoice Line YourShare ASSIGN trigger which calculates the invoice total */
  98 ON ASSIGN OF InvoiceLine.YourShare OVERRIDE DO: END.
  99
 100 FOR EACH Invoice WHERE Invoice.InvoiceNo >= invoice-1 AND Invoice.InvoiceNo <= invoice-n NO-LOCK:
 101     CREATE NewInvoice.
 102     BUFFER-COPY Invoice EXCEPT InvoiceNo TO NewInvoice
 103         ASSIGN NewInvoice.InvoiceStatus = "U"
 104                NewInvoice.InvoiceDate   = invoice-date
 105                NewInvoice.DueDate       = due-date.
 106     FOR EACH InvoiceLine OF Invoice NO-LOCK:
 107         CREATE NewInvoiceLine.
 108         BUFFER-COPY InvoiceLine EXCEPT InvoiceNo TO NewInvoiceLine
 109             ASSIGN NewInvoiceLine.InvoiceNo = NewInvoice.InvoiceNo.
 110     END.
 111 END.
 112
 113 END PROCEDURE.
 114
 115 /* _UIB-CODE-BLOCK-END */
 116 &ANALYZE-RESUME
 117
 118 &ENDIF
 119
 120 &IF DEFINED(EXCLUDE-parse-parameters) = 0 &THEN
 121
 122 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE parse-parameters Procedure
 123 PROCEDURE parse-parameters :
 124 /*------------------------------------------------------------------------------
 125   Purpose:
 126 ------------------------------------------------------------------------------*/
 127 DEF VAR token AS CHAR NO-UNDO.
 128 DEF VAR i AS INT NO-UNDO.
 129 DEF VAR n AS INT NO-UNDO.
 130
 131 {inc/showopts.i "report-options"}
 132
 133   n =  NUM-ENTRIES( report-options, "~n" ).
 134   DO i = 1 TO n:
 135     token = ENTRY( i, report-options, "~n" ).
 136
 137     CASE ENTRY( 1, token ):
 138       WHEN "InvoiceDate" THEN invoice-date = DATE(ENTRY(2,TOKEN)).
 139
 140       WHEN "DueDate"     THEN due-date     = DATE(ENTRY(2,TOKEN)).
 141
 142       WHEN "InvoiceRange" THEN ASSIGN
 143         invoice-1 = INT(ENTRY(2,token))
 144         invoice-n = INT(ENTRY(3,token)).
 145
 146     END CASE.
 147
 148   END.
 149
 150 END PROCEDURE.
 151
 152 /* _UIB-CODE-BLOCK-END */
 153 &ANALYZE-RESUME
 154
 155 &ENDIF
 156