Собственно, что имеем: поставщики присылают электронные накладные в dbf формате. В структуре этого файла есть поле SUM, что идентично с агрегатной функцией. Собственно вопрос как в запросе вытащить это поле ???
Вот запрос:
qAddField.SQL.Add('Insert into tmp(N_SCH,D_SCH,K_FPST,K_PRP,IMJ_TOVARF,D_IZG,D_GDN,K_TOVARF,ED_IZMF,K_IZMF,KOL, CENA_PSTF,');
qAddField.SQL.Add('CENA_OF,NAC_PST,CENA_REE,NDS_PSTF,SERIJAF,IMJ_FPRPF,K_FPRPF,I MJ_RESPF,K_RESPF,CENA_AK,');
qAddField.SQL.Add('SUM_AK,KOL_DAL,SUMM,S_NDC,SUMSNDC,N_GTDF,N_SSOOTF,K_SSOOTF,IM J_PSS,D_SOOTVF,KN_SOOTVF,D_GUZF,');
qAddField.SQL.Add('N_GUSF,APTEKA,NZAKAZA,SHKOD,ADRESS,CODUNIKO)');
qAddField.SQL.Add('select '+files+'.N_SCH, '+files+'.D_SCH, '+files+'.K_FPST, '+files+'.K_PRP, '+files+'.IMJ_TOVARF, '+files+'.D_IZG, '+files+'.D_GDN, '+files+'.K_TOVARF,');
qAddField.SQL.Add(''+files+'.ED_IZMF, '+files+'.K_IZMF, '+files+'.KOL, '+files+'.CENA_PSTF, '+files+'.CENA_OF, '+files+'.NAC_PST, '+files+'.CENA_REE, '+files+'.NDS_PSTF,');
qAddField.SQL.Add(''+files+'.SERIJAF, '+files+'.IMJ_FPRPF, '+files+'.K_FPRPF, '+files+'.IMJ_RESPF, '+files+'.K_RESPF, '+files+'.CENA_AK, '+files+'.SUM_AK, '+files+'.KOL_DAL,');
qAddField.SQL.Add(''+files+'.SUM, '+files+'.S_NDC, '+files+'.SUMSNDC, '+files+'.N_GTDF, '+files+'.N_SSOOTF, '+files+'.K_SSOOTF, '+files+'.IMJ_PSS, '+files+'.D_SOOTVF,');
qAddField.SQL.Add(''+files+'.KN_SOOTVF, '+files+'.D_GUZF, '+files+'.N_GUSF, '+files+'.APTEKA, '+files+'.NZAKAZA, '+files+'.SHKOD, '+files+'.ADRESS, tblSogl.COD');
qAddField.SQL.Add('from '+files+'.K_TOVARF, tblSogl');
qAddField.SQL.Add('where tblSogl.BMS='+files+'.K_TOVARF');