Note Printing

jeff-christie

Has anyone addressed the issue where when you print a note on a SO, PO, etc. it double spaces if the customer has entered a return when entering the note lines. I have 2 customers now who just want the note to print as it is entered, but the print routine SMC011 insists on double spacing the output. I did find an entry in the KB with a not warranted fix, but the fix is not at all correct to address this. It references $0D$, $0A$'s but the separator character is $01$.

This seems like a common problem, I'm hoping someone has addressed this perhaps before I dive into SMC011!!

greimer

Pivotal Systems had a client using FACTS 7.7 who wanted to list short phrases for the note line and it was printed double-spaced. I submitted an incident to Infor and they indicated the print out matched their intended functionality. I made the following code changes on the client's system [and others] to stop the double-spacing:

SMC011 Old: /facts/facts77/prog/SM/SMC011.ssi 2011.03.09
SMC011 NEW: /facts77/mods/prog/SM/SMC011 UI Paragraph Control Procedures

1130 Old: let Y=pos(SEP$=Y$); if Y>0 then let X$=Y$(Y+1)+X$,IN$[X]=Y$(1,Y-1
NEW: let Y=pos(SEP$=Y$); if Y>0 then let X$=Y$(Y+1)+X$,IN$[X]=Y$(1,Y-1

Old: +RETURN_SEP); if mid(X$,1,1)<>SEP$ then let IN$[++X]=""; let DATA
-NEW: +RETURN_SEP); if mid(X$,1,1)<>SEP$ then let DATALEN+=2+len(IN$[X-

Old: LEN+=2+len(IN$[X-1]); if not(nul(IN$[X-1])) and LAST_ELEMENT
-NEW: 1]); if not(nul(IN$[X-1])) and LAST_ELEMENT

Old: then let LAST_ELEMENT=X-1 end_if else let LAST_ELEMENT=X,DATALEN+
-NEW: MENT=X-1 end_if else let LAST_ELEMENT=X,DATALEN+=1+len(IN$[X]) en

Old: =1+len(IN$[X]) end_if ; goto NEXT_LINE
-NEW: d_if ; goto NEXT_LINE ! Gerald.2011.03.07 - To prevent the note f

NEW: rom being printed double-spaced, even though the entry does not s
NEW: how it double-spaced.

1163 NEW: if X and not(nul(IN$[X])) and LAST_ELEMENT
NEW: ENT=X+1 ! *Gerald - See line 1130.

Display my changes in Courier font and the differences will be more apparent.