diff --git a/docs/todos.txt b/docs/todos.txt index 2013938..e946f6b 100644 --- a/docs/todos.txt +++ b/docs/todos.txt @@ -1 +1,10 @@ -1. verificarea codurilor fiscale pe ANAF sa foloseasta istoricul de verificari drept cache 1 saptamana, in loc sa verifice mereu pe anaf. +1. ROACONT. verificarea codurilor fiscale pe ANAF sa foloseasta istoricul de verificari drept cache 1 luna, in loc sa verifice mereu pe anaf. DE FAPT VREAU VERIFICARE ANAF CARE ACTUALIZEAZA SI CACHE, SI DACA NU MERGE ANAF, SA FOLOSEASCA CACHE + +Vreau acelasi sistem de cache si pentru Registrul TVA la incasare care acum se descarca in schema comuna de baza de date CONTAFIN_ORACLE, pe serverul de baza de date, arhive zip de la anaf si se actualizeaza tabelele de rtvai_* +Poate folosesti exact datele de la anaf descarcate pentru verificarea codurilor fiscale, in cazul in care exista informatia. + +Vreau ca verificarile de coduri fiscale din D406, D394, Registrele de TVA sa foloseasca direct ANAF, si sa actualizeze cache-ul istoricul din baza de date (ISTORIC_CODURI_FISCALE) + +2. ROACONT - Borderou eFactura, checkbox-urile diferente fata de Registrele de TVA sa aiba in caption si numarul de inregistrari cu diferente, astfel incat utilizatorul sa stie daca este cazul sa filtreze pentru afisarea facturilor cu diferente + +3. ROACONT - modificare nota, explicatia tva sa filtreze dupa procent tva din tabel, ca sa arate o selectie mai mica de explicatii tva. vezi cum ai facut la explicatia tva din ointroduceri.vcx > import_nota. \ No newline at end of file diff --git a/programe/validare.prg b/programe/validare.prg index 558d45c..a242653 100644 --- a/programe/validare.prg +++ b/programe/validare.prg @@ -1761,8 +1761,9 @@ Endfunc && ANAF_SondaPorneste *** .T. daca sonda in curs si-a primit raspunsul (indiferent de rezultat) sau nu exista nicio sonda activa ************************************* Function ANAF_SondaAuSositRaspunsul - Local loEx As Exception, llSosit - + Local loEx As Exception, llSosit, llEroare + llEroare = .F. + If Vartype(goANAF_SondaHTTP) <> 'O' Return .T. Endif @@ -1771,8 +1772,11 @@ Function ANAF_SondaAuSositRaspunsul llSosit = goANAF_SondaHTTP.WaitForResponse(0) Catch To loEx glANAF_SondaReusita = .F. + llEroare = .T. + ENDTRY + IF m.llEroare Return .T. - Endtry + ENDIF If m.llSosit glANAF_SondaReusita = .T. Endif