9,10c9,10
< %   $Revision::   1.0                                               $
< %   $Logfile::   F:/zimvcs/srv_src/paintdoc/getinfo.cmv             $
---
> %   $Revision::   1.4                                               $
> %   $Logfile::   L:/zimvcs/srv_src/paintdoc/getinfo.cmv             $
12,13c12,13
< %   $Date::   28 Oct 1993 11:10:36                                  $
< %   $Author::   MIKE                                                $
---
> %   $Date::   14 Jan 1992 09:35:18                                  $
> %   $Author::   MIGUEL                                              $
19c19
< %   $Log::   F:/zimvcs/srv_src/paintdoc/getinfo.cmv                 $
---
> %   $Log::   L:/zimvcs/srv_src/paintdoc/getinfo.cmv                 $
21,27d20
< %%    Rev 1.0   28 Oct 1993 11:10:36   MIKE
< %% This version is a result of the integration of ZOM into
< %% the mainline of ZIM development.  Changes to the services
< %% source structure (file placement and naming) were extreme
< %% enough to warrant the creation of a new set of source files.
< %% If you wish to access versions of ZIM services prior to ver. 4.1,
< %% these are found in a different set of archive directories.
29,52c22,26
< %%    Rev 1.1   13 Oct 1993 18:33:58   MIKE
< %% This version is a result of the integration of ZOM into
< %% the mainline of ZIM development.  Changes to the services
< %% source structure (file placement and naming) were extreme
< %% enough to warrant the creation of a new set of source files.
< %% If you wish to access versions of ZIM services prior to ver. 4.1,
< %% these are found in a different set of archive directories.
< %% 
< %%    Rev 1.0   10 Mar 1993 14:31:26   MIKE
< %% This version is a result of the integration of ZOM into
< %% the mainline of ZIM development.  Changes to the services
< %% source structure (file placement and naming) were extreme
< %% enough to warrant the creation of a new set of source files.
< %% If you wish to access versions of ZIM services prior to ver. 4.1,
< %% these are found in a different set of archive directories.
< %% 
< %%    Rev 1.0   08 Mar 1993 12:50:14   MIKE
< %% This version is a result of the integration of ZOM into
< %% the mainline of ZIM development.  Changes to the services
< %% source structure (file placement and naming) were extreme
< %% enough to warrant the creation of a new set of source files.
< %% If you wish to access versions of ZIM services prior to ver. 4.1,
< %% these are found in a different set of archive directories.
< %% 
---
> %%    Rev BRESSAN  23 Feb 1994 09:15:00   CRISTIANE & ROCCO
> %% Add Graphic display mode support in commented lines:
> %%			95, 356, 493, 534, 585, 591, 597, 604, 610
> %% Code for handling "FROM SET (Graphic)" will have to be implemented!
> %%
120c94,95
< 		LET DMLetters = 'NRUHBIS'
---
> 		LET DMLetters = 'NRUHBIS' 
> %		LET DMLetters = 'NRUHBISG' 	BRESSAN: insert graphic attribute
380a356,365
> %
> %			WHEN TempDispMode = 'G'
> %				IF LastFNum = 0
> %					LET LastFNum = 8
> %				ENDIF
> %				FORM SET (Graphic) (,20,)
> %				IF pFieldNum IN (150,151)
> %					LET pt_PickForm.PickField[8] = {'\fb' wh $zimos in (6, 7, 8), '\10'}
> %				ENDIF
> %
507a493,494
> %				WHEN $FieldNum = 8
> %				    FORM SET (Graphic) (,20,)
546a534,535
> %					WHEN TempDispMode = 'G'
> %						FORM SET (Graphic) (,20,)
595a585
> 										 'G' WH $FieldNum = 6,	\
600a591
> 										 'G' WH $FieldNum = 6,	\
605a597
> 										 'G' WH $FieldNum = 6,	\
611a604
> 										'G' WH $FieldNum = 6,	\
616a610
> 										'G' WH $FieldNum = 6,	\
905c899
< %%  Procedure:  pt_PickList
---
> %%  Procedure:  DC_PickList
910c904
< LOCALPROCEDURE pt_PickList ( \
---
> LOCALPROCEDURE DC_PickList ( \
949,952c943,946
< 		window open pt_wPickList 	\ %for pt_dPickList	\
< 			 AT ($windowRow + 2) ($WindowCol + 2) for pt_dPickList2
< 		form select pt_dPickList2
< 		let pt_fPickListFrame2.DC_ffTitle = p_Title
---
> 		window open DC_wPickList 	\ %for DC_dPickList	\
> 			 AT ($windowRow + 2) ($WindowCol + 2) for DC_dPickList2
> 		form select DC_dPickList2
> 		let DC_fPickListFrame2.DC_ffTitle = p_Title
954,957c948,951
< 		window open pt_wPickList 	\ %for pt_dPickList	\
< 			 AT ($windowRow + 2) ($WindowCol + 2) for pt_dPickList
< 		form select pt_dPickList
< 		let pt_fPickListFrame.DC_ffTitle = p_Title
---
> 		window open DC_wPickList 	\ %for DC_dPickList	\
> 			 AT ($windowRow + 2) ($WindowCol + 2) for DC_dPickList
> 		form select DC_dPickList
> 		let DC_fPickListFrame.DC_ffTitle = p_Title
966c960
< 			form set (guarded) pt_fPickList2
---
> 			form set (guarded) DC_fPickList2
968c962
< 			form set (guarded) pt_fPickList
---
> 			form set (guarded) DC_fPickList
972c966
< 		form set scroll pt_fPickList2 from FFImportSet	\
---
> 		form set scroll DC_fPickList2 from FFImportSet	\
975c969
< 		form set scroll pt_fPickList2 from pt_Field_Set	\
---
> 		form set scroll DC_fPickList2 from pt_Field_Set	\
978c972
< 		form set scroll pt_fPickList from pt_Form_Set	\
---
> 		form set scroll DC_fPickList from pt_Form_Set	\
981c975
< 		form set scroll pt_fPickList from pt_Ent_Set	\
---
> 		form set scroll DC_fPickList from pt_Ent_Set	\
984c978
< 		form set scroll pt_fPickList from pt_Rel_Set	\
---
> 		form set scroll DC_fPickList from pt_Rel_Set	\
987c981
< 		form set scroll pt_fPickList from pt_Doc_Set	\
---
> 		form set scroll DC_fPickList from pt_Doc_Set	\
997c991
< 		LET pt_fPickListFrame2.dc_ffKeys = ' Enter  Esc=Cancel  F1=Help  F7=Fwd  F8=Bkwd  F9=Attributes'
---
> 		LET dc_fPickListFrame2.dc_ffKeys = ' Enter  Esc=Cancel  F1=Help  F7=Fwd  F8=Bkwd  F9=Attributes'
1002c996
< 	%      pt_fPickList "always transmit". Bug causes $ScrollingKey
---
> 	%      DC_fPickList "always transmit". Bug causes $ScrollingKey
1005c999
< 	%form set (transmit always transmit) pt_fPickList
---
> 	%form set (transmit always transmit) DC_fPickList
1007c1001
< 	let pt_fPickListBar.DC_ffScrollBar [1] = "\FF" where $zimos IN (6, 7, 8)
---
> 	let DC_fPickListBar.DC_ffScrollBar [1] = "\FF" where $zimos IN (6, 7, 8)
1017,1020c1011,1014
< 			let pt_fPickListFrame2.DC_ffScrollUp = {"" where $currentmember ({"FFImportSet" WH PopUpNum = '17',"pt_Field_Set"}) IN (0,1), "\1E" where $zimos IN (6, 7, 8), "^"} \
< 				pt_fPickListFrame2.DC_ffScrollDown = {"" where $currentmember ({"FFImportSet" WH PopUpNum = '17',"pt_Field_Set"}) IN (0,l_TopLastPageMem), "\1F" where $zimos IN (6, 7, 8), "+"} 
< 			form display input  pt_fPickListFrame2.DC_ffScrollUp \
< 								pt_fPickListFrame2.DC_ffScrollDown
---
> 			let DC_fPickListFrame2.DC_ffScrollUp = {"" where $currentmember ({"FFImportSet" WH PopUpNum = '17',"pt_Field_Set"}) IN (0,1), "\1E" where $zimos IN (6, 7, 8), "^"} \
> 				DC_fPickListFrame2.DC_ffScrollDown = {"" where $currentmember ({"FFImportSet" WH PopUpNum = '17',"pt_Field_Set"}) IN (0,l_TopLastPageMem), "\1F" where $zimos IN (6, 7, 8), "+"} 
> 			form display input  DC_fPickListFrame2.DC_ffScrollUp \
> 								DC_fPickListFrame2.DC_ffScrollDown
1022,1025c1016,1019
< 			let pt_fPickListFrame.DC_ffScrollUp = {"" where $currentmember ({"pt_Form_Set" WH PopUpNum = '23',"pt_Ent_Set" WH PopUpNum = '261',"pt_Rel_Set" WH PopUpNum = '262',"pt_Doc_Set"}) IN (0,1), "\1E" where $zimos IN (6, 7, 8), "^"} \
< 				pt_fPickListFrame.DC_ffScrollDown = {"" where $currentmember ({"pt_Form_Set" WH PopUpNum = '23',"pt_Ent_Set" WH PopUpNum = '261',"pt_Rel_Set" WH PopUpNum = '262',"pt_Doc_Set"}) IN (0,l_TopLastPageMem), "\1F" where $zimos IN (6, 7, 8), "+"} 
< 			form display input  pt_fPickListFrame.DC_ffScrollUp \
< 								pt_fPickListFrame.DC_ffScrollDown
---
> 			let DC_fPickListFrame.DC_ffScrollUp = {"" where $currentmember ({"pt_Form_Set" WH PopUpNum = '23',"pt_Ent_Set" WH PopUpNum = '261',"pt_Rel_Set" WH PopUpNum = '262',"pt_Doc_Set"}) IN (0,1), "\1E" where $zimos IN (6, 7, 8), "^"} \
> 				DC_fPickListFrame.DC_ffScrollDown = {"" where $currentmember ({"pt_Form_Set" WH PopUpNum = '23',"pt_Ent_Set" WH PopUpNum = '261',"pt_Rel_Set" WH PopUpNum = '262',"pt_Doc_Set"}) IN (0,l_TopLastPageMem), "\1F" where $zimos IN (6, 7, 8), "+"} 
> 			form display input  DC_fPickListFrame.DC_ffScrollUp \
> 								DC_fPickListFrame.DC_ffScrollDown
1061,1062c1055,1056
< 				form set (not scroll) pt_fPickList2
< 				form set scroll pt_fPickList2 from FFImportSet	\
---
> 				form set (not scroll) DC_fPickList2
> 				form set scroll DC_fPickList2 from FFImportSet	\
1077c1071
< 				let p_Pick = pt_fPickList2.List_Item[l_PickIndex] \
---
> 				let p_Pick = DC_fPickList2.List_Item[l_PickIndex] \
1080c1074
< 				let p_Pick = pt_fPickList.List_Item[l_PickIndex] \
---
> 				let p_Pick = DC_fPickList.List_Item[l_PickIndex] \
1125c1119
< 			form set (cursor) pt_fPickList2 [l_PickIndex]
---
> 			form set (cursor) DC_fPickList2 [l_PickIndex]
1127c1121
< 			form set (cursor) pt_fPickList [l_PickIndex]
---
> 			form set (cursor) DC_fPickList [l_PickIndex]
1133,1134c1127,1128
< 		form clear pt_fPickListBar.DC_ffScrollBar [l_BarIndex]
< 		form set (reset) pt_fPickListBar.DC_ffScrollBar [l_BarIndex]
---
> 		form clear DC_fPickListBar.DC_ffScrollBar [l_BarIndex]
> 		form set (reset) DC_fPickListBar.DC_ffScrollBar [l_BarIndex]
1148,1150c1142,1144
< 		let pt_fPickListBar.DC_ffScrollBar [l_BarIndex] = "\FF" where $zimos IN (6, 7, 8)
< 		%form set (normal) pt_fPickListBar [l_BarIndex]
< 		form display pt_fPickListBar
---
> 		let DC_fPickListBar.DC_ffScrollBar [l_BarIndex] = "\FF" where $zimos IN (6, 7, 8)
> 		%form set (normal) DC_fPickListBar [l_BarIndex]
> 		form display DC_fPickListBar
1154c1148
< 	window close pt_wPickList
---
> 	window close DC_wPickList
1202c1196
< 	pt_PickList(PopUpNum, pTitle, PPick, PUpdate)
---
> 	DC_PickList(PopUpNum, pTitle, PPick, PUpdate)
1239c1233
< 	pt_PickList(PopUpNum, pTitle, PPick, PUpdate)
---
> 	DC_PickList(PopUpNum, pTitle, PPick, PUpdate)
