Skip to main content

HACIENDA MOD 190 Introducción

{{@12256#bkmrk-mod-111-mod-190-mod-}}

MODELOCOMO 190ENTREGAR INFORMATIVOEL ANUALMOD190 HASTA EL 30 ENERO DE FORMA MANUAL         
  • EN EL GIR
    • Listado GIR-Fiscales fecha inicio 1 ene - 31 dic
    • Guárdalo como HOJA EXCELL SOLO DATOS con en nombre 190-año.xls y en la carpeta PERMANENTE CATEDU-AEAT-AÑO
    • 2024-07-12 18_26_45-HACIENDA-CATEDU - Documentos de Google.png
  • En excel en reemplazar
    • Quítale estas palabras IMPORTANTE LOS ESPACIOS TAMBIÉN: DNI:    Tercero  Nombre: 
    • fórmulas fíjate en 190-añoanterior
      • COLUMNA M PERCEP
      • COLUMNA N PERCEP ACUM
      • COLUMNA O RETEN
      • COLUMNA P RETEN ACUM
    • Arreglos
      • La última fila la tienes que poner a mano 
      • Tiene que cuadrar la última fila los acumulados con el total, PERCEP ACUM, RETEN ACUM y NUM
    • FORMATOS fíjate en 190-añoanterior
      • Formato condicional a todas
    • Destaca casos G-01 como Isabel Puente Cadena
  • En la página web del AEAT mod190 con firma electrónica de catedu
    2024-07-12 18_28_43-HACIENDA-CATEDU - Documentos de Google.png
    • rellena tus datos, copia y pega de la hoja de cálculo en otra pantalla
      • DNI
      • NOMBRE Y APELLIDOS
    • Rellena los datos a mano viendo la hoja de cálculo
      • provincia, F 02
      • Base retencionretención
      • Retención

cada 10 terceros ves GRABANDO y chequea acumulo de retención y base y num terceros

  • Se llenan los perceptores EN LA PAGINA 2 Y La CLAVE F SUBCLAVE 02
    si alguno es raro es porque es G incluso SUBCLAVE 01 GENERAL O  03 si la empresa está empezando y se le aplica un IRPF reducido

ojo acuérdate que ISABEL PUENTE CADENA ES G 01

2024-07-12 18_33_32-HACIENDA-CATEDU - Documentos de Google.png

  • Ver resumen en pagina 1 si coincide con el listado del paso 1
    2024-07-12 18_34_18-HACIENDA-CATEDU - Documentos de Google.png
  • Firmar y enviar
  • guardar en pdf en PERMANENTE-CATEDU/AEAT/AÑOX/190.pdf
CERTIFICADOSCOMO MODELOENTREGAR 190EL MOD190 HASTA EL 30 ENERO DE FORMA AUTOMATICA 
  1. Creas la hoja excell
  2. Creas el fichero 190.txt
  3.          

INTENTOS DE HACERLO AUTOMÁTICO

La declaración puede importarse con un fichero texto que tiene que tener el siguiente formato :

Formato https://sede.agenciatributaria.gob.es/static_files/Sede/Disenyo_registro/DR_100_199/archivos_24/DISENOS_LOGICOS_190-2024.pdf

Intento para registros tipo 1

Intento que ChatGPT me ayude, para registro tipo 1 me genero

11902024Q4400401HCATEDU                                  N00000000000000018100000003247512600000000487126800000000000000020250113120000

pero como puedes ver ya falla en el caracter 58 pone una N en vez de una T y desde la 58 hacia delante muchos fallos, incluso pone que hay declaración complementaria

Intento para registros tipo 2

Intento que ChatGPT me ayude, y me dice

Abre el archivo Excel.
Presiona Alt + F11 para abrir el editor de VBA.
En el editor, haz clic en Insertar > Módulo.
Copia y pega el siguiente código:

Asegúrate de que el Excel tiene las columnas en el orden y formato descrito.
Ejecuta la macro presionando Alt + F8, seleccionando GenerarModelo190, y haciendo clic en Ejecutar.
La macro pedirá una ubicación para guardar el archivo TXT. Selecciona la carpeta deseada y guarda el archivo.

El script que genera es el siguiente:

Sub GenerarFichero190()
	Dim ruta As String
	Dim archivo As Integer
	Dim ultimaFila As Long
	Dim linea As String
	Dim i As Long
    
	' Ruta y nombre del archivo de salida
	ruta = Application.DefaultFilePath & "\modelo_190.txt" ' Puedes personalizar la ruta
	archivo = FreeFile
    
	' Abrir archivo para escritura
	Open ruta For Output As archivo
    
	' Determinar la última fila con datos
	ultimaFila = Cells(Rows.Count, 1).End(xlUp).Row
    
	' Recorrer las filas y construir el archivo
	For i = 2 To ultimaFila ' Asume que la fila 1 tiene encabezados
		linea = ""
		linea = linea & Format(Cells(i, 1).Value, "000") ' Tipo de registro (columna A)
		linea = linea & Format(Cells(i, 2).Value, "@@@@@@@@@@") ' NIF (columna B)
		linea = linea & Left(Cells(i, 3).Value & Space(40), 40) ' Nombre o razón social (columna C)
		linea = linea & Format(Cells(i, 4).Value, "00") ' Clave de percepción (columna D)
		linea = linea & Format(Cells(i, 5).Value * 100, "0000000000") ' Importe íntegro (columna E)
		linea = linea & Format(Cells(i, 6).Value * 100, "0000000000") ' Retenciones (columna F)
		' Agregar más campos si es necesario siguiendo las especificaciones
        
		' Escribir la línea al archivo
		Print #archivo, linea
	Next i
    
	' Cerrar el archivo
	Close archivo
    
	' Mensaje de confirmación
	MsgBox "Archivo generado correctamente en: " & ruta, vbInformation
End Sub

Pero lo hace mal, por ejemplo  hace 002 numdni ya deja un espacio en blanco

Back to top