eFactura, verificare partener, istoric CF: numar pe bife, TVA la incasare, explicatii pe cota
- borderou si import eFactura: bifele de cautare arata numarul de documente in eticheta, inca de la deschiderea ferestrei. Numararea se face local din cursorul deja adus cand nicio bifa nu e bifata (cursorul e chiar setul de baza) si prin interogare doar cand o bifa e bifata, ca sa nu apara interogari inutile. Latimile bifelor au fost marite: erau croite exact pe textul original, iar " (N)" era taiat de marginea controlului. - verificare cod fiscal: starea partenerului include "TVA la incasare", cu perioada in detalii; sursa e ANAF live sau cache-ul ISTORIC_CODURI_FISCALE (ocautare.prg, validare.prg). - modificare nota: lista de explicatii TVA se filtreaza dupa cota TVA a liniei curente (omodificari.vc2, caut_explicatie_tva din oproceduri_comune.prg). - istoric coduri fiscale: coloane nefolosite ascunse, adaugate cele venite de la ANAF (TVA la incasare, split TVA, inactiv si perioadele aferente) - overificari.vc2. - docs/scripturi-migrare-db.md: regulile de rulare manuala pe schema tinta si un pachet per script. Co-Authored-By: Claude Opus 5 <noreply@anthropic.com> Claude-Session: https://claude.ai/code/session_01D8Ham1HJ8BB2v9nbtWgdZq
This commit is contained in:
@@ -1741,6 +1741,9 @@ Function ANAF_VerdictDinCursor
|
||||
Addproperty(loResult, "dSfarsitScpTVA", Nvl(data_sfarsit_ScpTVA, {}))
|
||||
Addproperty(loResult, "dAnulareScpTVA", Nvl(data_anul_imp_ScpTVA, {}))
|
||||
Addproperty(loResult, "cMesajScpTVA", Nvl(mesaj_ScpTVA, ""))
|
||||
Addproperty(loResult, "lTvaIncasare", Nvl(tvaincasare, .F.))
|
||||
Addproperty(loResult, "dInceputTvaInc", Nvl(dataInceputTvaInc, {}))
|
||||
Addproperty(loResult, "dSfarsitTvaInc", Nvl(dataSfarsitTvaInc, {}))
|
||||
Else
|
||||
If m.lnReccountTemp = 1 And Empty(denumire) And Nvl(cui, 0) = m.tnCuiCautat
|
||||
tlNegasit = .T.
|
||||
@@ -2669,10 +2672,10 @@ Define Class VerificareANAF As Custom
|
||||
lnRecnoInit = Recno()
|
||||
Scan For cui <> 0 And Left(Nvl(sursa, ''), 5) <> 'CACHE'
|
||||
pcCodFiscal = Transform(cui)
|
||||
pcFirma = Nvl(firma, '')
|
||||
pcAdresa = Nvl(adresa, '')
|
||||
pcJudet = Nvl(judet, '')
|
||||
pcRegCom = Nvl(nrRegCom, '')
|
||||
pcFirma = Alltrim(Nvl(firma, ''))
|
||||
pcAdresa = Alltrim(Nvl(adresa, ''))
|
||||
pcJudet = Alltrim(Nvl(judet, ''))
|
||||
pcRegCom = Alltrim(Nvl(nrRegCom, ''))
|
||||
pcCodPostal = ''
|
||||
pcTelefon = ''
|
||||
pcFax = ''
|
||||
|
||||
Reference in New Issue
Block a user