Pobieranie danych z KSeF do kontrolki tabelarycznej Elementy na Fakturze zakupu przy współpracy z Comarch ERP Optima

• Eliminuje ręczne przepisywanie danych: Pozycje z pliku XML KSeF automatycznie wypełniają tabelę na karcie obiegu.
• Zapewnia spójność stawek VAT: Logika mapuje tekstowe oznaczenia stawek z KSeF na wartości liczbowe z konfiguracji Optimy.
• Automatyzuje kalkulacje: System przelicza ceny i wartości netto/brutto w czasie rzeczywistym przy zmianie ilości, ceny lub stawki VAT.

Przykład jest oparty o definicję typu obiegu dostępną na stronach walidowanych w sekcji ERP 5.0->Comarch BPM (dawniej DMS)->Przykłady->ERP Optima

Zawartość przykładu

• Definicja Typu Obiegu (Workflow): Wzorcowa ścieżka obiegu dokumentu zakupu z krokami akceptacji, konfiguracją kontrolki Dane tabelaryczne i wygenerowaniem dokumentu do Comarch Optima
• Punkt konfiguracyjny ACD: Wzorcowa konfiguracja, która jest odpowiedzialna za pobranie ID dokumentu KSeF, Załącznika oraz wszystkich kluczowych danych nagłówkowych (Numer dokumentu, Kontrahent, Data zakupu, Data wystawienia, Data wpływu Termin płatności, Forma płatności, Waluta, Wartość Netto, Wartość Brutto, Numer KSeF, Data przyjęcia z KSeF) oraz utworzenie dokumentu obiegowego.

• Tryb Inicjowania (Pobieranie z KSeF): Wyzwalany, gdy kontrolka ID_KSeF zostanie uzupełniona. System pobiera dane z tabeli do.KS_DocumentItems z bazy BPM i łączy je ze stawkami VAT z bazy konfiguracyjnej Comarch ERP Optima.
• Konfiguracja wykorzystuje ID dokumentu KSeF (zapisane w dedykowanej kontrolce typu Liczba całkowita o nazwie np. ID_KSeF) jako identyfikator do pobrania danych.
• Kontrolka tabelaryczna obserwuje pole ID_KSeF, reagując na jego wypełnienie.
• Kluczowym elementem jest zapytanie SQL umieszczone na zakładce Inicjowanie Wartości kontrolki tabelarycznej.
• Zapytanie jest filtrowane za pomocą parametru @ID_KSeF@, dzięki czemu pobiera ono wiersze z właściwego dokumentu KSeF z tabeli do.KS_DocumentItems w bazie BPM.
• Tryb Edycji (Interaktywny): Kontrolka Dane Tabelaryczne (Elementy) obserwuje sama siebie (@^SenderControlName@ = ’Elementy’), co aktywuje logikę automatycznego przeliczania wartości w trybie edycji. Pozwala to na ręczne dopasowanie towaru z kartoteki ERP, pobranie jednostki miary i przypisanie stawki VAT oraz przeliczenie pozostałych wartości.

Konfiguracja przykładu

• ”Kod Towaru” (identyfikator kolumny: Kod) – typ Lista
• ”Towar” (identyfikator kolumny: Towar) – typ Towar
• ”Ilość” (identyfikator kolumny: Ilosc) – typ Liczba stałoprzecinkowa
• ”Jm” (identyfikator kolumny: Jm) – typ Tekst
• ”Stawka” (identyfikator kolumny: Stawka) – typ Liczba stałoprzecinkowa
• ”Cena netto” (identyfikator kolumny: Cena_Netto) – typ Liczba stałoprzecinkowa
• ”Cena brutto” (identyfikator kolumny: Cena_Brutto) – typ Liczba stałoprzecinkowa
• ”Wartość netto” (identyfikator kolumny: Wartosc_Netto) – typ Liczba stałoprzecinkowa
• ”Wartość brutto” (identyfikator kolumny: Wartosc_Brutto) – typ Liczba stałoprzecinkowa

• Kod towaru:

• Ta sekcja jest wywoływana tylko raz, podczas inicjowania obiegu:

If
@^SenderControlName@ ='ID_KSeF'

WITH ProcessedDocumentItems AS (
/* CTE 1: Ujednolicenie stawek VAT z KSeF i ujęcie kluczowych kolumn */
SELECT
di.KSI_DocumentId,
di.KSI_ElementNazwa,
di.KSI_ElementWartoscNetto AS KSI_ElementWartoscNetto,
-- **NOWE KOLUMNY:** Dane szczegółowe pozycji
di.KSI_ElementIlosc,
di.KSI_ElementJm,
di.KSI_ElementCenaNetto,
di.KSI_ElementCenaBrutto,
-- Istniejąca kolumna stawki VAT (jako tekst)
di.KSI_ElementStawkaVAT,
-- **Puste pola:** Kod towaru
CAST(NULL AS VARCHAR(50)) AS KSI_ElementKodTowaru,

/* Ustandaryzowanie stawki KSeF do formatu liczbowego/ZW/NP ('23', '8', 'ZW', itp.) */
CASE
WHEN di.KSI_ElementStawkaVAT LIKE 'Stawka%' THEN LTRIM(RTRIM(SUBSTRING(di.KSI_ElementStawkaVAT, 7, LEN(di.KSI_ElementStawkaVAT) - 6)))
WHEN di.KSI_ElementStawkaVAT IN ('zw', 'np', 'oo', 'np') THEN UPPER(di.KSI_ElementStawkaVAT)
ELSE di.KSI_ElementStawkaVAT
END AS StandardizedKSeFVAT_Text
FROM
[BAZA_COMARCH_BPM].do.KS_DocumentItems AS di /* Należy wskazać właściwą nazwę bazy Comarch BPM */
WHERE KSI_DocumentId = @ID_KSeF@
),
OptimaVATRates AS (
/* CTE 2: Przygotowanie stawek VAT z Konfiguracji Optima */
SELECT
Kon_KonId,
Kon_Wartosc,
/* Ekstrakcja wartości liczbowej stawki - Ta wartość to 23.00, 8.00 itd. */
ISNULL(CAST(REPLACE(RTRIM(SUBSTRING(Kon_Wartosc, 1, CHARINDEX(' ', Kon_Wartosc, 2))), ',', '.') AS REAL), 1) AS StawkaVatValue,
/* NORMALIZACJA: Konwersja stawki Optima ('23.00') na format KSeF ('23') dla poprawnego JOIN */
CASE
WHEN Kon_Wartosc LIKE '%ZW%' THEN 'ZW'
WHEN Kon_Wartosc LIKE '%NP%' THEN 'NP'
WHEN Kon_Wartosc LIKE '%OO%' THEN 'OO'
WHEN Kon_Wartosc LIKE '%NP%' THEN 'NP'
ELSE CAST(ISNULL(CAST(REPLACE(RTRIM(SUBSTRING(Kon_Wartosc, 1, CHARINDEX(' ', Kon_Wartosc, 2))), ',', '.') AS REAL), 0) AS VARCHAR(10))
END AS StandardizedOptimaVAT_Text
FROM
[CDN_KNF_Konfiguracja].cdn.Konfig
WHERE Kon_Numer = 301 AND Kon_Wartosc LIKE '%PL'
)

---

/* Końcowy SELECT: Zwraca żądany zestaw kolumn */
SELECT
-- POLA TOWAROWE (Kod Towaru i Towar są puste)
pi.KSI_ElementKodTowaru AS 'Kod Towaru',
CAST(NULL AS VARCHAR(255)) AS 'Towar',

-- Dane szczegółowe pozycji
CAST(pi.KSI_ElementIlosc AS DECIMAL(18, 4)) AS 'Ilość',
CAST(pi.KSI_ElementJm AS VARCHAR(10)) AS 'Jednostka',

-- Stawka VAT jako wartość liczbowa (23.00, 8.00 lub NULL)
CASE
WHEN pi.StandardizedKSeFVAT_Text IN ('ZW', 'NP', 'OO') THEN CAST(NULL AS DECIMAL(18, 2))
ELSE CAST(ovr.StawkaVatValue AS DECIMAL(18, 2))
END AS 'Stawka',

-- Wartości
CAST(pi.KSI_ElementCenaNetto AS DECIMAL(18, 4)) AS 'Cena Netto',

-- WYELICZANIE CENY BRUTTO W PRZYPADKU BRAKU DANYCH ŹRÓDŁOWYCH (POPRAWKA)
CAST(
ISNULL(
pi.KSI_ElementCenaBrutto, -- Użyj wartości z bazy, jeśli jest
pi.KSI_ElementCenaNetto * (1 + ovr.StawkaVatValue / 100.0) -- W przeciwnym razie, wylicz
)
AS DECIMAL(18, 4)) AS 'Cena Brutto',

CAST(pi.KSI_ElementWartoscNetto AS DECIMAL(18, 2)) AS 'Wartość Netto',

-- Pola wyliczone
pi.KSI_ElementWartoscNetto * (ovr.StawkaVatValue / 100.0) AS 'VAT',
pi.KSI_ElementWartoscNetto * (1 + ovr.StawkaVatValue / 100.0) AS 'Brutto'

FROM
ProcessedDocumentItems AS pi
LEFT JOIN
OptimaVATRates AS ovr
ON
pi.StandardizedKSeFVAT_Text = ovr.StandardizedOptimaVAT_Text;

• Ta sekcja jest wywoływana przy każdej modyfikacji danych w kontrolce „Elementy” i wymaga użycia ELSE po sekcji KSeF: