sync SVN

programe/validare.prg

@@ -2710,13 +2710,13 @@ Define Class VerificareANAF As Custom
 				Do Case
 					Case m.lnItem = 1 && 'JUD.'$UPPER(lcItem)
 						*!*						lcJudet = ALLTRIM(STRTRAN(m.lcItem, 'JUD.', '',1,1,1))
-						loAdresa.judet = Getwordnum(m.lcItem, 2, ' ') && CONSTANTA
+						loAdresa.judet = This.FaraPrefixLoc(m.lcItem) && SATU MARE
 					Case m.lnItem = 2 && 'MUN.'$UPPER(lcItem)
 						*!*						lcLocalitate = ALLTRIM(STRTRAN(m.lcItem, 'MUN.', '',1,1,1))
 						IF LEFT(m.lcItem, 7) = "SECTOR "
 							loAdresa.localitate = STRTRAN(m.lcItem, "SECTOR ", "BUCURESTI SECTORUL ")
 						ELSE 	
-							loAdresa.localitate = Getwordnum(m.lcItem, 2, ' ') && CONSTANTA
+							loAdresa.localitate = This.FaraPrefixLoc(m.lcItem) && TIRGU NEAMT
 						ENDIF 	
 					Case m.lnItem = 3
 						lcPrefix = Getwordnum(m.lcItem, 1, ' ') && STR. / BD.
@@ -2748,6 +2748,30 @@ Define Class VerificareANAF As Custom
 		Return loAdresa
 	Endproc
 
+	*** Taie prefixul administrativ dintr-un element de adresa ANAF: "JUD. SATU MARE" -> "SATU MARE".
+	*** Fara el ramanea doar primul cuvant, deci denumirile din doua cuvinte ieseau trunchiate.
+	*** 23.08.2026: adaugat 'MUNICIPIUL' / 'JUDETUL', formele NEprescurtate. Pe Bucuresti ANAF nu
+	*** trimite "JUD. BUCURESTI", ci "MUNICIPIUL BUCURESTI" - fara punct si negasit in lista de mai
+	*** jos, prefixul ramanea lipit, iar judetul nu se potrivea cu "BUCURESTI" din syn_vnom_judete.
+	*** Masurat pe 200 de coduri fiscale reale: 74 din cele 100 de esecuri veneau exact de aici, si
+	*** cadea si localitatea, desi ea se potrivea exact (formularul nu mai incearca localitatea daca
+	*** judetul a picat). 'ORASUL' / 'COMUNA' / 'SATUL' sunt lasate INTENTIONAT afara: exista
+	*** localitati care incep chiar asa (ex. ORASUL NOU, jud. Satu Mare) si le-am trunchia numele.
+	Procedure FaraPrefixLoc
+		Lparameters tcItem
+		Local lcItem, lcPrefix, lnPoz
+		lcItem = Alltrim(Nvl(m.tcItem, ''))
+		lcPrefix = Getwordnum(m.lcItem, 1, ' ')
+		lnPoz = At('.', m.lcPrefix)
+		Do Case
+			Case m.lnPoz > 0
+				lcItem = Alltrim(Substr(m.lcItem, At('.', m.lcItem) + 1))
+			Case Inlist(Upper(m.lcPrefix), 'SAT', 'JUD', 'MUN', 'ORS', 'COM', 'MUNICIPIUL', 'JUDETUL')
+				lcItem = Alltrim(Substr(m.lcItem, Len(m.lcPrefix) + 1))
+		Endcase
+		Return m.lcItem
+	Endproc
+
 	*************************************
 	*** Parcurge un cursor in forma crsANAF si salveaza fiecare rand in ISTORIC_CODURI_FISCALE
 	*** prin pack_parteneri.save_istoric_cod_fiscal (26 parametri); commit din 100 in 100 si la final