Image Added

ÍNDICE

1. REQUERIMIENTOS

...

...

Para lograr la generación de la factura electrónica debe el sistema de software permitir que tan pronto haya cerrado el registro de la información de la operación de venta, y de que haya almacenado la información de esta operación en forma adecuada, construya el formato XML de acuerdo con las especificaciones técnicas, calcule el CUFE, y aplique el método de firma electrónica avanzada apropiado para su modelo de negocio, y lo almacene en un formato convertible en un archivo de datos de tipo UTF-8.

Características de la Factura Electrónica:

• Utiliza el formato electrónico de generación XML estándar establecido por la DIAN.
• Lleva la numeración consecutiva autorizada por la DIAN.
• Cumple los requisitos del 617 ET y discrimina el impuesto al consumo cuando es el caso.
• Incluye la firma digital o electrónica para garantizar autenticidad e integridad y no repudio de la factura electrónica, de acuerdo con la política de firma adoptada por la DIAN.
• Incluye el Código Único de Factura Electrónica CUFE.

Para dar cumplimiento a la legislación mencionada y de acuerdo a las especificaciones del Anexo Técnico 001 Formatos de los Documentos XML de Facturación Electrónica – Versión 2, en el presente documento se detalla la configuración que se debe realizar para la generación de la factura electrónica.

IMPORTANTE: El Código Único de Facturación Electrónica (CUFE) no es generado por el sistema Protheus, es un datos generado por el proveedor tecnológico The Factory HKA, informado en el XML retornado por el proveedor tecnológico dentro del nodo cbc:UUID (XML contenido en la carpeta autorizados).

Los cambios en la funcionalidad del sistema, derivados de actualizaciones de legislación sobre la factura electrónica, se anuncian al final de este documento. Es necesario revisar cada rubro de actualizaciones para una correcta configuración del sistema y así obtener los resultados esperados. 

(Solo para Microsiga Protheus, versiones anteriores a la 12)

...

• Patch de actualización al RPO con rutinas actualizadas.

• Scripts ejemplo de generación de archivos XML (Factura Electrónica):
  FATSCOL.INI - Facturas y notas de débito nacionales.
  FATSECOL.INI - Facturas y notas de débito de exportación.
  FATECOL.INI - Notas de crédito nacionales crédito nacionales y de exportación.
  Debe crear una estructura de carpetas dentro de la ruta del ambiente (protheus_data\system) en donde deben ser copiados estos archivos. En el mismo árbol de carpetas se alojarán las facturas electrónicas generadas por el sistema así como los documentos autorizados. Los nombres de cada carpeta deben ser configurados en los parámetros MV_CFDDOCS, MV_CFDANUL, MV_CFDFTS, MV_CFDFTSE y MV_CFDFTE, consulte la sección 7. Creación o modificación de Parámetros. Se sugiere la siguiente estructura y nombres de carpetas:

  Carpeta	Uso/descripción	Parámetro relacionado
  cfd	Carpeta principal de comprobantes fiscales digitales.
  cfd\facturas	Almacén de documentos electrónicos generados por el sistema.	MV_CFDDOCS
  cfd\facturas\autorizados	Almacén de documentos autorizados por la DIAN.
  cfd\anuladas	Almacén de documentos anulados.	MV_CFDANUL
  cfd\inicfd	Scripts de generación de archivos xml.	MV_CFDFTS, MV_CFDFTSE y MV_CFDFTE

  
  

• Archivos tipo .CSV que corresponden a los catálogos definidos por la DIAN para la Factura Electrónica. Debe copiar estos archivos a la ruta establecida en el parámetro MV_PATH814, descrito más adelante en este documento. Descargar archivo catalogosDIAN.zip

...

• Exporte o transcriba las tablas, una por una, hacia una planilla de cálculo en msExcel. en donde la Columna A=Código, Columna B=Descripción, sin encabezados y asegurando que los códigos que comienzan con uno o más 0 (cero) conserven esa característica (columna o celda tipo texto).

• Grabe la planilla en un archivo tipo .CSV (delimitado por comas) con campos separados por el carácter pipe (|), es posible que deba cambiar la configuración regional del sistema operativo. El nombre de los archivos debe corresponder con la lista siguiente de acuerdo a la enumeración de los catálogos en el anexo mencionado previamente:

  Nombre de archivo	Descripción del catálogo
  01TiposFactura.csv	Tipos de factura.
  02TiposDocIdentidad.csv	Tipos de documentos de identidad.
  03ConceptoNotasCredito.csv	Concepto de notas de crédito.
  04ConceptoNotasDebito.csv	Concepto de notas de débito.
  05ImpuestosFE.csv	Impuestos registrados en la factura electrónica.
  06MediosPago.csv	Medios de pago.
  07Monedas.csv	Monedas.
  08Paises.csv	Países.
  09TiposOrganizacionJuridica.csv	Tipos de organización jurídica; Tipos de adquiriente.
  10TiposRegimenIVA.csv	Tipos de régimen IVA.
  11Incoterms.csv	Inconterms.
  12TiposPago.csv	Tipos de pago.
  13TiposRepresentacion.csv	Tipos de representación.
  14TiposObligacionesResp.csv	Tipos de obligaciones-responsabilidades.
  15TiposUsuariosAduaneros.csv	Tipos de usuarios aduaneros.
  16TiposEstablecimientos.csv	Tipos de establecimientos.

• Coloque los archivos en la ruta informada en el parámetro del sistema MV_PATH814, descrito más adelante en este documento.

Consulte la sección 4. Anexo Técnico versión 1.8 DIAN para información sobre actualizaciones a los catálogos y reglas de validación.

1.2 Actualizaciones del compatibilizadorcompatibilizador 

(Solamente para Microsiga Protheus, versiones anteriores a la versión 12).

1. Creación de Preguntas en el archivo SX1 – Archivo de Preguntas:

Grupo: MATA486

Grupo: MATA486A

Grupo: MATA486A

...

...

Importante:

El tamaño de los campos que disponen de grupo puede variar de acuerdo con el entorno en uso.

5.  Creación o modificación de Consulta Estándar en el archivo SXB – Consulta Estándar:

Búsqueda COL001:

Tabla AI0 - Complemento de Clientes:

Importante:

El tamaño de los campos que disponen de grupo puede variar de acuerdo con el entorno en uso.

5.  Creación o modificación de Consulta Estándar en el archivo SXB – Consulta Estándar:

Búsqueda COL001:

...

En caso de que la certificación de los comprobantes fiscales se vaya a realizar a través del servicio web Dfactura de The Factory HKA, debe modificar el catálogo S005 - Impuestos Factura Electrónica, de acuerdo al listado que el Proveedor Tecnológico maneja:

Tabla 4 Tipos de Impuesto

...

Código

...

Descripción

...

01

...

IVA

...

02

...

ICA

...

03

...

ICO

...

04

...

Contribuciones

...

05

...

Subcódigo

...

Retención en la fuente por renta

...

3

...

Compras

...

5

...

Honorarios

...

6

...

Servicios Generales

...

7

...

Transporte de Carga

...

06

...

Retención en la fuente por ICA

...

07

...

Retención en la fuente por IVA

Proveedor Tecnológico maneja.

Adicionalmente, configure uno o varios códigos especiales para autorretenciones. Las claves no deben estar en uso por el Proveedor Tecnológico ni por la DIAN y deben ser alfanuméricos. Por ejemplo: 0A.

Consulte la sección 4. Anexo Técnico versión 1.8 DIAN para información sobre actualizaciones a los catálogos y reglas de validación.

3. Configure la relación 3. Configure la relación entre las tablas del sistema y los catálogos publicados por la DIAN en el documento:

...

• Monedas (Contabilidad de Gestión (SIGACTB) | Actualizaciones | Archivos | Monedas Contables): Defina el código DIAN (estándar ISO 4217), conforme al inciso 8.7 del documento mencionado.
• Impuestos variables (Libros Fiscales (SIGAFIS) | Actualizaciones | Archivos | Impuestos Variab.): Defina el código de impuesto y régimen de IVA de la DIAN, conforme a los incisos 8.5 y 8.10 respectivamente. Ver nota del punto 2.
  También configure la clase de impuesto: I-Impuesto, P-Percepción, R-Recepción (o Retención). Para autorretenciones como es el caso del CREE, tenga en cuenta vincular el impuesto correspondiente con los códigos especiales descritos en el inciso
• Países (Easy Import Control (SIGAEIC) | Actualizaciones | Archivos | Países): Defina los códigos de la DIAN (estándar ISO 3166-1), conforme al inciso 8.8.
• Unidades de medida (Facturación (SIGAFAT) | Actualizaciones | Archivos | Unidades Medida): También, registre los códigos en relación a los definidos para el comercio internacional de acuerdo a la recomendación de la UNECE.

Consulte la sección 4. Anexo Técnico versión 1.8 DIAN para información sobre actualizaciones a los catálogos y reglas de validación.

4. En la tabla de Control de folios (Libros Fiscales (SIGAFIS) | Actualizaciones | Archivos | Impuestos Variab.) registre los datos para cada serie y especie:

...

El sustento legal y toda la información referente a Factura Electrónica se encuentra en el sitio de la DIAN.

NOTA: Para la implantación del proceso de validación previa, se deberá de contar con las configuraciones del modelo de validación posterior descrito en el inciso 1.REQUERIMIENTOS

...

...

7.- Para el nodo de actividadEconomicaCIIU se deberá configurar el campo C.Actividad (A1_ATIVIDAD) del Cliente.

...

8.- En la ruta configurada en los parámetros MV_CFDFTS, MV_CFDFTE y MV_CFDFTSE, actualizar los archivos FATSCOL.INI, FATSECOL.INI y FATECOL.INI.

Consulte la sección 4. Anexo Técnico versión 1.8 DIAN para información sobre actualizaciones a los catálogos y reglas de validación.

2.1.2 Ejemplo de utilización.

...

2. Creación de consulta estándar en el archivo SXB - Consulta Estándar:

3. Creación de tablas en el archivo SX2 - Tablas:

...

2.4 OBLIGATORIEDAD DOCUMENTOS REFERENCIADOS (NDC/NCC)

Âncora
PE02 PE02

...

2.4.2 Configuraciones Previas

a) Actualizar la estructura del catálogo S017 - TIPOS DE OPERACIÓN, donde se agregaron los campos Tipo Doc. y Tipo Val.

b) Actualizar el contenido del catálogo S017 - TIPOS DE OPERACIÓN, en donde el archivo 17TiposOperacion.csv deberá estar en la ruta configurada en el parámetro MV_PATH814, debiendo tener la siguiente estructura:

Importante: Para realizar la actualización del catálogo S017 - TIPOS DE OPERACIÓN, es necesario realizar el borrado lógico del código S017 en las tablas Configuración de Catálogos (F3H) y Mantenimiento de Catálogos (F3I) y que el archivo 17TiposOperacion.csv contenga los datos de acuerdo a la nueva estructura.

c) Actualizar la expresión de la consulta especifica COL017

2.4.3 Ejemplo de utilización 

...

 para que, al desplegar la consulta desde los campos Tipo Oper. (F1/F2_TIPOPE), se realice el filtrado por especie del documento y así solo visualizar los que pertenecen al tipo de documento a generar.

Image Added

Importante: Ajuste realizado en el pacote 007262 - DMINA-8101 - TIPO OPERACIÓN FE COLOMBIA 12.1.25.

2.4.3 Ejemplo de utilización 

En el módulo Facturación (SIGAFAT) ir al menú Actualizaciones | Facturación | Generac. de Notas de Crédito y Débito (MATA465).

1. Informar en los parámetros:
   • ¿Formulario propio? = Si
   • ¿Tipo de Factura? = Crédito
2. Incluir un nuevo documento  e informar en el encabezado el Cliente (F1_FORNECE), Loja (F1_LOJA), Núm. Doc (F1_DOC), Serie (F1_SERIE)
3. Indica en el campo Tipo Oper.  (F1_TIPOPE) el valor 23 - Nota de Crédito para Facturación Electrónica v1.
4. Informar el detalle del documento (Puede ser desde Otras Acciones ejecutando la acción Doc Orig o de forma manual)
5. La Factura de Salida informada en los campos Doc. Original (D1_NFORI) y Serie Orig. (D1_SERIORI), deberá cumplir con los siguientes requisitos:
   • Tener estatus de Recibido (F2_FLFTEX = '1')
   • El CUFE de tener una longitud de 40 caracteres.
6. Una vez que se han informado todos los datos presionar Grabar para confirmar el guardado del documento.

En el módulo Facturación (SIGAFAT) ir al menú Actualizaciones | Facturación | Facturación Electrónica (MATA486).

1. Informar en los parámetros:
2. ¿Tipo de documento? = Nota de Crédito
   • ¿Serie? = Serie de la Nota de Crédito incluida anteriormente.
   • ¿Estatus? = vacío o cero.
   • ¿Fecha Inicial? / ¿Fecha Final? = Rango que contemple la fecha de emisión de la Nota de Crédito.
3. Ejecutar la acción Transmitir, e informar los parámetros:
   • ¿Serie de Nota de Crédito? = Serie de la Nota de Crédito incluida anteriormente.
   • ¿Nota de Crédito Inicial? / ¿Nota de Crédito Final? = Rango que contemple la fecha de emisión de la Nota de Crédito.
4. Validar que el proceso de transmisión sea exitoso.
5. Ejecutar desde otras acciones la acción Imprimir PDF y validar que se visualice en el informe la sección Documentos Referenciados.

IMPORTANTE:

Para las Notas de Débito de Cliente (NDC) y Notas de Crédito de Cliente (NCC) que no afectan a Factura deberán de usarse los siguientes tipos de operación:

• 22 - Nota Crédito sin referencia a facturas.
• 32 - Nota Débito sin referencia a facturas.

Para las Notas de Débito de Cliente (NDC) y Notas de Crédito de Cliente (NCC) que afectan a Facturas transmitidas por el método de validación Posterior deberán de usarse los siguientes tipos de operación:

• 23 - Nota Crédito para facturación electrónica V1.
• 33 - Nota Débito para facturación electrónica V1.

Para las Notas de Débito de Cliente (NDC) y Notas de Crédito de Cliente (NCC) que afectan a Facturas transmitidas por el método de validación Previa deberán de usarse los siguientes tipos de operación:

• 20 - Nota Crédito que referencia una factura electrónica.
• 30 - Nota Débito que referencia una factura electrónica.

2.5 PUNTO DE ENTRADA ANULACIÓN DE VALIDACIÓN DOC. RELACIONADO - M465DORIFE (NCC/NDC)

Se activa el Punto de Entrada M465DORIFE, mediante el cual el usuario podrá agregar reglas de negocio para excluir la validación de transmisión previa de documentos a relacionar a Notas de Crédito de Cliente (NCC) y Notas de Débito de Cliente (NDC), para verificar la funcionalidad del punto de entrada ir al documento técnico: 7275299_DMINA-7702_DT_PE_M465DORIFE_Valida_estatus_NF_relacionada_a_NCC_COL

2.6 AUTORRETENCIONES

2.6.1 Visión General

Se solicita funcionalidad para incluir y transmitir documentos electrónicos que tengan cálculo de autorretenciones.

Ticket: 8674296

2.6.2 Configuraciones Previas

Contar con las siguientes rutinas actualizadas con fecha igual o posterior:

a) En el módulo Facturación (SIGAFAT) desde Actualizaciones | Archivos | Mantenimiento de Catálogos (FISA813).

En el catálogo S005-Impuestos Factura Electrónica, agregar un nuevo código de impuesto que sea diferente a los reservados por la DIAN, por ejemplo A0.

Image Added

b) En el módulo Facturación (SIGAFAT) desde Actualizaciones | Archivos | Impuestos Variables (MATA995).

Configurar el impuesto de autorretención indicando en el campo Impuesto FE (FB_IMPSAT) con el valor del código agregado en el catálogo S005-Impuestos Factura Electrónica, y el campo Clase Imp. (FB_CLASSE) con el valor R-Recepción.

Image Added

2.6.3 Ejemplo de utilización 

En el módulo Facturación (SIGAFAT) ir al menú Actualizaciones | Facturación | Facturaciones (MATA467N).

1. Informar en los parámetros:
   • ¿Normal/Benef? = Normal
2. Incluir un nuevo documento  e informar en el encabezado el Cliente (F2_CLIENTE), Loja (F2_LOJA), Núm. Doc (F2_DOC), Serie (F2_SERIE)
3. Indica en el campo Tipo Oper.  (F2_TIPOPE).
4. Informar el detalle del documento, utilizando un Tipo de Salida/Entrada con calculo de autorretención (Las autoretenciones no suman ni restan al valor bruto del documento). 
5. Una vez que se han informado todos los datos presionar Grabar para confirmar el guardado del documento.

En el módulo Facturación (SIGAFAT) ir al menú Actualizaciones | Facturación | Facturación Electrónica (MATA486).

1. Informar en los parámetros:
   1. ¿Tipo de documento? = Factura
   2. ¿Serie? = Serie de la Factura de Salida incluida anteriormente.
   3. ¿Estatus? = vacío o cero.
   4. ¿Fecha Inicial? / ¿Fecha Final? = Rango que contemple la fecha de emisión de la Factura de Salida.
2. Ejecutar la acción Transmitir, e informar los parámetros:
   • ¿Serie de Factura? = Serie de la Factura de Salida incluida anteriormente.
   • ¿Factura Inicial? / ¿Factura Final? = Rango que contemple la fecha de emisión de la Factura de Salida.
3. Validar que el proceso de transmisión sea exitoso.
4. Ejecutar desde otras acciones la acción Imprimir PDF y validar que en la sección Información adicional se visualicen los datos de la autorretención.

Image Added

2.7 PUNTO DE ENTRADA PARA ATRIBUTOS OPCIONALES (M486OWSCOL)

2.7.1 Visión General

Punto de Entrada para enviar los atributos opcionales disponibles en las clases de los web services de The Factory HKA (Ticket: 8394670).

IMPORTANTE:

La activación de dicho Punto de Entrada deberá ser realizado por algún analista con conocimientos de programación (AdvPL), ya que será responsabilidad de este si al no definir correctamente la regla de negocio en el Punto de Entrada, esto pudiera causar rechazo en la transmisión de Facturas de Venta, Notas de Débito o Notas de Crédito.

2.7.2 Configuraciones Previas

Contar con la siguiente rutina actualizada, con fecha igual o posterior:

Compilar el punto de entrada M486OWSCOL, el cual recibe los siguientes parámetros:

• Serie del documento.
• Folio del documento.
• Código del Cliente.
• Código de la Tienda.
• Objeto del XML (Contiene la estructura estándar del XML generado Protheus).
• Opción (Indica a qué nivel se agregarán los atributos opcionales: 1 = Nivel documento y 2 = Nivel ítem).
• Objeto con atributos del web services de The Factory HKA (Solo atributos de la clase FacturaGeneral).

#include 'protheus.ch'

User Function M486OWSCOL()

	Local cSerieDoc	:= PARAMIXB[1] //Serie
	Local cNumDoc	:= PARAMIXB[2] //Número de Documento
	Local cCodCli	:= PARAMIXB[3] //Código de Cliente
	Local cCodLoj	:= PARAMIXB[4] //Código de la Tienda
	Local oXML		:= PARAMIXB[5] //Objeto del XML
	Local nOpc		:= PARAMIXB[6] //1=Nivel documento 2=Nivel detalle
	Local oWS		:= PARAMIXB[7] //Objeto de web services

	Local nItem		:= Val(oXML:_CBC_ID:TEXT)
	Local cCodProd	:= ""
	Local cSDITem	:= ""
	Local cFilSD	:= xFilial("SD2")

	If nOpc == 1 //Encabezado
		//F2_FILIAL+F2_DOC+F2_SERIE+F2_CLIENTE+F2_LOJA+F2_FORMUL+F2_TIPO (Índice 1)
        //Clase oWSCliente
        oWS:oWSCliente:cnombreComercial := "NOMBRE COMERCIAL PE"
		
		//Clase oWSterminosEntrega
        oWS:oWSterminosEntrega := Service_TerminosDeEntrega():New()
        oWS:oWSterminosEntrega:ccostoTransporte:= "18.00"
	ElseIf nOpc == 2 //Detalle del documento
		cCodProd := Padr(oXML:_FE_ITEM:_CAC_SELLERSITEMIDENTIFICATION:_CBC_ID:TEXT,TamSX3("D2_COD")[1],' ')
        cSDITem := Padl(oXML:_CBC_ID:TEXT,TamSX3("D2_ITEM")[1],'0')
        
		dbSelectArea("SD2")
        SD2->(dbSetOrder(3)) //D2_FILIAL + D2_DOC + D2_SERIE + D2_CLIENTE + D2_LOJA + D2_COD + D2_ITEM

		If SD2->(dbSeek( cFilSD + cNumDoc + cSerieDoc + cCodCli + cCodLoj + cCodProd + cSDITem))
			//Clase oWSextras (Factura_Detalle)
            oWS:oWSextras := Service_ArrayOfExtras():New()
            oWSExtDet := Service_Extras():NEW()
            oWSExtDet:ccontrolInterno1 := "NO. SERIE"
            oWSExtDet:cnombre := "1"
            oWSExtDet:cpdf := "1"
            oWSExtDet:cvalor := SD2->D2_NUMSERI
            oWSExtDet:cxml := "1"
            aAdd(oWS:oWSextras:oWSextras,oWSExtDet)
        EndIf
	EndIf

Return Nil

Nota:

• En el punto de entrada de ejemplo, se llenan atributos que son opcionales a nivel documento y nivel detalle; realizando la bifurcación mediante el parámetro Opción (PARAMIXB[6]).

IMPORTANTE:

• Si no se encuentran activados los atributos de una clase, es necesario hacerlo de la siguiente manera Service_TerminosDeEntrega():New() haciendo uso del método New.
• Se puede hacer uso de los nodos del XML estándar generado desde protheus, el cual es recibido en el parámetro Objeto del XML (PARAMIXB[5]).
• Hacer uso de la variable cEspecie para definir regla de negocio por tipo de documento (NF, NDC o NCC).

Clases disponibles:

2.7.3 Ejemplo de utilización

En el módulo Facturación (SIGAFAT) ir al menú Actualizaciones | Facturación | Facturaciones (MATA467N).

1. Informar en los parámetros:
   • ¿Normal/Benef? = Normal
2. Incluir un nuevo documento  e informar en el encabezado el Cliente (F2_CLIENTE), Loja (F2_LOJA), Núm. Doc (F2_DOC), Serie (F2_SERIE)
3. Indica en el campo Tipo Oper.  (F2_TIPOPE).
4. Informar el detalle del documento, utilizando un Tipo de Salida/Entrada con cálculo de autorretención (Las autorretenciones no suman ni restan al valor bruto del documento). 
5. Una vez que se han informado todos los datos, presionar Grabar para confirmar el guardado del documento.

En el módulo Facturación (SIGAFAT) ir al menú Actualizaciones | Facturación | Documentos Electrónicos (MATA486).

1. Informar en los parámetros:
   1. ¿Tipo de documento? = Factura
   2. ¿Serie? = Serie de la Factura de Salida incluida anteriormente.
   3. ¿Estatus? = vacío o cero.
   4. ¿Fecha Inicial? / ¿Fecha Final? = Rango que contemple la fecha de emisión de la Factura de Salida.
2. Ejecutar la acción Transmitir, e informar los parámetros:
   • ¿Serie de Factura? = Serie de la Factura de Salida incluida anteriormente.
   • ¿Factura Inicial? / ¿Factura Final? = Rango que contemple la fecha de emisión de la Factura de Salida.
3. Validar que el proceso de transmisión sea exitoso.
4. Validar que se hayan enviado los datos definidos en el Punto de Entrada.

IMPORTANTE:

• Si al realizar la impresión estándar del archivo PDF de The Factory KHA, los campos adicionales enviados no son visualizados; se tendrá que tratar directamente con el proveedor tecnológico, ya que de ellos generan el archivo PDF que es retornado.

2.7.4 Envío por email desde el servicio DFACTURA del TFHKA

En el siguiente enlace, se describe el procedimiento para utilizar el punto de entrada para establecer el envío de la factura electrónica por email desde el servicio del proveedor tecnológico.

 9091035 DMINA-9454 DT Envío de la factura electrónica por correo desde el servicio DFACTURA de TFHKA COL

2.7.5 Cambio de documento XML descargado desde TFHKA

De acuerdo a la resolución 000042 del 5 de mayo del 2020 emitida por la DIAN, se realiza cambio para descargar el contenedor electrónico AttachedDocument el cual contiene en un único documento XML un DE y todos los documentos registrados hasta la fecha. En el enlace a continuación, hay más información acerca de esta actualización.

9082470 DMINA-9425 DT Cambio en el XML descargado de The Factory HKA COL

2.8 IMPRESIÓN DE RETENCIONES EN REPRESENTACIÓN GRÁFICA

2.8.1 Visión General

Permitir la impresión de la retenciones en la representación gráfica de los documentos electrónicos transmitidos a la DIAN a través dl proveedor tecnológico denominado The Factory HKA.

IMPORTANTE:

Se debe tener configurado el parámetro MV_PDFPRO con el valor "2", y los documentos electrónicos deben contener el cálculo de impuestos de tipo Retención, para más detalle ver el siguiente documento técnico:

Documento Técnico de Impresión de Retenciones en Notas de Crédito de Cliente (NCC).

2.9 ACTUALIZACIÓN DE F1/F2_FLFTEX DOCUMENTOS ELECTRÓNICOS TRANSMITIDOS PREVIAMENTE

2.9.1 Visión General

Se realizó ajuste para que si al transmitir un documento electrónico desde la rutina de Documentos Electrónicos (MATA486), se recibe de respuesta el código 114 (Documento emitido previamente), el campo Status Trans (F1/F2_FLFTEX) sea actualizado a estatus Recibido, es decir, valor 1.

Para más detalle ver el siguiente documento técnico: DMINA-11442 DT Actualización de F1_FLFTEX y F2_FLFTEX cuanto ocurre una intermitencia FE COL

2.10 DOCUMENTO SOPORTE DE ADQUISICIONES EFECTUADAS A SUJETOS NO OBLIGADOS A EXPEDIR FACTURA DE VENTA O DOCUMENTO EQUIVALENTE

2.10.1 Visión General

En Colombia, para el 01 de Agosto, entra en función que los proveedores que no están obligados a facturar, la empresa que les compre debe presentar una factura por ellos, a lo que llama Documento Soporte.
Se realizan modificaciones en el módulo de facturación para dar solución a lo establecido en la Resolución Número 000167 del 30 DIC 2021 de la DIAN, Anexo técnico del documento soporte en adquisiciones efectuadas a sujetos no obligados a expedir factura de venta o documento equivalente. En el registro de la Factura de Entrada, se identifica cuando es una factura por Documento Soporte. Este tipo de documentos deben generar un comprobante electrónico (XML) y éste debe ser autorizado por la DIAN. 

2.10.2 Configuraciones Previas

Contar con las siguientes rutina actualizadas, con fecha igual o posterior:

Configurar los siguientes parámetros (SX6):

Importante : En caso de hacer uso de un servidor proxy, la ruta en el contenido del parametro  MV_WSRTSS  debe inicar con https en vez de http.

1. Los proveedores no obligados a facturar, se registran como Proveedores con toda la información de identificación, dirección, responsabilidades, etc..
   • Crear un  Proveedor (MATA020) informando los siguientes Datos:
     • Tipo Doc. (A2_TIPDOC)
     • Nomb/Raz.Soc (A2_NOME)
     • NIT (A2_CGC)
     • Dirección (A2_END)
     • País (A2_PAIS)
     • Barrio (A2_BAIRRO)
     • Municipio (A2_MUN)
     • CP (A2_CEP)

       
       

       Aviso
       title IMPORTANTE
       Para que la funcionalidad de tomar los datos unicamente del Proveedor, sin necesidad de configurar adicionalmente un Cliente, se deberán tener actualizadas las siguientes rutinas con fecha igual o superior: Rutina Nombre Técnico Fecha LOCXCOL Funciones Genéricas de Notas Fiscales para Colombia XX/XX/XXXX MATA486 Documentos Electrónicos XX/XX/XXXX M486XFUNCO Funciones Genéricas de Facturación Electrónica para Colombia XX/XX/XXXX FISA827 Responsabilidades/Tributos DIAN de Clientes y Proveedores XX/XX/XXXX FATXFUMI Funciones genéricas para Facturación - Mercado Internacional XX/XX/XXXX MATA020 Proveedores XX/XX/XXXX Para poder realizar la configuración de los Tributos y Responsabilidades DIAN en el Proveedor, es necesario tener configurado en el Diccionario de Datos el campo AIT_REG. Campo AIT_REG Orden 07 Tipo Caracter Tamaño 1 Decimal 0 Formato @! Título Cliente/Prov Descripción Cliente o Proveedor Utilizado Si Obligatorio No Browse No Val. Sistema Pertence("CP") Opciones C=Cliente;P=Proveedor Help Indica si el registros de Responsabilidades o Tributos corresponde a un C-Cliente o Proveedor. Modificar el X2_UNICO de la Tabla AIT-Responsabilidades-Tributos Cliente para que sea AIT_FILIAL+AIT_CODCLI+AIT_LOJA+AIT_CODRES+AIT_CODTRI+AIT_TIPO+AIT_REG.

2. Dentro del configurador en la opción "Diccionarios / tablas genéricas", en la tabla genérica "00 - 01 - Series de Facturas", agregar la serie "DCS" y el número inicial para el Documento Soporte.
   
   Image AddedImage Added
   
   
   

3. Dentro de Control de Formularios (MATA992), agregar la serie "DCS" con especie "1=FCT / NF" y en la Serie 2 agregar el prefijo MXDS (puede ser cualquier otro prefijo siempre y cuando cuente con 4 caracteres), también asignar el número inicial y final y los campos que son obligatorios.
   
   Image Added

   
   

4. Realizar las siguientes modificaciones al archivo de configuración FATECOL.INI. Las líneas en color azul se agregan, las líneas en color verde se modifican.

   
   

   Nota

   //FATECOL.INI -- NFE Colombia v2 - Resolucion 0019 / FEB. 2016 [XXX POSICIONAMENTOS] (PRE) SA2->(DbSetOrder(1)) (PRE) _aTotal[116] := If(SF1->(FieldPos("F1_SOPORT")) > 0 ,If(SF1->F1_SOPORT =='S'.AND. Alltrim(SF1->F1_TIPOPE) $'10|11', .T.,.F. ) , .F.) (PRE) If(_aTotal[116] ,SA2->(MSSeek(xFilial("SA2")+SF1->F1_FORNECE+SF1->F1_LOJA)) , .T.) (PRE) If(_aTotal[116] ,SA1->(MSSeek(xFilial("SA1")+SA2->A2_CLIENTE+SA2->A2_LOJCLI)) , .T.) (PRE) If(AllTrim(SF1->F1_ESPECIE)=="NCC",SA2->(MSSeek(xFilial("SA2")+SF1->F1_FORNECE+SF1->F1_LOJA)) , .T.) (PRE) If(AllTrim(SF1->F1_ESPECIE)<>"NCC" .AND. !_aTotal[116] ,SA1->(MSSeek(xFilial("SA1")+SF1->F1_FORNECE+SF1->F1_LOJA)) , .T.) (PRE) (SE4->(MSSeek(xFilial("SE4")+SF1->F1_COND)) , .T.) (PRE) IF( _aTotal[116], AI0->(MSSeek(xFilial("AI0")+SA2->(A2_CLIENTE+A2_LOJCLI))) , AI0->(MSSeek(xFilial("AI0")+SF1->(F1_FORNECE+F1_LOJA))) ) [XXX INICIALIZACION] (PRE) SD1->(DbSetOrder(1)) (PRE) SB1->(DbSetOrder(1)) (PRE) SYA->(DbSetOrder(1)) (PRE) SC6->(DbSetOrder(1)) (PRE) SE4->(DbSetOrder(1)) (PRE) CTO->(DbSetOrder(1)) (PRE) SAH->(DbSetOrder(1)) (PRE) SE1->(DbSetOrder(2)) (PRE) _aTotal[033] := ALLTRIM (SF1->F1_ESPECIE) (PRE) _aTotal[075] := Alltrim(SM0->M0_NOMECOM) (PRE) _aTotal[092] := IIF(_aTotal[116], Posicione("SA1",1,xFilial("SA1")+SA2->A2_CLIENTE+SA2->A2_LOJCLI,"A1_EST") ,Posicione("SA1",1,xFilial("SA1")+SF1->F1_FORNECE+SF1->F1_LOJA,"A1_EST")) (PRE) _aTotal[093] := "" (PRE) _aTotal[094] := "" (PRE) _aTotal[095] := DtoS(SF1->F1_EMISSAO) (PRE) _aTotal[095] := Left(_aTotal[095],4) + "-" + Substr(_aTotal[095],5,2)+ "-" + Right(_aTotal[095],2) (PRE) _aTotal[096] := SF1->F1_HORA (PRE) _aTotal[097] := fGetTaxas(SF1->F1_DOC, SF1->F1_SERIE, SF1->F1_FORNECE, SF1->F1_LOJA, If(_aTotal[116], "NCC",SF1->F1_ESPECIE)) (PRE) _aTotal[098] := ALLTRIM( GETNEWPAR( "MV_ID_PROV" , "" ) ) (PRE) _aTotal[099] := ALLTRIM( GETNEWPAR( "MV_ID_SOFT" , "" ) ) (PRE) _aTotal[100] := ALLTRIM( GETNEWPAR( "MV_CODESEC" , "" ) ) (PRE) _aTotal[101] := {"SD1",""} (PRE) _aTotal[102] := IIF( _aTotal[033] == "NF" , "1" , IIF( _aTotal[033] == "NCC" , "2" , IIF( _aTotal[033] == "NDC" , "3" , IIF( _aTotal[033] == "NDI" , "4" , IIF( _aTotal[033] == "NCI" , "5" , "" ) ) ) ) ) (PRE) _aTotal[103] := "" (PRE) _aTotal[104] := PADR( Alltrim(SM0->M0_CGC) , 10 , "0" ) (PRE) _aTotal[105] := IIF( _aTotal[033] == "NF" , "f" , IIF( _aTotal[033] == "NCC"  .or. _aTotal[033] == "NCI" , "c" , IIF( _aTotal[033] == "NDC" .or. _aTotal[033] == "NDI" , "d" , "f" ) ) ) (PRE) _aTotal[106] := M486XHEX(PADR( ALLTRIM( substr( SF1->F1_DOC , 4 , Len(SF1->F1_DOC) - 3 ) ) , 10 , "0" ),10) (PRE) _aTotal[107] := fGetRef(SF1->F1_DOC, SF1->F1_SERIE, SF1->F1_FORNECE, SF1->F1_LOJA, SF1->F1_ESPECIE) (PRE) _aTotal[108] := "" (PRE) _aTotal[109] := Posicione("CTO",1,xFilial("CTO")+Strzero(SF1->F1_MOEDA,2),"CTO_MOESAT") (PRE) _aTotal[110] := {"SFP",""} (PRE) _aTotal[111] := "" (PRE) _aTotal[112] := "" (PRE) _aTotal[113] := "" (PRE) _aTotal[114] := "FP_FILUSO='" + cFilAnt + "' AND FP_SERIE='" + SF1->F1_SERIE + "' AND FP_ESPECIE= " +  If(_aTotal[116], "'1'","'2'") + " AND FP_NUMINI <='" + SF1->F1_DOC + "' AND FP_NUMFIM >='" + SF1->F1_DOC + "' AND FP_ATIVO ='1'" (PRE) _aTotal[115] := "SFP->FP_FILUSO=cFilAnt .AND. SFP->FP_SERIE=SF1->F1_SERIE .AND. SFP->FP_ESPECIE=" +  If(_aTotal[116], "'1'","'2'") + ".AND. SFP->FP_NUMINI<=SF1->F1_DOC .AND. FP_NUMFIM >=SF1->F1_DOC .AND. SFP->FP_ATIVO = '1'","FP_ATIVO" (PREREG) FsQuery(_aTotal[101],1,"D1_DOC='" + SF1->F1_DOC + "' AND D1_SERIE='" + SF1->F1_SERIE + "' AND D1_FORNECE='" + SF1->F1_FORNECE + "' AND D1_LOJA='" + SF1->F1_LOJA + "'","SD1->D1_DOC=SF1->F1_DOC .AND. SD1->D1_SERIE=SF1->F1_SERIE .AND. SD1->D1_FORNECE=SF1->F1_FORNECE .AND. SD1->D1_LOJA=SF1->F1_LOJA","D1_ITEM") .And. .T. (PREREG) FsQuery(_aTotal[110],1,_aTotal[114],_aTotal[115]) .And. .T. [SFP CONTROL FOMULARIOS] (PRE) _aTotal[103] := Dtos( SFP->FP_DTRESOL ) (PRE) _aTotal[103] := Left(_aTotal[103],4) + "-" + Substr(_aTotal[103],5,2)+ "-" + Right(_aTotal[103],2) (PRE) _aTotal[111] := Alltrim( SFP->FP_NUMINI ) (PRE) _aTotal[112] := Alltrim( SFP->FP_NUMFIM ) (PRE) _aTotal[113] := Alltrim( SFP->FP_CAI ) [SD1 GENERANDO_XML] (PRE) If(AllTrim(SF1->F1_ESPECIE)=="NCC",SA2->(MSSeek(xFilial("SA2")+SF1->F1_FORNECE+SF1->F1_LOJA)) , .T.) (PRE) If(AllTrim(SF1->F1_ESPECIE)=="NCC",SYA->(MsSeek(xFilial("SYA")+SA2->A2_PAIS)) , .T.) (PRE) If(AllTrim(SF1->F1_ESPECIE)=="NCC",CTO->(MsSeek(xFilial("CTO")+Strzero(SF1->F1_MOEDA,2))) , .T.) (PRE) If(AllTrim(SF1->F1_ESPECIE)<>"NCC",If(_aTotal[116], SA1->(MSSeek(xFilial("SA1")+SA2->A2_CLIENTE+SA2->A2_LOJCLI)),SA1->(MSSeek(xFilial("SA1")+SF1->F1_FORNECE+SF1->F1_LOJA))) , .T.) (PRE) If(AllTrim(SF1->F1_ESPECIE)<>"NCC",SYA->(MsSeek(xFilial("SYA")+SA1->A1_PAIS)) , .T.) (PRE) If(AllTrim(SF1->F1_ESPECIE)<>"NCC",CTO->(MsSeek(xFilial("CTO")+Strzero(SF1->F1_MOEDA,2))) , .T.) [XXX CABECERA] Linha1     C 060 0 Chr(239) + Chr(187) + Chr(191) + '<?xml version="1.0" encoding="UTF-8" standalone="no"?>' [XXX FACTURA] (PRE) IIf(AllTrim(SF1->F1_ESPECIE)=="NCC",SYA->(MsSeek(xFilial("SYA")+SA2->A2_PAIS)) , .T.) (PRE) (SE4->(MSSeek(xFilial("SE4")+SF1->F1_COND)) , .T.) (PRE) _aTotal[001] := IIF(_aTotal[116],'<fe:Invoice ','<fe:CreditNote ') (PRE) _aTotal[001] += 'xmlns:fe="http://www.dian.gov.co/contratos/facturaelectronica/v1" ' (PRE) _aTotal[001] += 'xmlns:cac="urn:oasis:names:specification:ubl:schema:xsd:CommonAggregateComponents-2" ' (PRE) _aTotal[001] += 'xmlns:cbc="urn:oasis:names:specification:ubl:schema:xsd:CommonBasicComponents-2" ' (PRE) _aTotal[001] += 'xmlns:clm54217="urn:un:unece:uncefact:codelist:specification:54217:2001" ' (PRE) _aTotal[001] += 'xmlns:clm66411="urn:un:unece:uncefact:codelist:specification:66411:2001" ' (PRE) _aTotal[001] += 'xmlns:clmIANAMIMEMediaType="urn:un:unece:uncefact:codelist:specification:IANAMIMEMediaType:2003" ' (PRE) _aTotal[001] += 'xmlns:ext="urn:oasis:names:specification:ubl:schema:xsd:CommonExtensionComponents-2" ' (PRE) _aTotal[001] += 'xmlns:qdt="urn:oasis:names:specification:ubl:schema:xsd:QualifiedDatatypes-2" ' (PRE) _aTotal[001] += 'xmlns:sts="http://www.dian.gov.co/contratos/facturaelectronica/v1/Structures" ' (PRE) _aTotal[001] += 'xmlns:udt="urn:un:unece:uncefact:data:specification:UnqualifiedDataTypesSchemaModule:2" ' (PRE) _aTotal[001] += 'xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" ' (PRE) _aTotal[001] += 'xsi:schemaLocation="http://www.dian.gov.co/contratos/facturaelectronica/v1 ../xsd/DIAN_UBL.xsd ' (PRE) _aTotal[001] += 'urn:un:unece:uncefact:data:specification:UnqualifiedDataTypesSchemaModule:2 ../../ubl2/common/UnqualifiedDataTypeSchemaModule-2.0.xsd ' (PRE) _aTotal[001] += 'urn:oasis:names:specification:ubl:schema:xsd:QualifiedDatatypes-2 ../../ubl2/common/UBL-QualifiedDatatypes-2.0.xsd" ' (PRE) _aTotal[001] += '>' + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += ' <ext:UBLExtensions>' + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '     <ext:UBLExtension>' + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '         <ext:ExtensionContent>' + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '             <sts:DianExtensions>' + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '                 <sts:InvoiceControl>'  + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '                     <sts:InvoiceAuthorization>'+ _aTotal[113] +'</sts:InvoiceAuthorization>'  + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '                     <sts:AuthorizationPeriod>'  + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '                         <cbc:StartDate>'+ _aTotal[103] +'</cbc:StartDate>'  + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '                         <cbc:EndDate>'+ _aTotal[103] +'</cbc:EndDate>'  + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '                     </sts:AuthorizationPeriod>'  + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '                     <sts:AuthorizedInvoices>'  + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '                         <sts:Prefix>'+ SF1->F1_SERIE2 +'</sts:Prefix>'  + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '                         <sts:From>'+ _aTotal[111] +'</sts:From>'  + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '                         <sts:To>'+ _aTotal[112] +'</sts:To>'  + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '                     </sts:AuthorizedInvoices>'  + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '                 </sts:InvoiceControl>'  + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '                 <sts:InvoiceSource>' + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '                     <cbc:IdentificationCode listAgencyID="6" listAgencyName="United Nations Economic Commission for Europe" listSchemeURI="urn:oasis:names:specification:ubl:codelist:gc:CountryIdentificationCode-2.0">CO</cbc:IdentificationCode>' + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '                 </sts:InvoiceSource>' + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '                 <sts:SoftwareProvider>' + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '                     <sts:ProviderID schemeAgencyID="195" schemeAgencyName="CO, DIAN (Direccion de Impuestos y Aduanas Nacionales)" schemeURI="http://www.unece.org/trade/untdid/d08a/tred/tred3055.htm" schemeName="NIT, RUT" schemeDataURI="www.dian.gov.co/contenidos/servicios/rut_preguntasfrecuentes.html">'+ _aTotal[098] +'</sts:ProviderID>' + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '                     <sts:SoftwareID schemeAgencyID="195" schemeAgencyName="CO, DIAN (Direccion de Impuestos y Aduanas Nacionales)" schemeURI="http://www.unece.org/trade/untdid/d08a/tred/tred3055.htm" schemeName="Código de Activación" schemeDataURI="http://www.dian.gov.co/micrositios/fac_electronica/documentos/Guia_del_usuario_Habilitacion_Adquirente.pdf">'+ _aTotal[099] +'</sts:SoftwareID>' + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '                 </sts:SoftwareProvider>' + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '                 <sts:SoftwareSecurityCode schemeAgencyID="195" schemeAgencyName="CO, DIAN (Direccion de Impuestos y Aduanas Nacionales)" schemeURI="http://www.unece.org/trade/untdid/d08a/tred/tred3055.htm" schemeName="Código de Seguridad del Software" schemeDataURI="http://www.dian.gov.co/micrositios/fac_electronica/documentos/Anexo_Tecnico_003_Mecanismos_Sistema_Tecnico_de_Control.pdf">'+ _aTotal[100] +'</sts:SoftwareSecurityCode>' + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '             </sts:DianExtensions>' + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '         </ext:ExtensionContent>' + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '     </ext:UBLExtension>' + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '     <ext:UBLExtension>' + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '         <ext:ExtensionContent>' + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '         </ext:ExtensionContent>' + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '     </ext:UBLExtension>' + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += ' </ext:UBLExtensions>' + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += ' <cbc:UBLVersionID>UBL 2.0</cbc:UBLVersionID>' + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += ' <cbc:ProfileID>DIAN 1.0</cbc:ProfileID>' + ( chr(13)+chr(10) ) // Manual con serie //(PRE) _aTotal[001] += '   <cbc:ID>'+ SF1->F1_SERIE2 + Alltrim( Str( Val( Substr( SF1->F1_DOC , 4 , 10) ) ) ) +'</cbc:ID>' + ( chr(13)+chr(10) ) // Manual sin serie (PRE) _aTotal[001] += ' <cbc:ID>'+ Alltrim( Str( Val( Substr( SF1->F1_DOC , 4 , 10) ) ) ) +'</cbc:ID>' + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += ' <cbc:IssueDate>'+ _aTotal[095] +'</cbc:IssueDate>' + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += ' <cbc:IssueTime>'+ _aTotal[096] +'</cbc:IssueTime>' + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += ' <cbc:Note><![CDATA['+ Alltrim(SF1->F1_MOTIVO) + ']]></cbc:Note>'  + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += ' <cbc:InvoiceTypeCode listAgencyID="195" listAgencyName="CO, DIAN (Direccion de Impuestos y Aduanas Nacionales)" listSchemeURI="http://www.dian.gov.co/contratos/facturaelectronica/v1/InvoiceType">91</cbc:InvoiceTypeCode>' + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += ' <cbc:DocumentCurrencyCode>'+ Alltrim( Posicione("CTO",1,xFilial("CTO")+Strzero(SF1->F1_MOEDA,2),"CTO_MOESAT") ) +'</cbc:DocumentCurrencyCode>' + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += ' <cbc:CustomizationID>'+ Alltrim(SF1->F1_TIPOPE) +'</cbc:CustomizationID>' + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += ' <cac:DiscrepancyResponse>' + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '     <cbc:ReferenceID/>' + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '     <cbc:ResponseCode>' + Alltrim(SF1->F1_TIPREF) + '</cbc:ResponseCode>' + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += ' </cac:DiscrepancyResponse>' + ( chr(13)+chr(10) ) // BillingReference (PRE) _aTotal[001] += _aTotal[107] (PRE) _aTotal[001] := ENCODEUTF8(_aTotal[001]) (PREREG) _aTotal[001] [XXX EMISOR] (PRE) _aTotal[001] := ' <fe:AccountingSupplierParty>' + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '     <cbc:AdditionalAccountID>'+ "1" +'</cbc:AdditionalAccountID>' + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '     <fe:Party>' + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '         <cac:PartyIdentification>' + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '             <cbc:ID schemeAgencyID="195" schemeAgencyName="CO, DIAN (Direccion de Impuestos y Aduanas Nacionales)" schemeID="31">'+ Alltrim(SM0->M0_CGC) +'</cbc:ID>' + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '         </cac:PartyIdentification>' + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '         <cac:PartyName>' + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '             <cbc:Name><![CDATA['+ _aTotal[075] +']]></cbc:Name>' + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '         </cac:PartyName>' + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '         <fe:PhysicalLocation>' + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '             <fe:Address>' + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '                 <cbc:Department><![CDATA['+ AllTrim(SM0->M0_BAIRENT) +']]></cbc:Department>' + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '                 <cbc:CitySubdivisionName><![CDATA['+ AllTrim(SM0->M0_CODMUN) +']]></cbc:CitySubdivisionName>' + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '                 <cbc:CityName><![CDATA['+ Alltrim(SM0->M0_CIDENT) +']]></cbc:CityName>' + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '                 <cac:AddressLine>' + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '                     <cbc:Line><![CDATA['+ Alltrim(SM0->M0_ENDENT) + " " + Alltrim(SM0->M0_COMPENT) +']]></cbc:Line>' + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '                 </cac:AddressLine>' + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '                 <cac:Country>' + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '                     <cbc:IdentificationCode>'+ "CO" +'</cbc:IdentificationCode>' + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '                 </cac:Country>' + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '             </fe:Address>' + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '         </fe:PhysicalLocation>' + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '         <fe:PartyTaxScheme>' + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '             <cbc:TaxLevelCode>'+ AllTrim(SM0->M0_DSCCNA) +'</cbc:TaxLevelCode>' + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '             <cac:TaxScheme/>' + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '         </fe:PartyTaxScheme>' + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '         <fe:PartyLegalEntity>' + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '             <cbc:RegistrationName><![CDATA['+ _aTotal[075] + ']]></cbc:RegistrationName>' + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '         </fe:PartyLegalEntity>'  + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '     </fe:Party>' + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += ' </fe:AccountingSupplierParty>' (PRE) _aTotal[001] := ENCODEUTF8(_aTotal[001]) (PREREG) _aTotal[001] [XXX RECEPTOR] (PRE) AllTrim(SF1->F1_ESPECIE) <> "NCC" (PRE) If(_aTotal[116], SA1->(MSSeek(xFilial("SA1")+SA2->A2_CLIENTE+SA2->A2_LOJCLI)) ,SA1->(MSSeek(xFilial("SA1")+SF1->F1_FORNECE+SF1->F1_LOJA))) (PRE) SYA->(MsSeek(xFilial("SYA")+SA1->A1_PAIS)) (PRE) _aTotal[001] := '<fe:AccountingCustomerParty>' + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '     <cbc:AdditionalAccountID>'+ IIF( AllTrim(SA1->A1_PESSOA) == "F" , "2" , "1" ) +'</cbc:AdditionalAccountID>' + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '     <fe:Party>' + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '         <fe:PartyTaxScheme>' + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '         <cbc:RegistrationName><![CDATA['+ Alltrim(SA1->A1_NOME) +']]></cbc:RegistrationName>'  + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '         <cbc:CompanyID schemeID="' + Right( Alltrim(SA1->A1_CGC), 1 ) + '" schemeName="' + AllTrim(SA1->A1_TIPDOC)+ '" schemeAgencyName="CO, DIAN (Dirección de Impuestos y Aduanas Nacionales)" schemeAgencyID="195">'+ IIF(AllTrim(SA1->A1_TIPDOC) == "31",Left(Alltrim(SA1->A1_CGC),Len(Alltrim(SA1->A1_CGC))-1),AllTrim(SA1->A1_PFISICA))+'</cbc:CompanyID>'  + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '         <cbc:TaxLevelCode listName="' + Alltrim(AI0->AI0_TPREG) + '">' + AllTrim(M486RESOBL(SA1->A1_COD,SA1->A1_LOJA,"R")) + '</cbc:TaxLevelCode>'  + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '         <cac:RegistrationAddress>'  + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '             <cbc:ID>' + Alltrim(SA1->A1_COD_MUN) + '</cbc:ID>'  + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '             <cbc:CityName><![CDATA[' + Alltrim(POSICIONE("CC2",3,xFilial("CC2") + SA1->A1_COD_MUN,"CC2_MUN")) + ']]></cbc:CityName>'  + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '             <cbc:PostalZone>' + Alltrim(SA1->A1_CEP) + '</cbc:PostalZone>'  + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '             <cbc:CountrySubentity><![CDATA[' + Alltrim(M486VALSX5('12' + SA1->A1_EST)) + ']]></cbc:CountrySubentity>'  + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '             <cbc:CountrySubentityCode>' + Alltrim(SA1->A1_EST) + '</cbc:CountrySubentityCode>'  + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '             <cac:AddressLine>'  + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '                 <cbc:Line><![CDATA[' + Alltrim(SA1->A1_END) + ']]></cbc:Line>'  + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '             </cac:AddressLine>'  + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '             <cac:Country>'  + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '                 <cbc:IdentificationCode>'+Posicione("SYA",1,xFilial("SYA")+SA1->A1_PAIS,"YA_CCEDIAN")+'</cbc:IdentificationCode>'  + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '             </cac:Country>'  + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '         </cac:RegistrationAddress>'  + ( chr(13)+chr(10) )   (PRE) _aTotal[001] += '         </fe:PartyTaxScheme>' + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '         <cac:PartyIdentification>' + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '             <cbc:CompanyID schemeID="' + Right( Alltrim(SA1->A1_CGC), 1 ) + '" schemeAgencyID="195" schemeAgencyName="CO, DIAN (Direccion de Impuestos y Aduanas Nacionales)" schemeName="' + AllTrim(SA1->A1_TIPDOC)+ '">'+ IIF(AllTrim(SA1->A1_TIPDOC) == "31",Left(Alltrim(SA1->A1_CGC),Len(Alltrim(SA1->A1_CGC))-1),AllTrim(SA1->A1_PFISICA))+'</cbc:CompanyID>'  + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '         </cac:PartyIdentification>' + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += IIF( AllTrim(SA1->A1_PESSOA) == "F" , "" , '          <cac:PartyName>' + ( chr(13)+chr(10) ) ) (PRE) _aTotal[001] += IIF( AllTrim(SA1->A1_PESSOA) == "F" , "" , '              <cbc:Name><![CDATA['+ Alltrim(SA1->A1_NOME) +']]></cbc:Name>' + ( chr(13)+chr(10) ) ) (PRE) _aTotal[001] += IIF( AllTrim(SA1->A1_PESSOA) == "F" , "" , '          </cac:PartyName>' + ( chr(13)+chr(10) ) ) (PRE) _aTotal[001] += '         <fe:PhysicalLocation>' + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '             <fe:Address>' + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '                 <cbc:Department><![CDATA['+ AllTrim(SA1->A1_BAIRRO) +']]></cbc:Department>' + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '                 <cbc:CitySubdivisionName><![CDATA['+ AllTrim(SA1->A1_MUN) +']]></cbc:CitySubdivisionName>' + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '                 <cbc:CityName><![CDATA['+ Alltrim(Posicione("SX5",1,xFilial("SX5")+"12"+SA1->A1_EST,"X5_DESCRI")) +']]></cbc:CityName>' + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '                 <cac:AddressLine>' + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '                     <cbc:Line><![CDATA['+ AllTrim(SA1->A1_END) +']]></cbc:Line>' + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '                 </cac:AddressLine>' + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '                 <cac:Country>' + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '                     <cbc:IdentificationCode>'+Posicione("SYA",1,xFilial("SYA")+SA1->A1_PAIS,"YA_CCEDIAN")+'</cbc:IdentificationCode>' + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '                 </cac:Country>' + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '             </fe:Address>' + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '         </fe:PhysicalLocation>' + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '         <cac:Contact>' + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '             <cbc:ElectronicMail>' + AllTrim(SA1->A1_EMAIL) + '</cbc:ElectronicMail>'  + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '             <cbc:Telephone>' + AllTrim(SA1->A1_TEL) + '</cbc:Telephone>'  + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '         </cac:Contact>' + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += IIF( AllTrim(SA1->A1_PESSOA) == "F" , "" , '          <fe:PartyLegalEntity>' + ( chr(13)+chr(10) ) ) (PRE) _aTotal[001] += IIF( AllTrim(SA1->A1_PESSOA) == "F" , "" , '              <cbc:RegistrationName><![CDATA['+ Alltrim(SA1->A1_NOME) +']]></cbc:RegistrationName>' + ( chr(13)+chr(10) ) ) (PRE) _aTotal[001] += IIF( AllTrim(SA1->A1_PESSOA) == "F" , "" , '          </fe:PartyLegalEntity>' + ( chr(13)+chr(10) ) ) (PRE) _aTotal[001] += IIF( AllTrim(SA1->A1_PESSOA) == "F" , '           <fe:Person>'  + ( chr(13)+chr(10) ) , "" ) (PRE) _aTotal[001] += IIF( AllTrim(SA1->A1_PESSOA) == "F" , '               <cbc:FirstName><![CDATA[' + Alltrim(SA1->A1_NOMEPRI) +']]></cbc:FirstName>' + ( chr(13)+chr(10) ) , "" ) (PRE) _aTotal[001] += IIF( AllTrim(SA1->A1_PESSOA) == "F" , '               <cbc:MiddleName><![CDATA[' + Alltrim(SA1->A1_NOMEPES) +']]></cbc:MiddleName>' + ( chr(13)+chr(10) ) , "" ) (PRE) _aTotal[001] += IIF( AllTrim(SA1->A1_PESSOA) == "F" , '               <cbc:FamilyName><![CDATA[' + Alltrim(SA1->A1_NOMEPAT) + ' ' + Alltrim(SA1->A1_NOMEMAT) +']]></cbc:FamilyName>' + ( chr(13)+chr(10) ) , "" ) (PRE) _aTotal[001] += IIF( AllTrim(SA1->A1_PESSOA) == "F" , '           </fe:Person>' + ( chr(13)+chr(10) ) , "" ) (PRE) _aTotal[001] += '     </fe:Party>' + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += ' </fe:AccountingCustomerParty>' + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += ' <cac:PaymentTerms>' + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '     <cbc:Amount currencyID="' + Alltrim( Posicione("CTO",1,xFilial("CTO")+Strzero(SF1->F1_MOEDA,2),"CTO_MOESAT") ) + '">' + Alltrim(Str(SF1->F1_VALBRUT,14,2)) + '</cbc:Amount>' + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '     <cac:SettlementPeriod>' + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '         <cbc:StartDate>' + Transform( DtoS( Posicione("SE1",2,xFilial("SE1")+SF1->(F1_FORNECE+F1_LOJA+F1_SERIE+F1_DOC),"E1_EMISSAO") ) , "@R 9999-99-99") + '</cbc:StartDate>' + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '         <cbc:EndDate>' + Transform( DtoS( Posicione("SE1",2,xFilial("SE1")+SF1->(F1_FORNECE+F1_LOJA+F1_SERIE+F1_DOC),"E1_VENCTO") ) , "@R 9999-99-99") + '</cbc:EndDate>' + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += '     </cac:SettlementPeriod>' + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += ' </cac:PaymentTerms>' + ( chr(13)+chr(10) ) (PRE) _aTotal[001] += IIf( _aTotal[109] <> "COP" , '    <cac:PaymentExchangeRate>'  + ( chr(13)+chr(10) ) , "" ) (PRE) _aTotal[001] += IIf( _aTotal[109] <> "COP" , '        <cbc:SourceCurrencyCode>' +  Alltrim( Posicione("CTO",1,xFilial("CTO")+Strzero(SF1->F1_MOEDA,2),"CTO_MOESAT") ) + '</cbc:SourceCurrencyCode>' + ( chr(13)+chr(10) ) , "" ) (PRE) _aTotal[001] += IIf( _aTotal[109] <> "COP" , '        <cbc:SourceCurrencyBaseRate>1.00</cbc:SourceCurrencyBaseRate>' + ( chr(13)+chr(10) ) , "" ) (PRE) _aTotal[001] += IIf( _aTotal[109] <> "COP" , '        <cbc:TargetCurrencyCode>' + "COP" + '</cbc:TargetCurrencyCode>' + ( chr(13)+chr(10) ) , "" ) (PRE) _aTotal[001] += IIf( _aTotal[109] <> "COP" , '        <cbc:TargetCurrencyBaseRate>1.00</cbc:TargetCurrencyBaseRate>' + ( chr(13)+chr(10) ) , "" ) (PRE) _aTotal[001] += IIf( _aTotal[109] <> "COP" , '        <cbc:CalculationRate>' +  Alltrim(Str(SF1->F1_TXMOEDA,11,2)) + '</cbc:CalculationRate>' + ( chr(13)+chr(10) ) , "" ) (PRE) _aTotal[001] += IIf( _aTotal[109] <> "COP" , '        <cbc:Date>' + _aTotal[095] + '</cbc:Date>' + ( chr(13)+chr(10) ) , "" ) (PRE) _aTotal[001] += IIf( _aTotal[109] <> "COP" , '    </cac:PaymentExchangeRate>'  + ( chr(13)+chr(10) ) , "" ) (PRE) _aTotal[001] := ENCODEUTF8(_aTotal[001]) (PREREG) _aTotal[001] [XXX IMPUESTOS] (PRE) _aTotal[001] := _aTotal[097][1] (PRE) _aTotal[001] := ENCODEUTF8(_aTotal[001]) (PREREG) _aTotal[001] [XXX TOTALES] (PRE) _aTotal[001] := _aTotal[097][2] (PRE) _aTotal[001] := ENCODEUTF8(_aTotal[001]) (PREREG) _aTotal[001] [SD1 INVOICE] (PRE) DbGoTop() (PREREG) (SB1->(DbSeek(xFilial("SB1") + SD1->D1_COD)),.T.) (PREREG) (SAH->(DbSeek(xFilial("SAH") + SB1->B1_UM)),.T.) (PREREG) _aTotal[108] := fGetTaxDet(SD1->D1_DOC,SD1->D1_SERIE,SD1->D1_FORNECE,SD1->D1_LOJA,SD1->D1_TES,If(_aTotal[116], "NCC",AllTrim(SF1->F1_ESPECIE))) (PREREG) (_aTotal[001] := IIF( _aTotal[116],'   <fe:InvoiceLine>'  + ( chr(13)+chr(10) ),'  <cac:CreditNoteLine>'  + ( chr(13)+chr(10) )),.T.) (PREREG) (_aTotal[001] += '     <cbc:ID>' + Alltrim(Str(Val(SD1->D1_ITEM))) + '</cbc:ID>'  + ( chr(13)+chr(10) ),.T.) (PREREG) (_aTotal[001] += IIF(_aTotal[116],'        <cbc:InvoicedQuantity unitCode="' + Alltrim(_aTotal[108][3]) + '">'+ Alltrim(Str(SD1->D1_QUANT, 14, 2)) +'</cbc:InvoicedQuantity>'  + ( chr(13)+chr(10) ),'     <cbc:CreditedQuantity unitCode="' + Alltrim(_aTotal[108][3]) + '">'+ Alltrim(Str(SD1->D1_QUANT)) +'</cbc:CreditedQuantity>'  + ( chr(13)+chr(10) )),.T.) (PREREG) (_aTotal[001] += '     <cbc:LineExtensionAmount currencyID=' + '"' + Alltrim( Posicione("CTO",1,xFilial("CTO")+Strzero(SF1->F1_MOEDA,2),"CTO_MOESAT") ) + '"' + '>' + Alltrim(Str(SD1->D1_TOTAL,14,2)) +'</cbc:LineExtensionAmount>' + ( chr(13)+chr(10) ),.T.) (PREREG) (_aTotal[001] += _aTotal[108][1],.T.) (PREREG) (_aTotal[001] += IIF(SD1->D1_VALDESC > 0, '        <cac:AllowanceCharge>' + chr(13)+chr(10), ""),.T.) (PREREG) (_aTotal[001] += IIF(SD1->D1_VALDESC > 0, '            <cbc:ChargeIndicator>false</cbc:ChargeIndicator>' + chr(13)+chr(10), ""),.T.) (PREREG) (_aTotal[001] += IIF(SD1->D1_VALDESC > 0, '                <cbc:AllowanceChargeReason><![CDATA[Aplicación de descuento]]></cbc:AllowanceChargeReason>' + chr(13)+chr(10), ""),.T.) (PREREG) (_aTotal[001] += IIF(SD1->D1_VALDESC > 0, '                <cbc:MultiplierFactorNumeric>' + Alltrim(Str(SD1->D1_DESC,5,2)) + '</cbc:MultiplierFactorNumeric>' + chr(13)+chr(10), ""),.T.) (PREREG) (_aTotal[001] += IIF(SD1->D1_VALDESC > 0, '            <cbc:Amount currencyID="' + Alltrim( Posicione("CTO",1,xFilial("CTO")+Strzero(SF1->F1_MOEDA,2),"CTO_MOESAT") ) + '">' + Alltrim(Str(SD1->D1_VALDESC,14,2)) + '</cbc:Amount>' + chr(13)+chr(10), ""),.T.) (PREREG) (_aTotal[001] += IIF(SD1->D1_VALDESC > 0, '        </cac:AllowanceCharge>' + chr(13)+chr(10), ""),.T.) (PREREG) (_aTotal[001] += _aTotal[108][2],.T.) (PREREG) (_aTotal[001] += IIF(_aTotal[116] ,'       <fe:Item>', '       <cac:Item>')  + ( chr(13)+chr(10) ),.T.) (PREREG) (_aTotal[001] += '         <cbc:Description><![CDATA[' + Alltrim(SB1->B1_DESC) +']]></cbc:Description>' + ( chr(13)+chr(10) ),.T.) (PREREG) (_aTotal[001] += '         <cbc:PackSizeNumeric>'+ IIf(!Empty(SB1->B1_CONV),Alltrim(STR(SB1->B1_CONV)),"1") +'</cbc:PackSizeNumeric>'  + ( chr(13)+chr(10) ),.T.) (PREREG) (_aTotal[001] += '         <cac:SellersItemIdentification>'  + ( chr(13)+chr(10) ),.T.) (PREREG) (_aTotal[001] += '             <cbc:ID>' + Alltrim(SD1->D1_COD) + '</cbc:ID>'  + ( chr(13)+chr(10) ),.T.) (PREREG) (_aTotal[001] += '         </cac:SellersItemIdentification>'  + ( chr(13)+chr(10) ),.T.) (PREREG) (_aTotal[001] += IIF( _aTotal[116],'       </fe:Item>', '      </cac:Item>')  + ( chr(13)+chr(10) ),.T.) (PREREG) (_aTotal[001] += IIF( _aTotal[116],'       <fe:Price>','       <cac:Price>')  + ( chr(13)+chr(10) ),.T.) (PREREG) (_aTotal[001] += '         <cbc:PriceAmount currencyID=' + '"' + Alltrim( Posicione("CTO",1,xFilial("CTO")+Strzero(SF1->F1_MOEDA,2),"CTO_MOESAT") ) + '"' + '>' + Alltrim(Str(SD1->D1_VUNIT,14,2)) +'</cbc:PriceAmount>' + ( chr(13)+chr(10) ),.T.) (PREREG) (_aTotal[001] += '         <cbc:BaseQuantity unitCode="' + Alltrim(_aTotal[108][3]) + '">' + Alltrim(Str(SD1->D1_QUANT)) + '</cbc:BaseQuantity>'  + ( chr(13)+chr(10) ),.T.) (PREREG) (_aTotal[001] += IIF(_aTotal[116],'        </fe:Price>', '     </cac:Price>')  + ( chr(13)+chr(10) ),.T.) (PREREG) (_aTotal[001] += IIF( _aTotal[116],'   </fe:InvoiceLine>' ,'   </cac:CreditNoteLine>') ,.T.) (PREREG) ENCODEUTF8(_aTotal[001]) [XXX INVOICE_FIN] (POS) FsQuery(_aTotal[101],2) [XXX FACTURA] (PRE) _aTotal[094] := &("Lower('face') + '_' + Lower(_aTotal[105]) + Lower(_aTotal[104]) + Lower(_aTotal[106]) + '.xml'") (ARQ) _aTotal[094] FACTURA    C 019 0 ENCODEUTF8( IIF( _aTotal[116], '</fe:Invoice>','</fe:CreditNote>'))

2.10.3 Ejemplo de utilización.

1. Documento Soporte.
   
   
   • Ingresar al módulo de Compras (SIGACOM), ir al menú |Actualizaciones | Movimientos | Factura de Entrada (MATA101N)
   • En la pregunta ¿Tipo de Factura? seleccionar “Docto Soporte” y confirmar.
   • En la pantalla principal, en el encabezado confirmar que en título se informe que es un “Doc. Soporte”
     Dar clic en el botón “Incluir”.
   • Seleccionar al Proveedor que está relacionado al Cliente.
   • Seleccionar la Serie configurada para el Documento Soporte, automáticamente se cargará el Número Documento y la Serie 2.

   • Agregar un Producto, Cantidad, Valor Unitario, Valor Total y el TES.
     
     

     Nota
     title Nota
     Los Impuestos Variables(SFB) relacionados a la TES informada en la Factura deben contener información el campo Impuesto FE(FB_IMPSAT)

     
     

   • En la pestaña “Títulos” indicar la Condición de Pago.
   • Grabar la Factura.
     
     
2. Transmisión de Documento Soporte.
    
   • Ingresar al módulo de Facturación (SIGAFAT), ir el menú |Actualizaciones | Facturación | Transmitir Factura Electrónica (MATA486)
   • Capturar los parámetros correspondientes para realizar el filtro de documentos.
     ¿Tipo de Documento? seleccionar “Docto. Soporte”.
     ¿Serie? seleccionar “DCS”.
     ¿Estatus? seleccionar “0” para obtener todos los documentos.
     Asignar las Fechas Inicio/Fin.
   • Confirmar.
   • En la pantalla principal verificar que exista el Documento Soporte.
   • Dar clic en el botón “Transmitir”.
   • Asignar la serie “DCS” y el Número de Documento Inicial y Final.
   • Confirmar Transmisión.
   • Revisar el Log de transmisión.
     Image Added
     
     
3. Archivo XML del Documento Soporte.
   
   Los archivos XML autorizados se crean en la carpeta configurada en el parámetro MV_CFDDOCS + "/autorizados/".
   
   
   • Revisar que el elemento "tipoDocumento" sea igual a "05" que indica que se transmitió un Documento Soporte. Ejemplo:
     <cbc:InvoiceTypeCode>05</cbc:InvoiceTypeCode>
   • Dentro del elemento FacturaDetalle (cac:InvoiceLine) revisar que se haya creado el sub-elemento de "cac:InvoicePeriod" y revisar que informen los siguientes sub-elementos:
     • StartDate: Fecha de emisión del documento.
     • DescriptionCode: Forma de generación. El número "1" que indica que la forma de generación es "Por Operación".
     • Description: Descripción de Forma de generación.
       Ejemplo:
       <cac:InvoicePeriod>
             <cbc:StartDate>2022-04-11</cbc:StartDate>
             <cbc:DescriptionCode>1</cbc:DescriptionCode>
             <cbc:Description>Por operación</cbc:Description>
       </cac:InvoicePeriod>
   •  Revisar que el elemento "tipoOperacion" sea igual a "10" si el Proveedor es "Residente", si el Proveedor es "No Residente" se informará "11". Ejemplo:
     <cbc:CustomizationID>10</cbc:CustomizationID>
   • Dentro del elemento Proveedor (<cac:AccountingSupplierParty>) revisar que se haya informado el subelemento "detallesTributarios" y sus "Tributos". Ejemplo:
     <cac:TaxScheme><cbc:ID>01</cbc:ID><cbc:Name>IVA</cbc:Name></cac:TaxScheme>
   • Revisar que se informen correctamente los valores del Documento Soporte (datos del Proveedor, Empresa emisora, Productos, Totales, etc..)
     
     
4. Monitor de Transmisión.
   
   
   • Ingresar al módulo de Facturación (SIGAFAT), ir el menú |Actualizaciones | Facturación | Transmitir Factura Electrónica (MATA486)
   • Capturar los parámetros correspondientes para realizar el filtro de documentos.
     ¿Tipo de Documento? seleccionar “Docto. Soporte”.
     ¿Serie? seleccionar “DCS”.
     ¿Estatus? seleccionar “0” para obtener todos los documentos.
     Asignar las Fechas Inicio/Fin.
   • Confirmar.
   • Dar clic en el botón “Monitor”.
   • Asignar la Serie “DCS” y el Número de Documento Inicial y Final.
   • Confirmar.
   • Revisar el estatus del Documento Soporte.
     Image Added
     
5. Imprimir PDF.
   
   
   • Ingresar al módulo de Facturación (SIGAFAT), ir el menú |Actualizaciones | Facturación | Transmitir Factura Electrónica (MATA486)
   • Capturar los parámetros correspondientes para realizar el filtro de documentos.
     ¿Tipo de Documento? seleccionar “Docto. Soporte”.
     ¿Serie? seleccionar “DCS”.
     ¿Estatus? seleccionar “0” para obtener todos los documentos.
     Asignar las Fechas Inicio/Fin.
   • Confirmar.
   • Dar clic en el botón “Otras Acciones”.
   • Seleccionar la opción "Imprimir PDF".
   • Asignar la Serie “DCS”, el Número de Documento Inicial y Final e indicar el Formato PDF.
   • Confirmar.
   • Revisar la información impresa en el archivo PDF del Documento Soporte.
     Image Added
     
     
     
6. Recuperar XML.
   
   
   • Ingresar al módulo de Facturación (SIGAFAT), ir el menú |Actualizaciones | Facturación | Transmitir Factura Electrónica (MATA486)
   • Capturar los parámetros correspondientes para realizar el filtro de documentos.
     ¿Tipo de Documento? seleccionar “Docto. Soporte”.
     ¿Serie? seleccionar “DCS”.
     ¿Estatus? seleccionar “0” para obtener todos los documentos.
     Asignar las Fechas Inicio/Fin.
   • Confirmar.
   • Dar clic en el botón “Otras Acciones”.
   • Seleccionar la opción "Recuperar XML"
   • Asignar la Serie “DCS”, el Número de Documento Inicial y Final, y la Carpeta dónde será guardado el archivo.
   • Confirmar.
   • Revisar que el archivo XML del Documento Soporte se haya almacenado en la carpeta indicada.
   • 
     
     
7.  Uso del parámetro MV_ALTNUM
   
   
   • El sistema actúa de acuerdo al valor que se configure siempre y cuando el numero de documento asignado ya exista, siendo:

MV_ALTNUM = 1 Se reasigna el consecutivo que corresponda de manera automática.

Image Added

MV_ALTNUM = 2 El sistema pregunta al usuario si desea que se actualice el número de documento.

Image Added

MV_ALTNUM = 3 No se reasigna número, el usuario podrá editar el número de documento.

Image Added

En caso de editar el Núm. de Doc. (F1_DOC), y si se introduce un número de documento mayor al consecutivo que corresponda, el sistema reasigna automáticamente el número y presenta un aviso de la acción realizada.

2.10.4 Regla de rechazo DSAJ05b

The Factory HKA Colombia SAS informa que desde el próximo 10 de noviembre de 2024 la DIAN generará rechazo al transmitir un documento soporte cuando el tipo de documento del vendedor no corresponda a un valor válido de la lista, de acuerdo con lo establecido en el anexo técnico vigente para el documento soporte en adquisiciones con sujetos no obligados a expedir factura electrónica.

Es requisito reportar la información relacionada con los documentos de no residentes de acuerdo con los códigos que se indican en la tabla 16.2.1 Documento de identificación (Tipo de identificador fiscal) del anexo técnico 1.0 de la resolución 00167 de 2021.

DSAJ25b. El contenido de este atributo no corresponde a uno de los valores posibles de la lista.

Cuando el campo <tipoOperacion> se reporte como 11 (No Residente), 

Image Added

Nota: Conforme a la Normativa vigente, debe tenerse en cuenta lo que se indica para el concepto de residente fiscal en Colombia y no residente fiscal en Colombia.

En el campo <tipoIdentificacion>, podrá indicarse alguno de los valores de la siguiente tabla.

Para cumplir con esa nueva regla deberá actualizar el catálogo TiposDocIdentidad con los siguientes datos:

Image Added

2.10.5 Diccionario de datos 

El usuario debe realizar las siguientes actualizaciones al diccionario de datos a través del módulo Configurador de Protheus (SIGACFG):

Campos en el archivo SX3 - Campos:

Crear campo F1_SOPORT

Preguntas en el archivo SX1 – Archivo de Preguntas:

Modificar grupo MATA486

Modificar grupo MT101N

Crear grupo MATA486I

Tablas Genéricas en el archivo SX5 – Tablas Genéricas:

Crear nuevos registros en la 00 - 01 Series de Facturas 

2.11 ENVÍO DE EMAIL AL REALIZAR TRANSMISIÓN AUTOMÁTICA

2.11.1 Visión General

Situación:

En la rutina de Documentos Electrónicos (MATA486), se solicita la funcionalidad de envío automático de los archivos en formato XML y PDF vía Email en el proceso estándar de Transmisión Electrónica.

Solución:

En la rutina de Documentos Electrónicos (MATA486):

• Se cambia el nombre la acción "Imprimir PDF" para que se visualice como "Imprimir PDF / Envío por Email".
• Se realizó ajuste en la función que Genera log de la transmisión electrónica (M486GENLOG), para que al realizarse la transmisión electrónica, si se activa la funcionalidad del envío de email mediante el nuevo parámetro ¿Envío de Email? con opción Sí; y el cliente no tiene configurado el email en el campo Email (A1_EMAIL) o el campo Email Recep. (AI0_RECE) se informe al Cliente que no se envió el email en el log de la transmisión.

En la rutina de Funciones genéricas para generación de XML para Colombia (M486XFUNCO):

• Se modificó la Función para el llenado del objeto oWSfactura solicitado por TheFactory HKA, con datos obtenidos del XML (M486XMLHKA) para que si existe el parámetro ¿Envío de Email? (MV_PAR06) y está informado con la opción Sí, se envíen los siguientes atributos al web service de The Factory HKA:

  Aviso
  title IMPORTANTE
  Si la rutina de Documentos Electrónicos (MATA486), tiene fecha superior o igual al 23/12/2022, la pregunta de ¿Envío de Email?, debe configurarse en el Orden 07 (MV_PAR07), en caso contrario debe configurarse en el Orden 06(MV_PAR06)

En la clase Destinatarios:

• • El atributo canalDeEntrega sea informado con valor 0 (para opción de envío por Email)
  • El atributo email, donde si existe el campo Email Recep. (AI0_RECE)  en los Complementos del Cliente se tome de ahí el para el envío, en caso de no existir o que se encuentre vacío se toma como opción de email de envío el valor configurado en el campo Email (A1_EMAIL).

En la clase Clientes:

• • El atributo notificar se informa con el valor SI.

En la rutina de Impresión de Representación Impresa Facturación Electrónica Colombia (M486PDFCOL):

• Se modificó la función que Obtiene los valores para envío de Email (ObtEmail), para que en la rutina de Documentos Electrónicos (MATA486), al ejecutar la acción Imprimir PDF / Envío de Email e indicar el parámetro ¿Formato? con la opción E-mail, si existe el campo Email Recep. (AI0_RECE)  en los Complementos del Cliente se tome de ahí el para el envío, en caso de no existir o que se encuentre vacío se toma como opción de email de envío el valor configurado en el campo Email (A1_EMAIL).
• Se agregó una validación para indicarle al usuario que el Email de un Cliente de algún documento no está informado, cuando se realiza el envío de documentos electrónicos via Email.

2.11.2 Configuraciones Previas

En el grupo de preguntas MATA486, agregar la pregunta 06:

Creación de campos en el archivo Campos - SX3:

Tabla AI0 - Complemento de Clientes:

Envío de Email

Para la funcionalidad de envío de la factura electrónica (archivos XML y PDF) por E-mail a clientes, es necesario configurar los siguientes parámetros:

En caso de que el servidor de correo utilice autenticación, se deben configurar los siguientes parámetros:

2.11.3 Ejemplo de Utilización

1. En el módulo Facturación (SIGAFAT) ir al menú Actualizaciones | Archivos | Productos.
   • Incluir uno o varios Productos para la generación de una Factura de Venta (NF).
2. En el módulo Facturación (SIGAFAT) ir al menú Actualizaciones | Archivos | Tipos de Entrada y Salida.
   • Incluir el Tipo de Salida (TES) para el cálculo de impuestos de la Factura de Venta (NF)
3. En el módulo Facturación (SIGAFAT) ir al menú Actualizaciones | Archivos | Clientes.

   • Configurar el Cliente para la generación de la Factura de Venta (NF).

Proceso de Transmisión de Documentos

1. Ingresar al módulo Facturación (SIGAFAT) e ir al menú "Actualización | Facturación | Facturación Electrónica" (MATA486).
2. Informar los parámetros:
   • ¿Tipo de Documento?: Factura
   • ¿Serie?: <Serie de la factura creada en las "Pre-condiciones">
   • ¿Estatus?: 0 - No transmitida
   • ¿Fecha Inicial?: <Fecha de inclusión de la factura creada en las "Pre-condiciones">
   • ¿Fecha Final?: <Fecha de inclusión de la factura creada en las "Pre-condiciones">
   • ¿Envío a Email: Sí
3. Dar clic en el botón "Transmitir".
4. Informar los parámetros:
   • ¿Serie de la Factura?: <Serie de la factura creada en las "Pre-condiciones">
   • ¿Factura Inicial?: <Número de Documento de la factura creada en las "Pre-condiciones">
   • ¿Factura Final?: <Número de Documento de la factura creada en las "Pre-condiciones">
5. Dar clic en "Ok".
6. Revisar la bandeja del email del correo que fue configurado para el envío automático, validando que se haya recibido un email que contiene adjuntos en un archivo .zip el XML y PDF del documento electrónico transmitido.

2.12 Medios de Pago para Documentos Electrónicos

2.12.1 Visión General

El Proveedor Tecnológico denominado The Factory HKA, tiene disponible la clase MediosDePago que corresponde a la información del pago del Documento Electrónico, para poder activar la funcionalidad de enviar los atributos medioPago y metodoDePago es necesario tener configurados los campos  Método Pago (E4_MPAGSAT), Medio Pago (F1_TPDOC), Medio Pago (F2_TPDOC) y Medio Pago (F1_TPDOC).

2.12.2 Configuraciones Previas

Contar con las siguientes rutina actualizadas, con fecha igual o posterior: