TDVCSUpd XXF 2005-07-04 14:20:06
Version 47
LV 6
Frame �� 0 0 0 0 0 0
Datafield BASSND T 1 1 2 1 0  �<embedded>� ���'������Ƿ�˕ 1
Datafield DCLSND T 1 1 0 1 0  �<embedded>� ��걨�����Ƿ��͕ 1
Datafield VRFSND T 1 1 0 1 0  �<embedded>� ����������Ƿ��͕ 1
CodeTable �BASSND� 0 C
CodeValue �Y� �KG000000�
CodeValue �N� �KG000001�
CodeTable �DCLSND� 0 C
CodeValue �Y� �KG000002�
CodeValue �N� �KG000003�
CodeTable �VRFSND� 0 C
CodeValue �Y� �KG000004�
CodeValue �N� �KG000005�
Rule -1
SourceLine �XXF20040703check snd ( BASSND, DCLSND, VRFSND )�
SourceLine �XXF20040703#!��״̬���ʱ��ļ�ˡ��
Rule -1
SourceLine �XXF20040703sub SetSndStaus( out bassta text, out dclsta text, out vrfsta text )�
SourceLine �XXF20040703�
SourceLine �XXF20040703if not IsEmpty( BASSND ) and ( not IsEmpty( DCLSND ) or not IsEmpty( VRFSND ) ) then�
SourceLine �XXF20040703  if BASSND = "N" then�
SourceLine �XXF20040703    bassta = "P"�
SourceLine �XXF20040703    dclsta = "P"�
SourceLine �XXF20040703    vrfsta = "P"�
SourceLine �XXF20040703  else�
SourceLine �XXF20040703    bassta = "W"�
SourceLine �XXF20040703    if DCLSND = "Y" then�
SourceLine �XXF20040703      dclsta = "W"�
SourceLine �XXF20040703    else�
SourceLine �XXF20040703      dclsta = "P"�
SourceLine �XXF20040703    endif�
SourceLine �XXF20040703�
SourceLine �XXF20040703    if VRFSND = "Y" then�
SourceLine �XXF20040703      vrfsta = "W"�
SourceLine �XXF20040703    else�
SourceLine �XXF20040703      vrfsta = "P"�
SourceLine �XXF20040703    endif�
SourceLine �XXF20040703  endif�
SourceLine �XXF20040703endif�
Rule -1
SourceLine �XXF20040703sub SetDblStatus( in bassta text, in dclsta text, in vrfsta text )�
SourceLine �XXF20050704{�
SourceLine �XXF20040703\BOPREC\CTLMOD\DBL\BASSTA = bassta�
SourceLine �XXF20040703\BOPREC\CTLMOD\DBL\DCLSTA = dclsta�
SourceLine �XXF20040703\BOPREC\CTLMOD\DBL\VRFSTA = vrfsta�
Rule -1
SourceLine �XXF20040704default bopsnd ( BASSND, DCLSND, VRFSND )�
SourceLine �           �
SourceLine �XXF20040703$bassta = ""�
SourceLine �XXF20040703$dclsta = ""�
SourceLine �XXF20040703$vrfsta = ""�
SourceLine �XXF20040703SetSndStaus( $bassta, $dclsta, $vrfsta )�
SourceLine �XXF20040703SetDblStatus( $bassta, $dclsta, $vrfsta )�
PanelCount 0


Literals_START
KG000000ENXXF20040703202800��
KG000001ENXXF20040703202800��
KG000002ENXXF20040703202823��
KG000003ENXXF20040703202823��
KG000004ENXXF20040703203004��
KG000005ENXXF20040703203004��
Literals_END

A045D5CE