GeMIS_WEB/GUI/Tools/StartMwstBerechnungsZahlungTest.p

DEF VAR cMessage    AS CHAR NO-UNDO.
DEF VAR iKnr        AS INT  NO-UNDO INIT 156.
DEF VAR iFaknr      AS INT  NO-UNDO INIT 130551.
DEF VAR nZahlung    AS DEC  NO-UNDO INIT 0.00.
DEF VAR nSkonto     AS DEC  NO-UNDO INIT 0.0.
DEF VAR ii          AS INT  NO-UNDO.

{ incl/tmwstcalc.i }

CREATE  tMwstParam.
ASSIGN
    tMwstParam.Firma      = '1000'
    tMwstParam.Knr        = iKnr
    tMwstParam.Faknr      = iFaknr
    tMwstParam.Datum      = TODAY
    tMwstParam.Frw        = 'CHF'
    tMwstParam.Zahlung    = nZahlung
    tMwstParam.Skonto     = nSkonto
    .
    
RUN 'tools/MwstBerechnungsZahlungTest.p'
    (INPUT TABLE tMwstParam, OUTPUT TABLE tMwstZahl, OUTPUT cMessage).
    
FIND Debop NO-LOCK
    WHERE Debop.Firma = '1000'
    AND   Debop.Knr   = iKnr
    AND   Debop.Faknr = iFaknr.
    
CREATE  tDebwu.
ASSIGN
    tDebwu.Firma        = Debop.Firma
    tDebwu.Knr          = Debop.Knr
    tDebwu.Faknr        = Debop.Faknr
    tDebwu.Datum        = TODAY
    tDebwu.Betrag       = nZahlung * Debop.Kurs / Debop.Faktor
    tDebwu.Kte          = 'Kte'
    tDebwu.Frw          = Debop.Frw
    tDebwu.Kurs         = Debop.Kurs
    tDebwu.Faktor       = Debop.Faktor
    tDebwu.Konto        = 'MwstKto'
    tDebwu.Betrag_Frw   = nZahlung
    tDebwu.Skonto_Frw   = nSkonto
    .
FOR EACH tMwstZahl:
    ii = tMwstZahl.Mwst_Cd.
    CASE tMwstZahl.lInklusive:
        WHEN TRUE THEN
            ASSIGN
                tDebwu.Wustpfl[ii] = tMwstZahl.Brutto
                tDebwu.Wust   [ii] = tMwstZahl.Mwst
                tDebwu.Skonto [ii] = tMwstZahl.Skonto.
        OTHERWISE
            ASSIGN
                tDebwu.Wustpfl[ii] = tMwstZahl.Netto
                tDebwu.Wust   [ii] = tMwstZahl.Mwst
                tDebwu.Skonto [ii] = tMwstZahl.Skonto.
    END CASE.
END.

OUTPUT TO 'C:\TEMP\Debwu.csv'.
EXPORT DELIMITER ';' tDebwu.
OUTPUT CLOSE.