Skip to main content

HACIENDA MOD 190 Introducción


MOD 111

MOD 190

MOD 347

Tipo

pagar AUNQUE SEAN 0 €, sino multan

informativo ANUAL

informativo ANUAL

obligado

qué es

pago del IRPF TRIMESTRAL total de los ponentes

decir qué ponente qué irpf

IMPORTANTE las direcciones en el GIR y a la vez carta a los ponentes del pago IRPF

informar proveedores de +3.005,06€

cuando

trimestral

1º        1-15 abril

2º        1-15 julio

3º        1-15 octubre

4º        1-15 enero

anual 1-31 enero

anual del 1 al 28 FEBRERO

NO RESIDENTES RETENER (ver no residentes)

se considera no residentes si están menos de 183 días (6 meses)

MOD 216


MOD 296


COMO ENTREGAR EL MOD190 HASTA EL 30 ENERO DE FORMA MANUAL         
  • 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 retenció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
COMO ENTREGAR EL 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