procedure
TForm1.ImportvonRezepturenENU1Click(Sender: TObject);
Var
importpath,softmixpackagingpath : String;
begin
end:=StrToInt(GetParamFromIni('import_neu.ini','columns_header','hBezeichnung_end'));
1:=StrToInt(GetParamFromIni('import_neu.ini','columns','materialBezeichnung_pos1'));
//Pruefe_Logik_Import(importpath,Searchrec.Name);
AssignFile(IMPFile,importpath+Searchrec.Name);
ImpText:=Entferne_ungchar(ImpText);
// Block
einlesen **************************************************************
// Zutaten ermitteln
***********************************************************
ImpMEFeld[1]:=GetStrFormStr(87,89,ImpTextFeld[1]);
ImpMEFeld[i]:=GetStrFormStr(me_pos1,me_end,ImpTextFeld[i]);
ImpTyp:=0;
///////////// Ermittelt die Anzahl der Rohstoff und der
Verpackungen
///////////// Wenn EA in der ersten Zeile steht ist eine
2
///////////// SOFTMIX in der ersten Zeile steht ist es ein
6
// ImpTy=6 Verpackungen
**********************
/////////////Phantom - schreibt alle bestandteile
des Phantoms in eine Datei
////AssignFile(packfile,softmixpackagingpath+ImpTextFeld[1]+'.txt');
////
ImpTy=3,4,5 Rezepturen einlesem *********************************************
REZSatz.MISNR:=GetStrFormStr(hmrdr_pos1,hmrdr_end,ImpTextFeld[1]);
REZSatz.RZNR:='';
REZSatz.GMENGE:=StrToFloat(ImpTextTmp)/1000;
REZSatz.Pos[A].ISNR:=GetStrFormStr(mrdr_pos1,mrdr_end,ImpTextFeld[i]);
Bezeichung:=GetStrFormStr(materialBezeichnung_pos1,materialBezeichnung_end,ImpTextFeld[i]);
ImpTextTmp:=GetStrFormStr(menge_pos1,menge_end,ImpTextFeld[i]);
REZSatz.Pos[A].RMenge:=StrToFloat(ImpTextTmp)/1000;
//
rssatz.TOL:=MyStrToFloat(Rows[3,0]); rssatz.ISNR:='';
RSSatz.ZO:='';
//
////
*********************************************************************************************************************
VBM_MischungHS.misnr:=REZSatz.MISNR;
VBM_MischungHS.risnr:=GetStrFormStr(mrdr_pos1,mrdr_end,ImpTextFeld[i]);
Delete(VBM_MischungHS.risnr,1,1);
VBM_MischungHS.ME:=GetStrFormStr(me_pos1,me_end,ImpTextFeld[i]);
ImpTextTmp:=GetStrFormStr(menge_pos1,menge_end,ImpTextFeld[i]);
VBM_MischungHS.MENGE:=StrToFloat(ImpTextTmp)/1000;
Read(VBM_MischungF,VBM_MischungS);
////
*********************************************************************************************************************
If Pruefe_REZSatz_auf_doppelte_rohstoffe(REZSatz)=True then begin
(HREZSatz.GVON=REZSatz.GVON) and
(HREZSatz.GBIS=REZSatz.GBIS));
Writeln(REZIMPORTLOGFile,REZSatz.misnr);
//
////
AssignFile(packfile,softmixpackagingpath+Searchrec.Name);
SQL_HF_MISNR:=GetStrFormStr(hmrdr_pos1,hmrdr_end,ImpText);
SQLGVON:=GetStrFormStr(hGVON_POS1,hGVON_END,ImpText);
SQLGBIS:=GetStrFormStr(hGBIS_POS1,hGBIS_END,ImpText);
SQLMatNr:=GetStrFormStr(mrdr_pos1,mrdr_end,ImpText);
SQLMatBez:=GetStrFormStr(materialBezeichnung_pos1,materialBezeichnung_end,ImpText);
SQLMenge:=GetStrFormStr(menge_pos1,menge_end,ImpText);
Writeln(packFile_neu,SQL_HF_MISNR+';'+SQLMatNr+';'+SQLMatBez+';'+SQLME+';'+SQLMenge+';'+SQLGVON+';'+SQLGBIS+';');
SQLGVON:=GetStrFormStr(hGVON_POS1,hGVON_END,ImpText);
SQLMatNr:=GetStrFormStr(mrdr_pos1,mrdr_end,ImpText);
SQLMenge:=GetStrFormStr(menge_pos1,menge_end,ImpText);
SQLME:=GetStrFormStr(ME_pos1,ME_end,ImpText);
Writeln(packFile_neu,SQL_HF_MISNR+';'+SQLMatNr+';'+SQLMatBez+';'+SQLME+';'+SQLMenge+';'+SQLGVON+';'+SQLGBIS+';');
end;