setup.4gl

开发工具 Informix-4gl

           SELECT COUNT(*) INTO lv_col_count
             FROM systables a
                WHERE a.tabname = "prpmotorcade"
           IF lv_col_count > 0 THEN
                Drop table PrpMotorcade
           END IF

           #--PrpTprofit
           LET lv_col_count = 0
           SELECT COUNT(*) INTO lv_col_count
             FROM systables a
                WHERE a.tabname = "prptprofit"
           IF lv_col_count > 0 THEN
                Drop table PrpTprofit

           END IF

           #--PrpTguaranty
           LET lv_col_count = 0
           SELECT COUNT(*) INTO lv_col_count
             FROM systables a
                WHERE a.tabname = "prptguaranty"
           IF lv_col_count > 0 THEN
                Drop table PrpTguaranty
           END IF

           #--PrpCguaranty
           LET lv_col_count = 0
           SELECT COUNT(*) INTO lv_col_count
             FROM systables a
                WHERE a.tabname = "prpcguaranty"
           IF lv_col_count > 0 THEN
                Drop table PrpCguaranty
           END IF

           #--PrpPguaranty
           LET lv_col_count = 0
           SELECT COUNT(*) INTO lv_col_count
             FROM systables a
                WHERE a.tabname = "prppguaranty"
           IF lv_col_count > 0 THEN
                Drop table PrpPguaranty
           END IF

           #--PrpTguaranty
           LET lv_col_count = 0
           SELECT COUNT(*) INTO lv_col_count
             FROM systables a
                WHERE a.tabname = "prptguaranty"
           IF lv_col_count > 0 THEN
                Drop table PrpTguaranty
           END IF

           #--PrpCprofit
           LET lv_col_count = 0
           SELECT COUNT(*) INTO lv_col_count
             FROM systables a
                WHERE a.tabname = "prpcprofit"
           IF lv_col_count > 0 THEN
                Drop table PrpCprofit
           END IF

           #--PrpPprofit
           LET lv_col_count = 0
           SELECT COUNT(*) INTO lv_col_count
             FROM systables a
                WHERE a.tabname = "prppprofit"
           IF lv_col_count > 0 THEN
                Drop table PrpPprofit
           END IF
           #--PrpTprofitDetail
           LET lv_col_count = 0
           SELECT COUNT(*) INTO lv_col_count
             FROM systables a,syscolumns b
                WHERE a.tabname = "prptprofitdetail"
           IF lv_col_count > 0 THEN
                Drop table PrpTprofitDetail
           END IF

           #--PrpCprofitDetail
           LET lv_col_count = 0
           SELECT COUNT(*) INTO lv_col_count
             FROM systables a
                WHERE a.tabname = "prpcprofitdetail"
           IF lv_col_count > 0 THEN
                Drop table PrpCprofitDetail
           END IF

           #--PrpPprofitDetail
           LET lv_col_count = 0
           SELECT COUNT(*) INTO lv_col_count
             FROM systables a
                WHERE a.tabname = "prppprofitdetail"
           IF lv_col_count > 0 THEN
                Drop table PrpPprofitDetail
           END IF


           #--WorkFlowRec
           LET lv_col_count = 0
           SELECT COUNT(*) INTO lv_col_count
             FROM systables a
                WHERE a.tabname = "workflowrec"
           IF lv_col_count > 0 THEN
                Drop table WorkFlowRec
           END IF

           #--PrpTinsuredNature
           LET lv_col_count = 0
           SELECT COUNT(*) INTO lv_col_count
             FROM systables a
                WHERE a.tabname = "prptinsurednature"
           IF lv_col_count > 0 THEN
                Drop table PrpTinsuredNature
           END IF

           #--PrpCinsuredartif
           LET lv_col_count = 0
           SELECT COUNT(*) INTO lv_col_count
             FROM systables a
                WHERE a.tabname = "prpcinsurednature"
           IF lv_col_count > 0 THEN
                Drop table PrpCinsurednature
           END IF

           #--PrpPinsurednature
           LET lv_col_count = 0
           SELECT COUNT(*) INTO lv_col_count
             FROM systables a,syscolumns b
                WHERE a.tabname = "prppinsurednature"
           IF lv_col_count > 0 THEN
                Drop table PrpPinsurednature
           END IF

           #--PrpTinsuredArtif
           LET lv_col_count = 0
           SELECT COUNT(*) INTO lv_col_count
             FROM systables a
                WHERE a.tabname = "prptinsuredartif"
           IF lv_col_count > 0 THEN
                Drop table PrpTinsuredArtif
           END IF

           #--PrpCinsuredartif
           LET lv_col_count = 0
           SELECT COUNT(*) INTO lv_col_count
             FROM systables a
                WHERE a.tabname = "prpcinsuredartif"
           IF lv_col_count > 0 THEN
                Drop table PrpCinsuredartif
           END IF

           #--PrpPinsuredartif
           LET lv_col_count = 0
           SELECT COUNT(*) INTO lv_col_count
             FROM systables a
                WHERE a.tabname = "prppinsuredartif"
           IF lv_col_count > 0 THEN
                Drop table PrpPinsuredartif
           END IF

           #--PrpLCMain
           LET lv_col_count = 0
           SELECT COUNT(*) INTO lv_col_count
             FROM systables a
                WHERE a.tabname = "prplcmain"
           IF lv_col_count > 0 THEN
                Drop table PrpLCMain
           END IF

           #--PrpLCItemCar
           LET lv_col_count = 0
           SELECT COUNT(*) INTO lv_col_count
             FROM systables a
                WHERE a.tabname = "prplcitemcar"
           IF lv_col_count > 0 THEN
                Drop table PrpLCItemCar
           END IF

           #--PrpLCitemKind
           LET lv_col_count = 0
           SELECT COUNT(*) INTO lv_col_count
             FROM systables a
                WHERE a.tabname = "prplcitemkind"
           IF lv_col_count > 0 THEN
                Drop table PrpLCitemKind
           END IF

           #--PrpLclaimApprov
           LET lv_col_count = 0
           SELECT COUNT(*) INTO lv_col_count
             FROM systables a
                WHERE a.tabname = "prplclaimapprov"
           IF lv_col_count > 0 THEN
                Drop table PrpLclaimApprov
           END IF

           #--TransmitRec
           LET lv_col_count = 0
           SELECT COUNT(*) INTO lv_col_count
             FROM systables a
                WHERE a.tabname = "transmitrec"
           IF lv_col_count > 0 THEN
                Drop table TransmitRec
           END IF

           #--PrPcontractpause
           LET lv_col_count = 0
           SELECT COUNT(*) INTO lv_col_count
             FROM systables a
                WHERE a.tabname = "prppcontractpause"
           IF lv_col_count > 0 THEN
                Drop table PrPpcontractpause
           END IF

           #--prpversion
           Alter TABLE prpversion MODIFY
                        (times SMALLINT NOT NULL);
           CLOSE DATABASE
           RUN "sh $INSTALL_PATH/install/patch/patch4.0/chtab.sh" 

           LET lv_projectversion = "v4.1.0"
      WHEN "v4.1.0"
           LET lv_projectversion = "v4.1.1"
      WHEN "v4.1.1"
           DATABASE lv_visadb
           #--VsCode
           LET lv_col_count = 0
           SELECT COUNT(*) INTO lv_col_count
             FROM systables a,syscolumns b
               WHERE a.tabname = "vscode"
                 AND a.tabid = b.tabid
                 and b.colname = "rationtype"
           IF lv_col_count = 0 THEN
               ALTER TABLE VsCode
                   ADD (RationType CHAR(8) BEFORE DesignerCode);
               IF SQLCA.SQLCODE != 0 THEN
                   DISPLAY "Vscode表增加字段失败,",
                       "错误号:",SQLCA.SQLCODE
                   RETURN lv_projectversion,1
               END IF
           END IF
           CLOSE DATABASE
           
           DATABASE lv_prpinsdb

           ALTER TABLE PrpLcompensate MODIFY (Lflag CHAR(10) NOT NULL)
           IF SQLCA.SQLCODE != 0 THEN
               DISPLAY "PrpLcompensate表变更字段类型失败,",
                       "错误号:",SQLCA.SQLCODE
               RETURN lv_projectversion,1
           END IF
           ALTER TABLE PrpTitemkind MODIFY (Model varchar(60))
           ALTER TABLE PrpCitemkind MODIFY (Model varchar(60))
           ALTER TABLE PrpPitemkind MODIFY (Model varchar(60))

           LET lv_col_count = 0
           SELECT COUNT(*) INTO lv_col_count
             FROM systables a,syscolumns b
               WHERE a.tabname = "prppguaranty"
                 AND a.tabid = b.tabid
                 and b.colname = "proposalno"
           IF lv_col_count = 1 THEN
               rename column PrpPguaranty.proposalno to policyno
               IF SQLCA.SQLCODE != 0 THEN
                   DISPLAY "PrpPguaranty表变更字段名称失败,",
                       "错误号:",SQLCA.SQLCODE
                   RETURN lv_projectversion,1
               END IF
           END IF

           CLOSE DATABASE

           RUN "sh $INSTALL_PATH/install/patch/patch4.1/chprimary.sh"

 
           LET lv_projectversion = "v4.2.0"
     WHEN "v4.2.0"

           ##1、DAD清理程序增加数据表
           #--a PrpLreplevynew
           DATABASE lv_prpinsdb
           LET lv_col_count = 0
           SELECT COUNT(*) INTO lv_col_count
             FROM systables WHERE tabname = "prplreplevynew"
           CLOSE DATABASE

           IF lv_col_count = 0 THEN
               RUN "sh $INSTALL_PATH/install/patch/patch4.2/chtab_replevynew.sh"
           END IF

           #--b PrpLarrearageadd
           DATABASE lv_prpinsdb
           LET lv_col_count = 0
           SELECT COUNT(*) INTO lv_col_count
             FROM systables WHERE tabname = "prplarrearageadd"
           CLOSE DATABASE

           IF lv_col_count = 0 THEN
               RUN "sh $INSTALL_PATH/install/patch/patch4.2/chtab_larrearageadd.sh"
           END IF

           #--c view_compensate1
           DATABASE lv_prpinsdb
           LET lv_col_count = 0
           SELECT COUNT(*) INTO lv_col_count
             FROM systables WHERE tabname = "view_compensate1"
           CLOSE DATABASE

           IF lv_col_count = 0 THEN
               RUN "sh $INSTALL_PATH/install/patch/patch4.2/chtab_view_compensate1.sh"
           END IF

           #--d view_larrearage
           DATABASE lv_prpinsdb
           LET lv_col_count = 0
           SELECT COUNT(*) INTO lv_col_count
             FROM systables WHERE tabname = "view_larrearage"
           CLOSE DATABASE

           IF lv_col_count = 0 THEN
               RUN "sh $INSTALL_PATH/install/patch/patch4.2/chtab_view_larrearage.sh"
           END IF

           #--e view_loan
           DATABASE lv_prpinsdb
           LET lv_col_count = 0
           SELECT COUNT(*) INTO lv_col_count
             FROM systables WHERE tabname = "view_loan"
           CLOSE DATABASE

           IF lv_col_count = 0 THEN
               RUN "sh $INSTALL_PATH/install/patch/patch4.2/chtab_view_loan.sh"
           END IF

           ##2、v4.3.0变更数据结构
           DATABASE lv_prpinsdb

           alter table prptitem_device 
               modify(PreUseTemperature DECIMAL(14,2) );
           alter table prptitem_device
               modify(RealUseTemperature DECIMAL(14,2) );
           alter table prptitem_device
               modify(PreUsePressure DECIMAL(14,2) );
           alter table prptitem_device
               modify(RealUsePressure DECIMAL(14,2) );
           alter table prptitem_device
               modify(Capacity DECIMAL(14,2) );
           alter table prpcitem_device
               modify(PreUseTemperature DECIMAL(14,2) );
           alter table prpcitem_device
               modify(RealUseTemperature DECIMAL(14,2) );
           alter table prpcitem_device
               modify(Pre