Witam wszystkich. Wiem, że jeszcze jest dużo czasu dla nowego obowiązku JPK FA_VAT, ale postanowiłem się powoli przygotować. Ściągnąłem schemat Schemat_FA_VAT(1)_v1-0E.xsd, wygenerowałem unit Schemat_FA_VAT1_v10E.pas, napisałem z grubsza swoją procedurę i mam jeden problem. Walidator zgłasza mi błąd. Nie jestem wirtuozem programowania i nie rozumiem o co chodzi. Bardzo proszę o pomoc. Chojeś.
Moja procedura:
[Schemat_FA_VAT1_v10E.pas](https://4programmers.net/assets/41169/KRyVR4oa8SJ5pzOwgsIK9WCeS2b9oJ1fZ2vZW5Ln.txt)procedure TForm17.Plik_FA_VAT;
var faktura:Schemat_FA_VAT1_v10E.IXMLFaktura;
xml:IXMLDocument;
i:integer;
plik, s:string;
begin
xml:=NewXMLDocument;
xml.encoding:='utf-8';
xml.options:=xml.options+[doNodeAutoIndent];
Faktura:=Schemat_FA_VAT1_v10E.GetFaktura(xml);
with datamodule1, faktura do
begin
with Naglowek do // ok
begin
KodFormularza.WersjaSchemy:='1-0E';
KodFormularza.KodSystemowy:='FA (1)';
KodFormularza.Text:='FA';
WariantFormularza:=1;
DataWytworzeniaFa:=datetostr(date)+'T'+timetostr(time);
SystemInfo:=application.title;
end; // with Naglowek
with Podmiot1 do //
begin
with DaneIdentyfikacyjne do
begin
NIP:=table12['po_nip'];
PelnaNazwa:=table12['po_nazwa1'];
if table12['po_nazwa2']<>null then PelnaNazwa:=PelnaNazwa+' '+table12['po_nazwa2'];
end; // with DaneIdentyfikacyjne
with Adres do
begin
KodKraju:='PL';
Miejscowosc:=table12['po_miejsce'];
Ulica:=table12['po_adres'];
NrDomu:=table12['po_nrdomu'];
KodPocztowy:=table12['po_kodpocz'];
end; // with Adres
Email:=table12['po_mail'];
telefon.Add(table12['po_tel']);
end; // with Podmiot1
with Podmiot2 do // jeśli dobrze rozumiem, to Nabywca
begin
table4.locate('ko_nr',table14['do_nrko'],[]);
s:=table4['ko_nazwa1'];
with DaneIdentyfikacyjne do
begin
if table4['ko_typ1'] then
begin
BrakID:=1;
ImiePierwsze:=copy(s,pos(#32,s)+1,length(s)-pos(#32,s));
Nazwisko:=copy(s,1,pos(#32,s)-1);
end else
begin
NIP:=table4['ko_nip'];
PelnaNazwa:=table4['ko_nazwa1'];
if table4['ko_nazwa2']<>null then PelnaNazwa:=PelnaNazwa+' '+table4['ko_nazwa2'];
end;
end; // with DaneIdentyfikacyjne
with Adres do
begin
KodKraju:='PL';
Miejscowosc:=table4['ko_miejsce'];
Ulica:=table4['ko_adres'];
NrDomu:='Brak';
KodPocztowy:=table4['ko_kodpocz'];
end; // with Adres
end; // with Podmiot2
if table4['ko_nazwa5']<>'' then
with Podmiot3.Add do // jeśli dobrze rozumiem, to Odbiorca
begin
with DaneIdentyfikacyjne do
begin
BrakID:=1;
PelnaNazwa:=table4['ko_nazwa5'];
end; // with DaneIdentyfikacyjne
with Adres do
begin
KodKraju:='PL';
Miejscowosc:=table4['ko_miasto2'];
Ulica:=table4['ko_ulica2'];
//NrDomu:=table4['ko_nrdomu'];
KodPocztowy:=table4['ko_kod2'];
end; // with Adres
Rola:='2';
end; // with Podmiot3
with Fa do
begin
KodWaluty:='PLN';
P_1:=datetostr(DateTimePicker1.date);
P_1M:=table12['po_miejsce'];
P_2:=edit1.text;
//P_6
if suma[3,1]>0 then
begin
P_13_1:=p_k(floattostrf(suma[1,1],fffixed,9,2)); // Suma wartości sprzedaży netto ze stawką 23% albo 22%.
P_14_1:=p_k(floattostrf(suma[2,1],fffixed,9,2)); // Kwota podatku od sumy wartości sprzedaży netto ze stawką 23% albo 22%.
end;
if suma[3,2]>0 then
begin
P_13_2:=p_k(floattostrf(suma[1,2],fffixed,9,2)); // Suma wartości sprzedaży netto ze stawką 8 % albo 7%.
P_14_2:=p_k(floattostrf(suma[2,2],fffixed,9,2)); // Kwota podatku od sumy wartości sprzedaży netto ze stawką 8% albo 7%.
end;
if suma[3,3]>0 then
begin
P_13_3:=p_k(floattostrf(suma[1,3],fffixed,9,2)); // Suma wartości sprzedaży netto ze stawką 5%.
P_14_3:=p_k(floattostrf(suma[2,3],fffixed,9,2)); // Kwota podatku od sumy wartości sprzedaży netto ze stawką 5%.
end;
if suma[3,4]>0 then
begin
P_13_4:=p_k(floattostrf(suma[1,4],fffixed,9,2)); // Suma wartości sprzedaży netto ze stawką 5%.
P_14_4:=p_k(floattostrf(suma[2,4],fffixed,9,2)); // Kwota podatku od sumy wartości sprzedaży netto ze stawką 5%.
end;
if suma[3,5]>0 then
begin
P_13_5:=p_k(floattostrf(suma[1,5],fffixed,9,2));
P_14_5:=p_k(floattostrf(suma[2,5],fffixed,9,2));
end;
if suma[3,6]>0 then P_13_6:=p_k(floattostrf(suma[1,6],fffixed,9,2)); // Suma wartości sprzedaży netto ze stawką 0%.
if suma[3,7]>0 then P_13_7:=p_k(floattostrf(suma[1,7],fffixed,9,2)); // Suma wartości sprzedaży zwolnionej.
P_15:=p_k(floattostrf(suma[3,0],fffixed,9,2)); // Kwota (brutto) należności ogółem lub w przypadku faktur zaliczkowych, otrzymana kwota zapłaty. W przypadku faktur korygujących, korekta kwoty należności ogółem
with Adnotacje do
begin
P_16:=1; // 1 - metoda kasowa
P_17:=2;
P_18:=2;
P_18A:=2;
P_19:=2;
P_22:=2;
P_23:=2;
P_PMarzy:=2;
end; // with Adnotacje
if typ_dokumentu=1 then RodzajFaktury:='VAT';
if typ_dokumentu=2 then
begin
Rodzajfaktury:='KOR';
PrzyczynaKorekty:='Bo miałem taką ochotę'; // jeśli nic nie zmienię to :=combobox4.text
TypKorekty:='3'; // nie wiem czy dobra wartość
DataWystFaKorygowanej.Add({label_06.caption} '2021-10-01' ); // tu można chyba dodać wiele
NrFaKorygowanej.Add({label_04.caption} 'FS 0123/2021' ); // tu można chyba dodać wiele
NrKSeFFaKorygowanej.Add('1010000000-20200101-000000-000000-00'); // tu można chyba dodać wiele
end;
with FaWiersze, stringgrid1 do
begin
LiczbaWierszyFaktury:=inttostr(rowcount-1); //
//WartoscWierszyFaktury1:=p_k(floattostrf(suma[1,0],fffixed,9,2)); // suma netto wszystkich stawek (P_13_1 do P_13_7)
WartoscWierszyFaktury2:=p_k(floattostrf(suma[3,0],fffixed,9,2)); // suma brutto wszystkich stawek (P_13_1 do P_13_7)
for i:=1 to rowcount-1 do
with FaWiersz do
begin
Add;
with Items[i-1] do
begin
NrWierszaFa:=cells[0,i];
//UU_ID // Uniwersalny unikalny numer wiersza faktury
table1.locate('to_nr',cells[10,i],[]);
P_7:=table1['to_nazwa2'];
if table1['to_pkwiu']<>null then PKWiU:=table1['to_pkwiu'];
P_8A:=cells[2,i]; // j.m.
P_8B:=p_k(cells[3,i]); // ilość
//P_9A:=cells[6,i]; // cena netto pozycji faktury
P_9B:=p_k(cells[6,i]); // Cena brutto, w przypadku zastosowania art. 106e ust. 7 i 8 ustawy
//P_11 // Wartość netto
P_11A:=p_k(cells[7,i]); // Wartość brutto
P_12:=inttostr(trunc(strtofloat(cells[8,i])));
end; // with Items[i-1]
end; // with FaWiersz
end; // with FaWiersze
with Platnosc do
begin
if strtofloat(edit7.text)>0 then FormaPlatnosci:='1';
if strtofloat(edit8.text)>0 then FormaPlatnosci:='2';
if strtofloat(edit9.text)>0 then FormaPlatnosci:='5';
if strtofloat(edit10.text)>0 then FormaPlatnosci:='6';
if strtofloat(edit10.text)>0 then TerminPlatnosci.Add(datetostr(datetimepicker3.date));
with RachunekBankowy.Add do
begin
NrRBPL:=table12['po_rach'];
NazwaBanku:=table12['po_bank'];
end;
end; // with Platnosc
end; // with Fa
Stopka.Add.StopkaFaktury:=form4.combobox1.items[cg[24]];
end; // with Faktura
xml.DocumentElement:=faktura;
if not directoryexists(path_1+'\Faktury VAT.xml\') then createdir(path_1+'\Faktury VAT.xml\');
plik:=path_1+'\Faktury VAT.xml\'+edit1.text+'.xml';
plik[pos('/',plik)]:='_';
xml.SaveToFile(plik);
walidacja(plik);
end;
Fragment wygenerowanego pliku xml:
<Podmiot1>
<DaneIdentyfikacyjne>
<NIP>9999999999</NIP>
<PelnaNazwa>ABC AGD sp. z o. o.</PelnaNazwa>
</DaneIdentyfikacyjne>
<Adres>
<KodKraju>PL</KodKraju>
<Miejscowosc>Puławy</Miejscowosc>
<Ulica>Lubelska 16</Ulica>
<NrDomu>16</NrDomu>
<KodPocztowy>24-100</KodPocztowy>
</Adres>
<Email>[email protected]</Email>
<Telefon>602173170</Telefon>
</Podmiot1>
powinno być:
<Podmiot1>
<DaneIdentyfikacyjne>
<NIP>9999999999</NIP>
<PelnaNazwa>ABC AGD sp. z o. o.</PelnaNazwa>
</DaneIdentyfikacyjne>
<Adres xsi:type="tns:TAdresPolski">
<KodKraju>PL</KodKraju>
<Miejscowosc>Warszawa</Miejscowosc>
<Ulica>Kwiatowa</Ulica>
<NrDomu>1</NrDomu>
<NrLokalu>2</NrLokalu>
<KodPocztowy>00-001</KodPocztowy>
</Adres>
<Email>[email protected]</Email>
<Telefon>667444555</Telefon>
</Podmiot1>
W załączniku unit ze schematu i okno mojego walidatora.