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
- 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
- rellena tus datos, copia y pega de la hoja de cálculo en otra pantalla
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
- Ver resumen en pagina 1 si coincide con el listado del paso 1
- 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
- Creas la hoja excell
- Creas el fichero 190.txt
INTENTOS DE HACERLO AUTOMÁTICO
La declaración puede importarse con un fichero texto que tiene que tener el siguiente formato :
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