🚀 go-pugleaf

W dniu 29-12-2016 o 22:08, mmm pisze:
> W dniu 2016-12-29 o 17:04, Roman Tyczka pisze:
>> On Tue, 27 Dec 2016 00:35:22 -0800 (PST), kameleonsql@gmail.com wrote:
>>
>>> mamy mały problem z szyfrowaniem plików JPK używając SecureBox'a
>>> (Delphi 2010).
>>
>> Mały? Na pewno? ;-)
> Małe firmy to mają jeszcze rok i dwa dni , średnie trochę krócej jeszcze
> trochę czasu jest. Zamiast na bal sylwestrowy można dłubać.

JPK-VAT rusza od 1-01-2017 więc tylko 1 miesiąc 25dni + 2 dnii.

Do samego wysyłania jest program na stronie MF ale podpisywanie we 
własnym zakresie (dziwne to jest).

Osobiście (to nie reklama, a podpowiedź) używam
http://jpk.dobry.pl/
cena nie jest wygórowana (a spotkałem się nawet z 5000 za program).
można ukryć całość używając dll.

Albo tak
ShellExecute(Handle, 'open', 'C:\Program Files\IPSPI\JotPeK\JotPeK.exe', 
PChar('/jpk='+katalog+'\'+filename+' /outpath='+katalog+'\'), 
'C:\Program Files\IPSPI\JotPeK\', SW_NORMAL);

Albo dll i tak

AddXMLJPKFile(PChar(katalog+'\'+filename),0);
  ShowError;
   SetLic('LIC**************');
   idSession:=SignSendJPK(cCzyTest,nil,nil,false); //Inicjalizacja wysyłki.
   if idSession<>nil then
   begin
     SetProgressCaption(idSession,'Wysyłanie pliku XML na serwer 
Ministerstwa Finansów '); //Ustawienie tekstu na progress-bar
     repeat
       //i:=WaitForEnd(idSession,vRefsNum);
     until (WaitForEnd(idSession,vRefsNum)>0);
      //Oczekiwanie na zakończenie procesu wysyłki
     if vRefsNum<>nil then //Jeśli wysyłka przebiegła prawidłowo, tzn. 
jest numer referencyjny.
     begin
//      ..Tutaj zapisanie numeru referencyjnego …
       Sleep(5000); //Trochę dać czasu serwerowi M.F.
       if GetUPO(cCzyTest,vRefsNum,vUPO,vStatus,vStatusText) then 
//Odczyt statusu
       begin
         ShowMessage('Status '+IntToStr(vStatus)+#13+ vStatusText+#13+vUPO);
//        ..Tutaj zapisanie statusu i upo. //UPO prawdopodobnie jeszcze 
nie będzie
       end else ShowError;
     end else ShowError;
   end else ShowError;

---
Ta wiadomość została sprawdzona na obecność wirusów przez oprogramowanie antywirusowe Avast.
https://www.avast.com/antivirus