Code: Alles auswählen
do while lWeiter = .t.
If File("sprinterscandata.csv")
oDlg:show()
oStatic:show()
use Spstamm New
Set index to "spstamm.cdx"
Spstamm->(OrdSetFocus("artikel"))
use Mde New Exclusive
cDatei:=memoread("sprinterscandata.csv")
cDatei:=strtran(cDatei,";"," ;")
nZeile:=MLcount(cDatei,30)
msgbox(var2lchar(nzeile))
For i = 1 to nZeile
cDatenSatz:=alltrim(MemoLine(cDatei,30,i))
nZaehler++
If nZaehler % 50 == 0
oAStatic:setcaption("Übertragung läuft: "+cDatenSatz)
nZaehler:=0
Endif
cFil:=Token(cDatenSatz,";",1)
msgbox(cfil)
If cFil="Filiale"
Else
cReg:=Token(cDatenSatz,";",2)
cMe:=Token(cDatenSatz,";",3)
cCode:=Token(cDatenSatz,";",4)
msgbox(creg)
msgbox(cme)
msgbox(ccode)
If Len(cCode) = 12
cArtnr:=substr(cCode,1,9)
If Spstamm->(DbSeek(cArtnr))
cRestCode:=cCode
cCode:=Spstamm->Spz+cRestcode
Endif
Endif
cEintrag:="10"+cFil+dtoc(date())+cReg+cCode
Mde->(DbAppend())
Mde->Mde:=cEintrag
Endif
Next i
FRename("sprinterscandata.csv","sprinterscandata"+cDatFile+".csv")
oDlg:hide()
oStatic:hide()
Close Data
Endif
If File("autominvmobilende.txt")
lWeiter:=.f.
Endif
sleep(1000)
Enddo
So sieht die Datei zum testen aus. Die anzahl der Datensätze ist natürlcih unterschiedlich. wie mache ich das richtig.??
Code: Alles auswählen
Filiale;Regalnummer;Menge;Bar-Code
01;002;1;4049484767074
01;002;1;4051199073081
01;002;1;111000001079
01;002;1;130000002305
01;002;1;130000002282
01;002;1;130000002275
01;002;1;130000002268