טעינה מקובץ

:POS=(:EQPNAME = :COUNTNAME ? :POS+1 : 1);
:COUNTNAME = :EQPNAME;
SELECT :POS , :COUNTNAME ASCII ADDTO 'C:\TEMP\HDMETERS_TEST.TXT';
INSERT INTO TECI_HDMETERS(EQPNAME , METGROUPID , METBASEDATE ,
METLASTUPDATE , METVALUE , METDIFFER ,
POS) VALUES(:EQPNAME , :METGROUPID ,
:METBASEDATE , :METLASTUPDATE , :METVALUE , :METDIFFER , :POS);

COUNTNAME = (:COUNTNAME " ? :COUNTNAME : ") ;
:PS = (:EQPNAME = :COUNTNAME ? :PS + 1 : 1) ;
/**/
SELECT HDENT INTO :GROUP_ID FROM TECI_HDENT , TECI_HDTBL
WHERE TECI_HDENT.HDTBL = TECI_HDTBL.HDTBL AND
TECI_HDTBL.TBLNAME = '25' AND TECI_HDENT.ENTNAME = :METGROUPID ;
/**/
:COUNTNAME = (:COUNTNAME = :EQPNAME ? :COUNTNAME : :EQPNAME) ;
/**/
/*SELECT :EQPNAME , '|' , :METDIFFER FROM DUMMY ASCII ADDTO
'D:\TEMP\HDMETERS_TEST.TXT';*/
/**/
INSERT INTO TECI_HDMETERS(EQPNAME , METGROUPID , METBASEDATE ,
METLASTUPDATE , METVALUE , METDIFFER ,
POS) VALUES(:EQPNAME , :GROUP_ID ,
ATOD(:METBASEDATE,'DD/MM/YY') ,
ATOD(:METLASTUPDATE,'DD/MM/YY hh:mm') , :METVALUE ,
ATOI(:METDIFFER) ,:PS );