DATEV import/export
Moderator: Moderatoren
DATEV import/export
Hallo zusammen,
möchte eine Datenausgabe an DATEV (export) aus einem Clipperprg. ausführen und mit dem DATEV einlesen. Die Ausgabedatei heißt 'fi.df'.
Habe die Ausgabe vor etwa 5 Jahren zum letzten mal gemacht und per DATEV eingelesen und es klappte ohne Probleme. Allerdings klappt es mit dem einlesen ins DATEV nicht mehr.
Muß ich was ändern?
Im voraus vielen Dank für die Hilfe.
Viele Grüße
angelo
möchte eine Datenausgabe an DATEV (export) aus einem Clipperprg. ausführen und mit dem DATEV einlesen. Die Ausgabedatei heißt 'fi.df'.
Habe die Ausgabe vor etwa 5 Jahren zum letzten mal gemacht und per DATEV eingelesen und es klappte ohne Probleme. Allerdings klappt es mit dem einlesen ins DATEV nicht mehr.
Muß ich was ändern?
Im voraus vielen Dank für die Hilfe.
Viele Grüße
angelo
- AUGE_OHR
- Marvin
- Beiträge: 12913
- Registriert: Do, 16. Mär 2006 7:55
- Wohnort: Hamburg
- Hat sich bedankt: 19 Mal
- Danksagung erhalten: 46 Mal
Re: DATEV import/export
hi,
Daten) einlesen ?
hm ... 5 Jahre ... ja da war doch was ...
Ich weiss nur noch das die "Feld Struktur" geändert wurde ... aber wann
das war ... Euro Umstellung ("o01" = EURO, "o02" = DM )...
Ich muss mal im Source meiner DATEV Lib suchen ... da müsste ich
sicherlich einen Kommentar stehen haben.
auf jeden Fall würde ich von der DATEV aktuelle Unterlagen "Magnetische
Datenträger" anfordern wo du die Datenstrukturen zu den jeweiligen
DATEV Programm Modulen findest.
gruss by OHR
Jimmy
in was für ein DATEV Modul willst du welche Daten (Stamm-/Bewegungs-angelo hat geschrieben: Habe die Ausgabe vor etwa 5 Jahren zum letzten mal gemacht und per DATEV eingelesen und es klappte ohne Probleme. Allerdings klappt es mit dem einlesen ins DATEV nicht mehr.
Muß ich was ändern?
Daten) einlesen ?
hm ... 5 Jahre ... ja da war doch was ...
Ich weiss nur noch das die "Feld Struktur" geändert wurde ... aber wann
das war ... Euro Umstellung ("o01" = EURO, "o02" = DM )...
Ich muss mal im Source meiner DATEV Lib suchen ... da müsste ich
sicherlich einen Kommentar stehen haben.
auf jeden Fall würde ich von der DATEV aktuelle Unterlagen "Magnetische
Datenträger" anfordern wo du die Datenstrukturen zu den jeweiligen
DATEV Programm Modulen findest.
gruss by OHR
Jimmy
Re: DATEV import/export
AUGE_OHR hat geschrieben:hi,in was für ein DATEV Modul willst du welche Daten (Stamm-/Bewegungs-angelo hat geschrieben: Habe die Ausgabe vor etwa 5 Jahren zum letzten mal gemacht und per DATEV eingelesen und es klappte ohne Probleme. Allerdings klappt es mit dem einlesen ins DATEV nicht mehr.
Muß ich was ändern?
Daten) einlesen ?
hm ... 5 Jahre ... ja da war doch was ...
Ich weiss nur noch das die "Feld Struktur" geändert wurde ... aber wann
das war ... Euro Umstellung ("o01" = EURO, "o02" = DM )...
Ich muss mal im Source meiner DATEV Lib suchen ... da müsste ich
sicherlich einen Kommentar stehen haben.
auf jeden Fall würde ich von der DATEV aktuelle Unterlagen "Magnetische
Datenträger" anfordern wo du die Datenstrukturen zu den jeweiligen
DATEV Programm Modulen findest.
gruss by OHR
Jimmy
Hallo Jimmy,
ich möchte die Rechnungsdaten in die Datei 'fi.df' ausgeben und diese dann unter DATEV einlesen. Übrigens müssen es doch weniger wie 5 Jahre sein weil ich die EURO Umstellung schon gemacht ist.
Wie Du auch geschrieben hast muß es mit Sicherheit an der Datenstruktur liegen. Bekomme ich die aktuelle Datenstruktur nur über DATEV oder auch über das Internet?
Gruß
angelo
- AUGE_OHR
- Marvin
- Beiträge: 12913
- Registriert: Do, 16. Mär 2006 7:55
- Wohnort: Hamburg
- Hat sich bedankt: 19 Mal
- Danksagung erhalten: 46 Mal
Re: DATEV import/export
hi,
sein ?
Ich meine "die ganz alte Postversand" Schnittstelle mit DV01 (Vorlauf)
sowie DE001 (Daten) die ich verwende
so beim suchen hab ich folgendes gefunden : Hast du schon eine
EG-Ust.ID. in deiner Schnittstelle ?
solchen Sachen immer an unseren Steuerberater, der ja DATEV Mitglied
ist, damit er mir die Sachen besorgt. Dann kostet "mich" das nichts.
last but not least: welche DATEV Programm soll den Daten einlesen ?
Inzwischen kann man doch auch Excel Tabellen etc. verwenden.
gruss by OHR
Jimmy
hm ... "fi.df" kenne ich nicht ?! für "welches" DATEV Modul soll das denangelo hat geschrieben: ich möchte die Rechnungsdaten in die Datei 'fi.df' ausgeben und diese dann unter DATEV einlesen.
sein ?
Ich meine "die ganz alte Postversand" Schnittstelle mit DV01 (Vorlauf)
sowie DE001 (Daten) die ich verwende
ok daran liegt es den schon mal nichtangelo hat geschrieben: Übrigens müssen es doch weniger wie 5 Jahre sein weil ich die EURO Umstellung schon gemacht ist.
so beim suchen hab ich folgendes gefunden : Hast du schon eine
EG-Ust.ID. in deiner Schnittstelle ?
glaube ich kaum das man was im Internet findet. Ich wende mich inangelo hat geschrieben: Wie Du auch geschrieben hast muß es mit Sicherheit an der Datenstruktur liegen. Bekomme ich die aktuelle Datenstruktur
nur über DATEV oder auch über das Internet?
solchen Sachen immer an unseren Steuerberater, der ja DATEV Mitglied
ist, damit er mir die Sachen besorgt. Dann kostet "mich" das nichts.
last but not least: welche DATEV Programm soll den Daten einlesen ?
Inzwischen kann man doch auch Excel Tabellen etc. verwenden.
gruss by OHR
Jimmy
Re: DATEV import/export
AUGE_OHR hat geschrieben:hi,hm ... "fi.df" kenne ich nicht ?! für "welches" DATEV Modul soll das denangelo hat geschrieben: ich möchte die Rechnungsdaten in die Datei 'fi.df' ausgeben und diese dann unter DATEV einlesen.
sein ?
Ich meine "die ganz alte Postversand" Schnittstelle mit DV01 (Vorlauf)
sowie DE001 (Daten) die ich verwende
ok daran liegt es den schon mal nichtangelo hat geschrieben: Übrigens müssen es doch weniger wie 5 Jahre sein weil ich die EURO Umstellung schon gemacht ist.
so beim suchen hab ich folgendes gefunden : Hast du schon eine
EG-Ust.ID. in deiner Schnittstelle ?
glaube ich kaum das man was im Internet findet. Ich wende mich inangelo hat geschrieben: Wie Du auch geschrieben hast muß es mit Sicherheit an der Datenstruktur liegen. Bekomme ich die aktuelle Datenstruktur
nur über DATEV oder auch über das Internet?
solchen Sachen immer an unseren Steuerberater, der ja DATEV Mitglied
ist, damit er mir die Sachen besorgt. Dann kostet "mich" das nichts.
last but not least: welche DATEV Programm soll den Daten einlesen ?
Inzwischen kann man doch auch Excel Tabellen etc. verwenden.
gruss by OHR
Jimmy
Hallo Jimmy,
lang, lang ist es her aber die Ausgabe- bzw. Übergabedatei 'fi.df' kann bei IBM-Fibu sowie bei DATEV benutzt werden. Es ist für das Modul REWE.
Die EG-Ust.ID. ist auch vorhanden in der Schnittstelle.
Du hast recht im Internet habe ich überhaupt nichts gefunden was Datenstruktur angeht.
Es soll das aktuelle DATEV Programm die Daten einlesen. Wie es heißt weiß ich noch nicht weil ich seit längerem vom Steuerberater ein Telefonat bekommen sollte und ich warte immer noch.
Gruß
angelo
- Koverhage
- Der Entwickler von "Deep Thought"
- Beiträge: 2471
- Registriert: Fr, 23. Dez 2005 8:00
- Wohnort: Aalen
- Hat sich bedankt: 104 Mal
- Danksagung erhalten: 3 Mal
- Kontaktdaten:
Hier wie es mit der aktuellen IBM Fibu Version funktioniert:
wobei am Ende noch
FWrite( nHandle, "I $" )
gemacht werden muss.
static procedure rb_ibm
local m_anrede := space( 30 )
local m_babez := space( 27 )
local cString
set century OFF
// do case
// case ("kd")->anrede = 1
// m_anrede = 'Sehr geehrte Damen und Herren '
// case ("kd")->anrede = 2
// m_anrede = 'Sehr geehrte Frau '
// case ("kd")->anrede = 3
// m_anrede = 'Sehr geehrter Herr '
// case ("kd")->anrede = 4
// m_anrede = 'Sehr geehrtes Fr„ulein '
// otherwise
// endcase
cString := "I $3 " + space( 144 )
FWrite( nHandle, cString )
cString := CRLF +;
"2 K110" + ;
strzero( ("kd")->debitNr, 7 ) + ;
m_anrede + ;
substr( ("kd")->name1,1,30 ) + ;
substr( ("kd")->name2,1,30 ) + ;
substr( ("kd")->name3,1,30 ) + ;
("kd")->strasse + ;
("kd")->land + ;
strzero( ("kd")->plz, 8 ) + ;
("kd")->ort + ;
("kd")->tel1 + ;
space( 5 ) + ;
("kd")->fax + ;
space( 5 )
FWrite( nHandle, cString )
cString := CRLF +;
"2 K210" + ;
strzero( ("kd")->debitNr, 7 ) + ;
substr( ("kd")->name1,1,30) + ;
substr( ("kd")->bezeich, 1, 15 ) + ;
space( 30 )
FWrite( nHandle, cString )
if ("rk")->zart = 2
if ("kd")->blz > 0
("ba")->(dbseek( str( ("kd")->blz, 8 ) ))
if ("ba")->(found())
m_babez := substr( ("ba")->bankbez, 1, 27 )
endif
endif
cString := CRLF + ;
"2 K410" + ;
strzero( ("kd")->debitNr, 7 ) + ;
str( ("kd")->blz, 8 ) + ;
m_babez + ;
("kd")->bkto + ;
" " + ;
("kd")->name2 + ;
" " + ;
"E" + ;
space( 6 )
FWrite( nHandle, cString )
endif
cString := CRLF + ;
"2 K510" + ;
strzero( ("kd")->debitNr, 7 ) + ;
m_anrede + ;
substr( ("kd")->name1,1,30) + ;
substr( ("kd")->name2,1,30) + ;
substr( ("kd")->name3,1,30) + ;
("kd")->l_str + ;
("kd")->l_ld + ;
strzero( ("kd")->l_plz, 8 ) + ;
("kd")->l_ort + ;
("kd")->tel1 + ;
space( 5 ) + ;
("kd")->fax + ;
space( 5 )
FWrite( nHandle, cString )
if ( !empty( ("kd")->ustid ) )
cString := CRLF +;
"2 K810" + ;
strzero( ("kd")->debitNr, 7 ) + ;
("kd")->ustid
FWrite( nHandle, cString )
endif
cString := CRLF + ;
"3 BFIA 10" + ;
"RE-NR: " + ;
str( ("ra")->buchnummer, 5 ) + ;
space( 8 ) + ;
space( 20 ) + ;
iif( empty( ("rk")->mwst ), " ", "M" + strzero( ("rk")->mwst, 2 ) ) + ;
iif( ("rk")->skon > 0, "S02", "N " ) + ;
iif( ("rk")->fael > 0, strzero( ("rk")->fael, 3 ), " " ) + ;
iif( ("rk")->skon > 0, strzero( ("rk")->skon, 3 ), " " ) + ;
iif( ("rk")->skpr > 0, strzero( ("rk")->skpr, 5, 2 ), space( 5 ) ) + ;
space( 7 ) + ;
strtran( dtoc( date() ), ".", "" ) + ;
strtran( dtoc( ("rk")->rdat ), ".", "" ) + ;
space( 6 ) + ;
space( 6 ) + ;
iif( ("rk")->rekn > 0, "0003705", "0003704" ) + ;
strzero( ("rk")->renr, 7 )
do case
case ("rk")->rekn = 0
cString += "0004411"
case ("rk")->rekn = 8
cString += "0004410"
otherwise
cString += "0004412"
endcase
cString += strzero( ("kd")->debitNr, 7 ) + ;
space( 7 ) + ;
space( 7 ) + ;
str( abs( ("rk")->gbru ), 12, 2 ) + ;
iif( ("rk")->gbru < 0, "-", "+" ) + ;
iif( empty( ("kd")->ustid ), space( 7 ), space( 7 ) ) + ;
("kd")->ustid + ;
"LG-Nr: " + strzero( ("rk")->kunr, 9 ) + space( 4 )
FWrite( nHandle, cString )
FWrite( nHandle, CRLF )
?
set century on
return
wobei am Ende noch
FWrite( nHandle, "I $" )
gemacht werden muss.
static procedure rb_ibm
local m_anrede := space( 30 )
local m_babez := space( 27 )
local cString
set century OFF
// do case
// case ("kd")->anrede = 1
// m_anrede = 'Sehr geehrte Damen und Herren '
// case ("kd")->anrede = 2
// m_anrede = 'Sehr geehrte Frau '
// case ("kd")->anrede = 3
// m_anrede = 'Sehr geehrter Herr '
// case ("kd")->anrede = 4
// m_anrede = 'Sehr geehrtes Fr„ulein '
// otherwise
// endcase
cString := "I $3 " + space( 144 )
FWrite( nHandle, cString )
cString := CRLF +;
"2 K110" + ;
strzero( ("kd")->debitNr, 7 ) + ;
m_anrede + ;
substr( ("kd")->name1,1,30 ) + ;
substr( ("kd")->name2,1,30 ) + ;
substr( ("kd")->name3,1,30 ) + ;
("kd")->strasse + ;
("kd")->land + ;
strzero( ("kd")->plz, 8 ) + ;
("kd")->ort + ;
("kd")->tel1 + ;
space( 5 ) + ;
("kd")->fax + ;
space( 5 )
FWrite( nHandle, cString )
cString := CRLF +;
"2 K210" + ;
strzero( ("kd")->debitNr, 7 ) + ;
substr( ("kd")->name1,1,30) + ;
substr( ("kd")->bezeich, 1, 15 ) + ;
space( 30 )
FWrite( nHandle, cString )
if ("rk")->zart = 2
if ("kd")->blz > 0
("ba")->(dbseek( str( ("kd")->blz, 8 ) ))
if ("ba")->(found())
m_babez := substr( ("ba")->bankbez, 1, 27 )
endif
endif
cString := CRLF + ;
"2 K410" + ;
strzero( ("kd")->debitNr, 7 ) + ;
str( ("kd")->blz, 8 ) + ;
m_babez + ;
("kd")->bkto + ;
" " + ;
("kd")->name2 + ;
" " + ;
"E" + ;
space( 6 )
FWrite( nHandle, cString )
endif
cString := CRLF + ;
"2 K510" + ;
strzero( ("kd")->debitNr, 7 ) + ;
m_anrede + ;
substr( ("kd")->name1,1,30) + ;
substr( ("kd")->name2,1,30) + ;
substr( ("kd")->name3,1,30) + ;
("kd")->l_str + ;
("kd")->l_ld + ;
strzero( ("kd")->l_plz, 8 ) + ;
("kd")->l_ort + ;
("kd")->tel1 + ;
space( 5 ) + ;
("kd")->fax + ;
space( 5 )
FWrite( nHandle, cString )
if ( !empty( ("kd")->ustid ) )
cString := CRLF +;
"2 K810" + ;
strzero( ("kd")->debitNr, 7 ) + ;
("kd")->ustid
FWrite( nHandle, cString )
endif
cString := CRLF + ;
"3 BFIA 10" + ;
"RE-NR: " + ;
str( ("ra")->buchnummer, 5 ) + ;
space( 8 ) + ;
space( 20 ) + ;
iif( empty( ("rk")->mwst ), " ", "M" + strzero( ("rk")->mwst, 2 ) ) + ;
iif( ("rk")->skon > 0, "S02", "N " ) + ;
iif( ("rk")->fael > 0, strzero( ("rk")->fael, 3 ), " " ) + ;
iif( ("rk")->skon > 0, strzero( ("rk")->skon, 3 ), " " ) + ;
iif( ("rk")->skpr > 0, strzero( ("rk")->skpr, 5, 2 ), space( 5 ) ) + ;
space( 7 ) + ;
strtran( dtoc( date() ), ".", "" ) + ;
strtran( dtoc( ("rk")->rdat ), ".", "" ) + ;
space( 6 ) + ;
space( 6 ) + ;
iif( ("rk")->rekn > 0, "0003705", "0003704" ) + ;
strzero( ("rk")->renr, 7 )
do case
case ("rk")->rekn = 0
cString += "0004411"
case ("rk")->rekn = 8
cString += "0004410"
otherwise
cString += "0004412"
endcase
cString += strzero( ("kd")->debitNr, 7 ) + ;
space( 7 ) + ;
space( 7 ) + ;
str( abs( ("rk")->gbru ), 12, 2 ) + ;
iif( ("rk")->gbru < 0, "-", "+" ) + ;
iif( empty( ("kd")->ustid ), space( 7 ), space( 7 ) ) + ;
("kd")->ustid + ;
"LG-Nr: " + strzero( ("rk")->kunr, 9 ) + space( 4 )
FWrite( nHandle, cString )
FWrite( nHandle, CRLF )
?
set century on
return
Koverhage hat geschrieben:Hier wie es mit der aktuellen IBM Fibu Version funktioniert:
wobei am Ende noch
FWrite( nHandle, "I $" )
gemacht werden muss.
static procedure rb_ibm
local m_anrede := space( 30 )
local m_babez := space( 27 )
local cString
set century OFF
// do case
// case ("kd")->anrede = 1
// m_anrede = 'Sehr geehrte Damen und Herren '
// case ("kd")->anrede = 2
// m_anrede = 'Sehr geehrte Frau '
// case ("kd")->anrede = 3
// m_anrede = 'Sehr geehrter Herr '
// case ("kd")->anrede = 4
// m_anrede = 'Sehr geehrtes Fr„ulein '
// otherwise
// endcase
cString := "I $3 " + space( 144 )
FWrite( nHandle, cString )
cString := CRLF +;
"2 K110" + ;
strzero( ("kd")->debitNr, 7 ) + ;
m_anrede + ;
substr( ("kd")->name1,1,30 ) + ;
substr( ("kd")->name2,1,30 ) + ;
substr( ("kd")->name3,1,30 ) + ;
("kd")->strasse + ;
("kd")->land + ;
strzero( ("kd")->plz, 8 ) + ;
("kd")->ort + ;
("kd")->tel1 + ;
space( 5 ) + ;
("kd")->fax + ;
space( 5 )
FWrite( nHandle, cString )
cString := CRLF +;
"2 K210" + ;
strzero( ("kd")->debitNr, 7 ) + ;
substr( ("kd")->name1,1,30) + ;
substr( ("kd")->bezeich, 1, 15 ) + ;
space( 30 )
FWrite( nHandle, cString )
if ("rk")->zart = 2
if ("kd")->blz > 0
("ba")->(dbseek( str( ("kd")->blz, 8 ) ))
if ("ba")->(found())
m_babez := substr( ("ba")->bankbez, 1, 27 )
endif
endif
cString := CRLF + ;
"2 K410" + ;
strzero( ("kd")->debitNr, 7 ) + ;
str( ("kd")->blz, 8 ) + ;
m_babez + ;
("kd")->bkto + ;
" " + ;
("kd")->name2 + ;
" " + ;
"E" + ;
space( 6 )
FWrite( nHandle, cString )
endif
cString := CRLF + ;
"2 K510" + ;
strzero( ("kd")->debitNr, 7 ) + ;
m_anrede + ;
substr( ("kd")->name1,1,30) + ;
substr( ("kd")->name2,1,30) + ;
substr( ("kd")->name3,1,30) + ;
("kd")->l_str + ;
("kd")->l_ld + ;
strzero( ("kd")->l_plz, 8 ) + ;
("kd")->l_ort + ;
("kd")->tel1 + ;
space( 5 ) + ;
("kd")->fax + ;
space( 5 )
FWrite( nHandle, cString )
if ( !empty( ("kd")->ustid ) )
cString := CRLF +;
"2 K810" + ;
strzero( ("kd")->debitNr, 7 ) + ;
("kd")->ustid
FWrite( nHandle, cString )
endif
cString := CRLF + ;
"3 BFIA 10" + ;
"RE-NR: " + ;
str( ("ra")->buchnummer, 5 ) + ;
space( 8 ) + ;
space( 20 ) + ;
iif( empty( ("rk")->mwst ), " ", "M" + strzero( ("rk")->mwst, 2 ) ) + ;
iif( ("rk")->skon > 0, "S02", "N " ) + ;
iif( ("rk")->fael > 0, strzero( ("rk")->fael, 3 ), " " ) + ;
iif( ("rk")->skon > 0, strzero( ("rk")->skon, 3 ), " " ) + ;
iif( ("rk")->skpr > 0, strzero( ("rk")->skpr, 5, 2 ), space( 5 ) ) + ;
space( 7 ) + ;
strtran( dtoc( date() ), ".", "" ) + ;
strtran( dtoc( ("rk")->rdat ), ".", "" ) + ;
space( 6 ) + ;
space( 6 ) + ;
iif( ("rk")->rekn > 0, "0003705", "0003704" ) + ;
strzero( ("rk")->renr, 7 )
do case
case ("rk")->rekn = 0
cString += "0004411"
case ("rk")->rekn = 8
cString += "0004410"
otherwise
cString += "0004412"
endcase
cString += strzero( ("kd")->debitNr, 7 ) + ;
space( 7 ) + ;
space( 7 ) + ;
str( abs( ("rk")->gbru ), 12, 2 ) + ;
iif( ("rk")->gbru < 0, "-", "+" ) + ;
iif( empty( ("kd")->ustid ), space( 7 ), space( 7 ) ) + ;
("kd")->ustid + ;
"LG-Nr: " + strzero( ("rk")->kunr, 9 ) + space( 4 )
FWrite( nHandle, cString )
FWrite( nHandle, CRLF )
?
set century on
return
Hallo Koverhage,
Danke für den Programm-Code für IBM-Fibu.
Allerdings brauche ich die Datenstruktur für DATEV.
Gruß
angelo
- Wolfgang Ciriack
- Der Entwickler von "Deep Thought"
- Beiträge: 2945
- Registriert: Sa, 24. Sep 2005 9:37
- Wohnort: Berlin
- Hat sich bedankt: 14 Mal
- Danksagung erhalten: 34 Mal
- Kontaktdaten:
- AUGE_OHR
- Marvin
- Beiträge: 12913
- Registriert: Do, 16. Mär 2006 7:55
- Wohnort: Hamburg
- Hat sich bedankt: 19 Mal
- Danksagung erhalten: 46 Mal
hi,
gruss by OHR
Jimmy
anbei die Structur von meinen beiden DBF Dateinangelo hat geschrieben: Allerdings brauche ich die Datenstruktur für DATEV.
gruss by OHR
Jimmy
Code: Alles auswählen
Local aStruct := { ;
{ "BERATERNR" ,"C" , 7, 0 } ,;
{ "BERAT_NAME" ,"C" , 9, 0 } ,;
{ "MAN_NR" ,"C" , 5, 0 } ,;
{ "KONTROLLZA" ,"C" , 7, 0 } ,;
{ "ABR_NR" ,"C" , 6, 0 } ,;
{ "ANWEND_NR" ,"N" , 2, 0 } ,;
{ "MAN_KURZ" ,"C" , 30, 0 } ,;
{ "NAME1" ,"C" , 30, 0 } ,;
{ "EGIDNR" ,"C" , 15, 0 } ,;
{ "EURODM" ,"N" , 2, 0 } ,;
{ "USERDFV" ,"C" , 2, 0 } ,;
{ "BELEG_NR" ,"N" , 4, 0 } ,;
{ "DATEV" ,"N" , 1, 0 }}
DbCreate( "VORLAUF.DBF", aStruct, "FOXCDX" )
*****************************************
Local aStruct := { ;
{ "BUCHMODUS" ,"C" , 1, 0 } ,;
{ "UMSATZ" ,"N" , 11, 2 } ,;
{ "STORNOSCHL" ,"C" , 1, 0 } ,;
{ "STEUERSCHL" ,"C" , 1, 0 } ,;
{ "GEGENKONTO" ,"C" , 5, 0 } ,;
{ "BELEG1" ,"C" , 6, 0 } ,;
{ "BELEG2" ,"C" , 6, 0 } ,;
{ "BUCHDATUM" ,"D" , 8, 0 } ,;
{ "BUCHKONTO" ,"C" , 5, 0 } ,;
{ "KOST1" ,"C" , 4, 0 } ,;
{ "KOST2" ,"C" , 4, 0 } ,;
{ "SKONTO" ,"N" , 7, 2 } ,;
{ "BUCHTEXT" ,"C" , 30, 0 } ,;
{ "EGLAND" ,"C" , 2, 0 } ,;
{ "EGIDNR" ,"C" , 13, 0 } ,;
{ "EGSTSATZ" ,"C" , 4, 0 } ,;
{ "EURODM" ,"N" , 2, 0 } ,;
{ "INDIZ" ,"C" , 12, 0 } ,;
{ "ANWEND_NR" ,"N" , 2, 0 } ,;
{ "ABR_NR" ,"C" , 6, 0 } ,;
{ "DFV" ,"C" , 2, 0 } }
DbCreate( "TMP_FIBU.DBF", aStruct, "FOXCDX" )
AUGE_OHR hat geschrieben:hi,anbei die Structur von meinen beiden DBF Dateinangelo hat geschrieben: Allerdings brauche ich die Datenstruktur für DATEV.
gruss by OHR
JimmyCode: Alles auswählen
Local aStruct := { ; { "BERATERNR" ,"C" , 7, 0 } ,; { "BERAT_NAME" ,"C" , 9, 0 } ,; { "MAN_NR" ,"C" , 5, 0 } ,; { "KONTROLLZA" ,"C" , 7, 0 } ,; { "ABR_NR" ,"C" , 6, 0 } ,; { "ANWEND_NR" ,"N" , 2, 0 } ,; { "MAN_KURZ" ,"C" , 30, 0 } ,; { "NAME1" ,"C" , 30, 0 } ,; { "EGIDNR" ,"C" , 15, 0 } ,; { "EURODM" ,"N" , 2, 0 } ,; { "USERDFV" ,"C" , 2, 0 } ,; { "BELEG_NR" ,"N" , 4, 0 } ,; { "DATEV" ,"N" , 1, 0 }} DbCreate( "VORLAUF.DBF", aStruct, "FOXCDX" ) ***************************************** Local aStruct := { ; { "BUCHMODUS" ,"C" , 1, 0 } ,; { "UMSATZ" ,"N" , 11, 2 } ,; { "STORNOSCHL" ,"C" , 1, 0 } ,; { "STEUERSCHL" ,"C" , 1, 0 } ,; { "GEGENKONTO" ,"C" , 5, 0 } ,; { "BELEG1" ,"C" , 6, 0 } ,; { "BELEG2" ,"C" , 6, 0 } ,; { "BUCHDATUM" ,"D" , 8, 0 } ,; { "BUCHKONTO" ,"C" , 5, 0 } ,; { "KOST1" ,"C" , 4, 0 } ,; { "KOST2" ,"C" , 4, 0 } ,; { "SKONTO" ,"N" , 7, 2 } ,; { "BUCHTEXT" ,"C" , 30, 0 } ,; { "EGLAND" ,"C" , 2, 0 } ,; { "EGIDNR" ,"C" , 13, 0 } ,; { "EGSTSATZ" ,"C" , 4, 0 } ,; { "EURODM" ,"N" , 2, 0 } ,; { "INDIZ" ,"C" , 12, 0 } ,; { "ANWEND_NR" ,"N" , 2, 0 } ,; { "ABR_NR" ,"C" , 6, 0 } ,; { "DFV" ,"C" , 2, 0 } } DbCreate( "TMP_FIBU.DBF", aStruct, "FOXCDX" )
Hallo Jimmy,
Danke für die Strukturen.
Gruß
angelo