GeMIS_WEB/GUI/Tools/Update_Gemis.p

DEF VAR cFirma AS CHAR NO-UNDO INIT '1000'.

DEF TEMP-TABLE tLiBild      LIKE LiBild.
DEF TEMP-TABLE tFemeld      LIKE Femeld.
DEF TEMP-TABLE tFehlwerte   LIKE Fehlwerte.

FOR EACH FRWTab NO-LOCK:
    FIND FIRST Waehrung NO-LOCK 
        WHERE Waehrung.Firma = cFirma
        AND   Waehrung.Frw   = FRWTab.Frw NO-ERROR.
    IF AVAILABLE Waehrung THEN NEXT.

    CREATE  Waehrung.
    ASSIGN  
        Waehrung.Firma         = cFirma
        Waehrung.Frw           = FRWTab.Frw
        Waehrung.Bezeichnung   = FRWTab.Bez
        Waehrung.Kurs          = FRWTab.Kurs
        Waehrung.Faktor        = FRWTab.Faktor
        Waehrung.DebSammKto    = FRWTab.SK_Kto_Debi
        Waehrung.KredSammKto   = FRWTab.SK_Kto_Kred
        Waehrung.KursDiffKto   = FRWTab.KD_Kto_Debi
        Waehrung.SkontoSammKto = ''.
END.

DEFINE BUFFER bWaehrung FOR Waehrung.
FOR EACH bWaehrung NO-LOCK WHERE bWaehrung.Firma = cFirma:
    FIND FIRST Waehrung NO-LOCK 
        WHERE Waehrung.Firma = '2000'
        AND   Waehrung.Frw   = bWaehrung.Frw NO-ERROR.
    IF AVAILABLE Waehrung THEN NEXT.

    CREATE  Waehrung.
    BUFFER-COPY bWaehrung EXCEPT bWaehrung.Firma TO Waehrung ASSIGN Waehrung.Firma = '2000'.
END.
/*
FOR EACH MwstAns:
    FIND FIRST Wust NO-LOCK WHERE Wust.WuCd = MwstAns.Mwst_Cd NO-ERROR.
    IF AVAILABLE Wust THEN 
    DO:
        MwstAns.Incl  = Wust.Incl.
        MwstAns.Konto = Wust.Konto.
    END.
END.
FOR EACH Debop WHERE Debop.FRW = 'CHF':
    ASSIGN
        Debop.Fakbetr_FRW = Debop.Fakbetr
        Debop.WW_FRW      = Debop.WW
        Debop.Zahbetr_FRW = Debop.Zahbetr
        Debop.Saldo_FRW   = Debop.Saldo
        Debop.Skber_FRW   = Debop.Skber
        Debop.Skonto_FRW  = Debop.Skonto
        .
END.
FOR EACH Debfa WHERE Debfa.FRW = 'CHF':
    ASSIGN
        Debfa.Fakbetr_FRW = Debfa.Fakbetr
        Debfa.WW_FRW      = Debfa.WW
        Debfa.Skber_FRW   = Debfa.Skber
        .
END.    
FOR EACH Debza WHERE Debza.FRW = 'CHF':
    ASSIGN
        Debza.Zahbetr_FRW = Debza.Zahbetr
        Debza.Skonto_Frw  = Debza.Skonto
        .
END.
FOR EACH Debwu WHERE Debwu.FRW = 'CHF':
    ASSIGN
        Debwu.Betrag_FRW = Debwu.Betrag
        Debwu.Skonto_FRW = Debwu.Skonto
        .
END.
FOR EACH Debhi WHERE Debhi.FRW = 'CHF':
    ASSIGN
        Debhi.Haben_FRW  = Debhi.Haben
        Debhi.Soll_FRW   = Debhi.Soll
        Debhi.Skonto_FRW = Debhi.Skonto
        .
END.
FOR EACH Debst WHERE Debst.Frw = 'CHF':
    Debst.Saldo_Frw = Debst.Saldo.
END.
/*
INPUT FROM 'E:\Datenbanken\GEMIS\WINECELLARS\Femeld.d' NO-MAP NO-CONVERT.
REPEAT TRANSACTION ON STOP UNDO, LEAVE:
    CREATE  tFemeld.
    IMPORT  tFemeld.
END.
INPUT CLOSE.
FOR EACH tFemeld:
    FIND Femeld OF tFemeld NO-ERROR.
    IF NOT AVAILABLE Femeld THEN CREATE Femeld.
    BUFFER-COPY tFemeld TO Femeld.
END.

INPUT FROM 'E:\Datenbanken\GEMIS\WINECELLARS\Fehlwerte.d' NO-MAP NO-CONVERT.
REPEAT TRANSACTION ON STOP UNDO, LEAVE:
    CREATE  tFehlwerte.
    IMPORT  tFehlwerte.
END.
INPUT CLOSE.
FOR EACH tFehlwerte:
    FIND Fehlwerte OF tFehlwerte NO-ERROR.
    IF NOT AVAILABLE Fehlwerte THEN CREATE Fehlwerte.
    BUFFER-COPY tFehlwerte TO Fehlwerte.

END.

INPUT FROM 'E:\Datenbanken\GEMIS\WINECELLARS\LiBild.d' NO-MAP NO-CONVERT.
REPEAT TRANSACTION ON STOP UNDO, LEAVE:
    CREATE  tLiBild.
    IMPORT  tLiBild.
END.
INPUT CLOSE.
FOR EACH tLiBild:
    FIND LiBild OF tLiBild NO-ERROR.
    IF NOT AVAILABLE LiBild THEN CREATE LiBild.
    BUFFER-COPY tLiBild TO LiBild.

END.
*/
*/