Import item images.
PRC TASK: 101028.2
Code location: IIUTIL
Spreadsheet location: TRANSFERS\WebImages.txt
Purpose:
Import ITMMST.USR field from a tab delimited file.
Input file structure:
Column 1:Item Number with no leading zeros
Column 2:First Image Filename
Column 3:Second Image Filename Sometimes blank.
Processing:
For each line
Read ITEM.NBR from Column 1
*LADDAWN PADS NUMERIC ITEM NUMBERS WITH 0's TO 6 DIGITS
IF NUM(ITEM.NBR) THEN ITEM.NBR = STR(0, 6 – LEN(ITEM.NBR)) :ITEM.NBR
*GET THE CPN
READV CPN FROM ITMXRF, ITEM.NBR, 1
READ IMAGE1 & IMAGE2 from Columns 2 & 3
*BUILD THE FIELD TO WRITE
IMAGES=IMAGE1
IF IMAGE2 <> "" THEN IMAGES<1,-1> = IMAGE2
*UPDATE THE FILE
WRITEV IMAGES TO ITMMST.USR, CPN, 39
NEXT LINE