Pobieranie danych z KSeF do kontrolki tabelarycznej Elementy na Fakturze kosztowej XL

• Eliminacja ręcznego wprowadzania pozycji dokumentów: Dane z faktury KSeF (pobrane do tabeli do.KS_DocumentItems) są automatycznie mapowane i wypełniają kontrolkę tabelaryczną na karcie obiegu.
• Automatyczne kalkulowanie wartości: Kontrolka tabelaryczna uzyskuje zdolność automatycznego przeliczania wszędzie tam, gdzie zmienione zostaną dane wejściowe (np. Cena, Ilość, Stawka VAT) przez użytkownika.
• Minimalizacja błędów i skrócenie czasu obsługi faktury: Proces akceptacji bazuje na poprawnych i spójnych danych, które są automatycznie kalkulowane i aktualizowane, zanim dokument zostanie zaksięgowany w ERP XL.

Zawartość przykładu

• Definicja Typu Obiegu (Workflow): Wzorcowa ścieżka obiegu dokumentu kosztowego z krokami akceptacji, konfiguracją kontrolki Dane tabelaryczne i wygenerowaniem dokumentu do Comarch ERPXL
• 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) oraz inicjację dokumentu obiegowego. W przypadku kontrolki Kontrahent w zapytaniu przed nazwą tabeli CDN.KntKarty należy wskazać właściwą nazwę bazy Comarch ERXL.

Kliknij tutaj, aby pobrać przykład

Zasada działania

Mechanizm opiera się na dwóch trybach działania zintegrowanych w jednej kontrolce Dane Tabelaryczne (Elementy), wykorzystując dane z bazy Comarch BPM, które zostały zapisane po przetworzeniu faktury z KSeF w punkcie ACD.

• 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 to pole (ID_KSeF), reagując na jego wypełnienie.
• Kluczowym elementem jest zapytanie SQL umieszczone na zakładce Inicjowanie Wartości kontrolki typu dane 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.
• W zapytaniu SQL zawarta jest niezbędna logika konwersji (CTE z ROW_NUMBER), która mapuje stawki VAT z KSeF na identyfikatory liczbowe (Naz_GIDLp) z tabeli CDN.Nazwy, których BPM wymaga do poprawnego wyświetlania danych w kolumnie typu Lista (Stawka VAT).
• Dodatkowo, kontrolka Dane Tabelaryczne (Elementy) obserwuje sama siebie (@^SenderControlName@ = ’Elementy’), co aktywuje logikę automatycznego przeliczania wartości w trybie edycji:
  • Zapytanie monitoruje zmiany w kolumnach wejściowych, takich jak Cena lub Ilość (oraz Stawka VAT).
  • W przypadku edycji tych pól, skrypt automatycznie pobiera stawkę VAT, a następnie przelicza i aktualizuje wartości Netto (Ilość * Cena) oraz Brutto (Netto * (1 + VAT)) w bieżącym wierszu.

• ”Nazwa” (identyfikator kolumny: Nazwa) – typ Tekst
• ”Cena” (identyfikator kolumny: Cena) – typ Liczba stałoprzecinkowa
• ”Ilość” (identyfikator kolumny: Ilosc) – typ Liczba stałoprzecinkowa
• ”Netto” (identyfikator kolumny: Netto) – typ Liczba stałoprzecinkowa
• ”Stawka VAT” (identyfikator kolumny: StawkaVAT) – typ Lista
• ”Brutto” (identyfikator kolumny: Brutto)– typ Liczba stałoprzecinkowa

• Stawki VAT:

 select Naz_gidLp as Id,  
 CASE  
  WHEN Naz_Nazwa='A 23.00' THEN '23%' 
  WHEN Naz_Nazwa='B 8.00' THEN '8%' 
  WHEN Naz_Nazwa='C 0.00' THEN '0%' 
  WHEN Naz_Nazwa='D 0.00' THEN 'ZW' 
  WHEN Naz_Nazwa='E 0.00' THEN 'NP' 
  WHEN Naz_Nazwa='F 7.00' THEN '7%' 
  WHEN Naz_Nazwa='G 5.00' THEN '5%' 
 END  
 from CDN.Nazwy  
 where Naz_GIDTyp = 624  AND trim(substring(Naz_Nazwa,9,2))=''

• Jednostki miary:

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

IF @^SenderControlName@ = 'ID_KSeF' /*Identyfikator kontrolki do której pobierane jest ID dokumentu KSeF */

BEGIN
/* Tryb 1: Inicjowanie wierszy z dokumentu KSeF */
WITH ProcessedDocumentItems AS (
SELECT
KSI_ElementNazwa,
ISNULL(NULLIF(KSI_ElementIlosc, 0), 1.000000) AS KSI_ElementIlosc, 
ISNULL(KSI_ElementWartoscBrutto, 0) AS Brutto,
ISNULL(KSI_ElementWartoscNetto, 0) AS Netto,
KSI_ElementJM, 
CASE 
WHEN di.KSI_ElementStawkaVAT LIKE '%23%' THEN '23%'
WHEN di.KSI_ElementStawkaVAT LIKE '%8%' THEN '8%'
WHEN di.KSI_ElementStawkaVAT LIKE '%5%' THEN '5%'
WHEN di.KSI_ElementStawkaVAT LIKE '%7%' THEN '7%'
WHEN di.KSI_ElementStawkaVAT LIKE '%zw%' THEN 'ZW'
WHEN di.KSI_ElementStawkaVAT LIKE '%np%' OR di.KSI_ElementStawkaVAT LIKE '%niepodleg%' THEN 'NP'
WHEN di.KSI_ElementStawkaVAT LIKE '%0%' THEN '0%'
ELSE '0%' 
END AS KSeF_Match_Key
FROM
[BAZA_BPM].do.KS_DocumentItems AS di /*Należy wskazać nazwę bazy BPM*/
WHERE KSI_DocumentId = @ID_KSeF@ /*Identyfikator kontrolki liczba całkowita, do której pobierane jest ID dokumentu KSeF*/
),
ERPVatMappingUnique AS (
SELECT 
Naz_gidLp,
CASE 
WHEN Naz_Nazwa = 'A 23.00' THEN '23%'
WHEN Naz_Nazwa = 'B 8.00' THEN '8%'
WHEN Naz_Nazwa = 'C 0.00' THEN '0%'
WHEN Naz_Nazwa = 'D 0.00' THEN 'ZW'
WHEN Naz_Nazwa = 'E 0.00' THEN 'NP'
WHEN Naz_Nazwa = 'F 7.00' THEN '7%'
WHEN Naz_Nazwa = 'G 5.00' THEN '5%'
END AS ERP_Match_Key,
CASE 
WHEN Naz_Nazwa = 'A 23.00' THEN 0.230000
WHEN Naz_Nazwa = 'B 8.00' THEN 0.080000
WHEN Naz_Nazwa = 'F 7.00' THEN 0.070000
WHEN Naz_Nazwa = 'G 5.00' THEN 0.050000
ELSE 0.000000
END AS VatRate
FROM CDN.Nazwy 
WHERE Naz_GIDTyp = 624 
AND (Naz_Nazwa LIKE '_ %.00' OR Naz_Nazwa IN ('D 0.00', 'E 0.00'))
),
ERP_JM AS (

SELECT 
Naz_GIDLp, 
LTRIM(RTRIM(Naz_Nazwa)) as Naz_Nazwa,
ROW_NUMBER() OVER (PARTITION BY LTRIM(RTRIM(Naz_Nazwa)) ORDER BY Naz_GIDLp) as RN
FROM CDN.Nazwy 
WHERE Naz_GIDTyp = 144
)

/* Końcowy SELECT: Zwraca żądany zestaw kolumn */
SELECT
CAST(ISNULL(pi.KSI_ElementNazwa, '') AS VARCHAR(500)) AS [Nazwa],
CAST(CASE 
WHEN pi.Netto > 0.01 THEN ROUND(pi.Netto / pi.KSI_ElementIlosc, 6)
ELSE ROUND((pi.Brutto / pi.KSI_ElementIlosc) / (1.0 + ISNULL(evm.VatRate, 0)), 6)
END AS DECIMAL(24,6)) AS [Cena],
CAST(pi.KSI_ElementIlosc AS DECIMAL(24,6)) AS [Ilość],

CAST(ISNULL(jm.Naz_GIDLp, 0) AS INT) AS [JM],
CAST(CASE 
WHEN pi.Netto > 0.01 THEN pi.Netto
ELSE ROUND(pi.Brutto / (1.0 + ISNULL(evm.VatRate, 0)), 6)
END AS DECIMAL(24,6)) AS [Netto],
CAST(ISNULL(evm.Naz_gidLp, 0) AS INT) AS [Stawka VAT],
CAST(CASE 
WHEN pi.Brutto > 0.01 THEN pi.Brutto
ELSE ROUND(pi.Netto * (1.0 + ISNULL(evm.VatRate, 0)), 6)
END AS DECIMAL(24,6)) AS [Brutto],
NULL AS [NULL]
FROM
ProcessedDocumentItems AS pi
LEFT JOIN 
ERPVatMappingUnique AS evm ON pi.KSeF_Match_Key = evm.ERP_Match_Key
LEFT JOIN 
ERP_JM AS jm ON LTRIM(RTRIM(pi.KSI_ElementJM)) = jm.Naz_Nazwa AND jm.RN = 1;

END

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