DATEV import/export

[angelo]

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

[AUGE_OHR]

hi,

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?

in was für ein DATEV Modul willst du welche Daten (Stamm-/Bewegungs-
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

[angelo]

hi,

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?

in was für ein DATEV Modul willst du welche Daten (Stamm-/Bewegungs-
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]

hi,

ich möchte die Rechnungsdaten in die Datei 'fi.df' ausgeben und diese dann unter DATEV einlesen.

hm ... "fi.df" kenne ich nicht ?! für "welches" DATEV Modul soll das den
sein ?

Ich meine "die ganz alte Postversand" Schnittstelle mit DV01 (Vorlauf)
sowie DE001 (Daten) die ich verwende

Übrigens müssen es doch weniger wie 5 Jahre sein weil ich die EURO Umstellung schon gemacht ist.

ok daran liegt es den schon mal nicht

so beim suchen hab ich folgendes gefunden : Hast du schon eine
EG-Ust.ID. in deiner Schnittstelle ?

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?

glaube ich kaum das man was im Internet findet. Ich wende mich in
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

[Koverhage]

fi.df ist nicht für Datev !

Dieser Dateiname stammt von der IBM Fibu.

[angelo]

hi,

ich möchte die Rechnungsdaten in die Datei 'fi.df' ausgeben und diese dann unter DATEV einlesen.

hm ... "fi.df" kenne ich nicht ?! für "welches" DATEV Modul soll das den
sein ?

Ich meine "die ganz alte Postversand" Schnittstelle mit DV01 (Vorlauf)
sowie DE001 (Daten) die ich verwende

Übrigens müssen es doch weniger wie 5 Jahre sein weil ich die EURO Umstellung schon gemacht ist.

ok daran liegt es den schon mal nicht

so beim suchen hab ich folgendes gefunden : Hast du schon eine
EG-Ust.ID. in deiner Schnittstelle ?

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?

glaube ich kaum das man was im Internet findet. Ich wende mich in
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]

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

[angelo]

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

[brandelh]

Hi angelo,

das DATEV Thema war schön öffters da. Ob es dabei eine Lösung für dein Problem gibt weiß ich nicht, ich brauche das zum Glück nicht.
Aber wähle oben mal die Suchen Funktion und suche nach DATEV ...

[Wolfgang Ciriack]

Im Notfall die relevanten Daten rausschreiben und über die anpassbare ASCII-Schnittstelle in Datev einlesen.

[AUGE_OHR]

hi,

Allerdings brauche ich die Datenstruktur für DATEV.

anbei die Structur von meinen beiden DBF Datein
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" )

[Alfred]

Hallo Angelo,

kläre doch bitte erst einmal wer denn die Datei mit welchem Programm
weiterverarbeitet, dann kann ich dir zu aktuellen DATEV-Programmen
weiter Informationen geben.

Gruß
Alfred

[angelo]

Hi angelo,

das DATEV Thema war schön öffters da. Ob es dabei eine Lösung für dein Problem gibt weiß ich nicht, ich brauche das zum Glück nicht.
Aber wähle oben mal die Suchen Funktion und suche nach DATEV ...

Hallo Hubert,

das mache ich später.

Gruß
angelo

[angelo]

hi,

Allerdings brauche ich die Datenstruktur für DATEV.

anbei die Structur von meinen beiden DBF Datein
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" )

Hallo Jimmy,

Danke für die Strukturen.

Gruß
angelo

[angelo]

Im Notfall die relevanten Daten rausschreiben und über die anpassbare ASCII-Schnittstelle in Datev einlesen.

Hallo Wolfgang,

im Notfall mache ich das so.

Gruß
angelo