* EUROv.prg
* weist allen Geld-Variablen variable Platzhalter zu
#include "Directry.ch"
#include "Gra.ch"

PROCEDURE EUROV
PUBLIC cVersionsDatum := DtoC( Directory( "C:\HDBE\KSOX.EXE" )[ 1, F_WRITE_DATE ] )
PUBLIC cDatver := "C:\HDBE\" , cNetver := "M:\HDBE\", cOBver
PUBLIC cTextProg, cComCom
PUBLIC cLPTSCR := "S", oPrinterPS, oFont, cBriefKopf := "n"
PUBLIC zschl_voll,zschl_halb,xfaktor,xdmeu,cFarbe,cSystem,cCodewort,cLon
PUBLIC cCodewort1,cCodewort2,cCodewort3,cCodewort4,cCodewort5,cCodewort6
PUBLIC cCodewort7,cCodewort8,cCodewort9,cCodeworts,cCodewortp,cCodewortm
PUBLIC w_g,vb_g,b_g,b_b_g,p_b_g,p_s,e_p_s,v_p_s,e_p,v_p,u_z,e_n,a_g,v_m,p_m
PUBLIC w_gh,vb_gh,b_gh,b_b_gh,p_b_gh,p_sh,e_p_sh,v_p_sh,e_ph,v_ph,u_zh,e_nh,a_gh,v_mh,p_mh
PUBLIC r_b_1,r_b_2,r_b_1h,r_b_2h
PUBLIC cDrucker := "HP", cLPT := "LPT1", aFonts := {}, nPpZ, nPpS, nPoffX:=100, nPoffY:=100, lSeiteleer
PUBLIC cPubAuf, cF05, cF06, cF08, cF09, cF10, cF11, cF12, cF13, cF14
PUBLIC CRLF := Chr(13)+Chr(10)      //05.03.2008 21:40
PUBLIC CR := Chr(13), LF := Chr(10)      //18.03.2025 17:16
PUBLIC lLogBook := .F.     //16.10.2013 19:21 Logbuch f�hren? Dummy f�r Historie
PUBLIC aSizeDesktop := AppDesktop():currentSize()
PUBLIC nBSb := aSizeDesktop[1]
PUBLIC nBSh := aSizeDesktop[2]
// folgende Zahlen-Werte basieren auf 800x600:
PUBLIC nV := nBSb/800         // Korrekturfaktor f�r tats„chliche Aufl”sung
PUBLIC za05    //+21.05.2017 14:58 damit sie nicht verloren geht: z.B. 'Hauptrechner in OB'
PUBLIC nFeldBGFarbe := GRA_CLR_RED		//+20.12.2018 20:06 f�r HiliteSle
PUBLIC nBGFarbe := GRA_CLR_BACKGROUND            //+26.11.2011 20:29 originales Grau
PUBLIC cBFont := IIf( nV<=1, "8.Arial", "10.Arial" )		//+26.11.2019 09:11
PUBLIC nTracking := 1	//+14.09.2019 17:31 wird 0, damit das Programm bei Historie Seeks im Logbuch nicht trackt
PUBLIC nAufSperre	:= 0	//+13.12.2020 14:54 hierhinein schreibt das Programm die 1->auftrnr, die er mit 1->stern sperren konnte
PUBLIC lDirektDruck := .F.	//21.07.2024 16:26 siehe BRegieVE/VersDruck1()
SetPrc(0,0)

* select 20
cDatver = trim(cDatver)
cNetver = trim(cNetver)

//+11.02.2013 16:12 ////////////////////////////////////////////////////////////////
// wenn mwstdat nicht ge”ffnet werden kann, dann rekonstruieren aus mwstdat_orig:

      bSaveError := ErrorBlock()        // Fehler-Codeblock 
         ErrorBlock( {|e| Break(e)} ) 
         BEGIN SEQUENCE                 // Index-Daten holen 
            use C:\HDBE\mwstdat
         RECOVER USING oError 
            ErrorBlock( bSaveError ) 
            COPY FILE C:\HDBE\mwstdat_orig.dbf TO C:\HDBE\mwstdat.dbf
            sleep(10)
            use C:\HDBE\mwstdat
         END SEQUENCE 
      ErrorBlock( bSaveError )          // Alten Fehler-Codeblock 
/////////////////////////////////////////////////////////////////////////////////////

	// hier k”nnten die individuellen Farben geholt werden ... 10.11.2019 16:08
	IF Val(zcodewort9) + Val(zcodewort8) > 0
		nBGFarbe := Val(zcodewort9)	//+22.11.2019 10:17
		nFeldBGFarbe := Val(zcodewort8)	//+22.11.2019 10:17
		// ... und die individuelle Schrift:	+28.11.2019 08:26
		cBFont := IIf(".Arial"$zcodewort7,Trim(zcodewort7),Str(Val(zcodewort7),2,0)+".Times New Roman")	//11.02.2025 16:05 ".Arial" 
	ENDIF
zschl_voll=schl_voll
zschl_halb=schl_halb
xfaktor=faktor
xdmeu=dmeu
cLon = loc_or_net
@1,76 say xdmeu+"/"+cLon
k1=kto1
k2=kto2
k3=kto3
k4=kto4
k5=kto5
k6=kto6
cFarbe = "&k1/&k2,&k3/&k4,,,&k5/&k6"
nPpZ := Val(SubStr(f08,1,2))
nPpS := Val(SubStr(f08,4,2))
cF09 := f09          // beinhaltet Maske1/Maske2
cF12 := f12          //26.05.2008 15:01
//set color to &cFarbe
cLPT := IIf( f10="LPT", Trim(f10), cLPT )
cDrucker := IIf( f11="HP" .OR. f11="EP", Trim(f11), cDrucker )
cSystem := IIF( cLon=="N", "1", system )
cDatver = trim(datver)
cNetver = trim(netver)
cOBver := Trim(obver)
cTextProg := Trim(textprog)
cComCom := Trim(comcom)
cPubAuf := pubauf
cCodewortm=EntKey( mwstdat->zcodewort )
cCodewort1=EntKey( mwstdat->zcodewort1 )
cCodewort2=EntKey( mwstdat->zcodewort2 )
cCodewort3=EntKey( mwstdat->zcodewort3 )
cCodewort4=EntKey( mwstdat->zcodewort4 )
cCodewort5=EntKey( mwstdat->zcodewort5 )
cCodewort6=EntKey( mwstdat->zcodewort6 )
cCodewort7=EntKey( mwstdat->zcodewort7 )
cCodewort8=EntKey( mwstdat->zcodewort8 )
cCodewort9=EntKey( mwstdat->zcodewort9 )
cCodeworts=EntKey( mwstdat->zcodeworts )
cCodewortp=EntKey( mwstdat->zcodewortp )
use
if xdmeu="D"
  w_g="DM "
  w_gh="EUR"
  vb_g="vbetrag"
  vb_gh="vbetrageu"
  b_g="betrag"
  b_gh="betrageu"
  b_b_g="bez_betrag"
  b_b_gh="bez_betreu"
  p_b_g="pol_betrag"
  p_b_gh="pol_betreu"
  p_s="preis"
  p_sh="preiseu"
  e_p_s="ek_preis"
  e_p_sh="ek_preiseu"
  v_p_s="vk_preis"
  v_p_sh="vk_preiseu"
  e_p="ekp"
  e_ph="ekpeu"
  v_p="vk_pr"
  v_ph="vk_preu"
  u_z="umsatz"
  u_zh="umsatzeu"
  e_n="einn"
  e_nh="einneu"
  a_g="ausg"
  a_gh="ausgeu"
  v_m="verssum"
  v_mh="verssumeu"
  p_m="provdm"
  p_mh="provdmeu"
  r_b_1="rechbetr1"
  r_b_1h="rechbtr1eu"
  r_b_2="rechbetr2"
  r_b_2h="rechbtr2eu"
else
  w_g="EUR"
  w_gh="DM "
  vb_g="vbetrageu"
  vb_gh="vbetrag"
  b_g="betrageu"
  b_gh="betrag"
  b_b_g="bez_betreu"
  b_b_gh="bez_betrag"
  p_b_g="pol_betreu"
  p_b_gh="pol_betrag"
  p_s="preiseu"
  p_sh="preis"
  e_p_s="ek_preiseu"
  e_p_sh="ek_preis"
  v_p_s="vk_preiseu"
  v_p_sh="vk_preis"
  e_p="ekpeu"
  e_ph="ekp"
  v_p="vk_preu"
  v_ph="vk_pr"
  u_z="umsatzeu"
  u_zh="umsatz"
  e_n="einneu"
  e_nh="einn"
  a_g="ausgeu"
  a_gh="ausg"
  v_m="verssumeu"
  v_mh="verssum"
  p_m="provdmeu"
  p_mh="provdm"
  r_b_1="rechbtr1eu"
  r_b_1h="rechbetr1"
  r_b_2="rechbtr2eu"
  r_b_2h="rechbetr2"
endif
*select 1
return

FUNCTION VerKey( cKeyWord )
  LOCAL cKeyWordB := Trim( " " )
  FOR i:=1 to Len( cKeyWord )
     cKeyWordB := cKeyWordB + IIf( Substr( cKeyWord, i, 1 )=" ", " ", ;
                        Chr( Asc( Substr( cKeyWord, i, 1 ))+13 ) )
  NEXT i
RETURN ( cKeyWordB )

FUNCTION EntKey( cKeyWord )
  LOCAL cKeyWordB := Trim(" ")
  FOR i:=1 to Len( cKeyWord )
     cKeyWordB := cKeyWordB + IIf( Substr( cKeyWord, i, 1 )=" ", " ", ;
                        Chr( Asc( Substr( cKeyWord, i, 1 ))-13 ) )
  NEXT i
RETURN ( cKeyWordB )