· 8 years ago · May 21, 2018, 07:34 PM
1** clsobrst.prg -- Mark Gerstmann 8/26 -- TAN 28586
2** Outbound Bridge: Pick Order
3
4*==================================================================================
5
6#INCLUDE system.h
7
8Define CLASS BridgePickOrderOutbound AS BaseBridgeOutbound
9 Name = "BridgePickOrderOutbound"
10
11cTempTableName_OrderDetailHorizontal = ''
12cTempTableName_OrderDetailVertical = ''
13cSubSelectStatementOrderDetail = ''
14
15*---Tan 39417. Distinguised JOBID with Style Bridge for PICKBRIDGE - AG
16cJobId = 'PICKBRIDGE'
17*===TAN 39417
18
19cTempTableName_SizerHorizontal = ''
20cTempTableName_SizerVertical = ''
21cSubSelectStatementSizer = ''
22
23cHeaderCursor = ''
24
25*---Tan 33162. Manually set the cBridge propery instead of using the tcBridge passed in by the calling
26cBridge = 'PICKTICKET'
27*===Tan33162 HH 07/23/02
28
29*--- TR 1009835 6-APR-2005 VKK
30lPKMS_Explode_Implode_Cases = false
31*=== TR 1009835 6-APR-2005 VKK
32
33*--- TAN 1010836 05/12/05 AZ
34cEDI_Store_Resolution = ''
35*=== TAN 1010836 05/12/05 AZ
36
37*--- TR 1016439 10-APR-2006 VK
38lExportAddressFile = false
39*=== TR 1016439 10-APR-2006 VK
40
41*--- TR 1016439 04/18/06 VK
42oBPOFormula = Null
43*=== TR 1016439 04/12/06 VK
44
45*--- TR 1022541 20-APR-2007 Goutam
46lUseFRMCodes = false
47*=== TR 1022541 20-APR-2007 Goutam
48
49*--- TechRec 1022388 27-Feb-2007 JiSingh ---
50lPKMSPickCommentAll = false
51*=== TechRec 1022388 27-Feb-2007 JiSingh ===
52
53*--- TR 1034032 19-Aug-2008 Partha ---
54lChrg_Ok = false
55lIncludePickCharges = false
56*=== TR 1034032 19-Aug-2008 Partha ===
57
58*--- TR 1036598 22-Oct-2008 Partha ---
59cJoinStringZZOCRDCR = ""
60*=== TR 1036598 22-Oct-2008 Partha ===
61
62*--- TR 1040437 28-May-2009 Goutam
63lIncludeSLNs = false
64*=== TR 1040437 28-May-2009 Goutam
65
66*-- TR 1042770 20-Oct-2009 HNisar
67cExtenderFieldList = ""
68cExtenderFieldJoin = ""
69*=== TR 1042770 20-Oct-2009 HNisar
70
71*============================================================
72
73 FUNCTION INIT
74 LPARAMETERS plUserInterface
75
76 LOCAL llRetVal
77 llRetVal = DODEFAULT()
78
79 WITH This
80
81 *--- TR 1009835 6-APR-2005 VKK
82 .lPKMS_Explode_Implode_Cases = (goEnv.SV('PKMS_EXPLODE_IMPLODE_CASES', 'N') = 'Y')
83 *=== TR 1009835 6-APR-2005 VKK
84
85 *--- TAN 1010836 05/12/05 AZ
86 .cEDI_Store_Resolution = goEnv.SV('OBR_PROC_EDI_STORE_RESOLUTION', '1')
87 *=== TAN 1010836 05/12/05 AZ
88
89 *--- TR 1016439 10-APR-2006 VK
90 .lExportAddressFile = (goEnv.SV('PICK_BRIDGE_EXPORT_ADDRESS_FILE', 'N') = 'Y')
91
92 .oBPOFormula = NEWOBJECT('BPOFormulaBuilder','clsfrmbld.prg')
93
94 If NOT IsObject(.oBPOFormula, true)
95 ErrorBox("Could not create formula builder Business Object")
96 .oBPOFormula = NULL
97 Endif
98 *=== TR 1016439 10-APR-2006 VK
99
100 *--- TR 1022541 20-APR-2007 Goutam
101 .lUseFRMCodes = (goEnv.sv("SOP_USE_FRM_CODES","N") = 'Y')
102 *=== TR 1022541 20-APR-2007 Goutam
103
104 *--- TechRec 1022388 27-Feb-2007 JiSingh ---
105 .lPKMSPickCommentAll = (goEnv.SV('PKMS_PICK_COMMENT_ALL', 'N') = 'Y')
106 *=== TechRec 1022388 27-Feb-2007 JiSingh ===
107
108 *--- TR 1034032 19-Aug-2008 Partha ---
109 .lChrg_ok = (vl_compr("", "chrg_ok") = "Y")
110 *=== TR 1034032 19-Aug-2008 Partha ===
111
112 ENDWITH
113
114 RETURN llRetVal
115 ENDFUNC
116
117*========================================================================================
118* Build SQL statement which will be executed to get data from BC tables.
119*========================================================================================
120
121 Procedure BuildBridgeSQLStatements
122 Local llRetval, lnSelect, lcLog
123
124 *--- TR 1016439 04/18/06 VK
125 LOCAL lcSQLString
126 *=== TR 1016439 04/18/06 VK
127
128 llRetval = .T.
129 lnSelect = Select()
130
131 With This
132
133 .olog.LogMajorStage('Starting: ' + Program())
134 .InitThermo(1)
135 .UpdateThermoCaption( 'Building SQL Select statement(s) to retrieve data...')
136
137 *---TR 1017130 09/JUN/06 VK Commented the following
138 *!* *--- TR 1016439 10-APR-2006 VK
139 *!* IF NOT .lExportAddressFile
140 *!* .nMapsInBridge = 3
141 *!* ENDIF
142 *!* *=== TR 1016439 10-APR-2006 VK
143 *====TR 1017130 09/JUN/06 VK
144
145 *--- TR 1036972 11-NOV-2008 VKK commented below and modified
146 *--- TR 1036598 22-Oct-2008 Partha ---
147 * Add join to ZZOCRDCR only if included in the filter.
148 *!* .cJoinStringZZOCRDCR = IIF(("ZZOCRDCR." $ .cSQLFilterString), ;
149 *!* " JOIN zzocrdcr ON zzoordrh.pkey = zzocrdcr.fkey ", " ")
150
151 *--- TR 1055874 08/11/2001 YE === Added (nolock)
152 .cJoinStringZZOCRDCR = " ( SELECT H.*, Coalesce(c.ApprovalId, '') As ApprovalId " + ;
153 " FROM ZZOORDRH H (nolock) " + ;
154 " LEFT JOIN ZZOCRDCR C (nolock) " + ;
155 " ON H.Pkey = C.Fkey) ZZOORDRH "
156 *=== TR 1036598 22-Oct-2008 Partha ===
157
158 *=== TR 1036972 11-NOV-2008 VKK commented below
159
160 Dimension .aRetrieveBCDataSQLCommand[.nMapsInBridge]
161 For lnLoops = 1 To .nMapsInBridge
162
163 *--- TR 1042770 20-Oct-2009 HNisar
164 LOCAL lcExtenderFieldList , lcExtenderFieldJoin
165 lcExtenderFieldList = ""
166 lcExtenderFieldJoin = ""
167 lcExtenderFieldList =.aBCSelectList[lnLoops]
168 *=== TR 1042770 20-Oct-2009 HNisar
169
170
171
172 Do Case
173 Case .aMapsForBridge[lnLoops] = 'PICK_HEADER'
174
175 *--- TR 1042770 20-Oct-2009 HNisar
176 GetBCExtenderFldSQLStr(.aMapsForBridge[lnLoops],lcExtenderFieldList ,@lcExtenderFieldList,@lcExtenderFieldJoin,,.aVersionPassedIn[lnLoops])
177 *--- Added ,,.aVersionPassedIn[lnLoops] i.e 5th and 6th Param TR 1103001 Anupam 22-Mar-2017 ===*
178
179 .cExtenderFieldList = lcExtenderFieldList
180 .cExtenderFieldJoin = lcExtenderFieldJoin
181
182 .aBCSelectList[lnLoops] = IIF(NOT EMPTY(.cExtenderFieldList),.cExtenderFieldList,.aBCSelectList[lnLoops])
183 *=== TR 1042770 20-Oct-2009 HNisar
184
185 .aRetrieveBCDataSQLCommand[lnLoops] = .BuildBCDataSQLSelectStatement_PICK_HEADER(.aBCSelectList[lnLoops])
186
187 lcLog = 'SQL command to retrieve ' + Upper(.aMapsForBridge[lnLoops]) + ' data is:' + CHR(13) + ;
188 .aRetrieveBCDataSQLCommand[lnLoops]
189 .olog.LogEntry(lcLog)
190
191 Case .aMapsForBridge[lnLoops] = 'PICK_DETAIL'
192 .lNoErrors = .lNoErrors AND .CreateBackEndTempTables_OrderDetail()
193 .lNoErrors = .lNoErrors AND .CreateBackEndTempTables_Sizer()
194
195 If .lNoErrors
196
197 *--- TR 1042770 20-Oct-2009 HNisar
198 GetBCExtenderFldSQLStr(.aMapsForBridge[lnLoops],lcExtenderFieldList ,@lcExtenderFieldList,@lcExtenderFieldJoin,,.aVersionPassedIn[lnLoops])
199 *--- Added ,,.aVersionPassedIn[lnLoops] i.e 5th and 6th Param TR 1103001 Anupam 22-Mar-2017 ===*
200 .cExtenderFieldList = lcExtenderFieldList
201 .cExtenderFieldJoin = lcExtenderFieldJoin
202
203 .aBCSelectList[lnLoops] = IIF(NOT EMPTY(.cExtenderFieldList),.cExtenderFieldList,.aBCSelectList[lnLoops])
204 *=== TR 1042770 20-Oct-2009 HNisar
205
206 .aRetrieveBCDataSQLCommand[lnLoops] = .BuildBCDataSQLSelectStatement_PICK_DETAIL(.aBCSelectList[lnLoops])
207 lcLog = 'SQL command to retrieve ' + Upper(.aMapsForBridge[lnLoops]) + ' data is:' + CHR(13) + ;
208 .aRetrieveBCDataSQLCommand[lnLoops]
209 .olog.LogEntry(lcLog)
210
211 *--- TR 1050271 11/02/10 ATHIRUNAVU
212 ELSE
213 .aRetrieveBCDataSQLCommand[lnLoops] = ""
214 llRetVal = .lNoErrors
215 *=== TR 1050271 11/02/10 ATHIRUNAVU
216
217 Endif
218
219 Case .aMapsForBridge[lnLoops] = 'PICK_COMMENT' OR ;
220 .aMapsForBridge[lnLoops] = 'PICK_CMT_CO' &&34181
221
222 *--- TR 1042770 20-Oct-2009 HNisar
223 GetBCExtenderFldSQLStr(.aMapsForBridge[lnLoops],lcExtenderFieldList ,@lcExtenderFieldList,@lcExtenderFieldJoin,,.aVersionPassedIn[lnLoops])
224 *--- Added ,,.aVersionPassedIn[lnLoops] i.e 5th and 6th Param TR 1103001 Anupam 22-Mar-2017 ===*
225 .cExtenderFieldList = lcExtenderFieldList
226 .cExtenderFieldJoin = lcExtenderFieldJoin
227 .aBCSelectList[lnLoops] = IIF(NOT EMPTY(.cExtenderFieldList),.cExtenderFieldList,.aBCSelectList[lnLoops])
228 *=== TR 1042770 20-Oct-2009 HNisar
229
230 .aRetrieveBCDataSQLCommand[lnLoops] = .BuildBCDataSQLSelectStatement_PICK_COMMENT(.aBCSelectList[lnLoops])
231 lcLog = 'SQL command to retrieve ' + Upper(.aMapsForBridge[lnLoops]) + ' data is:' + CHR(13) + ;
232 .aRetrieveBCDataSQLCommand[lnLoops]
233 .olog.LogEntry(lcLog)
234
235 *--- TR 1016439 10-APR-2006 VK
236 *--- TR 1017130 09-Jun-2006 VK
237 *!* Case .lExportAddressFile AND .aMapsForBridge[lnLoops] = 'PICK_ADDRESS'
238 Case .lExportAddressFile AND (.aMapsForBridge[lnLoops] = 'PICK_ADDRESS' OR ;
239 .aMapsForBridge[lnLoops] = 'PICK_ADR1' OR ;
240 .aMapsForBridge[lnLoops] = 'PICK_ADR2' OR ;
241 .aMapsForBridge[lnLoops] = 'PICK_ADR3' )
242 *=== TR 1017130 09-Jun-2006 VK
243
244 *--- TR 1042770 20-Oct-2009 HNisar
245 GetBCExtenderFldSQLStr(.aMapsForBridge[lnLoops],lcExtenderFieldList ,@lcExtenderFieldList,@lcExtenderFieldJoin,,.aVersionPassedIn[lnLoops] )
246 *--- Added ,,.aVersionPassedIn[lnLoops] i.e 5th and 6th Param TR 1103001 Anupam 22-Mar-2017 ===*
247 .cExtenderFieldList = lcExtenderFieldList
248 .cExtenderFieldJoin = lcExtenderFieldJoin
249
250 .aBCSelectList[lnLoops] = IIF(NOT EMPTY(.cExtenderFieldList),.cExtenderFieldList,.aBCSelectList[lnLoops])
251 *=== TR 1042770 20-Oct-2009 HNisar
252
253 .aRetrieveBCDataSQLCommand[lnLoops] = .BuildBCDataSQLSelectStatement_PICK_ADDRESS(.aBCSelectList[lnLoops])
254 lcLog = 'SQL command to retrieve ' + Upper(.aMapsForBridge[lnLoops]) + ' data is:' + CHR(13) + ;
255 .aRetrieveBCDataSQLCommand[lnLoops]
256 .olog.LogEntry(lcLog)
257 *=== TR 1016439 10-APR-2006 VK
258
259 *--- TR 1022541 20-APR-2007 Goutam
260 Case .lUseFRMCodes AND .aMapsForBridge[lnLoops] = 'PICK_FRM'
261
262 *--- TR 1042770 20-Oct-2009 HNisar
263 GetBCExtenderFldSQLStr(.aMapsForBridge[lnLoops],lcExtenderFieldList ,@lcExtenderFieldList,@lcExtenderFieldJoin,,.aVersionPassedIn[lnLoops] )
264 *--- Added ,,.aVersionPassedIn[lnLoops] i.e 5th and 6th Param TR 1103001 Anupam 22-Mar-2017 ===*
265 .cExtenderFieldList = lcExtenderFieldList
266 .cExtenderFieldJoin = lcExtenderFieldJoin
267 .aBCSelectList[lnLoops] = IIF(NOT EMPTY(.cExtenderFieldList),.cExtenderFieldList,.aBCSelectList[lnLoops])
268 *=== TR 1042770 20-Oct-2009 HNisar
269
270 .aRetrieveBCDataSQLCommand[lnLoops] = .BuildBCDataSQLSelectStatement_PICK_FRM(.aBCSelectList[lnLoops])
271 lcLog = 'SQL command to retrieve ' + Upper(.aMapsForBridge[lnLoops]) + ' data is:' + CHR(13) + ;
272 .aRetrieveBCDataSQLCommand[lnLoops]
273 .olog.LogEntry(lcLog)
274 *=== TR 1022541 20-APR-2007 Goutam
275
276 *--- TR 1034032 19-Aug-2008 Partha ---
277 Case .lIncludePickCharges AND .aMapsForBridge[lnLoops] = 'PICK_CHRGS'
278
279 *--- TR 1042770 20-Oct-2009 HNisar
280 GetBCExtenderFldSQLStr(.aMapsForBridge[lnLoops],lcExtenderFieldList ,@lcExtenderFieldList,@lcExtenderFieldJoin,,.aVersionPassedIn[lnLoops] )
281 *--- Added ,,.aVersionPassedIn[lnLoops] i.e 5th and 6th Param TR 1103001 Anupam 22-Mar-2017 ===*
282 .cExtenderFieldList = lcExtenderFieldList
283 .cExtenderFieldJoin = lcExtenderFieldJoin
284 .aBCSelectList[lnLoops] = IIF(NOT EMPTY(.cExtenderFieldList),.cExtenderFieldList,.aBCSelectList[lnLoops])
285 *=== TR 1042770 20-Oct-2009 HNisar
286
287 .aRetrieveBCDataSQLCommand[lnLoops] = .BuildBCDataSQLSelectStatement_PICK_CHRGS(.aBCSelectList[lnLoops])
288 lcLog = 'SQL command to retrieve ' + Upper(.aMapsForBridge[lnLoops]) + ' data is:' + CHR(13) + ;
289 .aRetrieveBCDataSQLCommand[lnLoops]
290 .olog.LogEntry(lcLog)
291 *=== TR 1034032 19-Aug-2008 Partha ===
292
293 *--- TR 1040437 03-June-2009 Goutam
294 CASE .lIncludeSLNs AND .aMapsForBridge[lnLoops] = 'PICK_SLN'
295
296 *--- TR 1042770 20-Oct-2009 HNisar
297 GetBCExtenderFldSQLStr(.aMapsForBridge[lnLoops],lcExtenderFieldList ,@lcExtenderFieldList,@lcExtenderFieldJoin,,.aVersionPassedIn[lnLoops] )
298 *--- Added ,,.aVersionPassedIn[lnLoops] i.e 5th and 6th Param TR 1103001 Anupam 22-Mar-2017 ===*
299 .cExtenderFieldList = lcExtenderFieldList
300 .cExtenderFieldJoin = lcExtenderFieldJoin
301 .aBCSelectList[lnLoops] = IIF(NOT EMPTY(.cExtenderFieldList),.cExtenderFieldList,.aBCSelectList[lnLoops])
302 *=== TR 1042770 20-Oct-2009 HNisar
303
304 .aRetrieveBCDataSQLCommand[lnLoops] = .BuildBCDataSQLSelectStatement_PICK_SLN(.aBCSelectList[lnLoops])
305 lcLog = 'SQL command to retrieve ' + Upper(.aMapsForBridge[lnLoops]) + ' data is:' + CHR(13) + ;
306 .aRetrieveBCDataSQLCommand[lnLoops]
307 .olog.LogEntry(lcLog)
308 *=== TR 1040437 03-June-2009 Goutam
309
310 ENDCASE
311
312 *--- TR 1016439 04/18/06 YE/VK
313 lcSQLString = .aRetrieveBCDataSQLCommand[lnLoops]
314 IF AT('CUSTOM.',lcSQLString) > 0
315 .ConvertCustomFormulas(@lcSQLString, .aCursor_MappingInfo[lnLoops])
316 .aRetrieveBCDataSQLCommand[lnLoops] = lcSQLString
317 ENDIF
318 *=== TR 1016439 04/18/06 YE/VK
319
320 .AdvanceThermo((lnLoops/.nMapsInBridge))
321 Endfor
322 Select (lnSelect)
323 Endwith
324
325 Return llRetval
326 EndProc
327
328*========================================================================================
329* Build SQL statement which will be executed to get data from BC tables.
330*========================================================================================
331
332 Procedure BuildBCDataSQLSelectStatement_PICK_HEADER
333 lParameters tcSelectList, tnCurrentLoop
334 Local lcRetval, lnSelect
335
336 llRetval = .T.
337 lnSelect = Select()
338
339 With This
340 *--- 1005944 06/30/04 Ilya
341 tcSelectList = STRTRAN(tcSelectList, "ZZYOBRRF.PO_NUM", "CASE WHEN ZZOORDRH.UDFORD1C = '' THEN ZZOORDRH.PO_NUM ELSE ZZOORDRH.UDFORD1C END")
342 tcSelectList = STRTRAN(tcSelectList, 'ZZYOBRRF.EDI_CENTER', ;
343 "CASE WHEN {fn ifnull(zzxdistr.edi_center,'')} <> '' THEN {fn ifnull(zzxdistr.edi_center,'')} " + ;
344 "WHEN {fn ifnull(vvxdistr.edi_center,'')} <> '' THEN {fn ifnull(vvxdistr.edi_center,'')} " + ;
345 "ELSE zzoordrh.store END")
346
347 *--- 1023536 04/24/07 HNISAR
348
349 *--- TechRec 1033762 24-Jul-2008 MPerel --- base of the specification of TR 1023536 it should join to zzotaxwr by ord_num only for Tax Rate
350 *!* tcSelectList = STRTRAN(tcSelectList, 'ZZOTAXWR.TAX_RATE', ;
351 *!* "COALESCE ( ( "+;
352 *!* " SELECT TOP 1 "+;
353 *!* " tax_rate "+;
354 *!* " FROM zzotaxwr "+;
355 *!* " WHERE zzoordrh.ord_num = zzotaxwr.ord_num "+;
356 *!* " AND zzoordrh.inv_num = zzotaxwr.inv_num "+;
357 *!* " AND zzoordrh.pick_num = zzotaxwr.pick_num "+;
358 *!* " ),0)")
359 tcSelectList = STRTRAN(tcSelectList, 'ZZOTAXWR.TAX_RATE', ;
360 " COALESCE( ( "+;
361 " SELECT MAX(tax_rate) as tax_rate "+;
362 " FROM zzotaxwr "+;
363 " WHERE zzoordrh.ord_num = zzotaxwr.ord_num ),0)")
364 *=== TechRec 1033762 24-Jul-2008 MPerel ===
365
366 *=== 1023536 04/24/07 HNISAR
367
368 *--- TR 1036060 06-Oct-2008 Partha : Added zzocrdcr in the join ---
369 *--- TR 1036598 22-Oct-2008 Partha : Replaced zzocrdcr join with (.cJoinStringZZOCRDCR) ---
370 *--- TR 1036972 11-NOV-2008 VKK removed zzoordrh from the join
371 *--- TR 1055874 08/11/2001 YE === Added (nolock) to all tables
372 &&--- TechRec 1057932 12-Dec-2011 vkrishnamurthy === Changed zzeoowcr to zzeoowcr_expl
373 lcRetval = " Select distinct " + tcSelectList +", zzoordrh.customer, zzoordrh.store, "+;
374 " zzoordrh. ship_dc, zzoordrh.center_code, zzoordrh.consol_code, "+;
375 " zzoordrh.ord_num, zzoordrh.pick_Num ,"+;
376 " zzoordrh.Department,zzoordrh.Division "+; && Tan 35297 - SST
377 " From zzyobrrf (nolock), " +;
378 .cJoinStringZZOCRDCR + ; && *--- TR 1036060 06-Oct-2008 Partha ---
379 " Left outer Join zzxcustr (nolock) ON zzoordrh.customer = zzxcustr.customer " +;
380 " Left outer Join zzxstorr (nolock) ON zzoordrh.customer = zzxstorr.customer And " +;
381 " zzoordrh.store = zzxstorr.store " +;
382 " Left outer Join ZZXTERMR (nolock) ON ZZXTERMR.terms = zzoordrh.terms " +;
383 " LEFT OUTER JOIN zzxcompr (nolock) ON zzxcompr.active_ok = 'Y' " + ;
384 " LEFT OUTER JOIN zzxdivsr (nolock) ON zzxdivsr.division = zzoordrh.division " + ;
385 " LEFT OUTER JOIN zzxshipr (nolock) ON zzxshipr.shipper = zzoordrh.shipper " + ;
386 " LEFT OUTER JOIN zzxdistr (nolock) ON zzxdistr.customer = zzoordrh.customer " + ;
387 " AND zzxdistr.center_code = zzoordrh.center_code " + ;
388 " LEFT OUTER JOIN vvxdistr ON vvxdistr.customer = zzoordrh.customer " + ;
389 " AND vvxdistr.center_code = zzoordrh.consol_code " + ;
390 " LEFT OUTER JOIN zzeoowcr_expl (nolock) ON zzeoowcr_expl.ware_code = zzoordrh.location " + ;
391 " LEFT OUTER JOIN zzxcommu (nolock) ON zzxcommu.table_name = 'ZZXCUSTR' " + ;
392 " AND zzxcommu.fkey = zzxcustr.pkey AND zzxcommu.prim_cont = 'Y' " + ;
393 " LEFT OUTER JOIN zvoshipto_markfor " + ;
394 " ON zvoshipto_markfor.ord_num = zzoordrh.ord_num " + ;
395 " AND zvoshipto_markfor.pick_num = zzoordrh.pick_num " + ;
396 " AND zvoshipto_markfor.pick_num = zzoordrh.pick_num " + ;
397 " AND zvoshipto_markfor.cncl_num = zzoordrh.cncl_num " + ;
398 " AND zvoshipto_markfor.inv_num = zzoordrh.inv_num " + ;
399 " LEFT OUTER JOIN zzyupsbr (nolock) ON zzyupsbr.bill_optn = zzxcustr.bill_optn" + ;
400 " LEFT OUTER JOIN zzeipohh (nolock) ON zzeipohh.ord_num = zzoordrh.ord_num " + ; &&--- TechRec 1050460 13-Jan-2011 jisingh ===
401 " LEFT JOIN zzoord1h ON zzoord1h.fkey = zzoordrh.pkey " + ; &&--- TechRec 1103000 20-Mar-2017 smullappilly ===
402 .cExtenderFieldJoin + ; && *--- TR 1042770 20-Oct-2009 HNisar
403 " , zzoordrd (nolock) " +;
404 " Where zzoordrh.ord_status = 'P' AND zzoordrd.fkey=zzoordrh.pkey and " +;
405 .cSQLFilterString + ;
406 " Order By zzoordrh.Pick_num" && 40412 - AG - Changing the sort order of the flat file
407
408 Select (lnSelect)
409 Endwith
410 Return lcRetval
411 EndProc
412
413*========================================================================================
414
415 Procedure BuildBCDataSQLSelectStatement_PICK_DETAIL
416 lParameters tcSelectList, tnCurrentLoop
417 Local lcRetval, lnSelect
418 LOCAL lcTransSize &&*--- TR 1103001 Anupam 25-Apr-2017 ===*
419
420 llRetval = .T.
421 lnSelect = Select()
422 With This
423
424 ** MLG 1/8/02 --- added to deal with fields that are listed in zzyobrrf but are figured out once data is vertical
425 tcSelectList = STRTRAN(tcSelectList, 'ZZYOBRRF.QUANTITY', 'ZZOORDRD.QUANTITY')
426 tcSelectList = STRTRAN(tcSelectList, 'ZZYOBRRF.SIZE_DESC', 'ZZXSIZER.SIZE_DESC')
427 tcSelectList = STRTRAN(tcSelectList, 'ZZYOBRRF.SIZEBUCKET', 'ZZXSIZER.SIZEBUCKET')
428
429 *--- AG - 1000846 - 09/29/03 -- LINE_SEQ in the output text file is being replaced by LINE_SEQ*100 + SIZEBUCKET
430 tcSelectList = STRTRAN(tcSelectList, 'ZZOORDRD.LINE_SEQ', 'ZZOORDRD.LINE_SEQ*100+ZZOORDRD.SIZEBUCKET')
431 *=== AG - 1000846 - 09/29/03
432
433 *--- AG - 1000846 - 09/19/03 -- Order of Pick Detail text file changed to Pick_Num, Division, style, color_code, Size_Desc, lbl_code, dimension from Pick_Num, Division, style, color_code, lbl_code, dimension
434
435 *--- TR 1037503 9-Dec-2008 Goutam.
436 tcSelectList = STRTRAN(tcSelectList, 'ZZYOBRRF.SLN_QTY', 'case when zzoordrd.ASSORT_QTY > 0 then zzoordrd.TOTAL_QTY/zzoordrd.ASSORT_QTY else 0 end')
437 *=== TR 1037503 9-Dec-2008 Goutam.
438
439 *--- 1005944 07/01/2004 Ilya:
440 *--- TAN 1010836 05/12/05 AZ
441 DO CASE
442 CASE .cEDI_Store_Resolution = '1'
443 tcSelectList = STRTRAN(tcSelectList, 'ZZYOBRRF.EDI_CENTER', ;
444 "CASE WHEN {fn ifnull(dcnt.edi_center,'')} <> '' THEN {fn ifnull(dcnt.edi_center,'')} " + ;
445 "WHEN {fn ifnull(ccnt.edi_center,'')} <> '' THEN {fn ifnull(ccnt.edi_center,'')} " + ;
446 "ELSE zzoordrh.store END")
447 CASE .cEDI_Store_Resolution = '2'
448 tcSelectList = STRTRAN(tcSelectList, 'ZZYOBRRF.EDI_CENTER', ;
449 "CASE WHEN zzoordrh.ord_type = 'EDI' THEN "+;
450 "CASE WHEN COALESCE(ZZXSTORR.EDI_STORE,'') > '' THEN ZZXSTORR.EDI_STORE "+;
451 " WHEN COALESCE(dcnt.edi_center,'') > '' THEN dcnt.edi_center "+;
452 " WHEN COALESCE(ccnt.edi_center,'') > '' THEN ccnt.edi_center "+;
453 " ELSE zzoordrh.store END ELSE zzoordrh.store END ")
454 OTHERWISE
455 tcSelectList = STRTRAN(tcSelectList, 'ZZYOBRRF.EDI_CENTER', 'zzoordrh.store')
456 ENDCASE
457 *=== TAN 1010836 05/12/05 AZ
458
459 *--- 1016354 04/28/2005 AZ Commented out 1010520
460
461 *!* *--- 1010520 04/28/2005 AZ
462 *!* tcSelectList = STRTRAN(tcSelectList, 'ZZXCSTHR.CUSTOMER_STYLE', ;
463 *!* " CASE WHEN {fn ifnull(ZZXCSTHR.CUSTOMER_STYLE,'')} <> '' THEN {fn ifnull(ZZXCSTHR.CUSTOMER_STYLE,'')}" +;
464 *!* " ELSE zzoordrd.style END")
465 *!* *==== 1010520 04/28/2005 AZ
466
467 *==== 1016354 04/28/2005 AZ
468
469 *--- 1016354 04/28/2005 AZ
470 *--- 1039479 04/16/2009 AZ
471
472 * tcSelectList = STRTRAN(tcSelectList, 'ZZXCSTHR.CUSTOMER_STYLE', ;
473 * " COALESCE(csh1.CUSTOMER_STYLE,csh2.CUSTOMER_STYLE,zzoordrd.style)")
474
475 *--- TR 1043278 04/08/10 ATHIRUNAVU
476 IF goEnv.Sv("CUST_STYLE_DEFAULT_FROM_HEADER", "N")= "Y"
477 tcSelectList = STRTRAN(tcSelectList, 'ZZXCSTDR.CUST_STYLE', ;
478 " COALESCE(csd1.CUST_STYLE,csd2.CUST_STYLE," + ;
479 "csh3.CUSTOMER_STYLE+'-'+csh3.cust_color,csh4.CUSTOMER_STYLE+'-'+csh4.cust_color,SPACE(LEN(csd1.CUST_STYLE)))")
480 ELSE
481 *=== TR 1043278 04/08/10 ATHIRUNAVU
482
483 IF goEnv.Sv("CUST_STYLE_DEFAULT_FROM_SALES_ORDER", "Y")= "N"
484 tcSelectList = STRTRAN(tcSelectList, 'ZZXCSTDR.CUST_STYLE', ;
485 " COALESCE(csd1.CUST_STYLE,csd2.CUST_STYLE,SPACE(LEN(csd1.CUST_STYLE)))")
486 ELSE
487 tcSelectList = STRTRAN(tcSelectList, 'ZZXCSTDR.CUST_STYLE', ;
488 " COALESCE(csd1.CUST_STYLE,csd2.CUST_STYLE,zzoordrd.style)")
489 ENDIF
490 ENDIF
491 *=== 1039479 04/16/2009 AZ
492
493 tcSelectList = STRTRAN(tcSelectList, 'ZZXCSTDR.CUST_STYLE', ;
494 " COALESCE(csd1.CUST_STYLE,csd2.CUST_STYLE,zzoordrd.style)")
495
496 tcSelectList = STRTRAN(tcSelectList, 'ZZXCSTHR.RETAIL_PRICE', ;
497 " COALESCE(csh1.RETAIL_PRICE,csh2.RETAIL_PRICE,zzxscolr.RET_PRICE)")
498
499 tcSelectList = STRTRAN(tcSelectList, 'ZZXCSTDR.SIZE_DESC', ;
500 " COALESCE(csd1.SIZE_DESC,csd2.SIZE_DESC,zzxsizer.size_name)")
501 *==== 1016354 04/28/2005 AZ
502
503 * --- TR 1026861 NSD 9/5/07
504 * Remove any aliases to ZZXCSTHR and replace COALESCE
505 tcSelectList = ReplaceTableWithCoalesce(tcSelectList,'ZZXCSTHR','csh1','csh2')
506 * === TR 1026861 NSD 9/5/07
507
508 *--- TR 1009835 7-APR-2005 VKK
509 tcSelectList = .ExplodeMasterQuantity(tcSelectList)
510 *=== TR 1009835 7-APR-2005 VKK
511
512 *--- TR 1043278 04/08/10 ATHIRUNAVU
513 IF goEnv.Sv("CUST_STYLE_DEFAULT_FROM_HEADER", "N")= "Y"
514 lcCustHeaderSKU = " Left Outer Join ZZXCSTDR csd3 " +;
515 " On zzoordrh.customer = csd3.customer and "+;
516 " zzoordrd.division = csd3.division AND " + ;
517 " zzoordrd.style = csd3.style AND " + ;
518 " zzoordrd.color_code = csd3.color_code AND " + ;
519 " zzoordrd.lbl_code = csd3.lbl_code AND " + ;
520 " zzoordrd.dimension = csd3.dimension AND " + ;
521 " csd3.size_bk = 0 " + ;
522 " AND csd3.CUST_STORE <> '' " +;
523 " AND csd3.CUST_STORE = zzoordrh.store "+;
524 " LEFT OUTER JOIN zzxcsthr csh3 ON csh3.pkey = csd3.fkey " + ;
525 " Left Outer Join ZZXCSTDR csd4 "+;
526 " On zzoordrh.customer = csd4.customer and "+;
527 " zzoordrd.division = csd4.division AND " + ;
528 " zzoordrd.style = csd4.style AND " + ;
529 " zzoordrd.color_code = csd4.color_code AND " + ;
530 " zzoordrd.lbl_code = csd4.lbl_code AND " + ;
531 " zzoordrd.dimension = csd4.dimension AND " + ;
532 " csd4.size_bk = 0 " + ;
533 " AND csd4.CUST_STORE = '' "+;
534 " LEFT OUTER JOIN zzxcsthr csh4 ON csh4.pkey = csd4.fkey "
535 ELSE
536 lcCustHeaderSKU = ""
537 ENDIF
538 *=== TR 1043278 04/08/10 ATHIRUNAVU
539
540 *--- 1016354 04/28/2005 AZ Commented out
541 *--- TR 1009835 7-APR-2005 VKK Removed "zzoordrd.total_qty," below and moved it in ExplodeMasterQuantity method
542 *!* lcRetval = "Select " + tcSelectList +",zzoordrd.price, zzoordrd.discount, "+ ;
543 *!* " zzoordrd.Pick_Num, zzxscolr.gar_wgt "+; && Tan 34181 SST
544 *!* ", " + SQLFNIFNULL("ZZEUPCNR.UPC_NUM", "''","UPC_NUM") + ; && TR 1004074 MAR-12-04 NH
545 *!* ", zzoordrd.pkey as Ord_Dtl_Pkey " + ; && TR 1004074 MAR-12-04 NH
546 *!* " From zzyobrrf, zzoordrh" + ;
547 *!* " Inner Join " + .cTempTableName_OrderDetailVertical + " zzoordrd" + ;
548 *!* " On zzoordrh.pkey = zzoordrd.fkey " +;
549 *!* " Left Outer Join ZZXCSTDR "+;
550 *!* "On zzoordrh.customer = zzxcstdr.customer and "+;
551 *!* "zzoordrd.division = zzxcstdr.division AND " + ;
552 *!* "zzoordrd.style = zzxcstdr.style AND " + ;
553 *!* "zzoordrd.color_code = zzxcstdr.color_code AND " + ;
554 *!* "zzoordrd.lbl_code = zzxcstdr.lbl_code AND " + ;
555 *!* "zzoordrd.dimension = zzxcstdr.dimension AND " + ;
556 *!* "zzoordrd.sizebucket = zzxcstdr.size_bk " + ;
557 *!* "LEFT OUTER JOIN zzxcsthr ON zzxcsthr.pkey = zzxcstdr.fkey " + ;
558 *!* " Left outer Join zzxstorr On zzoordrh.customer = zzxstorr.customer And " +; &&1010836 AZ
559 *!* " zzoordrh.store = zzxstorr.store " +; &&1010836 AZ
560 *!* " Inner Join zzxscolr" + ;
561 *!* " On zzoordrd.division = zzxscolr.division AND " + ;
562 *!* "zzoordrd.style = zzxscolr.style AND " + ;
563 *!* "zzoordrd.color_code = zzxscolr.color_code AND " + ;
564 *!* "zzoordrd.lbl_code = zzxscolr.lbl_code AND " + ;
565 *!* "zzoordrd.dimension = zzxscolr.dimension " + ;
566 *!* " Inner Join zzxstylr" + ;
567 *!* " On zzoordrd.division = zzxstylr.division AND " + ;
568 *!* "zzoordrd.style = zzxstylr.style " + ;
569 *!* " Inner Join zzxcolrr" + ;
570 *!* " On zzoordrd.color_code = zzxcolrr.color_code " + ;
571 *!* " Inner Join " + .cTempTableName_SizerVertical + " zzxsizer" + ;
572 *!* " On zzxscolr.division = zzxsizer.division AND " + ;
573 *!* "zzxscolr.size_code = zzxsizer.size_code AND " + ;
574 *!* "zzoordrd.sizebucket = zzxsizer.sizebucket" + ;
575 *!* " Left Outer Join ZVEUPCNR zzeupcnr " + ;
576 *!* "On zzoordrd.division = zzeupcnr.division AND " + ;
577 *!* "zzoordrd.style = zzeupcnr.style AND " + ;
578 *!* "zzoordrd.color_code = zzeupcnr.color_code AND " + ;
579 *!* "zzoordrd.lbl_code = zzeupcnr.lbl_code AND " + ;
580 *!* "zzoordrd.dimension = zzeupcnr.dimension AND " + ;
581 *!* "zzoordrd.sizebucket = zzeupcnr.sizebucket " + ;
582 *!* "LEFT OUTER JOIN zzxdistr dcnt ON dcnt.customer = zzoordrh.customer " + ;
583 *!* "AND dcnt.center_code = zzoordrh.center_code " + ;
584 *!* "LEFT OUTER JOIN zzxdistr ccnt ON ccnt.customer = zzoordrh.customer " + ;
585 *!* "AND ccnt.center_code = zzoordrh.consol_code " + ;
586 *!* " Where " + .cSQLFilterString + " AND" +;
587 *!* " (zzoordrh.ord_status = 'P')" + ;
588 *!* " Order by zzoordrd.pick_num, zzoordrd.Division, zzoordrd.style, zzoordrd.color_code, zzoordrd.lbl_code, zzoordrd.dimension, ZZOORDRD.SIZEBUCKET" && 40412 - AG - Changing the sort order of the flat file
589 *!* *=== TAN 1000846 - AG
590
591 *=== 1016354 04/28/2005 AZ Commented out
592
593 *--- 1016354 04/28/2005 AZ
594
595 *--- TR 1058059 23-DEC-11 Venuk
596 tcSelectList = STRTRAN(tcSelectList, 'ZZYOBRRF.AOSKU', "RTRIM(LTRIM(ZZXSTYLR.STYLE))+'-'+RTRIM(LTRIM(ZZXSCOLR.COLOR_CODE))+RTRIM(LTRIM(ZZXSCOLR.LBL_CODE))+'.'+RTRIM(LTRIM(ZZXSIZER.SIZE_DESC))")
597 *=== TR 1058059 23-DEC-11 Venuk
598
599 *--- TR 1103001 Anupam 19-Apr-2017 ---*
600 lcTransSize = " case ZZXSIZER.SIZEBUCKET "
601 For i = 1 to goEnv.MaxBuckets
602 lcSize = Transform(i, "@L 99")
603 lcTransSize = lcTransSize + " When " + ALLTRIM(STR(i))+ " then ZVALLSIZ_r.size" + lcSize
604 EndFor
605 lcTransSize = lcTransSize + " end "
606
607 tcSelectList = STRTRAN(tcSelectList, 'ZZYOBRRF.TRANS_SIZE30', lcTransSize)
608 *=== TR 1103001 Anupam 19-Apr-2017 ===*
609
610 *--- TR 1033215 20-JUN-2008 Goutam. Added view zvoshipto_markfor in the following query.
611 *--- TR 1036060 06-Oct-2008 Partha : Added zzocrdcr in the join ---
612 *--- TR 1036598 22-Oct-2008 Partha : Replaced zzocrdcr join with (.cJoinStringZZOCRDCR) ---
613 *--- TR 1036972 11-NOV-2008 VKK removed zzoordrh from the join
614 *--- TR 1040437 03-JUN-2009 Goutam. Added left join with zzeipohd table to get po1_sku
615 *--- TR 1041904 05-Aug-2009 Goutam. Included sizebucket join with zzeipohd.
616 *--- TR 1043278 04/08/10 ATHIRUNAVU Added lcCustHeaderSKU
617 *--- TR 1055874 08/11/2001 YE === Added (nolock) to all tables
618 *--- TR 1060782 03-MAY-2012 EBANDIERO Added zzoordrd.quantity as size_qty
619 *--- TR 1083715 02-Jan-2015 BNarayanan modified zzeipohd sql to take all columns instead of specific ones
620 *--- TechRec 1108061 05-Oct-2017 jisingh Commented zzoordad & zvalldim joins added by TR 1103001, will add below ===
621 *--- TechRec 1110172 20-Dec-2017 Palani added code for getting single country from zvallsiz_r & zvalldim
622 lcRetval = " Select " + tcSelectList +",zzoordrd.price, zzoordrd.discount, "+ ;
623 " zzoordrd.Pick_Num, zzxscolr.gar_wgt "+; && Tan 34181 SST
624 " , " + SQLFNIFNULL("ZZEUPCNR.UPC_NUM", "''","UPC_NUM") + ; && TR 1004074 MAR-12-04 NH
625 " ,zzoordrd.quantity as size_qty "+; &&TR 1060782 03-MAY-2012
626 " , zzoordrd.pkey as Ord_Dtl_Pkey " + ; && TR 1004074 MAR-12-04 NH
627 " From zzyobrrf (nolock), " + ; && TechRec 1063915 21-Sep-2012 MPerel --- instead of the zzoordrh (nolock) I join the .cJoinStringZZOCRDCR
628 .cJoinStringZZOCRDCR + ; && TechRec 1063915 21-Sep-2012 MPerel
629 " Inner Join " + .cTempTableName_OrderDetailVertical + " zzoordrd " + ;
630 " On zzoordrh.pkey = zzoordrd.fkey " +;
631 " /*left join zzoordad on zzoordad.ord_num = zzoordrd.ord_num "+; && *--- TR 1103001 Anupam 19-Apr-2017 ===*
632 "left join zvalldim on zvalldim .dimension = zzoordrd.dimension and zvalldim.country = zzoordad.country */ "+; && *--- TR 1103001 Anupam 19-Apr-2017 ===*
633 " Left Outer Join ZZXCSThR csh1 (nolock) "+; &&& 1016354
634 " On zzoordrh.customer = csh1.customer and "+; &&& 1016354
635 " zzoordrd.division = csh1.division AND " + ; &&& 1016354
636 " zzoordrd.style = csh1.style AND " + ; &&& 1016354
637 " zzoordrd.color_code = csh1.color_code AND " + ; &&& 1016354
638 " zzoordrd.lbl_code = csh1.lbl_code AND " + ; &&& 1016354
639 " zzoordrd.dimension = csh1.dimension " + ; &&& 1016354
640 " AND (zzoordrh.department = csh1.udf_dept or csh1.udf_dept = '') "+ ; &&& 1045706 &&& 1058322 AZ udf_dept (not cust_dept)
641 " AND csh1.cust_store <> '' "+ ; &&& 1045706
642 " AND zzoordrh.store = csh1.CUST_STORE "+; &&& 1045706
643 " LEFT JOIN ZZXCSTDR csd1 (nolock) on csh1.pkey = csd1.fkey AND " +; &&& 1045706
644 " zzoordrd.sizebucket = csd1.size_bk " + ; &&& 1045706
645 " Left Outer Join ZZXCSThR csh2 (nolock) "+; &&& 1016354
646 " On zzoordrh.customer = csh2.customer and "+; &&& 1016354
647 " zzoordrd.division = csh2.division AND " + ; &&& 1016354
648 " zzoordrd.style = csh2.style AND " + ; &&& 1016354
649 " zzoordrd.color_code = csh2.color_code AND " + ; &&& 1016354
650 " zzoordrd.lbl_code = csh2.lbl_code AND " + ; &&& 1016354
651 " zzoordrd.dimension = csh2.dimension " + ; &&& 1016354
652 " AND (zzoordrh.department = csh2.udf_dept or csh2.udf_dept = '') "+ ; &&& 1045706 &&& 1058322 AZ udf_dept (not cust_dept)
653 " AND csh2.CUST_STORE = '' "+; &&& 1045706
654 " LEFT JOIN ZZXCSTDR csd2 (nolock) on csh2.pkey = csd2.fkey AND " +; &&& 1045706
655 " zzoordrd.sizebucket = csd2.size_bk " + ; &&& 1045706
656 lcCustHeaderSKU + ;
657 " LEFT OUTER JOIN zzxcustr (nolock) ON zzoordrh.customer = zzxcustr.customer " + ; &&& 1019022 BDA
658 " Left outer Join zzxstorr (nolock) ON zzoordrh.customer = zzxstorr.customer And " +; &&1010836 AZ
659 " zzoordrh.store = zzxstorr.store " +; &&1010836 AZ
660 " Inner Join zzxscolr (nolock) " + ;
661 " On zzoordrd.division = zzxscolr.division AND " + ;
662 " zzoordrd.style = zzxscolr.style AND " + ;
663 " zzoordrd.color_code = zzxscolr.color_code AND " + ;
664 " zzoordrd.lbl_code = zzxscolr.lbl_code AND " + ;
665 " zzoordrd.dimension = zzxscolr.dimension " + ;
666 " Inner Join zzxstylr (nolock) " + ;
667 " On zzoordrd.division = zzxstylr.division AND " + ;
668 " zzoordrd.style = zzxstylr.style " + ;
669 " Inner Join zzxcolrr (nolock) " + ;
670 " On zzoordrd.color_code = zzxcolrr.color_code " + ;
671 " Inner Join " + .cTempTableName_SizerVertical + " zzxsizer" + ;
672 " On zzxstylr.division = zzxsizer.division AND " + ; &&& 1045778 AZ take size_code from zzxstylr (not zzxscolr)
673 " zzxstylr.size_code = zzxsizer.size_code AND " + ; &&& 1045778 AZ take size_code from zzxstylr (not zzxscolr)
674 " zzoordrd.sizebucket = zzxsizer.sizebucket " + ;
675 " Left Outer Join ZVEUPCNR zzeupcnr (nolock) " + ;
676 " On zzoordrd.division = zzeupcnr.division AND " + ;
677 " zzoordrd.style = zzeupcnr.style AND " + ;
678 " zzoordrd.color_code = zzeupcnr.color_code AND " + ;
679 " zzoordrd.lbl_code = zzeupcnr.lbl_code AND " + ;
680 " zzoordrd.dimension = zzeupcnr.dimension AND " + ;
681 " zzoordrd.sizebucket = zzeupcnr.sizebucket " + ;
682 " LEFT OUTER JOIN zzxdistr dcnt (nolock) ON dcnt.customer = zzoordrh.customer " + ;
683 " AND dcnt.center_code = zzoordrh.center_code " + ;
684 " LEFT OUTER JOIN zzxdistr ccnt (nolock) ON ccnt.customer = zzoordrh.customer " + ;
685 " AND ccnt.center_code = zzoordrh.consol_code " + ;
686 " LEFT JOIN zzeipohd on zzeipohd.pkey = (SELECT MIN(pkey) FROM zzeipohd WHERE zzeipohd.ord_num = zzoordrd.ord_num " + ; &&& 1083715 BNarayanan
687 " AND zzeipohd.line_seq = zzoordrd.line_seq AND zzeipohd.sizebucket = zzoordrd.sizebucket " + ; &&& 1083715 BNarayanan
688 " GROUP BY ord_num, line_seq, sizebucket) " + ; &&& 1083715 BNarayanan
689 " LEFT OUTER JOIN zvoshipto_markfor " + ;
690 " ON zvoshipto_markfor.ord_num = zzoordrh.ord_num " + ;
691 " AND zvoshipto_markfor.pick_num = zzoordrh.pick_num " + ;
692 " AND zvoshipto_markfor.cncl_num = zzoordrh.cncl_num " + ;
693 " AND zvoshipto_markfor.inv_num = zzoordrh.inv_num " + ;
694 .cExtenderFieldJoin + ; && *--- TR 1101077 Anupam 05-Jan-2016 ===*
695 " LEFT JOIN zzoord1h h1 ON h1.fkey = zzoordrh.pkey " + ; &&--- TechRec 1108061 03-Oct-2017 jisingh ===
696 "left join ZVALLSIZ_r on ZVALLSIZ_r.style = zzxstylr.style and ZVALLSIZ_r.size_code = zzxstylr.size_code " + ; && *--- TR 1103001 Anupam 19-Apr-2017 ===*
697 "and ZVALLSIZ_r.division = zzxstylr.division /* and ZVALLSIZ_r.country = ZVOSHIPTO_MARKFOR.SHIPTO_COUNTRY */ " + ; && TR 1108061 Commented country condition === && *--- TR 1103001 Anupam 19-Apr-2017 ===*
698 " AND zvallsiz_r.int_region_code_parent = h1.int_region_code " + ; &&--- TechRec 1108061 03-Oct-2017 jisingh ===
699 " and zvallsiz_r.country = (select top 1 country " + ; &&--- TechRec 1110172 20-Dec-2017 Palani ===
700 " from zvallsiz_r r2 " + ; &&--- TechRec 1110172 20-Dec-2017 Palani ===
701 " where r2.style = ZVALLSIZ_r.style and r2.size_code = ZVALLSIZ_r.size_code " + ; &&--- TechRec 1110172 20-Dec-2017 Palani ===
702 " and r2.division = ZVALLSIZ_r.division AND r2.int_region_code_parent = ZVALLSIZ_r.int_region_code_parent) " + ; &&--- TechRec 1110172 20-Dec-2017 Palani ===
703 " left join zvalldim on zvalldim.dimension = zzoordrd.dimension " + ; &&--- TechRec 1108061 05-Oct-2017 jisingh ===
704 " and zvalldim.int_region_code_parent = h1.int_region_code " + ; &&--- TechRec 1108061 05-Oct-2017 jisingh ===
705 " and zvalldim.country = (select top 1 country " + ; &&--- TechRec 1110172 20-Dec-2017 Palani ===
706 " from zvalldim m2 " + ; &&--- TechRec 1110172 20-Dec-2017 Palani ===
707 " where m2.dimension = zvalldim.dimension and m2.int_region_code_parent = zvalldim.int_region_code_parent) " + ; &&--- TechRec 1110172 20-Dec-2017 Palani ===
708 " Where " + .cSQLFilterString + " AND" + ;
709 " (zzoordrh.ord_status = 'P')" + ;
710 " Order by zzoordrd.pick_num, zzoordrd.Division, zzoordrd.style, zzoordrd.color_code, zzoordrd.lbl_code, zzoordrd.dimension, ZZOORDRD.SIZEBUCKET" && 40412 - AG - Changing the sort order of the flat file
711 *=== 1016354 04/28/2005 AZ
712
713 Select (lnSelect)
714 Endwith
715 Return lcRetval
716 EndProc
717
718*=======================================================================================
719
720 Procedure BuildBCDataSQLSelectStatement_PICK_COMMENT
721 lParameters tcSelectList, tnCurrentLoop
722 Local lcRetval, lnSelect
723
724 llRetval = .T.
725 lnSelect = Select()
726 With This
727
728 *--- 1005251 05/13/04 AD/IM: Added ORDER BY clause
729 *--- TR 1036060 06-Oct-2008 Partha Added zzocrdcr in the join ---
730 *--- TR 1036598 22-Oct-2008 Partha : Replaced zzocrdcr join with (.cJoinStringZZOCRDCR) ---
731 *--- TR 1036972 11-NOV-2008 VKK removed zzoordrh from the join
732 lcRetval = "Select distinct " + tcSelectList +;
733 ",zzoordrh.customer, zzoordrh.store,zzoordrh.pick_num, zzoordrh.ord_num, "+;
734 "zzoordrh.department, zzoordrh.division From zzyobrrf, zzoordrd , " + ; && && *--- TR 1036060 06-Oct-2008 Partha CAUTION: zzoordrh position is changed ---
735 .cJoinStringZZOCRDCR + ; && *--- TR 1036060 06-Oct-2008 Partha ---
736 .cExtenderFieldJoin + ; && *--- TR 1042770 20-Oct-2009 HNisar
737 " Where zzoordrh.ord_status = 'P' AND "+;
738 " zzoordrh.pKey=zzoordrd.fKey and " + .cSQLFilterString + " ORDER BY zzoordrh.pick_num"
739 *=== 1005251 05/13/04 AD/IM
740
741 Select (lnSelect)
742 Endwith
743 Return lcRetval
744 EndProc
745
746*========================================================================================
747
748 *--- TR 1016439 10-APR-2006 VK
749 Procedure BuildBCDataSQLSelectStatement_PICK_ADDRESS
750 lParameters tcSelectList, tnCurrentLoop
751 Local lcRetval, lnSelect
752
753 llRetval = .T.
754 lnSelect = Select()
755 With This
756
757 *---TR 1016991 VK
758 *!* lcRetval = "Select " + tcSelectList +;
759 *!* " From zzyobrrf, zzoordrh, zzoordrd ,zzordad2 " + ;
760 *!* " Where zzoordrh.ord_status = 'P' AND zzoordrh.pKey=zzoordrd.fKey and " + ;
761 *!* " zzoordrh.ord_num = zzordad2.ord_num AND "+;
762 *!* " zzoordrh.pick_num = zzordad2.pick_num AND "+;
763 *!* " zzoordrh.inv_num = zzordad2.inv_num " +;
764 *!* " and " + .cSQLFilterString + " ORDER BY zzoordrh.pick_num"
765
766 *--- TR 1036060 06-Oct-2008 Partha added zzocrdcr ---
767 *--- TR 1036598 22-Oct-2008 Partha : Replaced zzocrdcr join with (.cJoinStringZZOCRDCR) ---
768 *--- TR 1036972 11-NOV-2008 VKK removed zzoordrh from the join
769 lcRetval = "Select distinct " + tcSelectList +;
770 ",zzoordrh.pick_num, zzoordrh.ord_num "+;
771 " From zzyobrrf, zzoordrd ,zzordad2," + ; && *--- TR 1036060 06-Oct-2008 Partha CAUTION: zzoordrh poision is changed ---
772 .cJoinStringZZOCRDCR + ; && *--- TR 1036060 06-Oct-2008 Partha ---
773 .cExtenderFieldJoin + ; && *--- TR 1042770 20-Oct-2009 HNisar
774 " Where zzoordrh.ord_status = 'P' AND zzoordrh.pKey=zzoordrd.fKey and " + ;
775 " zzoordrh.ord_num = zzordad2.ord_num AND "+;
776 " zzoordrh.pick_num = zzordad2.pick_num AND "+;
777 " zzoordrh.inv_num = zzordad2.inv_num " +;
778 " and " + .cSQLFilterString + " ORDER BY zzoordrh.pick_num"
779 *===TR 1016991 VK
780
781 Select (lnSelect)
782 Endwith
783 Return lcRetval
784 EndProc
785 *=== TR 1016439 10-APR-2006 VK
786
787*========================================================================================
788
789 Procedure CreateBackEndTempTables_OrderDetail
790 Local llRetval, lcSQLSelect
791
792 llRetval = .T.
793 With This
794
795 .olog.LogMajorStage('Starting: ' + Program())
796
797 **** Get Order Detail Vertical
798
799 *--- 33905 15-Oct-2002 GS --- No more SQL specific code
800 ** SQL-SERVER SPECIFIC CODE
801 *!* .cTempTableName_OrderDetailHorizontal = '#' + GetUniqueFilename()
802 *!* .cTempTableName_OrderDetailVertical = '#' + GetUniqueFilename()
803 .AdvanceThermo(.40)
804 *!*
805 *!* lcSQLSelect = "Select zzoordrd.* Into " +;
806 *!* .cTempTableName_OrderDetailHorizontal +;
807 *!* " From zzoordrh, zzoordrd Where zzoordrd.fkey=zzoordrh.pkey and " +;
808 *!* "zzoordrh.ord_status = 'P' AND "+;
809 *!* .cSQLFilterString
810
811 *!* llRetval = llRetval And v_SQLExec(lcSQLSelect)
812
813 *!* .BuildSubSelectStatement_OrderDetail()
814
815 *!* lcSQLSelect = "Select * Into " +;
816 *!* .cTempTableName_OrderDetailVertical +;
817 *!* " From (" + ;
818 *!* .cSubSelectStatementOrderDetail
819 *!* llRetval = llRetval And v_SQLExec(lcSQLSelect)
820
821 *--- TR 1036060 06-Oct-2008 Partha added zzocrdcr in the join ---
822 *!* lcSQLSelect = ;
823 *!* "select zzoordrd.* "+;
824 *!* " from zzoordrh,"+;
825 *!* " zzoordrd "+;
826 *!* " where zzoordrd.fkey=zzoordrh.pkey "+;
827 *!* " and zzoordrh.ord_status = 'P' "+;
828 *!* " and " + .cSQLFilterString
829
830 *--- TR 1036598 22-Oct-2008 Partha : Replaced zzocrdcr join with (.cJoinStringZZOCRDCR) ---
831 *--- TR 1036972 11-NOV-2008 VKK commented and rewrote
832 *!* lcSQLSelect = ;
833 *!* "select zzoordrd.* "+;
834 *!* " from zzoordrh "+;
835 *!* " join zzoordrd ON zzoordrd.fkey=zzoordrh.pkey "+;
836 *!* .cJoinStringZZOCRDCR + ;
837 *!* " where zzoordrh.ord_status = 'P' "+;
838 *!* " and " + .cSQLFilterString
839
840 *--- TR 1055874 08/11/2001 YE === Added (nolock)
841 lcSQLSelect = ;
842 " select zzoordrd.* "+;
843 " from zzoordrd (nolock) "+;
844 " join " + .cJoinStringZZOCRDCR + " ON zzoordrd.fkey=zzoordrh.pkey "+;
845 " where zzoordrh.ord_status = 'P' "+;
846 " and " + .cSQLFilterString
847 *=== TR 1036972 11-NOV-2008 VKK commented and rewrote
848 *=== TR 1036060 06-Oct-2008 Partha ===
849
850 *--- TR 1050271 11/02/10 ATHIRUNAVU
851 lcLog = 'SQL command to build Order Detail Horizontal is ' + CHR(13) + ;
852 lcSQLSelect
853 .oLog.LogEntry(lcLog)
854 *=== TR 1050271 11/02/10 ATHIRUNAVU
855
856 .cTempTableName_OrderDetailHorizontal = SQLTableFromQuery(lcSQLSelect)
857
858 llRetval = llRetval And !Empty(.cTempTableName_OrderDetailHorizontal)
859
860 *--- TR 1050271 11/02/10 ATHIRUNAVU
861 IF llRetVal
862 *=== TR 1050271 11/02/10 ATHIRUNAVU
863
864 .BuildSubSelectStatement_OrderDetail()
865
866 lcSQLSelect =;
867 "Select * " +;
868 " From (" + ;
869 .cSubSelectStatementOrderDetail
870
871 .cTempTableName_OrderDetailVertical = SQLTableFromQuery(lcSQLSelect)
872 llRetval = llRetval And !Empty(.cTempTableName_OrderDetailVertical)
873
874 *--- TR 1050271 11/02/10 ATHIRUNAVU
875 ENDIF
876 *=== TR 1050271 11/02/10 ATHIRUNAVU
877
878 *=== 33905 15-Oct-2002 GS ===
879
880 Endwith
881 Return llRetval
882 EndProc
883
884*========================================================================================
885
886 **** Get Sizer Vertical
887 Procedure CreateBackEndTempTables_Sizer
888 Local llRetval, lcSQLSelect
889
890 llRetval = .T.
891 With This
892
893 .olog.LogMajorStage('Starting: ' + Program())
894
895 *--- 33905 15-Oct-2002 GS --- No more SQL specific code
896 ** SQL-SERVER SPECIFIC CODE
897 *!* .cTempTableName_SizerHorizontal = '#' + GetUniqueFilename()
898 *!* .cTempTableName_SizerVertical = '#' + GetUniqueFilename()
899 *!* .AdvanceThermo(.40)
900 *!*
901 *!* lcSQLSelect = "Select * Into " +;
902 *!* .cTempTableName_SizerHorizontal +;
903 *!* " From zzxsizer"
904
905 *!* llRetval = llRetval And v_SQLExec(lcSQLSelect)
906
907 *!* .BuildSubSelectStatement_Sizer()
908
909 *!* lcSQLSelect = "Select * Into " +;
910 *!* .cTempTableName_SizerVertical +;
911 *!* " From (" + ;
912 *!* .cSubSelectStatementSizer
913 *!* llRetval = llRetval And v_SQLExec(lcSQLSelect)
914
915 .AdvanceThermo(.40)
916
917 *--- TR 1055874 08/11/2001 YE === Added (nolock)
918 lcSQLSelect = "Select * From zzxsizer (nolock) "
919
920 .cTempTableName_SizerHorizontal = SQLTableFromQuery(lcSQLSelect)
921
922 llRetval = llRetval And !empty(.cTempTableName_SizerHorizontal)
923
924 .BuildSubSelectStatement_Sizer()
925
926 lcSQLSelect = " Select * " +;
927 " From (" + ;
928 .cSubSelectStatementSizer
929
930 .cTempTableName_SizerVertical = SQLTableFromQuery(lcSQLSelect)
931 llRetval = llRetval And !Empty(.cTempTableName_SizerVertical)
932
933 Endwith
934 Return llRetval
935 EndProc
936
937*========================================================================================
938
939 Procedure BuildSubSelectStatement_OrderDetail
940 Local lnLoops, lcLoops, lcSizebucket, lcSizeNumber, lcAddToSelect, lcQuantity
941
942 For lnloops = 1 TO goEnv.MaxBuckets
943 lcSizebucket = Alltrim(Str(lnloops))
944 lcSizeNumber = TRANS(lnloops, "@L 99")
945
946 lcQuantity = 'size' + lcSizeNumber + '_qty'
947
948 *--- 33905 15-Oct-2002 GS --- No more SQL specific code
949*!* lcAddToSelect = "Select *, " + lcSizebucket + " As sizebucket, " + lcQuantity + " As quantity From " +;
950*!* .cTempTableName_OrderDetailHorizontal + ;
951*!* " Where size" + lcSizeNumber + "_qty <> 0"
952
953 lcAddToSelect = ;
954 "select " +.cTempTableName_OrderDetailHorizontal + ".*,"+;
955 " " + lcSizebucket + " As sizebucket,"+;
956 " " + lcQuantity + " As quantity " +;
957 " from " + .cTempTableName_OrderDetailHorizontal + ;
958 " where size" + lcSizeNumber + "_qty <> 0"
959 *=== 33905 15-Oct-2002 GS ===
960
961 .cSubSelectStatementOrderDetail = .cSubSelectStatementOrderDetail + lcAddToSelect
962 If lnloops <> goEnv.MaxBuckets
963 .cSubSelectStatementOrderDetail = .cSubSelectStatementOrderDetail + " Union All "
964 Else
965 .cSubSelectStatementOrderDetail = .cSubSelectStatementOrderDetail + ") As Cursor_AAA"
966 Endif
967 EndFor
968 EndProc
969
970*========================================================================================
971
972 Procedure BuildSubSelectStatement_Sizer
973 Local lnLoops, lcLoops, lcSizebucket, lcSizeNumber, lcAddToSelect, lcSize_Desc
974
975 For lnloops = 1 TO goEnv.MaxBuckets
976 lcSizebucket = Alltrim(Str(lnloops))
977 lcSizeNumber = TRANS(lnloops, "@L 99")
978
979 lcSize_desc = 'size' + lcSizeNumber
980
981 *--- 33905 15-Oct-2002 GS --- No more SQL specific code
982*!* lcAddToSelect = "Select *, " + lcSizebucket + " As sizebucket, " + lcSize_desc + " As size_desc From " +;
983*!* .cTempTableName_SizerHorizontal + ;
984*!* " Where size" + lcSizeNumber + " <> ''"
985
986 lcAddToSelect = ;
987 "select " +.cTempTableName_SizerHorizontal + ".*,"+;
988 " " + lcSizebucket + " As sizebucket,"+;
989 " " + lcSize_Desc + " As size_desc " +;
990 " from " + .cTempTableName_SizerHorizontal + ;
991 " where size" + lcSizeNumber + " <> ''"
992 *=== 33905 15-Oct-2002 GS ===
993
994 .cSubSelectStatementSizer = .cSubSelectStatementSizer + lcAddToSelect
995 If lnloops <> goEnv.MaxBuckets
996 .cSubSelectStatementSizer = .cSubSelectStatementSizer + " Union All "
997 Else
998 .cSubSelectStatementSizer = .cSubSelectStatementSizer + ") As Cursor_BBB"
999 Endif
1000 EndFor
1001 EndProc
1002
1003*=============================================================================
1004
1005 ***override this procedure here because the old one in the base class
1006 ***can not deal with the search criteria from multi tables
1007 Procedure UpdateProcessedFlag
1008 Local llRetval, lnSelect, lcSQLCommandToUpdate, lcSQLCommandToGetCount, lnRecordsFlagged
1009
1010 llRetval = .T.
1011 lnSelect = Select()
1012 With This
1013 .olog.LogMajorStage('Starting: ' + Program())
1014 .InitThermo(1)
1015
1016 If .lFlagProcessed
1017 .UpdateThermoCaption( 'Updating Processed Flag (Back-end)...')
1018
1019 lcSQLRecordsToFlag = "Select pkey From " + .cTempTableName_OrderDetailHorizontal
1020 llRetval = llRetval And v_SQLExec(lcSQLRecordsToFlag, 'tcRecordsFlagged')
1021
1022 lnRecordsFlagged = Recc('tcRecordsFlagged')
1023
1024 ** Need sub-query here since the SQLFilterstring has aliases in it and the update command cannot have aliases
1025 lcSQLCommandToUpdate= "Update " + .cTableForProcessedFlag + ;
1026 " Set obr_proc = 'P' from "+;
1027 .cTempTableName_OrderDetailHorizontal + " d "+;
1028 " Where "+.cTableForProcessedFlag+".pkey=d.pkey"
1029
1030 .olog.LogEntry('Command to update processed flag: ' + lcSQLCommandToUpdate)
1031
1032 llRetval = llRetval And v_SQLExec(lcSQLCommandToUpdate)
1033
1034 *--- TR 1023459 05-JUN-2007 HNISAR
1035 lcSQLCommandToUpdate= "Update ZZOORDRH Set obr_proc = 'P' from "+;
1036 .cTempTableName_OrderDetailHorizontal + " d "+;
1037 " Where ZZOORDRH.pkey=d.FKEY"
1038
1039 llRetval = llRetval And v_SQLExec(lcSQLCommandToUpdate)
1040 *=== TR 1023459 05-JUN-2007 HNISAR
1041
1042 If llRetval
1043 .olog.LogEntry('Records flagged as processed: ' + Alltrim(Str(lnRecordsFlagged)) + '.')
1044 Else
1045 .olog.LogEntry('Error occured while flagging processed records.')
1046 .lNoError = .F.
1047 Endif
1048 Else
1049 .olog.LogEntry('Processed records were not set to be flagged as processed.')
1050 Endif
1051 .AdvanceThermo(1)
1052 Select (lnSelect)
1053 Endwith
1054 Return llRetval
1055 Endproc
1056
1057*------------------------------------------------------------------------------------------
1058
1059 Function FinalResolveStaticMapFieldsByMapType &&override the function in parent class
1060 lParameter pcMapType, pcDataCursor, pcMapCursor
1061 local llRetVal, lcCursorName, lcCursorName2, lcCursorName3, lnCnt, lcSQLCommand, lnPickNoRecno, ;
1062 lcCommand, lcHeading, lnCnt,lnDetCnt, lnIndex, lcChildCursorName && Tan 34181 - SST - 10/28/02
1063
1064 Local Array lcCoValues[9]
1065 local lnLine_Num, lnCOD
1066
1067 *---Tan 34181 - SST - 10/28/02
1068* dime aFieldArray[8,2]
1069* dime aFieldArray[9,2]
1070
1071 *--- 1005944 06/30/2004 Ilya
1072*---Ilya-Dime aFieldArray(11,2) &&Tan 35297 - SST - 11/07/02
1073 DIMENSION aFieldArray(12,2)
1074
1075 llRetVal = true
1076 lcHeading = 'Resolving smart data for: '+pcMapType
1077
1078 WITH THIS
1079 .olog.LogEntry(lcHeading)
1080
1081 DO CASE
1082 CASE pcMapType == "PICK_HEADER"
1083 .cHeaderCursor = pcDataCursor &&put the cursor of header in the property for comment use
1084
1085 lcChildCursorName =.aCursor_BCData[.GetIndexByMapType("PICK_DETAIL")] && For Detail Cursor
1086
1087 aFieldArray[1,1] = .GetCursorFieldName("ZZYOBRRF", "SHIPTO", pcMapCursor)
1088 aFieldArray[2,1] = .GetCursorFieldName("ZZYOBRRF", "SHIPTO_NAME", pcMapCursor)
1089 aFieldArray[3,1] = .GetCursorFieldName("ZZYOBRRF", "ADDRESS1", pcMapCursor)
1090 aFieldArray[4,1] = .GetCursorFieldName("ZZYOBRRF", "ADDRESS2", pcMapCursor)
1091 aFieldArray[5,1] = .GetCursorFieldName("ZZYOBRRF", "CITY", pcMapCursor)
1092 aFieldArray[6,1] = .GetCursorFieldName("ZZYOBRRF", "STATE", pcMapCursor)
1093 aFieldArray[7,1] = .GetCursorFieldName("ZZYOBRRF", "ZIPCODE", pcMapCursor)
1094 aFieldArray[8,1] = .GetCursorFieldName("ZZYOBRRF", "COUNTRY", pcMapCursor)
1095
1096 *---Tan 34181 - SST - 10/28/02
1097 aFieldArray[9,1] = .GetCursorFieldName("ZZYOBRRF", "LINE_NUM", pcMapCursor)
1098 *===Tan 34181 - SST - 10/28/02
1099
1100 *---Tan 35297 - SST - 11/07/02
1101 aFieldArray[10,1] = .GetCursorFieldName("ZZYOBRRF", "EDI_SHIPTO", pcMapCursor)
1102 aFieldArray[11,1] = .GetCursorFieldName("ZZYOBRRF", "DEPT_NAME", pcMapCursor)
1103 *===Tan 35297 - SST - 11/07/02
1104
1105 *--- 1005944 06/30/04 Ilya
1106 aFieldArray[12,1] = .GetCursorFieldName("ZZYOBRRF", "COD_AMT", pcMapCursor)
1107 *=== 1005944 06/30/04 Ilya
1108
1109 lcCursorName = GetUniqueFileName()
1110 .cHeaderCursor = GetUniqueFileName()
1111
1112 * --- TAN 35812 02/04/03 MB
1113 * added center_code and Customer to cursor to drive
1114 * a lookup of Dist Center in CASE pcMapType == "PICK_COMMENT"
1115 Create Cursor (.cHeaderCursor) (Pick_Num i, s_Code c(5), S_name c(30), ;
1116 s_Addr1 c(30), s_Addr2 c(30), s_City c(25), s_State c(3), ;
1117 s_ZipCode c(10), ship_dc c(1), center_code C(5), Customer C(7))
1118
1119 select (pcDataCursor)
1120 lnCnt = Reccount()
1121 .InitThermo(lnCnt)
1122 .UpdateThermoCaption( lcHeading + '...')
1123 go top
1124
1125 SCAN
1126 scatter memvar
1127 if bcaddres(m.Customer,, lcCursorName, m.Store, m.Ship_dc,;
1128 m.center_code, m.consol_code, m.Ord_num)
1129
1130 *---Tan35140 HH 10/25/02
1131 do case
1132 *case empty(m.Store) or empty(m.ship_dc)
1133 * aFieldArray[1,2] = m.Customer
1134 case allt(m.ship_dc)=='D'
1135 aFieldArray[1,2] = m.center_code
1136 case allt(m.ship_dc)=='C' or allt(m.ship_dc)=='B'
1137 aFieldArray[1,2] = m.consol_code
1138 case empty(m.Store)
1139 aFieldArray[1,2] = m.Customer
1140 otherwise
1141 aFieldArray[1,2] = m.store
1142 endcase
1143 *===Tan35140 HH 10/25/02
1144
1145 m.S_Code = aFieldArray[1,2]
1146
1147 *--- 1007619 12/09/2004 Ilya: take away macros:
1148*-Ilya--- aFieldArray[2,2] = &lcCursorName..S_name
1149*-Ilya--- aFieldArray[3,2] = &lcCursorName..s_addr1
1150*-Ilya--- aFieldArray[4,2] = &lcCursorName..s_addr2
1151*-Ilya--- aFieldArray[5,2] = &lcCursorName..s_city
1152*-Ilya--- aFieldArray[6,2] = &lcCursorName..s_state
1153*-Ilya--- aFieldArray[7,2] = &lcCursorName..s_zipCode
1154*-Ilya--- * aFieldArray[8,2] = &lcCursorName..s_country
1155*-Ilya--- aFieldArray[8,2] = &lcCursorName..s_country_code
1156 SELECT (lcCursorName)
1157 aFieldArray[2,2] = s_name
1158 aFieldArray[3,2] = s_addr1
1159 aFieldArray[4,2] = s_addr2
1160 aFieldArray[5,2] = s_city
1161 aFieldArray[6,2] = s_state
1162 aFieldArray[7,2] = s_zipCode
1163 aFieldArray[8,2] = s_country_code
1164 *=== 1007619 12/09/2004 Ilya.
1165
1166 *---Tan 34181 - SST - 10/28/02
1167 IF !Empty(lcChildCursorName)
1168 Select (lcChildCursorName)
1169*---Ilya- Count For Pick_Num = m.Pick_Num TO lnDetCnt
1170
1171 *--- TR 1060782 27-APR-2012 EBANDIERO - Detail is verticalized by size.
1172
1173 *CALCULATE CNT(), SUM(price * total_qty) FOR Pick_Num = m.Pick_Num TO lnDetCnt, lnCOD
1174 CALCULATE CNT(), SUM(price * size_qty) FOR Pick_Num = m.Pick_Num TO lnDetCnt, lnCOD
1175
1176 *=== TR 1060782 27-APR-2012 EBANDIERO
1177
1178 aFieldArray[9,2] = lnDetCnt
1179 aFieldArray[12,2] = lnCOD
1180
1181 Select (pcDataCursor)
1182 Else
1183 aFieldArray[9,2] = 0
1184 aFieldArray[12,2] = 0
1185 ENDIF
1186 *===Tan 34181 - SST - 10/28/02
1187
1188 *---Tan 35297 - SST - 11/07/02
1189 *--- 1007619 12/09/2004 Ilya: take away macros
1190*-Ilya--- aFieldArray[10,2] = &lcCursorName..s_edi_ship_to
1191 SELECT (lcCursorName)
1192 aFieldArray[10,2] = s_edi_ship_to
1193 *=== 1007619 12/09/2004 Ilya.
1194
1195 aFieldArray[11,2]= vl_cdepr(m.Customer,'dept_name','tcDeptName',m.Department,m.Division)
1196 *===Tan 35297 - SST - 11/07/02
1197
1198 select (lcCursorName)
1199* m.Pick_Num=&pcDataCursor..Pick_Num
1200 Scatter memvar
1201 Insert into (.cHeaderCursor) from memvar &&save the data in .cHeaderCursor for comment use
1202 endif
1203
1204 for lnCnt = 1 to ALEN(aFieldArray,1) &&8 Tan 35297 - SST - 11/07/02
1205 if type(pcDataCursor+"."+aFieldArray[lnCnt,1])<>'U'
1206 Replace (aFieldArray[lnCnt,1]) with aFieldArray[lnCnt,2] in (pcDataCursor)
1207 endif
1208 Endfor
1209
1210 select (pcDataCursor)
1211 if not llRetVal
1212 exit
1213 endif
1214 .AdvanceThermo(Recno(pcDataCursor))
1215 ENDSCAN
1216
1217 CASE pcMapType == "PICK_COMMENT"
1218 lcCursorName = GetUniqueFileName()
1219 lcCursorName2 = GetUniqueFileName()
1220
1221 aFieldArray[1,1] = .GetCursorFieldName("ZZYOBRRF", "CMT_CODE", pcMapCursor)
1222 aFieldArray[2,1] = .GetCursorFieldName("ZZYOBRRF", "LINE_NUM", pcMapCursor)
1223 aFieldArray[3,1] = .GetCursorFieldName("ZZYOBRRF", "CMMNT", pcMapCursor)
1224 aFieldArray[4,1] = .GetCursorFieldName("ZZYOBRRF", "CMT_TYPE", pcMapCursor)
1225
1226 Select * from (pcDataCursor) into cursor (lcCursorName)
1227 Delete from (pcDataCursor) &&Delete all the data in (pcDataCursor)
1228 &&because these records are empty
1229
1230 lnCnt = Reccount()
1231 .InitThermo(lnCnt)
1232 .UpdateThermoCaption( lcHeading + '...')
1233 SCAN
1234 Scatter memvar
1235
1236 if not empty(aFieldArray[4,1]) &&COMMENT TYPE
1237 lcCommand="m."+aFieldArray[4,1]+"='PT'"
1238 &lcCommand
1239 Endif
1240 if not empty(aFieldArray[1,1]) &&COMMENT CODE
1241 lcCommand="m."+aFieldArray[1,1]+"='01'"
1242 &lcCommand
1243 Endif
1244
1245 * --- TR 1034771 7/25/08 CM --- Added filter for comment code = 'K'
1246 lcSQLCommand = "SELECT CMT_CODE, Line_Num, CMMNT "+;
1247 "FROM ZZOORDCD "+;
1248 "WHERE ORD_NUM = ?m.Ord_Num and "+;
1249 " (CMT_Code='P' or CMT_Code='A' or CMT_Code='B' or CMT_Code='K') ORDER BY CMT_Code,line_num" &&& 1015446 AZ
1250 If .vSQLExec(lcSQLCommand, lcCursorName2)
1251 Select (lcCursorName2)
1252 SCAN
1253*!* if not empty(aFieldArray[1,1])
1254*!* lcCommand="m."+aFieldArray[1,1]+"=CMT_Code"
1255*!* &lcCommand
1256*!* Endif
1257
1258 *--- TAN 1015446 09-Feb-06 AZ
1259 if not empty(aFieldArray[4,1]) &&COMMENT TYPE
1260
1261 *--- TechRec 1022388 27-Feb-2007 JiSingh ---
1262 *lcCommand="m."+aFieldArray[4,1]+IIF(CMT_CODE = 'B',"='BL'","='PT'")
1263
1264 *--- TechRec 1036293 10/15/08 CM --- Added comment type for Pack List(PL)
1265 *lcCommand="m."+aFieldArray[4,1]+IIF(CMT_CODE = 'B',"='BL'",IIF(CMT_CODE = 'A' AND .lPKMSPickCommentAll, " ='ALL' ","='PT'"))
1266
1267 DO CASE
1268 CASE CMT_CODE = 'B'
1269 lcCommand="m."+aFieldArray[4,1]+"='BL'"
1270
1271 CASE CMT_CODE = 'A' AND .lPKMSPickCommentAll
1272 lcCommand="m."+aFieldArray[4,1]+" ='ALL' "
1273
1274 CASE CMT_CODE = 'K'
1275 lcCommand="m."+aFieldArray[4,1]+"='PL'"
1276
1277 OTHERWISE
1278 lcCommand="m."+aFieldArray[4,1]+"='PT'"
1279 ENDCASE
1280 *=== TechRec 1036293 10/15/08 CM
1281
1282 *=== TechRec 1022388 27-Feb-2007 JiSingh ===
1283
1284 &lcCommand
1285 ENDIF
1286 *=== TAN 1015446 09-Feb-06 AZ
1287
1288 if not empty(aFieldArray[2,1])
1289 lcCommand="m."+aFieldArray[2,1]+"=Line_Num"
1290 &lcCommand
1291 Endif
1292
1293 if not empty(aFieldArray[3,1])
1294 lcCommand="m."+aFieldArray[3,1]+"=CMMNT"
1295 &lcCommand
1296 Endif
1297 Insert into (pcDataCursor) From Memvar
1298 ENDSCAN
1299 Endif
1300
1301 lcSQLCommand = "SELECT CMT_CODE, Line_Num, CMMNT "+;
1302 "FROM ZZXCCMTR "+;
1303 "WHERE CUSTOMER = ?m.Customer and "+;
1304 " (CMT_Code='P' or CMT_Code='A' or CMT_Code='B') ORDER BY CMT_Code,line_num" &&& 1015446 AZ
1305 If .vSQLExec(lcSQLCommand, lcCursorName2)
1306 Select (lcCursorName2)
1307 SCAN
1308*!* if not empty(aFieldArray[1,1])
1309*!* lcCommand="m."+aFieldArray[1,1]+"=CMT_Code"
1310*!* &lcCommand
1311*!* Endif
1312
1313 *--- TAN 1015446 09-Feb-06 AZ
1314 if not empty(aFieldArray[4,1]) &&COMMENT TYPE
1315
1316 *--- TechRec 1022388 27-Feb-2007 JiSingh ---
1317 *lcCommand="m."+aFieldArray[4,1]+IIF(CMT_CODE = 'B',"='BL'","='PT'")
1318 lcCommand="m."+aFieldArray[4,1]+IIF(CMT_CODE = 'B',"='BL'",IIF(CMT_CODE = 'A' AND .lPKMSPickCommentAll, " ='ALL' ","='PT'"))
1319 *=== TechRec 1022388 27-Feb-2007 JiSingh ===
1320
1321 &lcCommand
1322 ENDIF
1323 *=== TAN 1015446 09-Feb-06 AZ
1324
1325 if not empty(aFieldArray[2,1])
1326 lcCommand="m."+aFieldArray[2,1]+"=Line_Num"
1327 &lcCommand
1328 Endif
1329
1330 if not empty(aFieldArray[3,1])
1331 lcCommand="m."+aFieldArray[3,1]+"=CMMNT"
1332 &lcCommand
1333 Endif
1334 Insert into (pcDataCursor) From Memvar
1335 ENDSCAN
1336 Endif
1337
1338 lcSQLCommand = "SELECT CMT_CODE,Line_Num, CMMNT FROM ZZXSCMTR "+;
1339 "WHERE CUSTOMER = ?m.Customer and Store=?m.Store and "+;
1340 " (CMT_Code='P' or CMT_Code='A' or CMT_Code='B') ORDER BY CMT_Code,line_num" &&& 1015446 AZ
1341 If .vSQLExec(lcSQLCommand, lcCursorName2)
1342 Select (lcCursorName2)
1343 SCAN
1344*!* if not empty(aFieldArray[1,1])
1345*!* lcCommand="m."+aFieldArray[1,1]+"=CMT_Code"
1346*!* &lcCommand
1347*!* Endif
1348
1349 *--- TAN 1015446 09-Feb-06 AZ
1350 if not empty(aFieldArray[4,1]) &&COMMENT TYPE
1351
1352 *--- TechRec 1022388 27-Feb-2007 JiSingh ---
1353 *lcCommand="m."+aFieldArray[4,1]+IIF(CMT_CODE = 'B',"='BL'","='PT'")
1354 lcCommand="m."+aFieldArray[4,1]+IIF(CMT_CODE = 'B',"='BL'",IIF(CMT_CODE = 'A' AND .lPKMSPickCommentAll, " ='ALL' ","='PT'"))
1355 *=== TechRec 1022388 27-Feb-2007 JiSingh ===
1356
1357 &lcCommand
1358 ENDIF
1359 *=== TAN 1015446 09-Feb-06 AZ
1360
1361 if not empty(aFieldArray[2,1])
1362 lcCommand="m."+aFieldArray[2,1]+"=Line_Num"
1363 &lcCommand
1364 Endif
1365
1366 if not empty(aFieldArray[3,1])
1367 lcCommand="m."+aFieldArray[3,1]+"=CMMNT"
1368 &lcCommand
1369 Endif
1370 Insert into (pcDataCursor) From Memvar
1371 ENDSCAN
1372 Endif
1373
1374 *--- 1005251 05/13/04 AD/IM
1375 IF (goEnv.SV("PKMS_PICK_COMMENT_DCADDRESS",'N') = 'Y') AND !EMPTY(.cHeaderCursor) &&& 1010520
1376
1377 if not empty(aFieldArray[4,1]) &&COMMENT TYPE
1378 lcCommand="m."+aFieldArray[4,1]+"='SH'"
1379 &lcCommand
1380 Endif
1381 if not empty(aFieldArray[1,1]) &&COMMENT CODE
1382 lcCommand="m."+aFieldArray[1,1]+"=' '"
1383 &lcCommand
1384 Endif
1385
1386 Select (.cHeaderCursor)
1387 lcCursorName3 = GetUniqueFileName() && TAN 35812
1388 locate for pick_Num = EVALUATE(lcCursorName + ".pick_Num") && 1007619 12/09/04 Ilya: took away macros
1389
1390 * --- TAN 35812 02/04/03 MB:
1391 * Always show Dist Center info in Comment SH.
1392 * Use vl_distr() to get DC address info into (lcCursorName3).
1393 *!* If Found() and not empty(ship_dc)
1394 IF FOUND() AND !EMPTY(Customer) AND !EMPTY(center_code) AND ;
1395 vl_distr(Customer, "", lcCursorName3, center_code)
1396
1397 SELECT (lcCursorName3)
1398 IF RECCOUNT() > 0
1399 * === TAN 35812 02/04/03 MB
1400
1401 &&first record
1402 if not empty(aFieldArray[2,1])
1403 lcCommand="m."+aFieldArray[2,1]+"=1"
1404 &lcCommand
1405 Endif
1406 if not empty(aFieldArray[3,1])
1407
1408 * --- TAN 35812 02/04/03 MB
1409 *lcCommand="m."+aFieldArray[3,1]+"=s_Name+space(33)+s_addr1"
1410 lcCommand="m."+aFieldArray[3,1]+"=Center_Name+space(33)+address1"
1411 * === TAN 35812 02/04/03 MB
1412
1413 &lcCommand
1414 Endif
1415 Insert into (pcDataCursor) From Memvar
1416 &&second record
1417 if not empty(aFieldArray[2,1])
1418 lcCommand="m."+aFieldArray[2,1]+"=2"
1419 &lcCommand
1420 Endif
1421 if not empty(aFieldArray[3,1])
1422
1423 * --- TAN 35812 02/04/03 MB
1424 *lcCommand="m."+aFieldArray[3,1]+"=s_addr2"
1425 lcCommand="m."+aFieldArray[3,1]+"=address2"
1426 * === TAN 35812 02/04/03 MB
1427
1428 &lcCommand
1429 Endif
1430 Insert into (pcDataCursor) From Memvar
1431 &&third record
1432 if not empty(aFieldArray[2,1])
1433 lcCommand="m."+aFieldArray[2,1]+"=3"
1434 &lcCommand
1435 Endif
1436 if not empty(aFieldArray[3,1])
1437
1438 * --- TAN 35812 02/04/03 MB
1439 *lcCommand="m."+aFieldArray[3,1]+"=s_City+space(35)+s_state+space(3)+s_zipcode"
1440 lcCommand="m."+aFieldArray[3,1]+"=City+space(35)+state+space(3)+zipcode"
1441 * === TAN 35812 02/04/03 MB
1442
1443 &lcCommand
1444 Endif
1445 Insert into (pcDataCursor) From Memvar
1446 ENDIF &&RECCOUNT() > 0
1447 ENDIF
1448
1449 .TableClose(lcCursorName3) && TAN 35812
1450 ENDIF
1451 *=== 1005251 05/13/04 AD/IM.
1452
1453 Select (lcCursorName)
1454 .AdvanceThermo(Recno())
1455 ENDSCAN
1456
1457 .TableClose(lcCursorName)
1458 .TableClose(lcCursorName2)
1459
1460 CASE pcMapType == "PICK_CMT_CO"&&34181
1461 lcCursorName = GetUniqueFileName()
1462 lcCursorName2 = GetUniqueFileName()
1463
1464 aFieldArray[1,1] = .GetCursorFieldName("ZZYOBRRF", "CMT_CODE", pcMapCursor)
1465 aFieldArray[2,1] = .GetCursorFieldName("ZZYOBRRF", "LINE_NUM", pcMapCursor)
1466 aFieldArray[3,1] = .GetCursorFieldName("ZZYOBRRF", "CMMNT", pcMapCursor)
1467 aFieldArray[4,1] = .GetCursorFieldName("ZZYOBRRF", "CMT_TYPE", pcMapCursor)
1468
1469 Select * from (pcDataCursor) into cursor (lcCursorName)
1470 Delete from (pcDataCursor) &&Delete all the data in (pcDataCursor)
1471 &&because these records are empty
1472
1473 lnCnt = Reccount()
1474 .InitThermo(lnCnt)
1475 .UpdateThermoCaption( lcHeading + '...')
1476 SCAN
1477 Scatter memvar
1478 lnLine_Num = 0
1479
1480 if not empty(aFieldArray[4,1]) &&COMMENT TYPE
1481 lcCommand="m."+aFieldArray[4,1]+"='PT'"
1482 &lcCommand
1483 Endif
1484 if not empty(aFieldArray[1,1]) &&COMMENT CODE
1485 lcCommand="m."+aFieldArray[1,1]+"='03'"
1486 &lcCommand
1487 Endif
1488
1489 lcSQLCommand = "SELECT CMT_CODE, Line_Num, CMMNT "+;
1490 "FROM ZZOORDCD "+;
1491 "WHERE ORD_NUM = ?m.Ord_Num and "+;
1492 "(CMT_Code='P' or CMT_Code='A') ORDER BY CMT_Code,line_num"
1493 If .vSQLExec(lcSQLCommand, lcCursorName2)
1494 Select (lcCursorName2)
1495 SCAN
1496 *!* if not empty(aFieldArray[1,1])
1497 *!* lcCommand="m."+aFieldArray[1,1]+"=CMT_Code"
1498 *!* &lcCommand
1499 *!* Endif
1500
1501 lnLine_Num = lnLine_Num + 1
1502 if not empty(aFieldArray[2,1])
1503 lcCommand="m."+aFieldArray[2,1]+"=lnLine_Num"
1504 &lcCommand
1505 Endif
1506
1507 if not empty(aFieldArray[3,1])
1508 lcCommand="m."+aFieldArray[3,1]+"=CMMNT"
1509 &lcCommand
1510 Endif
1511 Insert into (pcDataCursor) From Memvar
1512 ENDSCAN
1513 Endif
1514
1515 lcSQLCommand = "SELECT CMT_CODE, Line_Num, CMMNT "+;
1516 "FROM ZZXCCMTR "+;
1517 "WHERE CUSTOMER = ?m.Customer and "+;
1518 "(CMT_Code='P' or CMT_Code='A') ORDER BY CMT_Code,line_num"
1519 If .vSQLExec(lcSQLCommand, lcCursorName2)
1520 Select (lcCursorName2)
1521 SCAN
1522 *!* if not empty(aFieldArray[1,1])
1523 *!* lcCommand="m."+aFieldArray[1,1]+"=CMT_Code"
1524 *!* &lcCommand
1525 *!* Endif
1526
1527 lnLine_Num = lnLine_Num + 1
1528 if not empty(aFieldArray[2,1])
1529 lcCommand="m."+aFieldArray[2,1]+"=lnLine_Num"
1530 &lcCommand
1531 Endif
1532
1533 if not empty(aFieldArray[3,1])
1534 lcCommand="m."+aFieldArray[3,1]+"=CMMNT"
1535 &lcCommand
1536 Endif
1537 Insert into (pcDataCursor) From Memvar
1538 ENDSCAN
1539 Endif
1540
1541 lcSQLCommand = "SELECT CMT_CODE,Line_Num, CMMNT FROM ZZXSCMTR "+;
1542 "WHERE CUSTOMER = ?m.Customer and Store=?m.Store and "+;
1543 "(CMT_Code='P' or CMT_Code='A') ORDER BY CMT_Code,line_num"
1544 If .vSQLExec(lcSQLCommand, lcCursorName2)
1545 Select (lcCursorName2)
1546 SCAN
1547 *!* if not empty(aFieldArray[1,1])
1548 *!* lcCommand="m."+aFieldArray[1,1]+"=CMT_Code"
1549 *!* &lcCommand
1550 *!* Endif
1551
1552 lnLine_Num = lnLine_Num + 1
1553 if not empty(aFieldArray[2,1])
1554 lcCommand="m."+aFieldArray[2,1]+"=lnLine_Num"
1555 &lcCommand
1556 Endif
1557
1558 if not empty(aFieldArray[3,1])
1559 lcCommand="m."+aFieldArray[3,1]+"=CMMNT"
1560 &lcCommand
1561 Endif
1562 Insert into (pcDataCursor) From Memvar
1563 ENDSCAN
1564 ENDIF
1565
1566 if not empty(aFieldArray[4,1]) &&COMMENT TYPE
1567 lcCommand="m."+aFieldArray[4,1]+"='BL'"
1568 &lcCommand
1569 Endif
1570 if not empty(aFieldArray[1,1]) &&COMMENT CODE
1571 lcCommand="m."+aFieldArray[1,1]+"='SI'"
1572 &lcCommand
1573 Endif
1574 lcSQLCommand = "SELECT CMT_CODE, Line_Num, CMMNT "+;
1575 "FROM ZZOORDCD "+;
1576 "WHERE ORD_NUM = ?m.Ord_Num and "+;
1577 " CMT_Code='B' ORDER BY CMT_Code,line_num"
1578 If .vSQLExec(lcSQLCommand, lcCursorName2)
1579 Select (lcCursorName2)
1580 SCAN
1581 lnLine_Num = lnLine_Num + 1
1582 if not empty(aFieldArray[2,1])
1583 lcCommand="m."+aFieldArray[2,1]+"=lnLine_Num"
1584 &lcCommand
1585 Endif
1586 if not empty(aFieldArray[3,1])
1587 lcCommand="m."+aFieldArray[3,1]+"=CMMNT"
1588 &lcCommand
1589 Endif
1590 Insert into (pcDataCursor) From Memvar
1591 ENDSCAN
1592 Endif
1593
1594 lcSQLCommand = "SELECT CMT_CODE, Line_Num, CMMNT "+;
1595 "FROM ZZXCCMTR "+;
1596 "WHERE CUSTOMER = ?m.Customer and "+;
1597 " CMT_Code='B' ORDER BY CMT_Code,line_num"
1598 If .vSQLExec(lcSQLCommand, lcCursorName2)
1599 Select (lcCursorName2)
1600 SCAN
1601 lnLine_Num = lnLine_Num + 1
1602 if not empty(aFieldArray[2,1])
1603 lcCommand="m."+aFieldArray[2,1]+"=lnLine_Num"
1604 &lcCommand
1605 Endif
1606 if not empty(aFieldArray[3,1])
1607 lcCommand="m."+aFieldArray[3,1]+"=CMMNT"
1608 &lcCommand
1609 Endif
1610 Insert into (pcDataCursor) From Memvar
1611 ENDSCAN
1612 Endif
1613
1614 lcSQLCommand = "SELECT CMT_CODE,Line_Num, CMMNT FROM ZZXSCMTR "+;
1615 "WHERE CUSTOMER = ?m.Customer and Store=?m.Store and "+;
1616 " CMT_Code='B' ORDER BY CMT_Code,line_num"
1617 If .vSQLExec(lcSQLCommand, lcCursorName2)
1618 Select (lcCursorName2)
1619 SCAN
1620 lnLine_Num = lnLine_Num + 1
1621 if not empty(aFieldArray[2,1])
1622 lcCommand="m."+aFieldArray[2,1]+"=lnLine_Num"
1623 &lcCommand
1624 Endif
1625 if not empty(aFieldArray[3,1])
1626 lcCommand="m."+aFieldArray[3,1]+"=CMMNT"
1627 &lcCommand
1628 Endif
1629 Insert into (pcDataCursor) From Memvar
1630 ENDSCAN
1631 Endif
1632
1633 if not empty(aFieldArray[4,1]) &&COMMENT TYPE
1634 lcCommand="m."+aFieldArray[4,1]+"='CO'"
1635 &lcCommand
1636 Endif
1637 Select (.cHeaderCursor)
1638 locate for pick_Num = EVALUATE(lcCursorName + ".pick_Num") && 1007619 12/09/04 Ilya: took away macros
1639 If Found() &&should always found
1640
1641 *---TAN 38333 HH 04/04/03
1642 * Send SH record unconditionally
1643 *If not empty(ship_dc)
1644 *===TAN 38333 HH 04/04/03
1645
1646 lcCoValues[1] = Alltrim(S_Code)
1647 lcCoValues[2] = Alltrim(s_Name)
1648 lcCoValues[3] = Alltrim(s_addr1)
1649 lcCoValues[4] = Alltrim(s_addr2)
1650 lcCoValues[5] = ''
1651 lcCoValues[6] = Alltrim(s_City)
1652 lcCoValues[7] = Alltrim(s_state)
1653 lcCoValues[8] = Alltrim(s_zipcode)
1654 lcCoValues[9] = 'USA'
1655
1656 For lnIndex =1 to 9
1657 lnLine_Num = lnLine_Num + 1
1658 if not empty(aFieldArray[2,1])
1659 lcCommand="m."+aFieldArray[2,1]+" = lnLine_Num"
1660 &lcCommand
1661 Endif
1662 if not empty(aFieldArray[1,1])
1663 lcCommand="m."+aFieldArray[1,1]+" = Alltrim(Str(lnIndex))"
1664 &lcCommand
1665 Endif
1666 if not empty(aFieldArray[3,1])
1667 lcCommand="m."+aFieldArray[3,1]+" = lcCoValues[lnIndex]"
1668 &lcCommand
1669 Endif
1670 Insert into (pcDataCursor) From Memvar
1671 EndFor
1672 *Endif
1673 EndIf
1674
1675 if not empty(aFieldArray[4,1]) &&COMMENT TYPE
1676 lcCommand="m."+aFieldArray[4,1]+"='SI'"
1677 &lcCommand
1678 Endif
1679 if not empty(aFieldArray[1,1])&&Code
1680 lcCommand="m."+aFieldArray[1,1]+" = ' '"
1681 &lcCommand
1682 Endif
1683 lnLine_Num = lnLine_Num + 1
1684 if not empty(aFieldArray[2,1])&&Line Number
1685 lcCommand="m."+aFieldArray[2,1]+" = lnLine_Num"
1686 &lcCommand
1687 Endif
1688 if not empty(aFieldArray[3,1])&&comment
1689 lcCommand="m."+aFieldArray[3,1]+" = '"+Alltrim(Department)+"'"
1690 &lcCommand
1691 Endif
1692 Insert into (pcDataCursor) From Memvar
1693
1694 lnLine_Num = lnLine_Num + 1
1695 if not empty(aFieldArray[2,1])&&Line Number
1696 lcCommand="m."+aFieldArray[2,1]+" = lnLine_Num"
1697 &lcCommand
1698 Endif
1699 if not empty(aFieldArray[4,1]) &&COMMENT TYPE
1700 lcCommand="m."+aFieldArray[4,1]+"='SH'"
1701 &lcCommand
1702 Endif
1703 if not empty(aFieldArray[1,1])&&Code
1704 lcCommand="m."+aFieldArray[1,1]+" = '04'"
1705 &lcCommand
1706 Endif
1707 if not empty(aFieldArray[3,1])&&Comment
1708 lcCommand = "m."+aFieldArray[3,1]
1709 &lcCommand = vl_cdepr(m.Customer,'dept_name','tcDeptName',m.Department,m.Division)
1710 Endif
1711 Insert into (pcDataCursor) From Memvar
1712
1713 Select (lcCursorName)
1714 .AdvanceThermo(Recno())
1715 ENDSCAN
1716 .TableClose(lcCursorName)
1717 .TableClose(lcCursorName2)
1718
1719 CASE pcMapType == "PICK_DETAIL"
1720 aFieldArray[1,1] = .GetCursorFieldName("ZZYOBRRF", "DISC_AMT", pcMapCursor)
1721 aFieldArray[2,1] = .GetCursorFieldName("ZZYOBRRF", "EST_WGT", pcMapCursor)
1722 aFieldArray[3,1] = .GetCursorFieldName("ZZYOBRRF", "LINE_NUM", pcMapCursor)
1723 select (pcDataCursor)
1724 lnCnt = Reccount()
1725 .InitThermo(lnCnt)
1726 .UpdateThermoCaption( lcHeading + '...')
1727
1728 *--- 1005944 07/19/2004 Ilya: Line counter per order
1729 lnPickNoRecno = 0
1730 lnPickNo = 0
1731 *=== 1005944 07/19/2004 Ilya.
1732
1733 SCAN
1734 IF pick_num <> lnPickNo
1735 * Reset lnPickNoRecno for each order
1736 lnPickNoRecno = 0
1737 lnPickNo = pick_num
1738 ENDIF
1739 lnPickNoRecno = lnPickNoRecno + 1
1740
1741 IF NOT EMPTY(aFieldArray[1,1])
1742 replace (aFieldArray[1,1]) with ;
1743 round(GetDiscPerc(EVALUATE(pcDataCursor + ".Discount"))/100*Price,2) in (pcDataCursor) && 1007619 12/09/04 Ilya: took away macros
1744 ENDIF
1745
1746 IF NOT EMPTY(aFieldArray[2,1])
1747 replace (aFieldArray[2,1]) with ;
1748 total_qty*gar_wgt in (pcDataCursor)
1749 ENDIF
1750
1751 IF NOT EMPTY(aFieldArray[3,1])
1752 replace (aFieldArray[3,1]) with ;
1753 lnPickNoRecno in (pcDataCursor)
1754 ENDIF
1755
1756 select (pcDataCursor)
1757 .AdvanceThermo(Recno())
1758 ENDSCAN
1759 OTHERWISE
1760 &&do nothing
1761 ENDCASE
1762
1763 .olog.LogResult(llRetVal, lcHeading)
1764 ENDWITH
1765
1766 return llRetVal
1767 EndFunc
1768
1769*========================================================================================
1770* Executes the SQL command to retrieve the BC data
1771*========================================================================================
1772
1773 *--- TR 1004074 MAR1204 NH
1774 Procedure RetrieveBCData
1775
1776 local llRetVal
1777 local lnPickDTL
1778
1779 llRetVal = DoDefault()
1780
1781 if llRetVal
1782 lnPickDTL = -1
1783 with this
1784 for lnLoops = 1 to .nMapsInBridge
1785 if .aMapsForBridge[lnLoops] = 'PICK_DETAIL'
1786 lnPickDTL = lnLoops
1787 exit
1788 endif
1789 endfor
1790 if lnPickDTL > 0
1791
1792 *--- TR 1006405 AUG-03-04 NH
1793*!* llRetVal = .ValidatePICKDTL_UPC(lnPickDTL)
1794 if goEnv.SV("PKMS_PICK_VALIDATE_UPC",'Y') == 'Y'
1795 llRetVal = .ValidatePICKDTL_UPC(lnPickDTL)
1796 endif
1797 *=== TR 1006405 AUG-03-04 NH
1798
1799 else
1800 .olog.LogEntry("clsobrpk.RetrieveBCData() : Unable to Find PICK_DETAIL in .aMapsForBridge[]!")
1801 llRetVal = .f.
1802 endif
1803 endwith
1804 endif
1805
1806 return llRetVal
1807 EndProc
1808
1809*----------------------------------------------------------------------------------
1810
1811 procedure ValidatePICKDTL_UPC
1812 lparam tnPickDTL
1813
1814 local lnLoops
1815 local loPickDtl
1816 local lnOldSelect
1817 local lnCount
1818 local lnRecCount
1819
1820 lnCount = 0
1821 llRetVAL = .f.
1822
1823 if empty(tnPickDTL) or tnPickDTL < 1
1824 return llRetVal
1825 endif
1826
1827 llRetVal = .T.
1828 lnOldSelect = select()
1829 with this
1830 select(.aCursor_BCData[tnPickDTL])
1831 lnRecCount = reccount(.aCursor_BCData[tnPickDTL])
1832 .InitThermo(1)
1833 .olog.LogEntry("Starting... " + program())
1834 .UpdateThermoCaption('Checking for missing UPC... ')
1835 scan
1836 scatter name loPickDtl
1837 if .ValidUPC(loPickDtl)
1838 * do nothing
1839 else
1840 * FAIL ENTIRE PROCESS BATCH
1841 llRetVal = .F.
1842 endif
1843 lnCount = lnCount + 1
1844 .AdvanceThermo((lnCount/lnRecCount))
1845 endscan
1846 release loPickDtl
1847 endwith
1848 select(lnOldSelect)
1849 return llRetVal
1850 endproc
1851
1852*----------------------------------------------------------------------------------
1853
1854 procedure ValidUPC
1855 lparam toPickDtl
1856
1857 local llRetVal
1858 local lnOldSelect
1859 local lcLogMsg
1860 local lcSQL, lcOrdDtl, loOrdDtl, lcSKU
1861
1862 lnOldSelect = select()
1863 llRetVal = .f.
1864
1865 do case
1866 case empty(toPickDtl.UPC_NUM)
1867 lcLogMsg = " UPC missing in "
1868 * As per AD:
1869 * no need to check for valid upc here as they are suppose to be valid
1870 * and hitting the server for UPC validation each time
1871 * will be slow down the process significantly.
1872 otherwise
1873 llRetVal = .t.
1874 endcase
1875
1876 if llRetVal
1877 * do nothing
1878 else
1879 lcSQL = " Select d.ord_num, d.division, d.style, d.color_code, " +;
1880 " d.lbl_code, d.dimension, d.line_seq, d.pick_num " + ;
1881 " From ZZOORDRD d WHERE d.pkey = " + SQLFormatNUM(toPickDTL.Ord_Dtl_Pkey)
1882
1883 lcOrdDtl = GetUniqueFilename()
1884 if v_SQLExec(lcSQL,lcOrdDtl)
1885 select(lcOrdDtl)
1886 scatter name loOrdDtl
1887
1888 lcSKU = " Order num " + SQLFormatNUM(loOrdDtl.ORD_NUM) +;
1889 ", Pick num " + SQLFormatNUM(loOrdDtl.Pick_num) +;
1890 ", Division " + SQLFormatChar(loOrdDtl.Division) +;
1891 ", Style " + SQLFormatChar(loOrdDtl.Style) +;
1892 ", Color " + SQLFormatChar(loOrdDtl.Color_code) +;
1893 ", Label " + SQLFormatChar(loOrdDtl.lbl_code) +;
1894 ", Dim " + SQLFormatChar(loOrdDtl.Dimension) +;
1895 ", line Seq " + SQLFormatNUM(loOrdDtl.line_Seq)
1896
1897 lcLogMsg = lcLogMsg + lcSKU
1898 release loOrdDtl
1899 endif
1900 if used(lcOrdDtl)
1901 use in (lcOrdDtl)
1902 endif
1903 this.olog.LogEntry(lcLogMsg)
1904 endif
1905
1906 select(lnOldSelect)
1907 return llRetVal
1908 endproc
1909 *=== TR 1004074 MAR1204 NH
1910
1911*----------------------------------------------------------------------------------
1912
1913 FUNCTION ResolveBridgeRecCounter
1914 lParameter pcDataCursor, pcMapCursor, pcMap_Type
1915
1916 * Special case: If this is COMMENT map and output is the same as DETAIL - use the DETAIL counter
1917 * for both
1918 IF .aOutboundFileName[.GetIndexByMapType(pcMap_Type)] == .aOutboundFileName[.GetIndexByMapType("PICK_DETAIL")]
1919 pcMap_Type = "PICK_DETAIL"
1920 ENDIF
1921 llRetVal = DODEFAULT(pcDataCursor, pcMapCursor, pcMap_Type)
1922 RETURN llRetVal
1923 ENDFUNC
1924
1925*==============================================================
1926
1927 *--- TR 1009835 6-APR-2005 VKK
1928 FUNCTION ExplodeMasterQuantity
1929 LPARAMETERS pcSelectList
1930 LOCAL llRetVal, lnSelect
1931
1932 llRetVal = true
1933 lnSelect = SELECT()
1934
1935 IF This.lPKMS_Explode_Implode_Cases
1936
1937 FOR lnSizes = 1 TO 24
1938 lcSizes = "ZZOORDRD.SIZE" + TRANS(lnSizes, "@L 99") + "_QTY"
1939
1940 IF ATC(lcSizes, pcSelectList) > 0
1941
1942 *--- TR 1010638 25-APR-2005 VKK Changed mst_Qty to Min_Multiple
1943 pcSelectList = STRTRAN(pcSelectList, lcSizes, lcSizes + " / zzxscolr.Min_Multiple ")
1944 ENDIF
1945
1946 ENDFOR
1947
1948 *--- TR 1010638 25-APR-2005 VKK Changed mst_Qty to Min_Multiple
1949 pcSelectList = pcSelectList + ", zzoordrd.total_Qty / zzxscolr.Min_Multiple AS Total_Qty "
1950
1951 *--- TR 1010638 25-APR-2005 VKK Changed mst_Qty to Min_Multiple
1952 IF ATC("ZZOORDRD.TOTAL_QTY", pcSelectList) > 0
1953 pcSelectList = STRTRAN(pcSelectList , "ZZOORDRD.TOTAL_QTY", " ZZOORDRD.TOTAL_QTY / zzxscolr.Min_Multiple")
1954 ELSE
1955 pcSelectList = pcSelectList + ", ZZOORDRD.TOTAL_QTY / zzxscolr.Min_Multiple AS Total_Qty "
1956 ENDIF
1957
1958 *--- TR 1010638 25-APR-2005 VKK Changed mst_Qty to Min_Multiple
1959 IF ATC("ZZOORDRD.QUANTITY", pcSelectList) > 0
1960 pcSelectList = STRTRAN(pcSelectList , "ZZOORDRD.QUANTITY", " ZZOORDRD.QUANTITY / zzxscolr.Min_Multiple")
1961 ENDIF
1962
1963 ELSE
1964 pcSelectList = pcSelectList + ", zzoordrd.total_Qty "
1965 ENDIF
1966
1967 SELECT (lnSelect)
1968 RETURN pcSelectList
1969 ENDFUNC
1970 *=== TR 1009835 6-APR-2005 VKK
1971
1972*=====================================================================================
1973
1974 *--- TR 1016439 04/12/06 VK
1975 FUNCTION ConvertCustomFormulas
1976 PARAMETERS tcString, tcMapCursor
1977 LOCAL lcSQLString
1978 DIMENSION laBrdgAlias[1]
1979
1980 WITH This
1981 *-- Build Bridge Table alias array
1982 Do Case
1983 Case .aMapsForBridge[lnLoops] = 'PICK_HEADER'
1984
1985 DIMENSION laBrdgAlias[15, 2]
1986
1987 laBrdgAlias[1, 1] = 'ZZYOBRRF'
1988 laBrdgAlias[1, 2] = 'ZZYOBRRF'
1989
1990 laBrdgAlias[2, 1] = 'ZZOORDRH'
1991 laBrdgAlias[2, 2] = 'ZZOORDRH'
1992
1993 laBrdgAlias[3, 1] = 'ZZOORDRD'
1994 laBrdgAlias[3, 2] = 'ZZOORDRD'
1995
1996 laBrdgAlias[4, 1] = 'ZZXCUSTR'
1997 laBrdgAlias[4, 2] = 'ZZXCUSTR'
1998
1999 laBrdgAlias[5, 1] = 'ZZXSTORR'
2000 laBrdgAlias[5, 2] = 'ZZXSTORR'
2001
2002 laBrdgAlias[6, 1] = 'ZZXTERMR'
2003 laBrdgAlias[6, 2] = 'ZZXTERMR'
2004
2005 laBrdgAlias[7, 1] = 'ZZXCOMPR'
2006 laBrdgAlias[7, 2] = 'ZZXCOMPR'
2007
2008 laBrdgAlias[8, 1] = 'ZZXDIVSR'
2009 laBrdgAlias[8, 2] = 'ZZXDIVSR'
2010
2011 laBrdgAlias[9, 1] = 'ZZXSHIPR'
2012 laBrdgAlias[9, 2] = 'ZZXSHIPR'
2013
2014 laBrdgAlias[10, 1] = 'ZZXDISTR'
2015 laBrdgAlias[10, 2] = 'ZZXDISTR'
2016
2017 laBrdgAlias[11, 1] = 'VVXDISTR'
2018 laBrdgAlias[11, 2] = 'VVXDISTR'
2019
2020 *--- TechRec 1057932 12-Dec-2011 vkrishnamurthy ---
2021*!* laBrdgAlias[12, 1] = 'ZZEOOWCR'
2022*!* laBrdgAlias[12, 2] = 'ZZEOOWCR'
2023 laBrdgAlias[12, 1] = 'ZZEOOWCR_EXPL'
2024 laBrdgAlias[12, 2] = 'ZZEOOWCR_EXPL'
2025 *=== TechRec 1057932 12-Dec-2011 vkrishnamurthy ===
2026
2027 laBrdgAlias[13, 1] = 'ZZXCOMMU'
2028 laBrdgAlias[13, 2] = 'ZZXCOMMU'
2029
2030 laBrdgAlias[14, 1] = 'ZVOSHIPTO_MARKFOR'
2031 laBrdgAlias[14, 2] = 'ZVOSHIPTO_MARKFOR'
2032
2033 laBrdgAlias[15, 1] = 'ZZYUPSBR'
2034 laBrdgAlias[15, 2] = 'ZZYUPSBR'
2035
2036 Case .aMapsForBridge[lnLoops] = 'PICK_DETAIL'
2037
2038 *--- TR 1033215 20-Jun-2008 Goutam. made laBrdgAlias[13, 2] to laBrdgAlias[14, 2]
2039 DIMENSION laBrdgAlias[14, 2]
2040
2041 laBrdgAlias[1, 1] = 'ZZYOBRRF'
2042 laBrdgAlias[1, 2] = 'ZZYOBRRF'
2043
2044 laBrdgAlias[2, 1] = 'ZZOORDRH'
2045 laBrdgAlias[2, 2] = 'ZZOORDRH'
2046
2047 laBrdgAlias[3, 1] = .cTempTableName_OrderDetailVertical
2048 laBrdgAlias[3, 2] = 'ZZOORDRD'
2049
2050 laBrdgAlias[4, 1] = 'ZZXCSTDR'
2051 laBrdgAlias[4, 2] = 'ZZXCSTDR'
2052
2053 laBrdgAlias[5, 1] = 'ZZXCSTHR'
2054 laBrdgAlias[5, 2] = 'ZZXCSTHR'
2055
2056 laBrdgAlias[6, 1] = 'ZZXSTORR'
2057 laBrdgAlias[6, 2] = 'ZZXSTORR'
2058
2059 laBrdgAlias[7, 1] = 'ZZXSCOLR'
2060 laBrdgAlias[7, 2] = 'ZZXSCOLR'
2061
2062 laBrdgAlias[8, 1] = 'ZZXSTYLR'
2063 laBrdgAlias[8, 2] = 'ZZXSTYLR'
2064
2065 laBrdgAlias[9, 1] = 'ZZXCOLRR'
2066 laBrdgAlias[9, 2] = 'ZZXCOLRR'
2067
2068 laBrdgAlias[10, 1] = .cTempTableName_SizerVertical
2069 laBrdgAlias[10, 2] = 'ZZXSIZER'
2070
2071 laBrdgAlias[11, 1] = 'ZZEUPCNR'
2072 laBrdgAlias[11, 2] = 'ZZEUPCNR'
2073
2074 laBrdgAlias[12, 1] = 'ZZXDISTR'
2075 laBrdgAlias[12, 2] = 'DCNT'
2076
2077 laBrdgAlias[13, 1] = 'ZZXDISTR'
2078 laBrdgAlias[13, 2] = 'CCNT'
2079
2080 *--- TR 1033215 20-Jun-2008 Goutam
2081 laBrdgAlias[14, 1] = 'ZVOSHIPTO_MARKFOR'
2082 laBrdgAlias[14, 2] = 'ZVOSHIPTO_MARKFOR'
2083 *=== TR 1033215 20-Jun-2008 Goutam
2084
2085 Case .aMapsForBridge[lnLoops] = 'PICK_COMMENT' OR ;
2086 .aMapsForBridge[lnLoops] = 'PICK_CMT_CO'
2087
2088 DIMENSION laBrdgAlias[3, 2]
2089
2090 laBrdgAlias[1, 1] = 'ZZYOBRRF'
2091 laBrdgAlias[1, 2] = 'ZZYOBRRF'
2092
2093 laBrdgAlias[2, 1] = 'ZZOORDRH'
2094 laBrdgAlias[2, 2] = 'ZZOORDRH'
2095
2096 laBrdgAlias[3, 1] = 'ZZOORDRD'
2097 laBrdgAlias[3, 2] = 'ZZOORDRD'
2098
2099 *---TR 1017130 VK 09-JUN- 2006
2100 *!* Case .aMapsForBridge[lnLoops] = 'PICK_ADDRESS'
2101 Case .aMapsForBridge[lnLoops] = 'PICK_ADDRESS' OR ;
2102 .aMapsForBridge[lnLoops] = 'PICK_ADR1' OR ;
2103 .aMapsForBridge[lnLoops] = 'PICK_ADR2' OR ;
2104 .aMapsForBridge[lnLoops] = 'PICK_ADR3'
2105 *====TR 1017130 VK 09-JUN- 2006
2106
2107 DIMENSION laBrdgAlias[4, 2]
2108
2109 laBrdgAlias[1, 1] = 'ZZYOBRRF'
2110 laBrdgAlias[1, 2] = 'ZZYOBRRF'
2111
2112 laBrdgAlias[2, 1] = 'ZZOORDRH'
2113 laBrdgAlias[2, 2] = 'ZZOORDRH'
2114
2115 laBrdgAlias[3, 1] = 'ZZOORDRD'
2116 laBrdgAlias[3, 2] = 'ZZOORDRD'
2117
2118 laBrdgAlias[4, 1] = 'ZZORDAD2'
2119 laBrdgAlias[4, 2] = 'ZZORDAD2'
2120
2121 *--- TR 1022541 20-APR-2007 Goutam
2122 Case .aMapsForBridge[lnLoops] = 'PICK_FRM'
2123
2124 DIMENSION laBrdgAlias[6, 2]
2125
2126 laBrdgAlias[1, 1] = 'ZZOORDRH'
2127 laBrdgAlias[1, 2] = 'ZZOORDRH'
2128
2129 laBrdgAlias[2, 1] = 'ZZOORDRD'
2130 laBrdgAlias[2, 2] = 'ZZOORDRD'
2131
2132 laBrdgAlias[3, 1] = 'ZZOFCHRG'
2133 laBrdgAlias[3, 2] = 'ZZOFCHRG'
2134
2135 laBrdgAlias[4, 1] = 'ZZXFRMCT'
2136 laBrdgAlias[4, 2] = 'ZZXFRMCT'
2137
2138 laBrdgAlias[5, 1] = 'ZZXFRCHR'
2139 laBrdgAlias[5, 2] = 'ZZXFRCHR'
2140 *=== TR 1022541 20-APR-2007 Goutam
2141
2142 ENDCASE
2143 lcSQLString = tcString
2144 .oBPOFormula.BuildFormulaString(@lcSQLString, .aCursor_MappingInfo[lnLoops], @laBrdgAlias)
2145 tcString = lcSQLString
2146
2147 ENDWITH
2148
2149 ENDFUNC
2150 *=== TR 1016439 04/12/06 VK
2151
2152*========================================================================================
2153
2154 *---TR 1017130 09/JUN/06 VK
2155 * Overriding this method from base for pick_address
2156 Procedure GetArrayOfBridgesInBridgeGroup
2157 Local llRetval, lnSelect, lcLogText, lnMapsInBridge, lcMapCode, lnCurrentMap, lcSQLCommand
2158
2159 *--- TR 1034032 20-Aug-2008 Partha ---
2160 LOCAL lnIncludeChrgesIndex
2161 *=== TR 1034032 20-Aug-2008 Partha ===
2162
2163 llRetval = .T.
2164 lnSelect = Select()
2165 With This
2166 .olog.LogMajorStage('Starting: ' + Program())
2167 .InitThermo(1)
2168 .UpdateThermoCaption('Retrieving Maps for Bridge...')
2169
2170 llRetval = llRetval And vl_Bridge_Maps(.cBridge,,'Cursor_BridgeMaps')
2171 llRetVal = llRetVal AND .ValidateParameterBRO() &&--- Tr 1096587 23Jun2016 Dilip ===
2172
2173 If llRetval
2174 .nMapsInBridge = Recc('Cursor_BridgeMaps')
2175 lcLogText = 'Total Maps in ' + Upper(Alltrim(.cBridge)) + ': ' + Alltrim(Str(.nMapsInBridge)) + '.'
2176 .olog.LogEntry(lcLogText)
2177 Endif
2178
2179 *--- TR 1022541 21-Apr-2007 Goutam Deleted following line
2180 *IF NOT .lExportAddressFile
2181 * .nMapsInBridge = 3
2182 *ENDIF
2183 *=== TR 1022541 21-Apr-2007 Goutam
2184
2185 llRetval = llRetval And .nMapsInBridge > 0
2186 If llRetval
2187 Dimension .aMapsForBridge[.nMapsInBridge]
2188 Select Cursor_BridgeMaps
2189 lnCurrentMap = 0
2190 SCAN
2191 IF .lExportAddressFile AND EMPTY(def_vers) ;
2192 AND INLIST(MAP_CODE,"PICK_ADDRESS","PICK_ADR1","PICK_ADR2","PICK_ADR3")
2193 LOOP
2194 ENDIF
2195
2196 *--- TR 1022541 21-Apr-2007 Goutam
2197 IF NOT .lExportAddressFile AND INLIST(MAP_CODE,"PICK_ADDRESS","PICK_ADR1","PICK_ADR2","PICK_ADR3")
2198 LOOP
2199 ENDIF
2200 *=== TR 1022541 21-Apr-2007 Goutam
2201
2202 *--- TR 1023536 04/24/07 HNISAR && Process Giving Error when Sparrow is No
2203 IF NOT .lUseFRMCodes AND INLIST(MAP_CODE,"PICK_FRM")
2204 LOOP
2205 ENDIF
2206 *=== TR 1023536 04/24/07 HNISAR
2207
2208 *--- TR 1034032 20-Aug-2008 Partha ---
2209 IF NOT .lIncludePickCharges AND INLIST(MAP_CODE,"PICK_CHRGS")
2210 LOOP
2211 ENDIF
2212 *=== TR 1034032 20-Aug-2008 Partha ===
2213
2214 *--- TR 1040437 03-June-2009 Goutam
2215 IF NOT .lIncludeSLNs AND INLIST(MAP_CODE,"PICK_SLN")
2216 LOOP
2217 ENDIF
2218 *=== TR 1040437 03-June-2009 Goutam
2219
2220 lnCurrentMap = lnCurrentMap + 1
2221 lcMapCode = Cursor_BridgeMaps.map_code
2222 .aMapsForBridge[lnCurrentMap] = Upper(Alltrim(lcMapCode))
2223
2224 lcLogText = 'Map # ' + Alltrim(Str(lnCurrentMap)) + ' is ' +;
2225 Upper(Alltrim(lcMapCode)) + '.'
2226 .olog.LogEntry(lcLogText)
2227
2228 *--- TR 1022541 21-Apr-2007 Goutam Deleted following line
2229 *IF lnCurrentMap = .nMapsInBridge
2230 * EXIT
2231 *ENDIF
2232 *=== TR 1022541 21-Apr-2007 Goutam
2233
2234 ENDSCAN
2235
2236 *--- TR 1022541 21-Apr-2007 Goutam
2237 *IF .lExportAddressFile
2238 * .nMapsInBridge = lnCurrentMap
2239 *ENDIF
2240 .nMapsInBridge = lnCurrentMap
2241 *=== TR 1022541 21-Apr-2007 Goutam
2242
2243 lcLogText = 'Active Maps in ' + Upper(Alltrim(.cBridge)) + ': ' + Alltrim(Str(.nMapsInBridge)) + '.'
2244 .olog.LogEntry(lcLogText)
2245
2246 If Used('Cursor_BridgeMaps')
2247 Use In Cursor_BridgeMaps
2248 Endif
2249 Endif
2250 .AdvanceThermo(1)
2251 Endwith
2252
2253 *--- TR 1022541 21-Apr-2007 Goutam
2254 *lnSelect = Select()
2255 SELECT (lnSelect)
2256 *=== TR 1022541 21-Apr-2007 Goutam
2257
2258 Return llRetval
2259 ENDPROC
2260
2261*========================================================================================
2262
2263 * Make sure that each of the bridges in the group has a default version OR selected version exists for bridge
2264 *========================================================================================
2265 * Overriding this method from base for pick_address
2266
2267 Procedure RetrieveVersions
2268 Local llRetval, lnSelect, lnLoops, lcLog ,llAdrCheck, lnVersIndex, lcVersionCode
2269
2270 llRetval = .T.
2271 llAdrCheck = .T.
2272 lnSelect = Select()
2273 lnVersIndex = 0
2274 With This
2275
2276 .olog.LogMajorStage('Starting: ' + Program())
2277
2278 .InitThermo(1)
2279 .UpdateThermoCaption('Retrieving selected/default bridge version(s)...')
2280
2281 ** If a version is NOT sent in, then get the default versions for the bridges in the bridge group.
2282 Dimension .aVersion_code[.nMapsInBridge]
2283 Dimension .aOutboundFileName[.nMapsInBridge]
2284 Dimension .aAppend_over[.nMapsInBridge]
2285 Dimension .aVersionHeaderPkey[.nMapsInBridge]
2286
2287 *--- TR 1103001 Anupam 22-Mar-2017 ---*
2288 DIMENSION .aVersionPassedIn[.nMapsInBridge]
2289 *=== TR 1103001 Anupam 22-Mar-2017 ===*
2290
2291 IF .lExportAddressFile AND .nMapsInBridge = 3
2292 lcLog = ' Pick Address map(s) does not have a default version.'
2293 .olog.LogEntry(lcLog)
2294 llAdrCheck = .F.
2295 .lValidVersions = .F.
2296 llRetval = .F.
2297 ENDIF
2298
2299 For lnLoops = 1 To .nMapsInBridge
2300
2301 *--TR 1019615 10/10/06 RK
2302 lnVersIndex = ASCAN(.aParamBROs,"VERS_CODE",1,ALEN(.aParamBROs,1),1,9)
2303
2304 IF lnVersIndex > 0
2305 lcVersionCode = ALLTRIM(.aParamBROs[lnVersIndex, 2])
2306
2307 llRetval = vl_map_version(.aMapsForBridge[lnLoops], ,'tcMapVersions', lcVersionCode)
2308
2309 IF NOT llRetval
2310 .olog.LogWarning("Invalid Version Code.")
2311
2312 *--- TechRec 1041152 07-Jan-2010 T.Shenbagavalli ---
2313 .olog.LogEntry("Version Code :" + lcVersionCode + " Invalid for map :" + .aMapsForBridge[lnLoops] )
2314 *=== TechRec 1041152 07-Jan-2010 T.Shenbagavalli ===
2315
2316 EXIT
2317 ENDIF
2318 ELSE
2319 *==TR 1019615 10/10/06 RK
2320
2321 If !Empty(.cVersionPassedIn)
2322 llRetval = llRetval And vl_map_version(.aMapsForBridge[lnLoops], ,'tcMapVersions', .cVersionPassedIn)
2323
2324 *--- TechRec 1065181 19-Nov-2012 AZhadanov ---
2325 IF !llRetval
2326 llRetval = !Empty(.aMapsForBridge[lnLoops]) And ;
2327 vl_map_default(.aMapsForBridge[lnLoops],,'tcMapVersions' )
2328 ENDIF
2329 *=== TechRec 1065181 19-Nov-2012 AZhadanov ===
2330
2331 ELSE
2332 llRetval = llRetval And !Empty(.aMapsForBridge[lnLoops]) And ;
2333 vl_map_default(.aMapsForBridge[lnLoops],,'tcMapVersions' )
2334 ENDIF
2335 ENDIF
2336
2337 If llRetval && could only be empty with a multi bridge bridge group - since validate on process form
2338 .lValidVersions = .T.
2339 .aVersion_code[lnLoops] = Alltrim(tcMapVersions.Vers_code)
2340 .aOutboundFileName[lnLoops] = Alltrim(tcMapVersions.textfile )
2341 .aAppend_over[lnLoops] = tcMapVersions.appnd_over
2342 .aVersionHeaderPkey[lnLoops] = tcMapVersions.pkey
2343 .cVersionPassedIn = Alltrim(tcMapVersions.Vers_code) &&TR 1058059 28-DEC-11 Venuk
2344
2345 .aVersionPassedIn[lnLoops] = Alltrim(tcMapVersions.Vers_code) && *--- TR 1103001 Anupam 22-Mar-2017 ===*
2346
2347 lcLog = .aMapsForBridge[lnLoops] + 'map will use version: ' + Upper(Alltr(.aVersion_code[lnLoops]))
2348 .olog.LogEntry(lcLog)
2349 lcLog = 'This version will ' + Iif(.aAppend_over[lnLoops] = 'A', 'APPEND to', 'OVERWRITE') + ' the textfile ' + Upper(Alltr(.aOutboundFileName[lnLoops])) + '.'
2350 .olog.LogEntry(lcLog)
2351 Else
2352 IF llAdrCheck
2353 lcLog = .aMapsForBridge[lnLoops] + ' map does not have a default version.'
2354 .olog.LogEntry(lcLog)
2355 .lValidVersions = .F.
2356 llRetval = .F.
2357 ENDIF
2358 Exit
2359 ENDIF
2360 ENDFOR
2361 .AdvanceThermo(1)
2362 Endwith
2363
2364 If Used('tcMapVersions')
2365 Use In tcMapVersions
2366 Endif
2367
2368 Select (lnSelect)
2369
2370 Return llRetval
2371 Endproc
2372 *=== TR 1017130 09/JUN/06 VK
2373
2374*============================================================================================
2375
2376 *--- TR 1022541 20-APR-2007 Goutam
2377 PROCEDURE BuildBCDataSQLSelectStatement_PICK_FRM
2378 LPARAMETERS tcSelectList, tnCurrentLoop
2379 LOCAL lcRetval, lnSelect
2380
2381 llRetval = .T.
2382 lnSelect = SELECT()
2383 WITH This
2384
2385 *--- TR 1024061 10-May-2007 Goutam Included view V_PickFRM in following sql
2386 *--- TR 1036060 06-Oct-2008 Partha added zzocrdcr in the join ---
2387 *--- TR 1036598 22-Oct-2008 Partha : Replaced zzocrdcr join with (.cJoinStringZZOCRDCR) ---
2388 *--- TR 1036972 11-NOV-2008 VKK commented and rewrote
2389 *!* lcRetval = "SELECT " + tcSelectList + ;
2390 *!* " FROM ZVOFCHRG " + ;
2391 *!* " WHERE (ZVOFCHRG.Whs_ok = 'Y') AND " + ;
2392 *!* " EXISTS(SELECT * from zzoordrd " + ;
2393 *!* " JOIN zzoordrh " + ;
2394 *!* " ON (zzoordrd.fkey = zzoordrh.pkey) " + ;
2395 *!* " AND (ZVOFCHRG.hdrfkey = zzoordrh.pkey) " + ;
2396 *!* " AND (ZVOFCHRG.dtlfkey = 0 OR ZVOFCHRG.dtlfkey = zzoordrd.pkey) " + ;
2397 *!* " AND (zzoordrh.ord_status = 'P') " + ;
2398 *!* .cJoinStringZZOCRDCR + ; && *--- TR 1036060 06-Oct-2008 Partha ---
2399 *!* " WHERE " + .cSQLFilterString + ")"
2400
2401 *--- TR 1080122 29-Jul-2014 SMeenraja Added "with (nolock)" against zzoordrd
2402 lcRetval = "SELECT " + tcSelectList + ;
2403 " FROM ZVOFCHRG " + ;
2404 .cExtenderFieldJoin + ; && *--- TR 1042770 20-Oct-2009 HNisar
2405 " WHERE (ZVOFCHRG.Whs_ok = 'Y') AND " + ;
2406 " EXISTS(SELECT * from zzoordrd with (nolock) " + ;
2407 " JOIN " + .cJoinStringZZOCRDCR + ;
2408 " ON (zzoordrd.fkey = zzoordrh.pkey) " + ;
2409 " AND (ZVOFCHRG.hdrfkey = zzoordrh.pkey) " + ;
2410 " AND (ZVOFCHRG.dtlfkey = 0 OR ZVOFCHRG.dtlfkey = zzoordrd.pkey) " + ;
2411 " AND (zzoordrh.ord_status = 'P') " + ;
2412 " WHERE " + .cSQLFilterString + ")"
2413 *=== TR 1036972 11-NOV-2008 VKK commented and rewrote
2414
2415 SELECT (lnSelect)
2416 ENDWITH
2417 RETURN lcRetval
2418 ENDPROC
2419 *=== TR 1022541 20-APR-2007 Goutam
2420
2421*========================================================================================
2422
2423 *--- TR 1034032 19-Aug-2008 Partha ---
2424 PROCEDURE BuildBCDataSQLSelectStatement_PICK_CHRGS
2425 LPARAMETERS tcSelectList, tnCurrentLoop
2426 LOCAL lcRetval, lnSelect
2427
2428 llRetval = .T.
2429 lnSelect = SELECT()
2430 WITH This
2431
2432 *--- TR 1036060 06-Oct-2008 Partha added zzocrdcr in the join ---
2433 *--- TR 1036598 22-Oct-2008 Partha : Replaced zzocrdcr join with (.cJoinStringZZOCRDCR) ---
2434 *--- TR 1036972 11-NOV-2008 VKK commented and rewrote
2435 *!* lcRetval = "SELECT " + tcSelectList + ;
2436 *!* " FROM zvopchrg " + ;
2437 *!* " WHERE EXISTS(SELECT * from zzoordrd " + ;
2438 *!* " JOIN zzoordrh " + ;
2439 *!* " ON (zzoordrd.fkey = zzoordrh.pkey) " + ;
2440 *!* " AND (zvopchrg.dtlfkey = zzoordrd.pkey) " + ;
2441 *!* .cJoinStringZZOCRDCR + ; && *--- TR 1036060 06-Oct-2008 Partha ---
2442 *!* " WHERE " + .cSQLFilterString + ")"
2443
2444 lcRetval = "SELECT " + tcSelectList + ;
2445 " FROM zvopchrg " + ;
2446 .cExtenderFieldJoin + ; && *--- TR 1042770 20-Oct-2009 HNisar
2447 " WHERE EXISTS(SELECT * from zzoordrd " + ;
2448 " JOIN " + .cJoinStringZZOCRDCR + ;
2449 " ON (zzoordrd.fkey = zzoordrh.pkey) " + ;
2450 " AND (zvopchrg.dtlfkey = zzoordrd.pkey) " + ;
2451 " WHERE (zzoordrh.ord_status = 'P' ) AND " + .cSQLFilterString + ")" &&& 1063649 AZ
2452 *=== TR 1036972 11-NOV-2008 VKK commented and rewrote
2453
2454 SELECT (lnSelect)
2455 ENDWITH
2456 RETURN lcRetval
2457 ENDPROC
2458 *=== TR 1034032 19-Aug-2008 Partha ===
2459
2460*========================================================================================
2461
2462 *--- TR 1034032 22-Aug-2008 Partha ---
2463 Procedure InitBridgeSpecificProperties
2464 Local llRetval, lnSelect, lnIncludeChrgesIndex, lcIncludeChrges
2465
2466 *--- TR 1040437 28-May-2009 Goutam
2467 LOCAL lnIncludeSLNs, lcIncludeSLNs
2468 *=== TR 1040437 28-May-2009 Goutam
2469
2470 llRetval = .T.
2471 lnSelect = Select()
2472 With This
2473
2474 llRetval = DODEFAULT()
2475 If llRetval
2476
2477 *--- TR 1034032 19-Aug-2008 Partha ---
2478 lnIncludeChrgesIndex = ASCAN(.aParamBROs,"PRM_INCLUDE_CHRGS",1,ALEN(.aParamBROs,1),1,9)
2479 IF lnIncludeChrgesIndex > 0
2480 lcIncludeChrges = ALLTRIM(.aParamBROs[lnIncludeChrgesIndex, 2])
2481 llRetVal = EMPTY(lcIncludeChrges) OR INLIST(lcIncludeChrges, "Y","N")
2482 IF llRetVal
2483 .lIncludePickCharges = ( ALLTRIM(.aParamBROs[lnIncludeChrgesIndex, 2]) = "Y" OR EMPTY(ALLTRIM(.aParamBROs[lnIncludeChrgesIndex, 2])) )
2484 ELSE
2485 STORE true TO .lSuccessfulProcessLocked, .lValidFlagTable, .lValidVersions
2486 .cMessage= '"Invalid Include Order Charges."' + CRLF + CRLF
2487 ENDIF
2488 ELSE
2489 .lIncludePickCharges = true
2490 ENDIF
2491 .lIncludePickCharges = .lChrg_Ok AND .lIncludePickCharges
2492 *=== TR 1034032 19-Aug-2008 Partha ===
2493
2494 Endif
2495
2496 *--- TR 1040437 28-May-2009 Goutam
2497 IF llRetval
2498 lnIncludeSLNs = ASCAN(.aParamBROs,"PRM_EXPORT_SLNS",1,ALEN(.aParamBROs,1),1,9)
2499 IF lnIncludeSLNs > 0
2500 lcIncludeSLNs = ALLTRIM(.aParamBROs[lnIncludeSLNs, 2])
2501 llRetVal = EMPTY(lcIncludeSLNs) OR INLIST(lcIncludeSLNs, "Y","N")
2502 IF llRetVal
2503 .lIncludeSLNs = (lcIncludeSLNs="Y") &&OR EMPTY(lcIncludeSLNs))
2504 ELSE
2505 STORE true TO .lSuccessfulProcessLocked, .lValidFlagTable, .lValidVersions
2506 .cMessage= '"Invalid Export SLNs."' + CRLF + CRLF
2507 ENDIF
2508 ENDIF
2509 ENDIF
2510 *=== TR 1040437 28-May-2009 Goutam
2511
2512 Endwith
2513 lnSelect = Select()
2514 Return llRetval
2515 Endproc
2516 *=== TR 1034032 22-Aug-2008 Partha ===
2517
2518*****************************************************************************************************
2519
2520 *--- TR 1040437 03-June-2009 Goutam
2521 PROCEDURE BuildBCDataSQLSelectStatement_PICK_SLN
2522 LPARAMETERS tcSelectList, tnCurrentLoop
2523 LOCAL lcRetval, lnSelect
2524
2525 llRetval = .T.
2526 lnSelect = SELECT()
2527 WITH This
2528 lcRetval = "SELECT " + tcSelectList + ;
2529 " FROM zvopsln " + ;
2530 .cExtenderFieldJoin + ; && *--- TR 1042770 20-Oct-2009 HNisar
2531 " WHERE EXISTS(SELECT * from zzoordrd " + ;
2532 " JOIN " + .cJoinStringZZOCRDCR + ;
2533 " ON (zvopsln.fkey = zzoordrh.pkey) " + ;
2534 " AND (zvopsln.pkey = zzoordrd.pkey) " + ;
2535 " WHERE " + .cSQLFilterString + ")"
2536
2537 SELECT (lnSelect)
2538 ENDWITH
2539 RETURN lcRetval
2540 ENDPROC
2541 *=== TR 1040437 03-June-2009 Goutam
2542
2543************************************************************************************************
2544
2545* --- TR 1043545 RLN 04/30/10
2546 PROCEDURE LockExternalProcess
2547 LOCAL llRetVal
2548 llRetVal = .T.
2549 IF goEnv.SV("LOCK_PICK_PROC_FROM_BRIDGE", "N") = "Y"
2550 lcSyslockTablePath = AddBS(goEnv.envLoginTablePath.VALUE)
2551 IF !v_SysLock( lcSyslockTablePath+"SYSLOCK", "PICKPROCESS", goEnv.cCompany)
2552 llRetVal = .F.
2553 ENDIF
2554 ENDIF
2555 RETURN llRetVal
2556 ENDPROC
2557
2558*******************************************
2559
2560 PROCEDURE UnLockExternalProcess
2561 IF goEnv.SV("LOCK_PICK_PROC_FROM_BRIDGE", "N") = "Y"
2562 lcSyslockTablePath = AddBS(goEnv.envLoginTablePath.VALUE)
2563 v_SysUnLock( lcSyslockTablePath+"SYSLOCK", "PICKPROCESS", goEnv.cCompany)
2564 ENDIF
2565 RETURN
2566 ENDPROC
2567* === TR 1043545
2568
2569*================================================
2570*--- Tr 1096587 23-Jun-2016 Dilip ---
2571 PROCEDURE ValidateParameterBRO
2572 LOCAL lnPrmBroIndex, llRetVal, lcMsg, lcIncludeLinked
2573 lnPrmBroIndex = 0
2574 llRetVal = .T.
2575 lcMsg = ''
2576
2577 WITH This
2578 .oLog.LogEntry('Param Bros Values:')
2579 lnPrmBroIndex = ASCAN(.aParamBROs,"FLAG",1,ALEN(.aParamBROs,1),1,9)
2580 IF lnPrmBroIndex > 0
2581 lcValue = ALLTRIM(.aParamBROs[lnPrmBroIndex, 2])
2582 .oLog.LogEntry('Flag Processed:' + lcValue)
2583 IF !EMPTY(lcValue) AND !INLIST(lcValue,'Y','N')
2584 .oLog.LogEntry('Flag Processed Value should be Y or N.')
2585 llRetVal = false
2586 .lFlagProcessed = .f.
2587 ELSE
2588 .lFlagProcessed = IIF(EMPTY(lcValue),.t.,(lcValue = 'Y'))
2589 ENDIF
2590 ENDIF
2591
2592 lnPrmBroIndex = ASCAN(.aParamBROs,"PROCESS_ALL",1,ALEN(.aParamBROs,1),1,9)
2593 IF lnPrmBroIndex > 0
2594 lcValue = ALLTRIM(.aParamBROs[lnPrmBroIndex, 2])
2595 .oLog.LogEntry('Process All:' + lcValue)
2596 IF !INLIST(lcValue,'Y','N')
2597 .oLog.LogEntry('Process All Value should be Y or N.')
2598 llRetVal = false
2599 .lOnlyUnprocessed = .f.
2600 ELSE
2601 .lOnlyUnprocessed = IIF(EMPTY(lcValue),.t.,(lcValue = 'N'))
2602 ENDIF
2603 ENDIF
2604
2605 ENDWITH
2606
2607 RETURN llRetVal
2608 ENDPROC
2609 *============================================================
2610 *=== Tr 1096587 23-Jun-2016 Dilip ===
2611
2612Enddefine