procedure TForm1.ImportvonRezepturenENU1Click(Sender: TObject);

Var importpath,softmixpackagingpath : String;

 

 

 

 

 

 

 

 

 

 

 

begin

 

 

 

end:=StrToInt(GetParamFromIni('import_neu.ini','columns_header','hBezeichnung_end'));

class=GramE>1:=StrToInt(GetParamFromIni('import_neu.ini','columns_header','hGVON_POS1'));

style='mso-ansi-language:EN-US'>hGVON_END:=StrToInt(GetParamFromIni('import_neu.ini','columns_header','hGVON_END'));

 

 

 

 

1:=StrToInt(GetParamFromIni('import_neu.ini','columns','materialBezeichnung_pos1'));

class=GramE>end:=StrToInt(GetParamFromIni('import_neu.ini','columns','materialBezeichnung_end'));

style='mso-ansi-language:EN-US'>menge_pos1:=StrToInt(GetParamFromIni('import_neu.ini','columns','menge_pos1'));

 

 

 

 

 

//Pruefe_Logik_Import(importpath,Searchrec.Name);

AssignFile(IMPFile,importpath+Searchrec.Name);

ImpText:=Entferne_ungchar(ImpText);

 

class=SpellE>LastImpText:='&';

lang=EN-US style='mso-ansi-language:EN-US'>Repeat

 

 

// Block einlesen **************************************************************

 

 

class=SpellE>ImpTextFeld[i-1]:='';

 

 

// Zutaten ermitteln ***********************************************************

lang=EN-US style='mso-ansi-language:EN-US'>For I:= 1 to 60 do begin

 

ImpMEFeld[1]:=GetStrFormStr(87,89,ImpTextFeld[1]);

 

lang=EN-US style='mso-ansi-language:EN-US'>I:=2;

ImpMEFeld[i]:=GetStrFormStr(me_pos1,me_end,ImpTextFeld[i]);

 

lang=EN-US style='mso-ansi-language:EN-US'>I:=Succ(I);

ImpTyp:=0;

 

///////////// Ermittelt die Anzahl der Rohstoff und der Verpackungen

EN-US'>ImpKG:=0;

 

///////////// Wenn EA in der ersten Zeile steht ist eine 2

///////////// SOFTMIX in der ersten Zeile steht ist es ein 6

 

lang=EN-US style='mso-ansi-language:EN-US'>If Pos('EA',ImpMEFeld[1])=1 then begin

// ImpTy=6 Verpackungen **********************

 

 

/////////////Phantom - schreibt alle bestandteile des Phantoms in eine Datei

 

lang=EN-US style='mso-ansi-language:EN-US'>If (ImpTyp=6) then begin

////AssignFile(packfile,softmixpackagingpath+ImpTextFeld[1]+'.txt');

//// ImpTy=3,4,5 Rezepturen einlesem *********************************************

 

 

REZSatz.MISNR:=GetStrFormStr(hmrdr_pos1,hmrdr_end,ImpTextFeld[1]);

REZSatz.RZNR:='';

class=GramE>REZSatz.MBEZ:=GetStrFormStr(hBezeichnung_pos1,hBezeichnung_end,ImpTextFeld[1]);

class=GramE>REZSatz.GVON:=GetStrFormStr(hGVON_POS1,hGVON_END,ImpTextFeld[1]);

class=GramE>REZSatz.GBIS:=GetStrFormStr(hGBIS_POS1,hGBIS_END,ImpTextFeld[1]);

 

lang=EN-US style='mso-ansi-language:EN-US'>ImpTextTmp:=GetStrFormStr(hmenge_pos1,hmenge_end,ImpTextFeld[1]);

REZSatz.GMENGE:=StrToFloat(ImpTextTmp)/1000;

 

REZSatz.Pos[A].ISNR:=GetStrFormStr(mrdr_pos1,mrdr_end,ImpTextFeld[i]);

 

 

Bezeichung:=GetStrFormStr(materialBezeichnung_pos1,materialBezeichnung_end,ImpTextFeld[i]);

 

lang=EN-US style='mso-ansi-language:EN-US'>If REZSatz.Pos[A].ISNR[1]='0' then begin

 

ImpTextTmp:=GetStrFormStr(menge_pos1,menge_end,ImpTextFeld[i]);

REZSatz.Pos[A].RMenge:=StrToFloat(ImpTextTmp)/1000;

 

 

//

 

 

 

rssatz.TOL:=MyStrToFloat(Rows[3,0]);

rssatz.ISNR:='';

class=SpellE>rssatz.Bez:='';

class=SpellE>rssatz.ZO:='';

class=SpellE>rssatz.TOL:=0;

lang=EN-US style='mso-ansi-language:EN-US'>end;

 

RSSatz.ZO:='';

class=SpellE>RSSatz.Bez:=Material_Imp_Bezeichung;

class=SpellE>RSSatz.TOL:=-1;

class=SpellE>query:='INSERT INTO rezdb_rohstoffe (isnr,bezeichnung,zuordnung,toleranz) '+

class=GramE>values('''+RSSatz.ISNR+''','''+RSSatz.Bez+''','''+RSSatz.ZO+''',-1.0);';

lang=EN-US style='mso-ansi-language:EN-US'>ErrorCode := mysql_real_query(Descriptor, PChar(query), length(query));

 

 

//

 

 

 

//// *********************************************************************************************************************

 

VBM_MischungHS.misnr:=REZSatz.MISNR;

 

VBM_MischungHS.risnr:=GetStrFormStr(mrdr_pos1,mrdr_end,ImpTextFeld[i]);

Delete(VBM_MischungHS.risnr,1,1);

class=SpellE>Until VBM_MischungHS.risnr[1]<>'0';

lang=EN-US style='mso-ansi-language:EN-US'>end;

 

VBM_MischungHS.ME:=GetStrFormStr(me_pos1,me_end,ImpTextFeld[i]);

 

ImpTextTmp:=GetStrFormStr(menge_pos1,menge_end,ImpTextFeld[i]);

VBM_MischungHS.MENGE:=StrToFloat(ImpTextTmp)/1000;

 

lang=EN-US style='mso-ansi-language:EN-US'>Reset(VBM_MischungF);

Read(VBM_MischungF,VBM_MischungS);

class=SpellE>Until (eof(VBM_MischungF)) or ((VBM_MischungS.misnr=VBM_MischungHS.misnr) and (VBM_MischungS.risnr=VBM_MischungHS.risnr));

class=SpellE>If ((VBM_MischungS.misnr=VBM_MischungHS.misnr) and (VBM_MischungS.risnr=VBM_MischungHS.risnr)) then Seek(VBM_MischungF,Filepos(VBM_MischungF)-1);

class=GramE>Write(VBM_MischungF,VBM_MischungHS);

lang=EN-US style='mso-ansi-language:EN-US'>CloseFile(VBM_MischungF);

 

 

 

 

 

 

 

//// *********************************************************************************************************************

 

 

 

 

 

 

If Pruefe_REZSatz_auf_doppelte_rohstoffe(REZSatz)=True then begin

class=GramE>Memo1.Lines.Add(REZSatz.MISNR+' '+');

(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);

lang=EN-US style='mso-ansi-language:EN-US'>SQLME:=GetStrFormStr(ME_pos1,ME_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;