Histórico da Página

...

Totvs custom tabs box

tabs	Parámetros, Archivos Necesarios ,Configuraciones Necesarias, Facturas, Notas Crédito, Notas Débito, Remitos, Documentos Electrónicos, Punto de Entrada Xml Salida, Punto de Entrada Xml Entrada,Personalizar PDF
ids	paso01,paso02,paso03,paso04,paso05,paso06,paso07,paso08,paso09,paso10,paso11

Totvs custom tabs box items

default	yes
referencia	paso01

Nombre de la Variable	Valor Ejemplo
MV_PATH814	C:\Catalogos_csv\
MV_F3HNUM
MV_CFDI_AM	T
MV_CFDSMAR	GetClientDir() Cuando se usa en versión web se debe crear un carpeta en alguna ubicación con permisos de lectura y escritura; y se debe informar la ruta ejemplo "C:\temp\". Adicional en dicha ruta debe esta el certificado y la carpeta SIFENWS.
MV_CFDI_PA	SIFENWS
MV_CFDDOCS	GetSrvProfString('startpath','')+'\cfd\facturas\'
MV_CFDI_PX	certificado.pfx
MV_CFDICVE	12345678a
MV_IDCONEN	1
MV_IDCSC	0001
MV_CSC	ABCD0000000000000000000000000000
MV_CFDUSO	1
MV_RELACNT	[email protected]
MV_TIPTRAN	S
MV_ASYNLOT	50
MV_TIPCON	1=Persona Física ,2=Persona Jurídica
MV_IMPKUDE	1= Imprime facturas autorizadas 2= Imprime facturas transmitidas y autorizadas

Totvs custom tabs box items

default	no
referencia	paso02

Archivos de Catálogos.
- Una vez configurado el parámetro MV_PATH814 con una ruta local, deberá colocar los archivos .csv anexos a esta solución en el archivo CatalogosFact.zip. En este archivo se encuentran los catálogos en formato csv los cuales serán tomados por la rutina Carga de Catálogos para generar sus registros en Protheus.
Certificado digital.
- El certificado digital informado en el parámetro MVparámetro MV_CFDI_PX, deberá ser colocado dentro de la ruta informada en el parámetro MVparámetro MV_CFDSMAR.
Archivo .exe (SIFENWS.EXE) para realizar consumo de los servicios web del SIFEN
- El archivo SIFENWS.EXE se puede descargar del siguiente enlace https://suporte.totvs.com/portal/p/10098/download?e=1083727 una vez descargado el archivo:
  - Localizar el archivo descargado, y descomprimir.
  - Ubique la carpeta "Paraguay" dentro se encuentra el comprimido SIFENWS descomprima y lleve toda la carpeta sin no mover ninguno de los elementos.
- El nombre del archivo(ejecutable) deberá ser colocado en el parámetro MV_CFDI_PA (SIFENWS), el archivo deberá ser colocado en la ruta informada en el parámetro MV_CFDSMAR.
- En caso de que el archivo se encuentre en una carpeta, la carpeta deberá tener el mismo nombre del archivo .exe.
Dentro de la ruta '\Protheus_data\system\', deberá crear los siguientes directorios:
- "\facturas\"
- Dentro de la ruta '\Protheus_data\system\facturas\', deberá crear los siguientes directorios:
  - "\autorizados\" - Almacena las facturas autorizadas por el SIFEN.
  - "\canceladas\" - Almacena los documentos cancelados. Los documentos cancelados son documentos que fueron enviados y autorizados por el SIFEN, pero que después fueron cancelados.
  - "\inutilizadas\" - Almacena los documentos inutilizados. Los documentos inutilizados son documentos que no fueron transmitidos al SIFEN, pero que fueron reportados como "cancelados" sin ser aprobados previamente.
Para el uso en versión web se debe tener actualizado WEBAGENT y configurar correctamente de acuerdo a la documentación.

Totvs custom tabs box items

default	no
referencia	paso03

Catálogos.

En el módulo de Facturación, ingresar a la rutina Definición de Catálogos Catálogos "Actualizaciones | Archivos| Definición de Catálogos". La primera vez detonará la carga de los archivos csv al Protheus. Es importante realice este paso después de configurar todos los parámetros , pues las configuraciones siguientes dependen de la correcta carga de la información de catálogos al sistema Protheus.

Catálogos.

View file

name	Catalogos.zip
height	250

Código	Descripción
S001	Tipo de Régimen
S002	Unidad de Medida
S003	Departamento
S004	Monedas
S005	Países
S006	Catálogo de actividad económica
S007	Catálogo de afectación
S008	Catálogo de categoría ISC
S009	Catálogo de tasas ISC
S010	Condiciones
S011	Catálogo de Regímenes Aduaneros
S012	Referencia Geográfica
S013	Tipos de Pago
S014	Denominación Tarjeta
S015	Documento Electrónico
S016	Tipo de transacción
S017	Catálogo de Impuesto Afectado
S018	Tipo Documento de Identidad
S019	Indicador de Presencia
S020	Doc Identidad VEN/TRA
S021	Motivo de Emisión NC
S022	Motivo de Emisión RE
S023	Catálogo de Respon. Emisión
S024	Catálogo de Vehículos
S025	Catálogo de Tipo de Combustible
S026	Catálogo de Mod. de Transporte
S027	Catálogo Respon. del Flete
S028	Catálogo de Doc. Impreso
S029	Tipos de Operación
S030	Dirección del Emisor
S031	Distrito
S032	Procesamiento Pago

En el módulo de Facturación, ingresar a la rutina Mantenimiento de Catálogos "Actualizaciones | Archivos | Mantenimiento de Catálogos". Ingresar al catálogo S030 - DIRECCIÓN DEL EMISOR, informar los datos correspondientes a la dirección del emisor.
- Ejemplo:
  - RUC correspondiente al emisor.
  - Número - Correspondiente al informado antes el SIFEN.
  - Tipo Régimen - Régimen del emisor de acuerdo al catálogo S001.
  - Departamento - Correspondiente al RUC informado y de acuerdo al catálogo S003.
  - Distrito - Correspondiente al RUC informado y de acuerdo al catálogo S031.
  - Ciudad - Correspondiente al RUC informado y de acuerdo al catálogo S012.

Dentro del módulo configurador en la configuración de la empresa verificar la siguiente configuración se encuentre registrada:

Datos generales
- Nombre comercial.
- Teléfono
- RUC (CNPJ o CPF).
Dirección Fiscal/Entrega
- Dirección Fiscal/Entrega
- Barrio
- Ciudad Fiscal Entrega
- CP Fiscal/Entrega
Adicionales
- Actividad económica - Correspondiente al RUC informado y de acuerdo al catálogo S006.

Para los siguientes registros será necesario informar los siguientes campos para el correcto llenado de los archivos xml.

Clientes - (SIGAFIS | Actualizaciones | Archivos| Clientes)
- A1_TIPDOC - Tipo de documento.
- A1_NUM - Número de casa.
- A1_DEPTO - Código departamento de acuerdo a la SET.
- A1_DISTR - Código de distrito de acuerdo a la SET.
- A1_CIUDAD - Código de ciudad de acuerdo a la SET.
- A1_PESSOA - Persona Persona Física/Jurídica
- A1_CGC - RUC.
- A1_NIF - Número de identificación Fiscal
- A1_NOME - Nombre del cliente.
- A1_NREDUZ - Nombre de fantasía.
- A1_END - Dirección del cliente.
- A1_TEL - Teléfono del cliente.
- A1_EMAIL - Correo del cliente.
- A1_COD - Código interno del cliente.
Países - (SIGACOM | Actualizaciones | Archivo Importaciones| Países)
- YA_CODERP - Cod. ERP. Clave de país de acuerdo al catálogo de países.
Monedas - (SIGACTB | Actualizaciones | Archivos| Monedas Contables)
- CTO_MOESAT - Moneda SAT. Clave de moneda de acuerdo al catálogo monedas.
Unidades de medida - (SIGAFIS | Actualizaciones | Archivos| Unidades de Medida).
- AH_COD_CO - Ori Cert Cód. Clave de unidad de medida de acuerdo al catálogo de unidades de medida.

Impuestos variables - (SIGAFIS | Actualizaciones | Archivos| Impuestos Variab.).
- FB_CODIMP - Cod. Impuest. Código de impuesto de acuerdo al catálogo de impuesto afectado.
- FB_CLASSE - Clase Imp. Indicar la clase de impuesto.
Control de Formularios - (SIGAFIS | Actualizaciones | Archivos| Control de formularios).
- FP_SERIE2 - Serie 2. De acuerdo a la numeración definida por el SIFEN empezando con una serie en blanco hasta acabar la numeración 0000001 - 9999999.
- FP_CAI - No. Aprob. Informar el número de timbrado para la serie usada de acuerdo al tipo de documento.
- FP_FINITIM - Fch. In. Tim. Informar la fecha de inicio del timbrado.
Productos - (SIGAFIS | Actualizaciones | Archivos | Productos).
- B1_COD - Código del producto.
- B1_DESC - Descripción del producto.
- B1_UM - Unidad de Medida.
Condiciones de pago - (SIGAFAT | Actualizaciones | Archivos | Condiciones de pago).
- Pago de contado
  - E4_BXTITAV = 1-Si. Baja título automática.
- Pago en cuota o plazo.
  - E4_BXTITAV = 2-No. Baja título automática.
  - E4_COND - Informar el plazo o cuotas.
    - Ejemplo plazo
      - "30" - Genera un plazo de 30 días.
    - Ejemplo cuota
      - "30,60,90" - Genera 3 cuotas, una cada 30 días.
Transportadoras (SIGACOM | Actualizaciones | Archivo importaciones | Transportadoras)
- A4_NOME - Nombre
- A4_CGC - RUC
- A4_TIPCON - Tipo Contrib
- A4_TIPID - Tipo de Iden (De acuerdo al catálogo S018).
Vehículos (SIGAOMS | Actualizaciones | Logística | Vehículos)
- DA3_DESC - Modelo
- DA3_PLACA - Matrícula
- DA3_CHASSI - Chasís
- DA3_TIPTR2 - Tipo Transporte
- DA3_TIPID - Tipo Vehículo (Tipo de identificación).

Totvs custom tabs box items

default	no
referencia	paso04

Pago de Contado

En el módulo de Facturación, ingresar a la rutina Facturación "Actualizaciones | Facturación | Facturación".
Registrar una factura, informar los campos necesarios en la factura para generar correctamente el archivo xml.
1. Tipo NF (F2_TIPONF).
2. Tipo Transacción (F2_TPTRANS).
3. Seleccionar una condición de pago que realice baja automática. (E4_BXTITAV = 1)
Confirmar el documento.
Una vez finalizado se mostrará una ventana para informar las formas de pago del documento, estas son obligatorias para la correcta generación del documento xml. (Deberán contemplar el valor completo del documento para que sea válido)
1. Para la correcta generación deberán ser informados los campos de acuerdo al tipo de pago.
  1. Tipo de pago
    1. Pago con Tarjetas.
      1. Tipo Tarjeta
      2. Código de autorización de operación.
      3. Número de Tarjeta (Últimos 4 dígitos).
    2. Pago con cheque.
      1. Banco emisor.
      2. Número de cheque.
  2. Monto de pago
  3. Forma de procesamiento de pago
2. En caso no haber registrado la formas de pago al confirmar el documento será posible registrarlas seleccionando el documento y en "Otras acciones" seleccionar la opción "Registro pagos."
Una vez registradas las formas de pago confirmar.

Pago a plazo

En el módulo de Facturación, ingresar a la rutina Facturación "Actualizaciones | Facturación | Facturación".
Registrar una factura, informar los campos necesarios en la factura para generar correctamente el archivo xml.
1. Tipo NF (F2_TIPONF).
2. Tipo Transacción (F2_TPTRANS).
3. Seleccionar una condición de pago que NO realice baja automática y genere pago con plazo. (Ejemplo: E4 E4_BXTITAV = 2 y E4_COND = 30)
Confirmar el documento.

Pago en cuota

En el módulo de Facturación, ingresar a la rutina Facturación "Actualizaciones | Facturación | Facturación".
Registrar una factura, informar los campos necesarios en la factura para generar correctamente el archivo xml.
1. Tipo NF (F2_TIPONF).
2. Tipo Transacción (F2_TPTRANS).
3. Seleccionar una condición de pago que NO realice baja automática y genere cuotas. (Ejemplo: E4 E4_BXTITAV = 2 y E4_COND = 30,60,90)
Confirmar el documento.

Totvs custom tabs box items

default	no
referencia	paso05

En el módulo de Facturación, ingresar a la rutina Generac. de Notas de Crédito y Débito "Actualizaciones | Facturación | Generac. de Notas de Crédito y Débito".
Registrar una nota de crédito, informar los campos necesarios en la factura para generar correctamente el archivo xml.
1. Tipo Nota C (F1_TIPREF) - Motivo de la emisión de la nota de crédito.
Dentro de "Otras acciones | Doc Orig" seleccionar el documento al que corresponde la nota de crédito.
Confirmar el documento.

Nota

Nota: Las notas de crédito deben tener un documento asociado. Campos D1_NFORI, D1_SERIORI informados.

Totvs custom tabs box items

default	no
referencia	paso06

En el módulo de Facturación, ingresar a la rutina Generac. de Notas de Crédito y Débito "Actualizaciones | Facturación | Generac. de Notas de Crédito y Débito".
Registrar una nota de débito, informar los campos necesarios en la factura para generar correctamente el archivo xml.
1. Tipo Nota D (F2_TIPREF).
Al registrar la nota de débito deberán ser informados los campos del documento al cual se encuentra asociada.
Confirmar el documento.

Nota:Las notas de crédito deben tener un documento asociado. Campos D2_NFORI, D2_SERIORI informados.

Totvs custom tabs box items

default	no
referencia	paso07

En el módulo de Facturación, ingresar a la rutina Pedidos de venta "Actualizaciones | Pedidos | Pedidos de venta".
1. Registrar un pedido que genere un remito e informar los datos necesarios en el pedido para generar correctamente el archivo xml.
  1. Transp. (C5_TRANSP)
  2. Doc Gener. (C5_DOCGER) = 2 - Remisión
  3. Vehic. Trans. (C5_VEICULO)
  4. Motivo (C5_MODTRAD)
  5. Tipo NF (C5_TIPONF)
  6. Tipo Transac. (C5_TPTRANS)
  7. Incoterms (C5_INCOTER)
  8. Fec. Ini. Tras. (C5_FECDSE)
  9. Fch. Fin Tras. (C5_FECHDE)
  10. Resp. Flete (C5_TPRESFL)
Confirmar el documento.
En el módulo de Facturación, ingresar a la rutina Generac de remito "Actualizaciones | Form. De Remisión | Generac de remito".
Realizar la generación del remito usando el pedido antes generado.

Totvs custom tabs box items

default	no
referencia	paso08

En el módulo de Facturación, ingresar a la rutina Documentos Electrónicos "Actualizaciones | Facturación | Documentos Electrónicos".
Seleccionar los parámetros de acuerdo a los documentos que serán visualizados/procesados.
1. ¿Tipo documento? - Seleccionar el tipo de documento.
  1. Factura
  2. Nota Débito
  3. Nota Crédito
  4. Remisión
2. ¿Serie? - Seleccionar la serie de los documentos.
3. ¿Estatus? - Estatus de los documentos.
  1. 1 - No transmitida.
  2. 2 - Recibido.
  3. 3 - Esperando procesamiento.
  4. 4 - Documento Rechazado.
  5. 5 - Documento Autorizado.
4. ¿Fecha Inicial? - Fecha inicial del rango para los documentos.
5. ¿Fecha Final? - Fecha final del rango para los documentos.

Transmisión

Seleccionar los parámetros para visualizar los documentos no transmitidos o rechazados.

Ejemplo:

¿Tipo documento? - "Factura"
¿Serie? - "A"
¿Estatus? - "1" o "4"
¿Fecha Inicial? - 01/03/2021
¿Fecha Final? - 31/03/2021

Se visualizarán los documentos que no han sido transmitidos o procesados, dependiendo del parámetro "Estatus".

Seleccionar "Transmitir".
Se mostrará una venta de parámetros, informar los datos de acuerdo a los documentos que serán transmitidos. Informar la serie del documento y el rango de los documentos a transmitir.
1. ¿Serie de la Factura? - "A01"
2. ¿Factura Inicial? - "0010010000001"
3. ¿Factura Final? - "0010010000001"
Una vez finalizado el proceso se mostrará un mensaje.
1. En caso de haber tenido errores durante la transmisión se mostrará un mensaje indicándolo.
  1. Indicar "Si" en la pregunta "¿Desea visualizar el log del proceso?".
  2. Se mostrará un informe con los errores que ocurrieron durante el proceso.
2. En caso de haber realizado de manera correcta la transmisión se mostrará un mensaje indicándolo.
  1. Indicar "Si" en la pregunta "¿Desea visualizar log de Transmisión?".
  2. Se mostrará un informe con los documentos autorizados.
El documento será actualizado y ahora será visible al seleccionar el estatus "5 - Documento Autorizado"

Cancelación

Seleccionar los parámetros para visualizar los documentos Autorizados.

Ejemplo:

¿Tipo documento? - "Factura"
¿Serie? - "A"
¿Estatus? - "5"
¿Fecha Inicial? - 01/03/2021
¿Fecha Final? - 31/03/2021

Seleccionar "Otras acciones | Anulación Fac. Electrónica".
Se mostrará una barra de progreso.
Una vez finalizado el proceso se mostrará un mensaje.
1. En caso de haber tenido errores durante la transmisión se mostrará un mensaje indicándolo.
  1. Indicar "Si" en la pregunta "¿Desea visualizar el log del proceso?".
  2. Se mostrará un informe con los errores que ocurrieron durante el proceso.
2. En caso de haber realizado de manera correcta la transmisión se mostrará un mensaje indicándolo.
  1. Indicar "Si" en la pregunta "¿Desea visualizar log de Transmisión?".
  2. Se mostrará un informe con los documentos autorizados.

Imprimir PDF

Sin la existencia del parámetro MV_IMPKUDE.

Ejemplo 1 - Documento Autorizado.

NOTA: Al no existir el parámetro se toma el valor default de 1. Por lo que solo se pueden imprimir documentos autorizados.

Seleccionar "Imprimir PDF".
Seleccionar "Imprimir PDF".
Se mostrará una venta de parámetros, informar los datos de acuerdo a los documentos que serán generados los PDF. Informar la serie del documento y el rango de los documentos a transmitir.autorizados de los que se generara el PDF.
1. ¿Serie de documento? - "A01"
2. ¿Documento Inicial? - "0010010000001"
3. ¿Documento Final? - "0010010000001"
4. ¿Formato? - PDF
5. Ruta copia PDF - C:\prueba\
Se mostrará una barra de progreso.
Una vez finalizado el proceso se podrán consultar los documento en la ruta informada en el parámetro MVparámetro MV_CFDDOCS en la carpeta llamada "Autorizados" o en la ruta informada en el parámetro "Ruta copia PDF".

Ejemplo 2 - Documento No Autorizado.

NOTA: Al no existir el parámetro se toma el valor default de 1. Por lo que solo se pueden imprimir documentos autorizados.

Seleccionar "Imprimir PDF".
Se mostrará una venta de parámetros, informar los datos de acuerdo a los documentos que serán generados los PDF. Informar la serie del documento y el rango de los documentos autorizados de los que se generara el PDF.
1. ¿Serie de documento? - "A01"
2. ¿Documento Inicial? - "0010010000002"
3. ¿Documento Final? - "0010010000002"
4. ¿Formato? - PDF
5. Ruta copia PDF - C:\prueba\
No se mostrara ningún mensaje, solo no se realizara el proceso.
Al consultar la ruta informada en el parámetro MV_CFDDOCS en la carpeta llamada "Autorizados" o en la ruta informada en el parámetro "Ruta copia PDF", no existira ningún documento generado.

Configuración del parámetro MV_IMPKUDE = 1

Ejemplo 1 - Documento Autorizado.

NOTA: Al estar configurado el valor del parámetro en 1, solo se pueden imprimir documentos autorizados.

Seleccionar "Imprimir PDF".
Se mostrará una venta de parámetros, informar los datos de acuerdo a los documentos que serán generados los PDF. Informar la serie del documento y el rango de los documentos autorizados de los que se generara el PDF.
1. ¿Serie de documento? - "A01"
2. ¿Documento Inicial? - "0010010000001"
3. ¿Documento Final? - "0010010000001"
4. ¿Formato? - PDF
5. Ruta copia PDF - C:\prueba\
Se mostrará una barra de progreso.
Una vez finalizado el proceso se podrán consultar los documento en la ruta informada en el parámetro MV_CFDDOCS en la carpeta llamada "Autorizados" o en la ruta informada en el parámetro "Ruta copia PDF".

Ejemplo 2 - Documento No Autorizado.

NOTA: Al estar configurado el valor del parámetro en 1, solo se pueden imprimir documentos autorizados.

Seleccionar "Imprimir PDF".
Se mostrará una venta de parámetros, informar los datos de acuerdo a los documentos que serán generados los PDF. Informar la serie del documento y el rango de los documentos autorizados de los que se generara el PDF.
1. ¿Serie de documento? - "A01"
2. ¿Documento Inicial? - "0010010000002"
3. ¿Documento Final? - "0010010000002"
4. ¿Formato? - PDF
5. Ruta copia PDF - C:\prueba\
No se mostrara ningún mensaje, solo no se realizara el proceso.
Al consultar la ruta informada en el parámetro MV_CFDDOCS en la carpeta llamada "Autorizados" o en la ruta informada en el parámetro "Ruta copia PDF", no existira ningún documento generado.

Configuración del parámetro MV_IMPKUDE = 2

Ejemplo 1 - Documento Autorizado.

NOTA: Al estar configurado el valor del parámetro en 2, se pueden imprimir documentos que ya han sido transmitidos y están en espera de ser autorizados.

Seleccionar "Imprimir PDF".
Se mostrará una venta de parámetros, informar los datos de acuerdo a los documentos que serán generados los PDF. Informar la serie del documento y el rango de los documentos autorizados de los que se generara el PDF.
1. ¿Serie de documento? - "A01"
2. ¿Documento Inicial? - "0010010000001"
3. ¿Documento Final? - "0010010000001"
4. ¿Formato? - PDF
5. Ruta copia PDF - C:\prueba\
Se mostrará una barra de progreso.
Una vez finalizado el proceso se podrán consultar los documento en la ruta informada en el parámetro MV_CFDDOCS en la carpeta llamada "Autorizados" o en la ruta informada en el parámetro "Ruta copia PDF".

Ejemplo 2 - Documento Transmitido aun No Autorizado.

NOTA: Al estar configurado el valor del parámetro en 2, se pueden imprimir documentos que ya han sido transmitidos y están en espera de ser autorizados.

Seleccionar "Imprimir PDF".
Se mostrará una venta de parámetros, informar los datos de acuerdo a los documentos que serán generados los PDF. Informar la serie del documento y el rango de los documentos autorizados de los que se generara el PDF.
1. ¿Serie de documento? - "A01"
2. ¿Documento Inicial? - "0010010000002"
3. ¿Documento Final? - "0010010000002"
4. ¿Formato? - PDF
5. Ruta copia PDF - C:\prueba\
Se mostrará una barra de progreso.
Una vez finalizado el proceso se podrán consultar los documento en la ruta informada en el parámetro MV_CFDDOCS o en la ruta informada en el parámetro "Ruta copia PDF"..

Totvs custom tabs box items

default	no
referencia	paso09

En caso de que se necesite modificar el XML para documentos de salida (NF, NDC, RFN) existe el punto de entrada M486PESXML habilitado para realizar esta operación.

Aviso

title	Nota

El siguiente ejemplo sirve para reemplazar todo el XML y será necesario utilizar la función de usuario QryItem() , que realiza una consulta SQL (Query) para obtener los datos correspondientes a los ítems, se encuentra al final del ejemplo.

Ejemplos de uso:

Bloco de código

language	actionscript3
theme	RDark
title	M486PESXML

Totvs custom tabs box items

default	no
referencia	paso09

En caso de ser necesario modificar el xml para documentos de salida (NF, NDC, RFN) existe el punto de entrada M486PESXML habilitado para realizar esta operación.

Ejemplos de uso:

Bloco de código

language	xml
theme	RDark
linenumbers	true
collapse	true

User Function M486PESXMLUser Function M486PESXML()
Local cFilial   := PARAMIXB[1]
Local cSerie    := PARAMIXB[2]
Local cCliente  := PARAMIXB[3]
Local cLoja     := PARAMIXB[4]
Local cDoc      := PARAMIXB[5]
Local cEspecie  := PARAMIXB[6]
Local cXml      := ""
Local cSalto	:= chr(13) + chr(10)
Local cPicture	:= "999999999999999.9999"
Local cID		:= ""
Local cSecCod	:= ""
Local cdDVId	:= ""
Local cFeEmiDE	:= ""
Local cNumCasa	:= ""
Local cDepEmi	:= ""
Local cDisEmi	:= ""
Local cCiuEmi	:= ""
Local cIniTras	:= ""
Local cFinTras	:= ""
Local aTotales	:= {0,0,0,0,0,0,0,0,0,0,0,0,0}
Local aDesc		:= {0,0}
Local lProd		:= SuperGetMV("MV_CFDI_AM",,"") == "P"
Local cEmail	:= SuperGetMV("MV_RELACNT",,"")
Local cAliasTmp	:= ""
Local aArea		:= GetArea()
Local aSF		:= {}

	DbSelectArea("SF2")
	aSF := GetArea()
	DbSetOrder(1)//F2_FILIAL+F2_DOC+F2_SERIE+F2_CLIENTE+F2_LOJA+F2_FORMUL+F2_TIPO
	lOK := DbSeek(xFilial("SF2")+cDoc+cSerie+cCliente+cLoja) 

	
	cSecCod  := M486SecCod(Time(),(Time(),SF2->F2_EMISSAO)
	cID 	 := IIF(AllTrim(SF2->F2_ESPECIE)=="NF",M486GENCDC("01",SUBSTR(SM0->M0_CGC,1,RAT("-",SM0->M0_CGC)-1),Substr(SM0->M0_CGC,RAT("-",SM0->M0_CGC)+ 1,1),SUBSTR(SF2->F2_DOC,1,3),SUBSTR(SF2->F2_DOC,4,3),RIGHT(SF2->F2_DOC,7),"1",SF2->F2_EMISSAO,"1",cSecCod,SF2->F2_ESPECIE),"")
	cID 	 := IIF(AllTrim(SF2->F2_ESPECIE)=="NFNDC",M486GENCDC("0106",SUBSTR(SM0->M0_CGC,1,RAT("-",SM0->M0_CGC)-1),Substr(SM0->M0_CGC,RAT("-",SM0->M0_CGC)+ 1,1),SUBSTR(SF2->F2_DOC,1,3),SUBSTR(SF2->F2_DOC,4,3),RIGHT(SF2->F2_DOC,7),"1",SF2->F2_EMISSAO,"1",cSecCod,SF2->F2_ESPECIE),""cID)
	cID 	 := IIF(AllTrim(SF2->F2_ESPECIE)=="NDCRFN",M486GENCDC("0607",SUBSTR(SM0->M0_CGC,1,RAT("-",SM0->M0_CGC)-1),Substr(SM0->M0_CGC,RAT("-",SM0->M0_CGC)+ 1,1),SUBSTR(SF2->F2_DOC,1,3),SUBSTR(SF2->F2_DOC,4,3),RIGHT(SF2->F2_DOC,7),"1",SF2->F2_EMISSAO,"1",cSecCod,SF2->F2_ESPECIE),cID)
	cdDVId	 := AllTrim(STR(CalcMod11(SUBSTR(cID,1,43))))
	cFeEmiDE := SUBSTR(DTOS(SF2->F2_DOC,7),"1",SF2->F2_EMISSAO,"1",cSecCod,SF2->F2_ESPECIE),cID)
	cID 	 := IIF(AllTrim(SF2->F2_ESPECIE)=="RFN",M486GENCDC("07EMISSAO),0,4) + "-" + SUBSTR(DTOS(SF2->F2_EMISSAO),5,2) + "-" + SUBSTR(DTOS(SF2->F2_EMISSAO),7,2) + "T" + SF2->F2_HORA
	cNumCasa := ObtColSAT("S030",SUBSTR(SM0->M0_CGC,1,10) , 1, 10, 11,6)
	cNumCasa := Iif(Empty(cNumCasa), "0", cNumCasa )
	cDepEmi  := ObtColSAT("S030",SUBSTR(SM0->M0_CGC,1,RAT("-",SM0->M0_CGC)-1),Substr(SM0->M0_CGC,RAT("-",10) , 1, 10, 18,2) 
	cDisEmi  := ObtColSAT("S030",SUBSTR(SM0->M0_CGC,1,10)+ 1, 1),SUBSTR(SF2->F2_DOC,1,3),SUBSTR(SF2->F2_DOC,4,3),RIGHT(SF2->F2_DOC,7),"1",SF2->F2_EMISSAO,"1",cSecCod,SF2->F2_ESPECIE),cID)
	cdDVId	 := AllTrim(STR(CalcMod11(SUBSTR(cID,1,43))))
	cFeEmiDE := SUBSTR(DTOS(SF2->F2_EMISSAO),0,4) + "-" + SUBSTR(DTOS(SF2->F2_EMISSAO),5,2) + "-" + SUBSTR(DTOS(SF2->F2_EMISSAO),7,2) + "T" + SF2->F2_HORA
	cNumCasa := ObtColSAT("S030",SUBSTR(SM0->M0_CGC,1,10) , 1, 10, 11,6)
	cNumCasa := Iif(Empty(cNumCasa), "0", cNumCasa )
	cDepEmi  := ObtColSAT("S030",SUBSTR(SM0->M0_CGC,1,10) , 1, 10, 18,2) 
	cDisEmi  := ObtColSAT("S030",SUBSTR(SM0->M0_CGC,1,10) , 1, 10, 20,3)
	cCiuEmi  := ObtColSAT("S030",SUBSTR(SM0->M0_CGC,1,10) , 1, 10, 23,4)

	cXml := '<rDE, 10, 20,3)
	cCiuEmi  := ObtColSAT("S030",SUBSTR(SM0->M0_CGC,1,10) , 1, 10, 23,4)

	cXml := '<rDE' + cSalto
	cXml += ' xmlns="http://ekuatia.set.gov.py/sifen/xsd" ' + cSalto
	cXml += ' xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" ' + cSalto
	cXml += ' xsi:schemaLocation="http://ekuatia.set.gov.py/sifen/xsd/ siRecepDE_v150.xsd">' + cSalto
	cXml += ' <dVerFor>150</dVerFor>' + cSalto
	cXml += '	<DE Id="' + cID + '">' + cSalto
	cXml += '		<dDVId>' + cdDVId + '</dDVId>' + cSalto
	cXml += '		<dFecFirma></dFecFirma> ' + cSalto
	cXml += '		<dSisFact>1</dSisFact>' + cSalto
	cXml += '		<gOpeDE>' + cSalto
	cXml += '        	<iTipEmi>1</iTipEmi>' + cSalto
	cXml += '        	<dDesTipEmi>Normal</dDesTipEmi>' +cSalto
	cXml += '			<dCodSeg>' + SUBSTR(cID,35,9) + '</dCodSeg>' + cSalto
	cXml += ' xmlns="http://ekuatia.set.gov.py/sifen/xsd" 		</gOpeDE>' + cSalto
	cXml += ' xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" 		<gTimb>' + cSalto
	If AllTrim(SF2->F2_ESPECIE) == "NF"
		cXml += ' xsi:schemaLocation="http://ekuatia.set.gov.py/sifen/xsd/ siRecepDE_v150.xsd">        	<iTiDE>1</iTiDE>' + cSalto
		cXml += ' <dVerFor>150</dVerFor>       	<dDesTiDE>Factura electrónica</dDesTiDE>' + cSalto
	ElseIf AllTrim(SF2->F2_ESPECIE) == "NDC"
		cXml += '	<DE Id="' + cID + '">'        	<iTiDE>6</iTiDE>' + cSalto
		cXml += '		<dDVId>' + cdDVId + '</dDVId>' + cSalto
	cXml += '		<dFecFirma></dFecFirma>         	<dDesTiDE>Nota de débito electrónica</dDesTiDE>' + cSalto
	Else
		cXml += '		<dSisFact>1</dSisFact>' + cSalto
	cXml += '		<gOpeDE>        	<iTiDE>7</iTiDE>' + cSalto
		cXml += '        	<iTipEmi>1</iTipEmi>' <dDesTiDE>Nota de remisión electrónica</dDesTiDE>'	+ cSalto
	EndIf
	cXml += '        	<dDesTipEmi>Normal</dDesTipEmi><dNumTim>'+ AllTrim(SF2->F2_NUMTIM) +'</dNumTim>' + cSalto
	cXml += '			<dCodSeg>        	<dEst>' + SUBSTR(cID,35,9SF2->F2_DOC,1,3) + '</dCodSeg>dEst>' + cSalto
	cXml += '		</gOpeDE>
	cXml += '        	<dPunExp>' + SUBSTR(SF2->F2_DOC,4,3) + '</dPunExp>' + cSalto
	cXml += '		<gTimb>        	<dNumDoc>' + cSalto
	If AllTrimRIGHT(SF2->F2_ESPECIEDOC,7) == "NF"
		cXml += '        	<iTiDE>1</iTiDE></dNumDoc>' + cSalto
		cXml += '        	<dDesTiDE>Factura electrónica</dDesTiDE><dSerieNum>' + cSalto
	ElseIf AllTrim(SF2->F2_ESPECIESERIE2) == "NDC"
	+ '</dSerieNum>' + cSalto
	cXml += '			<dFeIniT>' +FecIniTimb(SF2->F2_SERIE, SF2->F2_ESPECIE) + '</dFeIniT>' + cSalto
	cXml += '		<iTiDE>6<</iTiDE>gTimb>' + cSalto
		cXml += '        	<dDesTiDE>Nota de débito electrónica</dDesTiDE>		<gDatGralOpe>' + cSalto
	Else
		cXml += '			<dFeEmiDE>' + cFeEmiDE      	<iTiDE>7</iTiDE>+ '</dFeEmiDE>' + cSalto
	
	cXml// +=Campos 'inherentes a la operación comercial (D010-D099)
	If AllTrim(SF2->F2_ESPECIE) <> 	<dDesTiDE>Nota de remisión electrónica</dDesTiDE>'	+ cSalto
	EndIf
"RFN"
		CTO->(DbSetOrder(1)) //CTO_FILIAL+CTO_MOEDA
		CTO->(MsSeek(xFilial("CTO")+Strzero(SF2->F2_MOEDA,2)))
		cXml += '        	<dNumTim>'+ AllTrim(M486IMPPAR(AllTrim(SF2->F2_ESPECIE),SF2->F2_DOC,SF2->F2_SERIE, SF2->F2_CLIENTE,SF2->F2_LOJA, CTO->CTO_MOESAT, AllTrim(SF2->F2_TPTRANS),SF2->F2_NUMTIMTXMOEDA) +'</dNumTim> cSalto
	EndIf
	//EMISOR
	cXml += '			<gEmis>' + cSalto
	cXml += '        	<dEst>				<dRucEm>' + SUBSTR(SF2SM0->F2>M0_DOCCGC,1,3) + RAT("-",SM0->M0_CGC)-1)+'</dEst>dRucEm>' + cSalto
	cXml += '        	<dPunExp>				<dDVEmi>' + SUBSTRSubstr(SF2SM0->F2_DOC,4,3>M0_CGC,RAT("-",SM0->M0_CGC)+ 1,1) + '</dPunExp>dDVEmi>' + cSalto
	cXml += '        	<dNumDoc>' + RIGHT(SF2->F2_DOC,7) + '</dNumDoc>				<iTipCont>1</iTipCont>' + cSalto
	cXml += '        	<dSerieNum>' + AllTrim(SF2->F2_SERIE2) + '</dSerieNum>' + cSalto
					<cTipReg>'+ ObtColSAT("S030",SUBSTR(SM0->M0_CGC,1,10) , 1, 10, 17,1) +'</cTipReg>' + cSalto
	If lProd
		cXml += '			<dFeIniT>	<dNomEmi>'+ +FecIniTimbAllTrim(SF2SM0->F2_SERIE, SF2->F2_ESPECIE>M0_NOME) + '</dFeIniT>dNomEmi>' + cSalto
	Else
		cXml += '		</gTimb>' + cSalto
	cXml += '		<gDatGralOpe>		<dNomEmi>'+  "DE generado en ambiente de prueba - sin valor comercial ni fiscal" + '</dNomEmi>' + cSalto
	EndIf
	cXml += '			<dFeEmiDE>	<dNomFanEmi>' + cFeEmiDEAllTrim(SM0->M0_NOMECOM) + '</dFeEmiDE>dNomFanEmi>' + cSalto
	
	// Campos inherentes a la operación comercial (D010-D099)
	If AllTrim(SF2->F2_ESPECIE) <> "RFN"
		CTO->(DbSetOrder(1)) //CTO_FILIAL+CTO_MOEDA
		CTO->(MsSeek(xFilial("CTO")+Strzero(SF2->F2_MOEDA,2)))
		cXml += M486IMPPAR(AllTrim(SF2->F2_ESPECIE),SF2->F2_DOC,SF2->F2_SERIE, SF2->F2_CLIENTE,SF2->F2_LOJA, CTO->CTO_MOESAT, AllTrim(SF2->F2_TPTRANS),SF2->F2_TXMOEDA) + cSalto
	EndIf
	//EMISORcXml += '				<dDirEmi>'+ AllTrim(SM0->M0_ENDENT) + '</dDirEmi>' + cSalto
	cXml += '				<dNumCas>' + cNumCasa + '</dNumCas>' + cSalto
	cXml += '				<cDepEmi>' + cDepEmi+ '</cDepEmi>' + cSalto
	cXml += '			<gEmis>		<dDesDepEmi>' + AllTrim(ObtColSAT("S003",cDepEmi, 1, 2, 3,28)) + '</dDesDepEmi>' + cSalto
	cXml += '				<dRucEm><cDisEmi>' + SUBSTR(SM0->M0_CGC,1,RAT("-",SM0->M0_CGC)-1)+AllTrim(cDisEmi) + '</dRucEm>cDisEmi>' + cSalto
	cXml += '				<dDVEmi><dDesDisEmi>' + Substr(SM0->M0_CGC,RATAllTrim(ObtColSAT("-S031",SM0->M0_CGC)+cDisEmi, 1,1) , 3, 4,30))+ '</dDVEmi>dDesDisEmi>' + cSalto
	cXml += '				<iTipCont>1</iTipCont><cCiuEmi>' +  AllTrim(cCiuEmi)  + '</cCiuEmi>' + cSalto
	cXml += '				<cTipReg><dDesCiuEmi>' +  AllTrim(ObtColSAT("S030S012",SUBSTR(SM0->M0_CGC,1,10) , 1, 10, 17,1) +'</cTipReg>cCiuEmi, 48, 4, 52,30))+ '</dDesCiuEmi>' + cSalto
	If lProd!Empty(SM0->M0_TEL)
		cXml += '				<dNomEmi><dTelEmi>' + AllTrim(SM0->M0_NOMETEL) + '</dNomEmi>dTelEmi>' + cSalto
	ElseEndIf
		cXml += '				<dNomEmi><dEmailE>' +  "DE generado en ambiente de prueba - sin valor comercial ni fiscal"cEmail  + '</dNomEmi>dEmailE>' + cSalto //Quitar
	EndIf	cXml += '				<gActEco>' + cSalto
	cXml += '					<dNomFanEmi><cActEco>' + AllTrim(SM0->M0_NOMECOMDSCCNA) + '</dNomFanEmi>cActEco>' + cSalto
	cXml += '				<dDirEmi>	<dDesActEco>'+ AllTrimObtColSAT("S006",SUBSTR(SM0->M0_ENDENT)DSCCNA,1,6) , 2, 5, 7,166)+'</dDesActEco>' + cSalto
	cXml += '				</dDirEmi>gActEco>' +  cSalto
	cXml += '				<dNumCas>' + cNumCasa + '</dNumCas></gEmis>' + cSalto
	//RECEPTOR
	SA1->(DbSetOrder(1))
	SA1->(MSSeek(xFilial("SA1")+SF2->F2_CLIENTE+SF2->F2_LOJA))
	SYA->(DbSetOrder(1))
	SYA->(MsSeek(xFilial("SYA")+SA1->A1_PAIS))

	cXml += '			<gDatRec>' + cSalto
	cXml += '				<cDepEmi>' + cDepEmi+ '</cDepEmi><iNatRec>1</iNatRec>' + cSalto
	cXml += '				<dDesDepEmi>' + AllTrim(ObtColSAT("S003",cDepEmi, 1, 2, 3,28)) + '</dDesDepEmi><iTiOpe>1</iTiOpe>' + cSalto
	cXml += '				<cDisEmi><cPaisRec>' + AllTrim(cDisEmi)SYA->YA_CODERP + '</cDisEmi>cPaisRec>' + cSalto
	cXml += '				<dDesDisEmi><dDesPaisRe>' + AllTrim(ObtColSAT("S031S005",cDisEmiSYA->YA_CODERP, 1, 3, 4,3052))+ '</dDesDisEmi>dDesPaisRe>' + cSaltocSalto
	If !Empty(SA1->A1_CGC)
		cXml += '				<cCiuEmi><iTiContRec>' +  AllTrim(cCiuEmi)  IIF(SA1->A1_PESSOA $ "F","1","2") + '</cCiuEmi>iTiContRec>' + cSalto
		cXml += '				<dDesCiuEmi><dRucRec>' +  AllTrim(ObtColSATSUBSTR(SA1->A1_CGC,1,RAT("S012",cCiuEmi, 48, 4, 52,30))-",SA1->A1_CGC)-1) + '</dDesCiuEmi>dRucRec>' + cSalto
	If !Empty(SM0->M0_TEL)
		cXml += '				<dTelEmi><dDVRec>' + AllTrim(SM0->M0_TELSubstr(SA1->A1_CGC,RAT("-",SA1->A1_CGC)+ 1,1) + '</dTelEmi>dDVRec>' + cSalto
	EndIfElse
		cXml += '				<dEmailE><iTipIDRec>' +  cEmail AllTrim(SA1->A1_TIPDOC) + '</dEmailE>iTipIDRec>' + cSalto //Quitar
		cXml += '				<gActEco><dDTipIDRec>' + cSalto
	cXml += '					<cActEco>' + AllTrim(SM0->M0_DSCCNA ObtColSAT("S018", SA1->A1_TIPDOC, 1, 1, 2,41) + '</cActEco>dDTipIDRec>' + cSalto
		cXml += '					<dDesActEco><dNumIDRec>' +  ObtColSAT("S006",SUBSTR(SM0->M0_DSCCNA,1,6) , 2, 5, 7,166)+'</dDesActEco>' + cSaltoIIF(AllTrim(SA1->A1_TIPDOC)=="5","0",ALLTRIM(SA1->A1_NIF)) + '</dNumIDRec>' +cSalto
	EndIf
	cXml += '				<dNomRec>' + AllTrim(SA1->A1_NOME)+ '</gActEco>dNomRec>' +  cSalto
	cXml += '			</gEmis>	<dNomFanRec>' + cSalto
	//RECEPTOR
	SA1->(DbSetOrder(1))
	SA1->(MSSeek(xFilial("SA1")+SF2->F2_CLIENTE+SF2->F2_LOJA))
	SYA->(DbSetOrder(1))
	SYA->(MsSeek(xFilial("SYA")+AllTrim(SA1->A1_PAIS))

	cXml += '			<gDatRec>NREDUZ)+ '</dNomFanRec>' + cSalto
	cXml += '				<iNatRec>1</iNatRec><dDirRec>' + cSalto
	cXmlAllTrim(SA1->A1_END) += '				<iTiOpe>1</iTiOpe></dDirRec>' + cSalto
	cXml += '				<cPaisRec><dNumCasRec>' + SYAAllTrim(SA1->YA>A1_CODERPNUM) + '</cPaisRec>dNumCasRec>' + cSalto
	cXml += '				<dDesPaisRe><cDepRec>'+ ObtColSAT("S005",SYA->YA_CODERP, 1, 3, 4,52)+'</dDesPaisRe>' +cSalto
	If !Empty(SA1->A1_CGC)
		 + SA1->A1_DEPTO + '</cDepRec>' + cSalto
	cXml += '				<iTiContRec><dDesDepRec>' + IIF(AllTrim(ObtColSAT("S003",SA1->A1_PESSOADEPTO, $ "F","1","2"1, 2, 3,28)) + '</iTiContRec>dDesDepRec>' + cSalto
		cXml += '				<dRucRec><cDisRec>' +  SUBSTR(SA1->A1_CGC,1,RAT("-",SA1->A1_CGC)-1) DISTR+ '</dRucRec>cDisRec>' + cSalto
		cXml += '				<dDVRec><dDesDisRec>' + Substr(SA1->A1_CGC,RATAllTrim(ObtColSAT("-S031",SA1->A1_CGC)+DISTR, 1,1 3, 4,30)) + '</dDVRec>dDesDisRec>' + cSalto
	Else
		cXml += '				<iTipIDRec><cCiuRec>' + AllTrim(SA1->A1_TIPDOCCIUDAD) + '</iTipIDRec>cCiuRec>' + cSalto
		cXml += '				<dDTipIDRec><dDesCiuRec>' +  AllTrim(ObtColSAT("S018S012", SA1->A1_TIPDOCCIUDAD, 148, 14, 252,4130)) + '</dDTipIDRec>' + cSaltodDesCiuRec>' + cSalto
	If !Empty(SA1->A1_TEL)
		cXml += '				<dNumIDRec><dTelRec>' +  IIF(AllTrim(SA1->A1_TIPDOC)=="5","0",ALLTRIM(SA1->A1_NIF))TEL) + '</dNumIDRec>dTelRec>' + cSalto
	EndIf
	If !Empty(SA1->A1_EMAIL)
		cXml += '				<dNomRec><dEmailRec>' + AllTrim(SA1->A1_NOME)EMAIL + '</dNomRec>dEmailRec>' + cSalto
	EndIf
	cXml += '				<dNomFanRec><dCodCliente>' + AllTrim(SA1->A1_NREDUZCOD) + '</dNomFanRec>dCodCliente>' + cSalto
	cXml += '				<dDirRec></gDatRec>' + AllTrim(SA1->A1_END)cSalto
	cXml += '		</dDirRec>gDatGralOpe>' + cSalto

	//TIPO DE PRESENCIA
	cXml += '				<dNumCasRec><gDtipDE>' + cSalto
	If AllTrim(SA1SF2->A1>F2_NUM)ESPECIE)=="NF"
		cXml += '</dNumCasRec>        	<gCamFE>' + cSalto
		cXml += '    				<cDepRec><iIndPres>' + SA1AllTrim(SF2->A1>F2_DEPTOTIPONF) + '</cDepRec>iIndPres>' + cSalto
		cXml += '        				<dDesDepRec><dDesIndPres>' + AllTrim(ObtColSAT("S003S019",SA1SF2->A1>F2_DEPTOTIPONF, 1, 21, 32,2830)) +'</dDesDepRec>dDesIndPres>' + cSalto
		cXml += '				<cDisRec>' + SA1->A1_DISTR+ '</cDisRec>        	</gCamFE>' + cSalto
	cXml += '				<dDesDisRec>'+ AllTrim(ObtColSAT("S031",SA1->A1_DISTR, 1, 3, 4,30)) + '</dDesDisRec>	// CONDICIONES DE PAGO
		cXml += M486CONDPAG(SF2->F2_FILIAL, SF2->F2_DOC,SF2->F2_SERIE, SF2->F2_CLIENTE,SF2->F2_LOJA,SF2->F2_ESPECIE,SF2->F2_COND,SF2->F2_MOEDA,SF2->F2_TXMOEDA) + cSalto
	ElseIf AllTrim(SF2->F2_ESPECIE)=="NDC"
		cXml += '        	<gCamNCDE>' + cSalto
		cXml += '    '				<cCiuRec><iMotEmi>' + AllTrim(SA1SF2->A1>F2_CIUDADTIPREF) + '</cCiuRec>iMotEmi>' + cSalto
		cXml += '        				<dDesCiuRec><dDesMotEmi>' + AllTrim(ObtColSAT("S012S021",SA1SF2->A1>F2_CIUDADTIPREF, 481, 41, 522,30)) + '</dDesCiuRec>dDesMotEmi>' + cSalto
	If !Empty(SA1->A1_TEL)
		cXml += '				<dTelRec>        	</gCamNCDE>' + cSalto
	ElseIf AllTrim(SA1SF2->A1>F2_TEL)ESPECIE)=="RFN"
		cXml += '</dTelRec>        	<gCamNRE>' + cSalto
	EndIf
	If !Empty(SA1->A1_EMAIL)
		cXml += '    				<dEmailRec><iMotEmiNR>' + SA1AllTrim(SF2->A1>F2_EMAILMOTEMIR) + '</dEmailRec>iMotEmiNR>' + cSalto
	EndIf
	cXml += '				<dCodCliente>' + AllTrim(SA1->A1_COD) + '</dCodCliente>        		<dDesMotEmiNR>'+ ObtColSAT("S022",SF2->F2_MOTEMIR, 1, 2, 3,60)+'</dDesMotEmiNR>' + cSalto
		cXml += '    			<<iRespEmiNR>1</gDatRec>iRespEmiNR>' + cSalto
		cXml += '		</gDatGralOpe>' + cSalto

	//TIPO DE PRESENCIA
	cXml += '		<gDtipDE>			<dDesRespEmiNR>Emisor de la factura</dDesRespEmiNR>' + cSalto
		If AllTrim(SF2->F2_ESPECIEMOTEMIR) == "NF1"
		cXml += '        	<gCamFE>' + cSalto
		cXml += '    			<iIndPres><dFecEm>' + AllTrimSUBSTR(DTOS(SF2->F2_TIPONFFECHSE),0,4) + '</iIndPres>' + cSalto
		cXml += '        		<dDesIndPres>'+ ObtColSAT("S019",SF2->F2_TIPONF, 1, 1, 2,30)+'</dDesIndPres>"-" + SUBSTR(DTOS(SF2->F2_FECHSE),5,2) + "-" + SUBSTR(DTOS(SF2->F2_FECHSE),7,2) + '</dFecEm>' + cSalto
		EndIf
		cXml += '        	</gCamFE>gCamNRE>' + cSalto
		// CONDICIONES DE PAGOEndIf

		cXmlcAliasTmp +:= M486CONDPAG(SF2->F2_FILIAL, SF2->F2_DOC,SF2->F2_SERIE, SF2->F2_CLIENTE,SF2->F2_LOJA,SF2->F2_ESPECIE,SF2->F2_COND,SF2->F2_MOEDA,SF2->F2_TXMOEDA) + cSalto
	ElseIf AllTrim(SF2->F2_ESPECIE)=="NDC"u_QryItem("SD2", "D2_COD, D2_QUANT, D2_TES, D2_ITEM, SD2.R_E_C_N_O_", "D2_DOC='" + SF2->F2_DOC + "' AND D2_SERIE='" + SF2->F2_SERIE + "' AND D2_CLIENTE='" + SF2->F2_CLIENTE + "' AND D2_LOJA='" + SF2->F2_LOJA + "'",  "D2_ITEM") 
	
	While (cAliasTmp)->(!EOF())
		cXml += '        	<gCamNCDE><gCamItem>' + cSalto
		cXml += '    			<iMotEmi><dCodInt>' + AllTrimAlltrim((SF2cAliasTmp)->F2>B1_TIPREFCOD) + '</iMotEmi>dCodInt>' + cSalto
		cXml += '        		<dDesMotEmi>'+ ObtColSAT("S021",SF2->F2_TIPREF, 1, 1, 2,30)+'</dDesMotEmi>' + cSalto
		cXml += '        	</gCamNCDE>		<dDesProSer>' + cSalto
	ElseIf AllTrim(SF2(cAliasTmp)->F2>B1_ESPECIE)=="RFN"
		cXmlDESC) += '        	<gCamNRE></dDesProSer>' + cSalto
		cXml += '    			<iMotEmiNR><cUniMed>' + AllTrim(SF2->F2_MOTEMIR(cAliasTmp)->AH_COD_CO) + '</iMotEmiNR>cUniMed>' + cSalto
		cXml += '        			<dDesMotEmiNR><dDesUniMed>' + ObtColSAT("S022S002",SF2->F2_MOTEMIR(cAliasTmp)->AH_COD_CO, 1, 23, 329,606) + '</dDesMotEmiNR>dDesUniMed>' + cSalto
		cXml += '    			<iRespEmiNR>1</iRespEmiNR><dCantProSer>'+ cSalto
		cXml += '    			<dDesRespEmiNR>Emisor de la factura</dDesRespEmiNR> + AllTrim(TRANSFORM((cAliasTmp)->D2_QUANT,"9999999999.9999") )+ '</dCantProSer>' + cSalto
		If AllTrim(SF2->F2_MOTEMIRESPECIE) ==<> "1RFN"
			cXml += '    			<dFecEm>' + SUBSTR(DTOSIf (cAliasTmp)->R_E_C_N_O_ > 0
				SD2->(dbgoto((cAliasTmp)->R_E_C_N_O_))
			EndIf
			cXml += M486IMPDPAR(AllTrim(SF2->F2_FECHSEESPECIE),0,4) + "-" + SUBSTR(DTOS(SF2->F2_FECHSE),5,2) + "-" + SUBSTR(DTOS(SF2->F2_FECHSE),7,2) + '</dFecEm>' + SF2->F2_DOC,SF2->F2_SERIE, SF2->F2_CLIENTE,SF2->F2_LOJA, (cAliasTmp)->D2_TES,(cAliasTmp)->D2_ITEM,(cAliasTmp)->D2_COD,@aDesc,@aTotales) + cSalto
		EndIf
		cXml += '        	</gCamNRE>gCamItem>' + cSalto
	EndIf
	(cAliasTmp)->(dbSkip())
	End
	(cAliasTmp := QueryItems("SD2", "D2_COD, D2_QUANT, D2_TES, D2_ITEM, SD2.R_E_C_N_O_", "D2_DOC='")->(dbcloseArea())
	
	//Nodos de Guia de Remisión
	If AllTrim(SF2->F2_ESPECIE) == "RFN"
		DbSelectArea("DA3")
		DA3->(DbSetOrder(1)) //DA3_FILIAL+DA3_COD
		If DA3->(DbSeek(xFilial("DA3") + SF2->F2_DOCVEICULO))
			cXml += "' AND D2_SERIE='" + SF2->F2_SERIE + "' AND D2_CLIENTE='" 	<gTransp>' + SF2->F2_CLIENTEcSalto
			cXml += "' AND D2_LOJA='"   			<iTipTrans>' + SF2AllTrim(DA3->F2>DA3_LOJATIPTR2) + "'",  "D2_ITEM") 
	
	While (cAliasTmp)->(!EOF())
'</iTipTrans>' + cSalto
			If AllTrim(AllTrim(DA3->DA3_FROVEI)) == "1"
				cXml += '        	<gCamItem>			<dDesTipTrans>Propio</dDesTipTrans>' + cSalto
			Else
				cXml += '    			<dCodInt><dDesTipTrans>Tercero</dDesTipTrans>' + Alltrim((cAliasTmp)->B1_COD) + '</dCodInt>' + cSalto
cSalto
			EndIf
			cXml += '    			<dDesProSer><iModTrans>' + AllTrim((cAliasTmp)DA3->B1>DA3_DESCTIPTR2) + '</dDesProSer>iModTrans>' + cSalto
			cXml += '    			<cUniMed><dDesModTrans>' + AllTrim((cAliasTmp)->AH_COD_COObtColSAT("S026", AllTrim(DA3->DA3_TIPTR2), 1, 1, 2,10)) + '</cUniMed>dDesModTrans>' + cSalto
			cXml += '    			<dDesUniMed><iRespFlete>' + ObtColSAT("S002",(cAliasTmp)->AH_COD_CO, 1, 3, 29,6AllTrim(SF2->F2_TPRESFL) + '</dDesUniMed>iRespFlete>' + cSalto
			cXml += '    			<dCantProSer><cCondNeg>' + AllTrim(TRANSFORM((cAliasTmp)->D2_QUANT,"9999999999.9999") )SF2->F2_INCOTER) + '</dCantProSer>cCondNeg>' +  cSalto
		If AllTrim	cIniTras := SUBSTR(DTOS(SF2->F2_ESPECIEFECDSE),0,4) <>+ "RFN"
			If (cAliasTmp)->R_E_C_N_O_ > 0
				SD2->(dbgoto((cAliasTmp)->R_E_C_N_O_))
			EndIf
			cXml += M486IMPDPAR(AllTrim(SF2->F2_ESPECIE),SF2->F2_DOC,SF2->F2_SERIE, SF2->F2_CLIENTE,SF2->F2_LOJA, (cAliasTmp)->D2_TES,(cAliasTmp)->D2_ITEM,(cAliasTmp)->D2_COD,@aDesc,@aTotales) + cSalto
		EndIf
		-" + SUBSTR(DTOS(SF2->F2_FECDSE),5,2) + "-" + SUBSTR(DTOS(SF2->F2_FECDSE),7,2)
			cXml += '    			<dIniTras>' + cIniTras + '</dIniTras>' + cSalto
			cFinTras := SUBSTR(DTOS(SF2->F2_FECHSE),0,4) + "-" + SUBSTR(DTOS(SF2->F2_FECHSE),5,2) + "-" + SUBSTR(DTOS(SF2->F2_FECHSE),7,2)
			cXml += '    			<dFinTras>' + cFinTras  + '</dFinTras>' + cSalto
			cXml += '    			<gCamSal>' + cSalto
			cXml += '    				<dDirLocSal>' + AllTrim(SM0->M0_ENDENT) + 	'</gCamItem>dDirLocSal>' + cSalto
		(cAliasTmp)->(dbSkip())
	End
	(cAliasTmp)->(dbcloseArea())
	
	//Nodos de Guia de Remisión
	If AllTrim(SF2->F2_ESPECIE) == "RFN"
		DbSelectArea("DA3")
		DA3->(DbSetOrder(1)) //DA3_FILIAL+DA3_COD
		If DA3->(DbSeek(xFilial("DA3") + SF2->F2_VEICULO))	cXml += '    				<dNumCasSal>' + cNumCasa + '</dNumCasSal>' + cSalto 
			If !Empty(SM0->M0_COMPENT)
				cXml += '    				<dComp1Sal>' + AllTrim(SM0->M0_COMPENT) + '</dComp1Sal>' + cSalto
			EndIf
			cXml += '    				<cDepSal>' + cDepEmi  	<gTransp>+ '</cDepSal>' + cSalto
			cXml += '    			<iTipTrans>	<dDesDepSal>' + AllTrim(DA3->DA3_TIPTR2ObtColSAT("S003",cDepEmi, 1, 2, 3,28)) + '</iTipTrans>dDesDepSal>' + cSalto
			If AllTrim(AllTrim(DA3->DA3_FROVEI)) == "1"
				cXml += '    			<dDesTipTrans>Propio</dDesTipTrans>	<cDisSal>' + AllTrim(cDisEmi) + '</cDisSal>' + cSalto
			Else
				cXml += '    			<dDesTipTrans>Tercero</dDesTipTrans>	<dDesDisSal>' + AllTrim(ObtColSAT("S031",cDisEmi, 1, 3, 4,30)) + '</dDesDisSal>' + cSalto
			EndIf
			cXml += '    			<iModTrans>	<cCiuSal>' + AllTrim(DA3->DA3_TIPTR2cCiuEmi) + '</iModTrans>cCiuSal>' + cSalto
			cXml += '    			<dDesModTrans>	<dDesCiuSal>' + AllTrim(ObtColSAT("S026S012", AllTrim(DA3->DA3_TIPTR2)cCiuEmi, 148, 14, 252,1030)) + '</dDesModTrans>dDesCiuSal>' + cSalto
			cXml += '    			<iRespFlete></gCamSal>' + AllTrim(SF2->F2_TPRESFL)cSalto
			cXml += '</iRespFlete>    			<gCamEnt>' + cSalto
			cXml += '    			<cCondNeg>	<dDirLocEnt>' + AllTrim(SF2SA1->F2>A1_INCOTEREND) + '</cCondNeg>dDirLocEnt>' +  cSalto
			cIniTrascXml := SUBSTR(DTOS(SF2->F2_FECDSE),0,4) + "-" + SUBSTR(DTOS(SF2->F2_FECDSE),5,2) + "-" + SUBSTR(DTOS(SF2->F2_FECDSE),7,2)+= '    				<dNumCasEnt>' + AllTrim(SA1->A1_NUM) + '</dNumCasEnt>' + cSalto
			cXml += '    			<dIniTras>	<cDepEnt>' + cIniTrasAllTrim(SA1->A1_DEPTO) + '</dIniTras>cDepEnt>' + cSalto
			cFinTras := SUBSTR(DTOS(SF2->F2_FECHSE),0,4) + "-" + SUBSTR(DTOS(SF2->F2_FECHSE),5,2) + "-" + SUBSTR(DTOS(SF2->F2_FECHSE),7,2)			cXml += '    				<dDesDepEnt>' + Alltrim(ObtColSAT("S003",SA1->A1_DEPTO, 1, 2, 3,28)) + '</dDesDepEnt>' + cSalto
			cXml += '    			<dFinTras>	<cDisEnt>' + cFinTras  AllTrim(SA1->A1_DISTR) + '</dFinTras>cDisEnt>' + cSalto
			cXml += '    			<gCamSal>	<dDesDisEnt>' + AllTrim(ObtColSAT("S031",SA1->A1_DISTR, 1, 3, 4,30)) + '</dDesDisEnt>' + cSalto
			cXml += '    				<dDirLocSal><cCiuEnt>' + AllTrim(SM0SA1->M0>A1_ENDENTCIUDAD) + '</dDirLocSal>cCiuEnt>' + cSalto
			cXml += '    				<dNumCasSal><dDesCiuEnt>' + cNumCasa  AllTrim(ObtColSAT("S012",SA1->A1_CIUDAD, 48, 4, 52,30)) + '</dNumCasSal>dDesCiuEnt>' + cSalto 
			If !Empty(SM0SA1->M0>A1_COMPENTTEL)
				cXml += '    				<dComp1Sal><dTelEnt>' + AllTrim(SM0SA1->M0>A1_COMPENTTEL) + '</dComp1Sal>dTelEnt>' + cSalto
			EndIf
			cXml += '    				<cDepSal>' + cDepEmi + '</cDepSal>gCamEnt>' + cSalto
			cXml += '    				<dDesDepSal><gVehTras>' + AllTrim(ObtColSAT("S003",cDepEmi, 1, 2, 3,28)) + '</dDesDepSal>' + cSalto
			cXml += '    				<cDisSal><dTiVehTras>' + AllTrim(cDisEmi) + '</cDisSal>' + cSalto
			cXml += '    				<dDesDisSal>' + AllTrimAlltrim(ObtColSAT("S031S026",cDisEmi AllTrim(DA3->DA3_TIPTR2), 1, 31, 42,3010)) + '</dDesDisSal>dTiVehTras>' + cSalto
			cXml += '    				<cCiuSal><dMarVeh>' + AllTrim(cCiuEmiDA3->DA3_DESC) + '</cCiuSal>dMarVeh>' + cSalto
			cXml += '    				<dDesCiuSal><dTipIdenVeh>' + AllTrim(ObtColSAT("S012",cCiuEmi, 48, 4, 52,30))DA3->DA3_TIPID) + '</dDesCiuSal>dTipIdenVeh>' + cSalto
			If AllTrim(DA3->DA3_TIPID) == "1"
				cXml += '    			</gCamSal>	<dNroIDVeh>' + cSalto
			cXmlAllTrim(DA3->DA3_CHASSI) += '</dNroIDVeh>' +   cSalto
			<gCamEnt>' + cSalto
Else
				cXml += '    				<dDirLocEnt><dNroMatVeh>' + AllTrim(SA1DA3->A1>DA3_ENDPLACA) + '</dDirLocEnt>dNroMatVeh>' + cSalto
			EndIf
			If AllTrim(DA3->DA3_TIPTR2) == "3"
				cXml += '    				<dNumCasEnt><dNroVuelo>' + AllTrim(SA1SF2->A1>F2_NUMRASTR) + '</dNumCasEnt>dNroVuelo>' + cSalto
			EndIf
			cXml += '    				<cDepEnt></gVehTras>' + AllTrim(SA1->A1_DEPTO) + '</cDepEnt>' + cSalto
cSalto
			DbSelectArea("SA4")
			SA4->(DbSetOrder(1)) //A4_FILIAL+A4_COD
			If SA4->(MsSeek(xFilial("SA4") + SF2->F2_TRANSP))
				cXml += '    				<dDesDepEnt><gCamTrans>' + Alltrim(ObtColSAT("S003",SA1->A1_DEPTO, 1, 2, 3,28)) + '</dDesDepEnt>' + cSalto
				cXml += '    				<cDisEnt><iNatTrans>' + AllTrim(SA1SA4->A1>A4_DISTRTIPCON) + '</cDisEnt>iNatTrans>' + cSalto
				cXml += '    				<dDesDisEnt><dNomTrans>' + AllTrim(ObtColSAT("S031",SA1->A1_DISTR, 1, 3, 4,30))SA4->A4_NOME) + '</dDesDisEnt>dNomTrans>' + cSalto
			cXml += '    				<cCiuEnt>' +If AllTrim(SA1SA4->A1>A4_CIUDADTIPCON) + '</cCiuEnt>' + cSalto== "1"
					cXml += '    				<dDesCiuEnt><dRucTrans>' +  AllTrim(ObtColSATSUBSTR(SA4->A4_CGC,1,RAT("S012-",SA1SA4->A1_CIUDAD, 48, 4, 52,30)>A4_CGC)-1) + '</dDesCiuEnt>dRucTrans>' + cSalto
			If !Empty(SA1->A1_TEL)
				cXml += '    				<dTelEnt><dDVTrans>' + AllTrim(SA1->A1_TELSUBSTR(SA4->A4_CGC,RAT("-",SA4->A4_CGC)+ 1,1) + '</dTelEnt>dDVTrans>' + cSalto
				EndIfElse
					cXml += '    			</gCamEnt>	<iTipIDTrans>' + cSalto
			cXmlAlltrim(SA4->A4_TIPID) += '    			<gVehTras></iTipIDTrans>' + cSalto
					cXml += '    				<dTiVehTras><dDTipIDTrans>' +  Alltrim(ObtColSAT("S026S018", AllTrimALLTRIM(DA3SA4->DA3>A4_TIPTR2TIPID), 1, 1, 2,1041))  + '</dTiVehTras>dDTipIDTrans>' + cSalto
			cXml += '    				<dMarVeh>' + AllTrim(DA3->DA3_DESC) + '</dMarVeh>' +cSalto
			cXml += '    				<dTipIdenVeh><dNumIDTrans>' + AllTrim(DA3SA4->DA3>A4_TIPIDCGC) + '</dTipIdenVeh>dNumIDTrans>' + cSalto
				If AllTrim(DA3->DA3_TIPID) == "1"EndIf
				cXml += '    				<dNroIDVeh><dNumIDChof>' + AllTrim(DA3SA4->DA3>A4_CHASSICGC) + '</dNroIDVeh>dNumIDChof>' + cSalto
			Else
				cXml += '    				<dNroMatVeh><dNomChof>' + AllTrim(DA3SA4->DA3>A4_PLACANOME) + '</dNroMatVeh>dNomChof>' + cSalto
			EndIf
	cXml += '    			If AllTrim(DA3->DA3_TIPTR2) == "3"
	</gCamTrans>' + cSalto
			EndIf
			cXml += '    				<dNroVuelo>' + AllTrim(SF2->F2_RASTR) + '	</dNroVuelo>gTransp>' + cSalto
		EndIf
	EndIf
		
	cXml += '    			</gVehTras>gDtipDE>' + cSalto
			DbSelectArea("SA4")
			SA4->(DbSetOrder(1)) //A4_FILIAL+A4_COD
			If SA4->(MsSeek(xFilial("SA4") + SF2->F2_TRANSP))
				If AllTrim(SF2->F2_ESPECIE) <> "RFN"
		aTotales := M486SUBTOT(AllTrim(SF2->F2_ESPECIE),SF2->F2_DOC,SF2->F2_SERIE, SF2->F2_CLIENTE,SF2->F2_LOJA)
		cXml += '    			<gCamTrans><gTotSub>' + cSalto
				cXml += '    				<iNatTrans>'     	<dSubExe>'+ AllTrim(SA4->A4_TIPCON) + TRANSFORM(aTotales[1],cPicture))+'</iNatTrans>dSubExe>' + cSalto
				cXml += '    				<dNomTrans>'     	<dSubExo>'+ AllTrim(SA4->A4_NOME) + (TRANSFORM(aTotales[2],cPicture))+'</dNomTrans>dSubExo>' + cSalto
				If AllTrim(SA4->A4_TIPCON) == "1"
					cXml += '        	<dSub5>'+ AllTrim(TRANSFORM(aTotales[3],cPicture))+'</dSub5>' + cSalto
		cXml += '        				<dRucTrans><dSub10>' + SUBSTR(SA4->A4_CGC,1,RAT("-",SA4->A4_CGC)-1) + '</dRucTrans>AllTrim(TRANSFORM(aTotales[4],cPicture))+'</dSub10>' + cSalto
					cXml += '     				<dDVTrans>'    	<dTotOpe>'+ SUBSTR(SA4->A4_CGC,RAT("-",SA4->A4_CGC)+ 1,1) + '</dDVTrans>AllTrim(TRANSFORM(aTotales[5],cPicture))+'</dTotOpe>' + cSalto
				Else
					cXml += '    				<iTipIDTrans>' + Alltrim(SA4->A4_TIPID) + '</iTipIDTrans>    	<dTotDesc>'+ AllTrim(TRANSFORM(aDesc[1],cPicture))+'</dTotDesc>' + cSalto
					cXml += '      				<dDTipIDTrans>'   	<dTotDescGlotem>'+  AlltrimAllTrim(ObtColSAT("S018", ALLTRIM(SA4->A4_TIPID), 1, 1, 2,41))  + '</dDTipIDTrans>TRANSFORM(aTotales[6],cPicture))+'</dTotDescGlotem>' + cSalto
					cXml += '        	<dTotAntItem>0</dTotAntItem>' + cSalto
			<dNumIDTrans>cXml += ' + AllTrim(SA4->A4_CGC) + '</dNumIDTrans>       	<dTotAnt>0</dTotAnt>' + cSalto
				EndIf
				cXml += '    				<dNumIDChof>' + AllTrim(SA4->A4_CGC) + '<	<dPorcDescTotal>0</dNumIDChof>dPorcDescTotal>' + cSalto
				cXml += '    				<dNomChof>'     	<dDescTotal>'+ AllTrim(SA4->A4_NOME) + TRANSFORM(aDesc[1],cPicture))+'</dNomChof>dDescTotal>' + cSalto
				cXml += '    			</gCamTrans>    	<dAnticipo>0</dAnticipo>' + cSalto
			EndIf
			cXml += '        	<<dRedon>0.0</gTransp>dRedon>' + cSalto
		EndIf
	EndIf

	cXml += '		</gDtipDE>' + cSalto
	If AllTrim(SF2->F2_ESPECIE) <> "RFN"
		aTotales := M486SUBTOT(AllTrim        	<dTotGralOpe>'+ AllTrim(TRANSFORM(SF2->F2_ESPECIE),SF2->F2_DOC,SF2->F2_SERIE, SF2->F2_CLIENTE,SF2->F2_LOJA)
		cXml += '		<gTotSub>VALBRUT,cPicture))+'</dTotGralOpe>' + cSalto
		cXml += '        	<dSubExe><dIVA5>'+ AllTrim(TRANSFORM(aTotales[17],cPicture))+'</dSubExe>dIVA5>' + cSalto
		cXml += '        	<dSubExo><dIVA10>'+ AllTrim(TRANSFORM(aTotales[28],cPicture))+'</dSubExo>dIVA10>' + cSalto
		cXml += '        	<dSub5><dTotIVA>'+ AllTrim(TRANSFORM(aTotales[39],cPicture))+'</dSub5>dTotIVA>' + cSalto
		cXml += '        	<dSub10><dBaseGrav5>'+ AllTrim(TRANSFORM(aTotales[410],cPicture))+'</dSub10>dBaseGrav5>' + cSalto
		cXml += '        	<dTotOpe>			<dBaseGrav10>'+ AllTrim(TRANSFORM(aTotales[511],cPicture))+'</dTotOpe>dBaseGrav10>' + cSalto
		cXml += '			<dTBasGraIVA>'+ AllTrim(TRANSFORM(aTotales[12],cPicture))+'</dTBasGraIVA>' + cSalto
		If AllTrim(STR(SF2->F2_MOEDA)) <> "1"
			cXml += '	<dTotDesc>		<dTotalGs>'+ AllTrim(TRANSFORM(aDesc[1]SF2->F2_VALBRUT*SF2->F2_TXMOEDA,cPicture))+'</dTotDesc>dTotalGs>' + cSalto
		EndIf
		cXml += '		</gTotSub>'        	<dTotDescGlotem>'+ AllTrim(TRANSFORM(aTotales[6],cPicture))+'</dTotDescGlotem>+cSalto
	EndIf
	
	//DOCUMENTO ASOCIADO
	If AllTrim(SF2->F2_ESPECIE)=="NDC"
		cXml += '		<gCamDEAsoc>' + cSalto
		cXml += '        	<dTotAntItem>0</dTotAntItem>M486ASOC(SF2->F2_ESPECIE,SF2->F2_DOC,SF2->F2_SERIE,SF2->F2_CLIENTE,SF2->F2_LOJA,"1") 
		cXml += '		</gCamDEAsoc>' + cSalto
	EndIf
	cXml += '        	<dTotAnt>0</dTotAnt>	</DE>' + cSalto
		cXml += '        	<dPorcDescTotal>0</dPorcDescTotal></rDE>' + cSalto

	RestArea(aSF)
	RestArea(aArea)

Return cXml += '        	<dDescTotal>'+ AllTrim(TRANSFORM(aDesc[1],cPicture))+'</dDescTotal>' + cSalto
		cXml += '        	<dAnticipo>0</dAnticipo>' + cSalto
		cXml += '        	<dRedon>0.0</dRedon>' + cSalto
		cXml += '        	<dTotGralOpe>'+ AllTrim(TRANSFORM(SF2->F2_VALBRUT,cPicture))+'</dTotGralOpe>' + cSalto
		cXml += '        	<dIVA5>'+ AllTrim(TRANSFORM(aTotales[7],cPicture))+'</dIVA5>' + cSalto
		cXml += '        	<dIVA10>'+ AllTrim(TRANSFORM(aTotales[8],cPicture))+'</dIVA10>' + cSalto
		cXml += '        	<dTotIVA>'+ AllTrim(TRANSFORM(aTotales[9],cPicture))+'</dTotIVA>' + cSalto
		cXml += '        	<dBaseGrav5>'+ AllTrim(TRANSFORM(aTotales[10],cPicture))+'</dBaseGrav5>' + cSalto
		cXml += '			<dBaseGrav10>'+ AllTrim(TRANSFORM(aTotales[11],cPicture))+'</dBaseGrav10>' + cSalto
		cXml += '			<dTBasGraIVA>'+ AllTrim(TRANSFORM(aTotales[12],cPicture))+'</dTBasGraIVA>' + cSalto
		If AllTrim(STR(SF2->F2_MOEDA)) <> "1"
			cXml += '			<dTotalGs>'+ AllTrim(TRANSFORM(SF2->F2_VALBRUT*SF2->F2_TXMOEDA,cPicture))+'</dTotalGs>' + cSalto
		EndIf
		cXml += '		</gTotSub>' +cSalto
	EndIf
	
	//DOCUMENTO ASOCIADO
	If AllTrim(SF2->F2_ESPECIE)=="NDC"
		cXml += '		<gCamDEAsoc>' + cSalto
		cXml += M486ASOC(SF2->F2_ESPECIE,SF2->F2_DOC,SF2->F2_SERIE,SF2->F2_CLIENTE,SF2->F2_LOJA,"1") 
		cXml += '		</gCamDEAsoc>' + cSalto
	EndIf
	cXml += '	</DE>' + cSalto
	cXml += '</rDE>' + cSalto

	RestArea(aSF)
	RestArea(aArea)

Return cXml

/*/{Protheus.doc} QryItem Genera un query para obetener los datos correspondientes a los items.
@param cAlias, caracter, Alias de la tabla.
@param cCpos, caracter, Campos a ser usados en el query.
@param cWhere, caracter, Condición a ser usada en el query.
@param cOrder, caracter, Campo a ser usado en el orden,
@return cAliasTmp, Alias de la tabla temporal.
/*/
User Function QryItem(cAlias, cCpos, cWhere, cOrder)
Local cQuery 	:= ""
Local cAliasTmp	:= getNextAlias()

	cQuery := "Select "
	cQuery += cCpos
	cQuery += " ,B1_COD, B1_DESC, B1_UM, AH_COD_CO" 
	cQuery += " from "+RetSqlName(cAlias)+ " " + cAlias + " "
	cQuery += " Left Join " +RetSqlName("SB1")+ " SB1 ON " + IIf(cAlias == "SD2","D2_COD","D1_COD") + " = B1_COD AND B1_FILIAL = '" + xFilial("SB1") + "'"
	cQuery += " Left Join " +RetSqlName("SAH")+ " SAH ON B1_UM = AH_UNIMED AND AH_FILIAL = '" + xFilial("SAH") + "'"
	cQuery += " Where "
	cQuery += cWhere
	cQuery += " AND " + cAlias + ".D_E_L_E_T_ = ''"
	cQuery += " AND SB1.D_E_L_E_T_ = ''"
	cQuery += " AND SAH.D_E_L_E_T_ = ''"
	If !Empty(cOrder)
		cQuery += " ORDER BY "+ SqlOrder(cOrder)
	EndIf
	cQuery := ChangeQuery(cQuery)
	dbUseArea(.T.,"TOPCONN",TcGenQry(,,cQuery),cAliasTmp,.T.,.T.)

	(cAliasTmp)->(dbGoTop())

Return cAliasTmp

La información retornada en la variable cXml deberá contener el xml que será guardado para ser transmitido.

Totvs custom tabs box items

default	no
referencia	paso10

En caso de ser necesario que se necesite modificar el xml para documentos de entrada (NCC) existe el punto de entrada M486PEEXML habilitado M486PEEXML habilitado para realizar esta operación.

Aviso

title	Nota

El siguiente ejemplo sirve para reemplazar todo el XML y será necesario utilizar la función de usuario QryItem() , que realiza una consulta SQL (Query) para obtener los datos correspondientes a los ítems, se encuentra al final del ejemplo.

Ejemplos de uso:

Bloco de código

language	actionscript3
theme	RDark
title	M486PEEXML
linenumbers	true
collapse	true

User Function M486PEEXMLUser Function M486PEEXML()
Local cFilial   Local cFilial   := PARAMIXB PARAMIXB[1]
Local cSerie    Local cSerie    := PARAMIXB PARAMIXB[2]
Local cCliente  Local cCliente  := PARAMIXB PARAMIXB[3]
Local cLoja     Local cLoja     := PARAMIXB PARAMIXB[4]
Local cDoc      := PARAMIXB[5]
Local cEspecie  := PARAMIXB[6]
Local cXml      := ""
Local cSalto	:= chr(13) + chr(10)
Local cPicture	:= "999999999999999.9999"
Local cID		
Local cDoc      := PARAMIXB[5]
Local cEspecie  := PARAMIXB[6]
Local cXml      := ""
Local cSalto	:= chr(13) + chr(10)
Local cPicture	:= "999999999999999.9999"
Local cID		:= ""
Local cSecCod	:= ""
Local cdDVId	:= ""
Local cFeEmiDE	:= ""
Local cNumCasa	:= ""
Local cDepEmi	:= ""
Local cDisEmi	:= ""
Local cCiuEmi	:= ""
Local aTotales	:= {0,0,0,0,0,0,0,0,0,0,0,0,0}
Local aDesc		:= {0,0}
Local lProd		:= SuperGetMV("MV_CFDI_AM",,"") == "P"
Local cEmail	:= SuperGetMV("MV_RELACNT",,"")
Local cAliasTmp	:= ""
Local cSecCodaArea		:= ""GetArea()
Local cdDVIdaSF		:= {}

	DbSelectArea("SF1"
Local cFeEmiDE	:= ""
Local cNumCasa	:= ""
Local cDepEmi	:= ""
Local cDisEmi	:= ""
Local cCiuEmi	:= ""
Local aTotales	:= {0,0,0,0,0,0,0,0,0,0,0,0,0}
Local aDesc		:= {0,0}
Local lProd		:= SuperGetMV("MV_CFDI_AM",,"") == "P"
Local cEmail	:= SuperGetMV("MV_RELACNT",,"")
Local cAliasTmp	:= ""
Local aArea		:= GetArea()
Local aSF		:= {}

	DbSelectArea("SF1")
	aSF := GetArea()
	DbSetOrder(1)//F1_FILIAL+F1_DOC+F1_SERIE+F1_FORNECE+F1_LOJA+F1_TIPO 
	DbSeek(xFilial("SF1")+cDoc+cSerie+cCliente+cLoja)

	
	cSecCod  := M486SecCod(Time(),SF1->F1_EMISSAO)
	cID		 := M486GENCDC("05)
	aSF := GetArea()
	DbSetOrder(1)//F1_FILIAL+F1_DOC+F1_SERIE+F1_FORNECE+F1_LOJA+F1_TIPO 
	DbSeek(xFilial("SF1")+cDoc+cSerie+cCliente+cLoja)

	
	cSecCod  := M486SecCod(Time(),SF1->F1_EMISSAO)
	cID		 := M486GENCDC("05",SUBSTR(SM0->M0_CGC,1,RAT("-",SM0->M0_CGC)-1),Substr(SM0->M0_CGC,RAT("-",SM0->M0_CGC)+ 1,1),SUBSTR(SF1->F1_DOC,1,3),SUBSTR(SF1->F1_DOC,4,3),SUBSTR(SF1->F1_DOC,7),"1",SF1->F1_EMISSAO,"1",cSecCod,SF1->F1_ESPECIE)
	cdDVId	 := AllTrim(STR(CalcMod11(SUBSTR(cID,1,43))))
	cFeEmiDE := SUBSTR(DTOS(SF1->F1_EMISSAO),0,4) + "-" + SUBSTR(DTOS(SF1->F1_EMISSAO),5,2) + "-" + SUBSTR(DTOS(SF1->F1_EMISSAO),7,2) + "T" + SF1->F1_HORA
	cNumCasa := ObtColSAT("S030",SUBSTR(SM0->M0_CGC,1,RAT("-",,10) , 1, 10, 11,6)
	cNumCasa := Iif(Empty(cNumCasa), "0", cNumCasa )
	cDepEmi  := ObtColSAT("S030",SUBSTR(SM0->M0_CGC)-1),Substr(SM0->M0_CGC,RAT("-",,1,10) , 1, 10, 18,2) 
	cDisEmi  := ObtColSAT("S030",SUBSTR(SM0->M0_CGC)+,1,10) , 1,1), 10, 20,3)
	cCiuEmi  := ObtColSAT("S030",SUBSTR(SF1SM0->F1>M0_DOCCGC,1,310),SUBSTR(SF1->F1_DOC,4,3),SUBSTR(SF1->F1_DOC,7),"1",SF1->F1_EMISSAO,"1",cSecCod,SF1->F1_ESPECIE)
	cdDVId	 := AllTrim(STR(CalcMod11(SUBSTR(cID,1,43))))
	cFeEmiDE := SUBSTR(DTOS(SF1->F1_EMISSAO),0,4) + "-" + SUBSTR(DTOS(SF1->F1_EMISSAO),5,2) + "-" + SUBSTR(DTOS(SF1->F1_EMISSAO),7,2) + "T" + SF1->F1_HORA
	cNumCasa := ObtColSAT("S030",SUBSTR(SM0->M0_CGC,1,10) , 1, 10, 11,6)
	cNumCasa := Iif(Empty(cNumCasa), "0", cNumCasa )
	cDepEmi  := ObtColSAT("S030",SUBSTR(SM0->M0_CGC,1,10) , 1, 10, 18,2) 
	cDisEmi  := ObtColSAT("S030",SUBSTR(SM0->M0_CGC,1,10) , 1, 10, 20,3)
	cCiuEmi  := ObtColSAT("S030",SUBSTR(SM0->M0_CGC,1,10) , 1, 10, 23,4)

	cXml := '<rDE , 1, 10, 23,4)

	cXml := '<rDE' + cSalto
	cXml += ' xmlns="http://ekuatia.set.gov.py/sifen/xsd" ' + cSalto
	cXml += ' xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" ' + cSalto
	cXml += ' xsi:schemaLocation="http://ekuatia.set.gov.py/sifen/xsd/ siRecepDE_v150.xsd">' + cSalto
	cXml += ' <dVerFor>150</dVerFor>' + cSalto
	cXml += '	<DE Id="' + cID + '">' + cSalto
	cXml += '		<dDVId>' + cdDVId + '</dDVId>' + cSalto
	cXml += '		<dFecFirma></dFecFirma> ' + cSalto
	cXml += '		<dSisFact>1</dSisFact>' + cSalto
	cXml += '		<gOpeDE>' + cSalto
	cXml += '        	<iTipEmi>1</iTipEmi>' + cSalto
	cXml += '        	<dDesTipEmi>Normal</dDesTipEmi>' +cSalto
	cXml += '			<dCodSeg>' + SUBSTR(cID,35,9) + '</dCodSeg>' + cSalto
	cXml += '		</gOpeDE>' + cSalto
	cXml += ' xmlns="http://ekuatia.set.gov.py/sifen/xsd" 		<gTimb>' + cSalto
	cXml += ' xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"        	<iTiDE>5</iTiDE>' + cSalto
	cXml += ' xsi:schemaLocation="http://ekuatia.set.gov.py/sifen/xsd/ siRecepDE_v150.xsd">        	<dDesTiDE>Nota de crédito electrónica</dDesTiDE>' + cSalto
	cXml += ' <dVerFor>150</dVerFor>       	<dNumTim>'+ AllTrim(SF1->F1_NUMTIM) +'</dNumTim>' + cSalto
	cXml += '	<DE Id="        	<dEst>' + cIDSUBSTR(SF1->F1_DOC,1,3) + '"></dEst>' + cSalto
	cXml += '		<dDVId>        	<dPunExp>' + cdDVIdSUBSTR(SF1->F1_DOC,4,3) + '</dDVId>dPunExp>' + cSalto
	cXml += '		<dFecFirma></dFecFirma> ' + cSalto
	cXml += '		<dSisFact>1</dSisFact>' + cSalto
	cXml += '		<gOpeDE>        	<dNumDoc>' + RIGHT(SF1->F1_DOC,7) + '</dNumDoc>' + cSalto
	cXml += '        	<iTipEmi>1</iTipEmi><dSerieNum>' + cSalto
	cXmlAllTrim(SF1->F1_SERIE2) += '        	<dDesTipEmi>Normal</dDesTipEmi></dSerieNum>' + cSalto
	cXml += '			<dCodSeg><dFeIniT>' + SUBSTR(cID,35,9FecIniTimb(SF1->F1_SERIE, SF1->F1_ESPECIE) + '</dCodSeg>dFeIniT>' + cSalto
	cXml += '		</gOpeDE>gTimb>' + cSalto
	cXml += '		<gTimb><gDatGralOpe>' + cSalto
	cXml += '        	<iTiDE>5</iTiDE>			<dFeEmiDE>' + cSalto
	cXmlcFeEmiDE += '        	<dDesTiDE>Nota de crédito electrónica</dDesTiDE></dFeEmiDE>' + cSalto

	cXml// +=Campos 'inherentes a la operación comercial (D010-D099)
	CTO->(DbSetOrder(1))   	<dNumTim>'+ AllTrim//CTO_FILIAL+CTO_MOEDA
	CTO->(MsSeek(xFilial("CTO")+Strzero(SF1->F1_MOEDA,2)))
	cXml += M486IMPPAR(ALLTRIM(SF1->F1_NUMTIM) +'</dNumTim>'ESPECIE),SF1->F1_DOC,SF1->F1_SERIE, SF1->F1_FORNECE,SF1->F1_LOJA, CTO->CTO_MOESAT,"","") + cSalto

	//EMISOR
	cXml += '			<gEmis>' + cSalto
	cXml      	<dEst>+= '				<dRucEm>' + SUBSTR(SF1->F1_DOC,1,3) + '</dEst>SM0->M0_CGC,1,RAT("-",SM0->M0_CGC)-1)+'</dRucEm>' + cSalto
	cXml += '        	<dPunExp>				<dDVEmi>' + SUBSTRSubstr(SF1SM0->F1_DOC,4,3>M0_CGC,RAT("-",SM0->M0_CGC)+ 1,1) + '</dPunExp>dDVEmi>' + cSalto
	cXml += '				<iTipCont>1</iTipCont>' + cSalto
	cXml      	<dNumDoc>' + RIGHT(SF1->F1_DOC,7) + '</dNumDoc>+= '				<cTipReg>'+ ObtColSAT("S030",SUBSTR(SM0->M0_CGC,1,10) , 1, 10, 17,1) +'</cTipReg>' + cSalto
	If lProd
		cXml += '        	<dSerieNum>' 				<dNomEmi>'+ AllTrim(SF1SM0->F1>M0_SERIE2NOME) + '</dSerieNum>dNomEmi>' + cSalto
	Else
		cXml += '			<dFeIniT>' + FecIniTimb(SF1->F1_SERIE, SF1->F1_ESPECIE)	<dNomEmi>'+  "DE generado en ambiente de prueba - sin valor comercial ni fiscal" + '</dFeIniT>dNomEmi>' + cSalto
	EndIf
	cXml += '		</gTimb>' + cSalto
	cXml += '		<gDatGralOpe>		<dNomFanEmi>'+ AllTrim(SM0->M0_NOMECOM) + '</dNomFanEmi>' + cSalto
	cXml += '			<dFeEmiDE>	<dDirEmi>' + cFeEmiDEAllTrim(SM0->M0_ENDENT) + '</dFeEmiDE>dDirEmi>' + cSalto

	//cXml Campos inherentes a la operación comercial (D010-D099)
	CTO->(DbSetOrder(1)) //CTO_FILIAL+CTO_MOEDA
	CTO->(MsSeek(xFilial("CTO")+Strzero(SF1->F1_MOEDA,2)))
	cXml += M486IMPPAR(ALLTRIM(SF1->F1_ESPECIE),SF1->F1_DOC,SF1->F1_SERIE, SF1->F1_FORNECE,SF1->F1_LOJA, CTO->CTO_MOESAT,"","")+= '				<dNumCas>' + cNumCasa + '</dNumCas>' + cSalto

	//EMISOR
	cXml += '			<gEmis>	<cDepEmi>' + cDepEmi+ '</cDepEmi>' + cSalto
	cXml += '				<dRucEm><dDesDepEmi>' + SUBSTR(SM0->M0_CGC,1,RAT("-",SM0->M0_CGC)-1)+'</dRucEm>AllTrim(ObtColSAT("S003",cDepEmi, 1, 2, 3,28)) + '</dDesDepEmi>' + cSalto
	cXml += '				<cDisEmi>' + AllTrim(cDisEmi) + '</cDisEmi>' + cSalto
	cXml += '				<dDVEmi><dDesDisEmi>' + Substr(SM0->M0_CGC,RATAllTrim(ObtColSAT("-S031",SM0->M0_CGC)+,cDisEmi, 1,1)  3, 4,30))+ '</dDVEmi>dDesDisEmi>' + cSalto
	cXmlcXml += '				<cCiuEmi>' +  AllTrim(cCiuEmi)  += '				<iTipCont>1</iTipCont></cCiuEmi>' + cSalto
	cXml += '				<cTipReg><dDesCiuEmi>' +  AllTrim(ObtColSAT("S030S012",SUBSTR(SM0->M0_CGC,1,10) , 1, 10, 17,1) +'</cTipReg>cCiuEmi, 48, 4, 52,30))+ '</dDesCiuEmi>' + cSalto
	If lProd!Empty(SM0->M0_TEL)
		cXml += '				<dNomEmi><dTelEmi>' + AllTrim(SM0->M0_NOMETEL) + '</dNomEmi>dTelEmi>' + cSalto
	ElseEndIf
		cXml += '				<dNomEmi><dEmailE>' +  "DE generado en ambiente de prueba - sin valor comercial ni fiscal"cEmail  + '</dEmailE>' + cSalto //Quitar
	cXml += '				<gActEco>' + cSalto
	cXml += '					<cActEco>' + AllTrim(SM0->M0_DSCCNA) + '</dNomEmi>cActEco>' + cSalto
	EndIf
	cXml += '				<dNomFanEmi>	<dDesActEco>'+ AllTrimObtColSAT("S006",SUBSTR(SM0->M0_NOMECOMDSCCNA,1,6) + , 2, 5, 7,166)+'</dNomFanEmi>dDesActEco>' + cSalto
	cXml += '				<dDirEmi>'+ AllTrim(SM0->M0_ENDENT) + '</dDirEmi>gActEco>' +  cSalto
	cXml += '				<dNumCas></gEmis>' + cNumCasa + '</dNumCas>cSalto
	//RECEPTOR
	SA1->(DbSetOrder(1))
	SA1->(MSSeek(xFilial("SA1")+SF1->F1_FORNECE+SF1->F1_LOJA))
	SYA->(DbSetOrder(1))
	SYA->(MsSeek(xFilial("SYA")+SA1->A1_PAIS))

	cXml += '			<gDatRec>' + cSalto
	cXml += '				<cDepEmi>' + cDepEmi+ '</cDepEmi><iNatRec>1</iNatRec>' + cSalto
	cXml += '				<dDesDepEmi>' + AllTrim(ObtColSAT("S003",cDepEmi, 1, 2, 3,28)) + '</dDesDepEmi><iTiOpe>1</iTiOpe>' + cSalto
	cXml += '				<cDisEmi><cPaisRec>' + AllTrim(cDisEmi)SYA->YA_CODERP + '</cDisEmi>cPaisRec>' + cSalto
	cXml += '				<dDesDisEmi><dDesPaisRe>' + AllTrim(ObtColSAT("S031S005",cDisEmiSYA->YA_CODERP, 1, 3, 4,3052))+ '</dDesDisEmi>dDesPaisRe>' + cSaltocSalto
	If !Empty(SA1->A1_CGC)
		cXml += '				<cCiuEmi><iTiContRec>' +  AllTrim(cCiuEmi) IIF(SA1->A1_PESSOA $ "F","1","2") + '</cCiuEmi>iTiContRec>' + cSalto
		cXml += '				<dDesCiuEmi><dRucRec>' +  AllTrim(ObtColSATSUBSTR(SA1->A1_CGC,1,RAT("S012",cCiuEmi, 48, 4, 52,30))-",SA1->A1_CGC)-1) + '</dDesCiuEmi>dRucRec>' + cSalto
	If !Empty(SM0->M0_TEL)
		cXml += '				<dTelEmi><dDVRec>' + AllTrim(SM0->M0_TEL) + '</dTelEmi>' + cSalto
	EndIf
	cXml += '				<dEmailE>' +  cEmail Substr(SA1->A1_CGC,RAT("-",SA1->A1_CGC)+ 1,1) + '</dEmailE>dDVRec>' + cSalto //Quitar
	cXml += '				<gActEco>' + cSalto
	Else
		cXml += '					<cActEco><iTipIDRec>' + AllTrim(SM0SA1->M0>A1_DSCCNATIPDOC) + '</cActEco>iTipIDRec>' + cSalto
		cXml += '					<dDesActEco><dDTipIDRec>' +  ObtColSAT("S006S018",SUBSTR(SM0->M0_DSCCNA,1,6)  SA1->A1_TIPDOC, 1, 1, 2,41) 5, 7,166)++ '</dDesActEco>dDTipIDRec>' + cSalto
		cXml += '				</gActEco><dNumIDRec>' +  cSalto
	cXml += '			</gEmis>' + cSalto
	//RECEPTOR
	SA1->(DbSetOrder(1))
	SA1->(MSSeek(xFilial("SA1")+SF1->F1_FORNECE+SF1->F1_LOJA))
	SYA->(DbSetOrder(1))
	SYA->(MsSeek(xFilial("SYA")+SA1->A1_PAIS))
IIF(AllTrim(SA1->A1_TIPDOC)=="5","0",ALLTRIM(SA1->A1_NIF)) + '</dNumIDRec>' +cSalto
	EndIf
	cXml += '			<gDatRec>	<dNomRec>' + AllTrim(SA1->A1_NOME)+ '</dNomRec>' + cSalto
	cXml += '				<iNatRec>1</iNatRec><dNomFanRec>' + AllTrim(SA1->A1_NREDUZ)+ '</dNomFanRec>' + cSalto
	cXml += '				<iTiOpe>1</iTiOpe><dDirRec>' + AllTrim(SA1->A1_END) + '</dDirRec>' + cSalto
	cXml += '				<cPaisRec><dNumCasRec>' + SYAAllTrim(SA1->YA>A1_CODERPNUM) + '</cPaisRec>dNumCasRec>' + cSalto
	cXml += '				<dDesPaisRe><cDepRec>' + ObtColSAT("S005",SYA->YA_CODERP, 1, 3, 4,52)+SA1->A1_DEPTO + '</dDesPaisRe>cDepRec>' + cSalto
	If !Empty(SA1->A1_CGC)
		cXml += '				<iTiContRec><dDesDepRec>' + IIF(AllTrim(ObtColSAT("S003",SA1->A1_PESSOADEPTO, $ "F","1","2"1, 2, 3,28)) + '</iTiContRec>dDesDepRec>' + cSalto
		cXml += '				<dRucRec><cDisRec>' +  SUBSTR(SA1->A1_CGC,1,RAT("-",SA1->A1_CGC)-1) DISTR+ '</dRucRec>cDisRec>' + cSalto
		cXml += '				<dDVRec><dDesDisRec>' + Substr(SA1->A1_CGC,RATAllTrim(ObtColSAT("-S031",SA1->A1_CGC)+DISTR, 1,1, 3, 4,30)) + '</dDVRec>dDesDisRec>' + cSalto
	Else
		cXml += '				<iTipIDRec><cCiuRec>' + AllTrim(SA1->A1_TIPDOCCIUDAD) + '</iTipIDRec>cCiuRec>' + cSalto
		cXml += '				<dDTipIDRec><dDesCiuRec>' +  AllTrim(ObtColSAT("S018S012", SA1->A1_TIPDOCCIUDAD, 148, 14, 252,4130)) + '</dDTipIDRec>dDesCiuRec>' + cSalto
	If !Empty(SA1->A1_TEL)
		cXml += '				<dNumIDRec><dTelRec>' +  IIF(AllTrim(SA1->A1_TIPDOC)=="5","0",ALLTRIM(SA1->A1_NIF))TEL) + '</dNumIDRec>dTelRec>' + cSalto
	EndIf
	If !Empty(SA1->A1_EMAIL)
		cXml += '				<dNomRec><dEmailRec>' + AllTrim(SA1->A1_NOME)EMAIL + '</dNomRec>dEmailRec>' + cSaltocSalto
	EndIf
	cXml += '				<dNomFanRec><dCodCliente>' + AllTrim(SA1->A1_NREDUZCOD) + '</dNomFanRec>dCodCliente>' + cSalto
	cXml += '				<dDirRec></gDatRec>' + AllTrim(SA1->A1_END)cSalto
	cXml += '		</dDirRec>gDatGralOpe>' + cSalto

	//TIPO DE PRESENCIA
	cXml += '				<dNumCasRec><gDtipDE>' + AllTrim(SA1->A1_NUM)cSalto
	cXml += '</dNumCasRec>        	<gCamNCDE>' + cSalto
	cXml += '    				<cDepRec><iMotEmi>' + SA1AllTrim(SF1->A1>F1_DEPTOTIPREF) + '</cDepRec>iMotEmi>' + cSalto
	cXml += '        				<dDesDepRec><dDesMotEmi>' + AllTrim(ObtColSAT("S003S021",SA1SF1->A1>F1_DEPTOTIPREF, 1, 21, 32,2830)) +'</dDesDepRec>dDesMotEmi>' + cSalto
	cXml += '				<cDisRec>' + SA1->A1_DISTR+ '</cDisRec>        	</gCamNCDE>' + cSalto

	cXmlcAliasTmp +:= '				<dDesDisRec>'+ AllTrim(ObtColSAT("S031",SA1->A1_DISTR, 1, 3, 4,30)) + '</dDesDisRec>' + cSalto
	cXml += '				<cCiuRec>' + AllTrim(SA1->A1_CIUDAD) + '</cCiuRec>' + cSalto
	cXml += '				<dDesCiuRec>' + AllTrim(ObtColSAT("S012",SA1->A1_CIUDAD, 48, 4, 52,30)) + '</dDesCiuRec>' + cSalto
	If !Empty(SA1->A1_TELu_QryItem("SD1", "D1_COD, D1_QUANT, D1_TES, D1_ITEM, SD1.R_E_C_N_O_", "D1_DOC='" + SF1->F1_DOC + "' AND D1_SERIE='" + SF1->F1_SERIE + "' AND D1_FORNECE='" + SF1->F1_FORNECE + "' AND D1_LOJA='" + SF1->F1_LOJA + "'",  "D1_ITEM") 
	
	While (cAliasTmp)->(!EOF())
		cXml += '				<dTelRec>' + AllTrim(SA1->A1_TEL) + '</dTelRec>'        	<gCamItem>' + cSalto
	EndIf
	If !Empty(SA1->A1_EMAIL)
		cXml += '    				<dEmailRec><dCodInt>' + SA1->A1_EMAILAlltrim((cAliasTmp)->B1_COD) + '</dEmailRec>dCodInt>' + cSalto
	EndIf
	cXml += '    				<dCodCliente><dDesProSer>' + AllTrim(SA1(cAliasTmp)->A1>B1_CODDESC) + '</dCodCliente>dDesProSer>' + cSalto
		cXml += '    			</gDatRec><cUniMed>' + cSalto
	cXmlAllTrim((cAliasTmp)->AH_COD_CO) += '		</gDatGralOpe>cUniMed>' + cSalto

	//TIPO DE PRESENCIA
	cXml += '		<gDtipDE>' + cSalto
	cXml += 			<dDesUniMed>' + ObtColSAT("S002",(cAliasTmp)->AH_COD_CO, 1, 3, 29,6)   	<gCamNCDE>+ '</dDesUniMed>' + cSalto
		cXml += '    			<iMotEmi><dCantProSer>' + AllTrim(SF1->F1_TIPREF) TRANSFORM((cAliasTmp)->D1_QUANT,"9999999999.9999") )+ '</iMotEmi>dCantProSer>' + cSalto
		cXml += '        		<dDesMotEmi>'+ ObtColSAT("S021"If (cAliasTmp)->R_E_C_N_O_ > 0
			SD2->(dbgoto((cAliasTmp)->R_E_C_N_O_))
		EndIf
		cXml += M486IMPDPAR(ALLTRIM(SF1->F1_ESPECIE),SF1->F1_DOC,SF1->F1_TIPREFSERIE, 1, 1, 2,30)+'</dDesMotEmi>SF1->F1_FORNECE,SF1->F1_LOJA, (cAliasTmp)->D1_TES,(cAliasTmp)->D1_ITEM,(cAliasTmp)->D1_COD,@aDesc) + cSalto
		cXml += '        	</gCamItem>' + cSalto
		(cAliasTmp)->(dbSkip())
	End
	(cAliasTmp)->(dbcloseArea())
	cXml += '        		</gCamNCDE>gDtipDE>' + cSalto

	cAliasTmpaTotales := QueryItems("SD1", "D1_COD, D1_QUANT, D1_TES, D1_ITEM, SD1.R_E_C_N_O_", "D1_DOC='" + SF1->F1_DOC + "' AND D1_SERIE='" + SF1->F1_SERIE + "' AND D1_FORNECE='" + SF1->F1_FORNECE + "' AND D1_LOJA='" + SF1->F1_LOJA + "'",  "D1_ITEM") 
	
	While (cAliasTmp)->(!EOF())
		M486SUBTOT(ALLTRIM(SF1->F1_ESPECIE),SF1->F1_DOC,SF1->F1_SERIE, SF1->F1_FORNECE,SF1->F1_LOJA)
	cXml += '		<gTotSub>' + cSalto
	cXml += '        	<dSubExe>'+ AllTrim(TRANSFORM(aTotales[1],cPicture))+'</dSubExe>' + cSalto
	cXml += '        	<dSubExo>'+ AllTrim(TRANSFORM(aTotales[2],cPicture))+'</dSubExo>' + cSalto
	cXml += '        	<dSub5>'+ AllTrim(TRANSFORM(aTotales[3],cPicture))+'</dSub5>' + cSalto
	cXml += '        	<gCamItem><dSub10>'+ AllTrim(TRANSFORM(aTotales[4],cPicture))+'</dSub10>' + cSalto
		cXml += '    			<dCodInt>'     	<dTotOpe>'+ AlltrimAllTrim((cAliasTmp)->B1_COD) + TRANSFORM(aTotales[5],cPicture))+'</dCodInt>dTotOpe>' + cSalto
		cXml += '    			<dDesProSer>' + AllTrim((cAliasTmp)->B1_DESC) + '</dDesProSer>    	<dTotDesc>'+ AllTrim(TRANSFORM(aDesc[1],cPicture))+'</dTotDesc>' + cSalto
		cXml += '     			<cUniMed>'    	<dTotDescGlotem>'+ AllTrim((cAliasTmp)->AH_COD_CO) + TRANSFORM(aTotales[6],cPicture))+'</cUniMed>dTotDescGlotem>' + cSalto
		cXml += '    			<dDesUniMed>' + ObtColSAT("S002",(cAliasTmp)->AH_COD_CO, 1, 3, 29,6) + '</dDesUniMed> 	<dTotAntItem>0</dTotAntItem>' + cSalto
		cXml += '    			<dCantProSer>' + AllTrim(TRANSFORM((cAliasTmp)->D1_QUANT,"9999999999.9999") )+ '<	<dTotAnt>0</dCantProSer>dTotAnt>' + cSalto
		If (cAliasTmp)->R_E_C_N_O_ > 0
			SD2->(dbgoto((cAliasTmp)->R_E_C_N_O_))
		EndIf
	cXml += '        	<dPorcDescTotal>0</dPorcDescTotal>' + cSalto
	cXml += M486IMPDPAR(ALLTRIM(SF1->F1_ESPECIE),SF1->F1_DOC,SF1->F1_SERIE, SF1->F1_FORNECE,SF1->F1_LOJA, (cAliasTmp)->D1_TES,(cAliasTmp)->D1_ITEM,(cAliasTmp)->D1_COD,@aDesc) '        	<dDescTotal>'+ AllTrim(TRANSFORM(aDesc[1],cPicture))+'</dDescTotal>' + cSalto
		cXml += '        	<<dAnticipo>0</gCamItem>dAnticipo>' + cSalto
		(cAliasTmp)->(dbSkip())
	End
	(cAliasTmp)->(dbcloseArea())
	cXml += '		</gDtipDE>        	<dRedon>0.0</dRedon>' + cSalto

	aTotalescXml :+= M486SUBTOT(ALLTRIM(SF1->F1_ESPECIE),SF1->F1_DOC,SF1->F1_SERIE,  '        	<dTotGralOpe>'+ AllTrim(TRANSFORM(SF1->F1_FORNECE,SF1->F1_LOJA)
	cXml += '		<gTotSub>VALBRUT,cPicture))+'</dTotGralOpe>' + cSalto
	cXml += '        	<dSubExe><dIVA5>'+ AllTrim(TRANSFORM(aTotales[17],cPicture))+'</dSubExe>dIVA5>' + cSalto
	cXml += '        	<dSubExo><dIVA10>'+ AllTrim(TRANSFORM(aTotales[28],cPicture))+'</dSubExo>dIVA10>' + cSalto
	cXml += '        	<dSub5><dTotIVA>'+ AllTrim(TRANSFORM(aTotales[39],cPicture))+'</dSub5>dTotIVA>' + cSalto
	cXml += '        	<dSub10><dBaseGrav5>'+ AllTrim(TRANSFORM(aTotales[410],cPicture))+'</dSub10>dBaseGrav5>' + cSalto
	cXml += '        	<dTotOpe>			<dBaseGrav10>'+ AllTrim(TRANSFORM(aTotales[511],cPicture))+'</dTotOpe>dBaseGrav10>' + cSalto
	cXml += '			<dTBasGraIVA>'+ AllTrim(TRANSFORM(aTotales[12],cPicture))+'</dTBasGraIVA>' + cSalto
	If AllTrim(STR(SF1->F1_MOEDA)) <> "1"
		cXml += '	<dTotDesc>		<dTotalGs>'+ AllTrim(TRANSFORM(aDesc[1]SF1->F1_VALBRUT*SF1->F1_TXMOEDA,cPicture))+'</dTotalGs>' + cSalto
	EndIf
	cXml += '		</dTotDesc>gTotSub>' + cSaltocSalto
	
	//DOCUMENTO ASOCIADO
	cXml += '		<gCamDEAsoc>' + cSalto
	cXml += M486ASOC(SF1->F1_ESPECIE,SF1->F1_DOC,SF1->F1_SERIE,SF1->F1_FORNECE,SF1->F1_LOJA,"1") +   	<dTotDescGlotem>'+ AllTrim(TRANSFORM(aTotales[6],cPicture))+'</dTotDescGlotem>cSalto
	cXml += '		</gCamDEAsoc>' + cSalto
	cXml += '        	<dTotAntItem>0</dTotAntItem>	</DE>' + cSalto
	cXml += '        	<dTotAnt>0</dTotAnt></rDE>' + cSalto

	RestArea(aSF)
	RestArea(aArea)

Return cXml += '        	<dPorcDescTotal>0</dPorcDescTotal>' + cSalto
	cXml += '        	<dDescTotal>'+ AllTrim(TRANSFORM(aDesc[1],cPicture))+'</dDescTotal>' + cSalto
	cXml += '        	<dAnticipo>0</dAnticipo>' + cSalto
	cXml += '        	<dRedon>0.0</dRedon>' + cSalto
	cXml += '        	<dTotGralOpe>'+ AllTrim(TRANSFORM(SF1->F1_VALBRUT,cPicture))+'</dTotGralOpe>' + cSalto
	cXml += '        	<dIVA5>'+ AllTrim(TRANSFORM(aTotales[7],cPicture))+'</dIVA5>' + cSalto
	cXml += '        	<dIVA10>'+ AllTrim(TRANSFORM(aTotales[8],cPicture))+'</dIVA10>' + cSalto
	cXml += '        	<dTotIVA>'+ AllTrim(TRANSFORM(aTotales[9],cPicture))+'</dTotIVA>' + cSalto
	cXml += '        	<dBaseGrav5>'+ AllTrim(TRANSFORM(aTotales[10],cPicture))+'</dBaseGrav5>' + cSalto
	cXml += '			<dBaseGrav10>'+ AllTrim(TRANSFORM(aTotales[11],cPicture))+'</dBaseGrav10>' + cSalto
	cXml += '			<dTBasGraIVA>'+ AllTrim(TRANSFORM(aTotales[12],cPicture))+'</dTBasGraIVA>' + cSalto
	If AllTrim(STR(SF1->F1_MOEDA)) <> "1"
		cXml += '			<dTotalGs>'+ AllTrim(TRANSFORM(SF1->F1_VALBRUT*SF1->F1_TXMOEDA,cPicture))+'</dTotalGs>' + cSalto
	EndIf
	cXml += '		</gTotSub>' +cSalto
	
	//DOCUMENTO ASOCIADO
	cXml += '		<gCamDEAsoc>' + cSalto
	cXml += M486ASOC(SF1->F1_ESPECIE,SF1->F1_DOC,SF1->F1_SERIE,SF1->F1_FORNECE,SF1->F1_LOJA,"1") + cSalto
	cXml += '		</gCamDEAsoc>' + cSalto
	cXml += '	</DE>' + cSalto
	cXml += '</rDE>' + cSalto

	RestArea(aSF)
	RestArea(aArea)

Return cXml

/*/{Protheus.doc} QryItem Genera un query para obetener los datos correspondientes a los items.
@param cAlias, caracter, Alias de la tabla.
@param cCpos, caracter, Campos a ser usados en el query.
@param cWhere, caracter, Condición a ser usada en el query.
@param cOrder, caracter, Campo a ser usado en el orden,
@return cAliasTmp, Alias de la tabla temporal.
/*/
User Function QryItem(cAlias, cCpos, cWhere, cOrder)
Local cQuery 	:= ""
Local cAliasTmp	:= getNextAlias()

	cQuery := "Select "
	cQuery += cCpos
	cQuery += " ,B1_COD, B1_DESC, B1_UM, AH_COD_CO" 
	cQuery += " from "+RetSqlName(cAlias)+ " " + cAlias + " "
	cQuery += " Left Join " +RetSqlName("SB1")+ " SB1 ON " + IIf(cAlias == "SD2","D2_COD","D1_COD") + " = B1_COD AND B1_FILIAL = '" + xFilial("SB1") + "'"
	cQuery += " Left Join " +RetSqlName("SAH")+ " SAH ON B1_UM = AH_UNIMED AND AH_FILIAL = '" + xFilial("SAH") + "'"
	cQuery += " Where "
	cQuery += cWhere
	cQuery += " AND " + cAlias + ".D_E_L_E_T_ = ''"
	cQuery += " AND SB1.D_E_L_E_T_ = ''"
	cQuery += " AND SAH.D_E_L_E_T_ = ''"
	If !Empty(cOrder)
		cQuery += " ORDER BY "+ SqlOrder(cOrder)
	EndIf
	cQuery := ChangeQuery(cQuery)
	dbUseArea(.T.,"TOPCONN",TcGenQry(,,cQuery),cAliasTmp,.T.,.T.)

	(cAliasTmp)->(dbGoTop())

Return cAliasTmp

La información retornada en la variable cXml deberá contener el xml que será guardado para ser transmitido.

Totvs custom tabs box items

default	no
referencia	paso11

PE - M486PDFGEN

Descripción:

M486PDFGEN.- Generación personalizada de Impresión Gráfica de Documentos

Ubicación:

Actualizaciones / Facturación / Transmisión Electrónica.

Eventos:

Imprimir PDF.

Programa Fuente:

MATA486.PRW

Función:

MenuDef

Parámetros:

Posición	Tipo	Descripción
N/A	N/A	N/A

Retorno:

N/A

Totvs custom tabs box items

default	no
referencia	paso12

IMPRESION DEL KUDE - PARÁMETRO MV_IMPKUDE (EJEMPLO)

Parámetro

Descripción

Tipo

Valores

Default

MV_IMPKUDE

Configuración de la impresión del KUDE antes de obtener la autorización.

Numérico

1 = Imprime solo facturas validadas.

2 = Imprime facturas validadas y facturas transmitidas.

1 = Imprime solo facturas validadas.

03. Menús

En el Configurador (SIGACFG), acceda a Entornos/Archivo/Menú (CFGX013). Informe las nuevas opciones de menú conforme las instrucciones a continuación:

...

Totvs custom tabs box

tabs	Tablas,Campos,Consultas Estándar,Parámetros, Índices, Preguntas, Tablas genéricasgenéricas,Leyenda/Estatus de los documentos
ids	paso1,paso2,paso3,paso4,paso5,paso6,paso7,paso8

Totvs custom tabs box items

default	yes
referencia	paso1

Clave	Nombre	Modo	PYME
F3H	Configuración de Catálogos	C	S
F3I	Información de Catálogos	C	S
F7L	Pagos contado Factura Electrónica	E	S

Totvs custom tabs box items

default	no
referencia	paso2

Campo	Tipo	Tamaño	Decimal	Formato	Título	Descripción	Nivel	Utilizado	Obligatorio	Browse	Opciones	When	Consulta(F3)	Val. Sistema	Folder	Help
F3H
F3H_FILIAL	C	2	0		Sucursal	Sucursal	1	No	No	No						Digite el código de la sucursal.
F3H_CODIGO	C	4	0	@!	Código	Código del parámetro	1	Si	Si	Si				NaoVazio() .and. ExistChav("F3H", M->F3H_CODIGO,1) .and. FreeForUse("F3H",M->F3H_CODIGO)		Código del parámetro.
F3H_DESC	C	30	0	@!	Descripción	Descripción del parámetro	1	Si	Si	Si				NAOVAZIO()		Descripción del parámetro.
F3H_ORDEM	C	2	0	99	Orden	Orden del parámetro	1	Si	Si	No						Orden del parámetro.
F3H_CAMPOS	C	10	0	AXXXXXXXXX	Campos	Nombre del Campo	1	Si	Si	No				NaoVazio() .and. f812VerChav("F3H",M->F3H_CAMPOS)		Incluir el nombre del campo.
F3H_DESCPO	C	25		@!	Desc. Campo	Descripción del Campo	1	Si	Si	No						Incluir la descripción del campo.
F3H_TIPO	C	1		@!	Tipo	Tipo	1	Si	Si	No	N=Numérico;C=Caracter;D=Fecha	F812Valid()		NaoVazio() .and. Pertence("NCD") .and. f812ChkTipo(M->F3H_TIPO)		Incluya el tipo de campo. C = Carácter, D = Fecha, N = Numérico.
F3H_TAMAN	N	3		999	Tamaño	Tamaño del Campo.	1	Si	Si	No		F812Valid()		NaoVazio() .and. F812ChkTaman(M->F3H_TAMAN)		Incluir el tamaño del campo. Obs: si el campo fuera tipo D=Fecha, el tamaño debe ser igual a 8.
F3H_DECIMA	N	2		99	Decimal	Decimal	1	Si	No	No		F812Valid()		f812ChkDec(M->F3H_DECIMA		Incluir el número de decimales que tendrá el campo. Campos tipo: Fecha y Carácter No tiene decimales
F3H_PICTUR	C	45	0	@!	Formato	Formato	1	Si	No	No						Digite la máscara para la exhibición del campo. Ej.: "@E 999,99
F3H_VALID	c	120	0	@!	Validación	Validación del Usuario	1	Si	No	No						Agregar una validación del campo si es necesario. Ej,: Entre("01","10",M-> F3H_TAMAN,.T.) En el caso que la función utilizada sea "PERTENECE", deberá informarse el campo como segundo parámetro. Ej.: Pertence("12",cCampo)
F3H_PADRAO	C	6		@!	Cons. Estand.	Consulta Estándar	1	No	No	No				f812ConsPad()		Digite una consulta estándar para la tabla.
F3H_VERSAO	C	3		@!	Versión	Versión	1	Si	No	No						Versión del catálogo.
F3H_PESQ	C	1		@!	¿Usado Busq?	¿USado en la Busqueda?	1	No	No	No	1=Si;2=No					¿Usado en la Búsqueda de la Consulta Estándar (SXB)? Informar Si para utilizar este campo como clave simples de búsqueda.
F3I
Campo	Tipo	Tamaño	Decimal	Formato	Titulo	Descripción	Nivel	Utilizado	Obligatorio	Browse	Opciones	When	Consulta(F3)	Val. Sistema	Folder	Help
F3I_FILIAL	C	2	0		Sucursal	Sucursal	1	Si	Si	No						Informe el código de la sucursal.
F3I_CODIGO	C	4	0	@!	Código	Código del parámetro	1	Si	No	No				EXISTCPO("F31")		Informe el contenido de identificación del ítem de la lista. Por ejemplo, si la lista de modificación es la lista de países, este campo corresponde al código de identificación del país.
F3I_SEQUEN	C	5		99999	Secuencia	Secuencia	1	Si	No	No						Secuencia.
F3I_CONTEU	C	250		@!	Contenido	Contenido de la tabla	1	Si	No	No						Informe el contenido.
F7L
Campo	Tipo	Tamaño	Decimal	Formato	Titulo	Descripción	Nivel	Utilizado	Obligatorio	Browse	Opciones	When	Consulta(F3)	Val. Sistema	Folder	Help
F7L_FILIAL	C	2	0		Sucursal	Sucursal	1	No	No	No						Digite el código de la sucursal.
F7L_DOC	C	13	0	@!	No. Doc	Número de Documento	0	Si	Si	Si						Indique el número de documento
F7L_SERIE	C	3	0	@!	Serie	Serie del Documento	0	Si	Si	No						Indique el número de Serie
F7L_CLIENT	C	6	0	@!	Cod. Cliente	Cod. Cliente	0	Si	Si	No						Código del Cliente.
F7L_LOJA	C	2	0	@!	Tienda	Tienda	0	Si	Si	No						Código de Tienda
F7L_COND	C	4	0		Cond. Pago	Cond. Pago	0	Si	Si	No						Condiciones de Pago
F7L_SEQ	C	3	0	@999	Num Pago	Número de Pago	0	Si	Si	No						Número de Pago
F7L_TPPAGO	C	2	0	@!	Tipo de Pago	Tipo de Pago	0	Si	Si	Si			PAR013	NaoVazio() .or. ValidF3I("S013", M->F7L_TPPAGO,1,2)		Tipo de Pago.
F7L_MONTO	N	18	2	@E 999,999,999,999,999.99	Monto Pago	Monto Pago	0	Si	Si	Si						Tipo de Pago
F7L_TPTAR	C	1	0	@!	Tipo Tarjeta	Tipo Tarjeta	0	Si	No	Si			PAR014	NaoVazio() .or. ValidF3I("S014", M->F7LU_TPTAR,1,1)		Tipo Tarjeta
F7L_FRMPRO	C	1	0	@!	Frm. Proc. P	Forma Procesamiento Pago	0	Si	Si	No			PAR032	NaoVazio() .or. ValidF3I("S032", M->F7L_FRMPRO,1,1)		Forma de Procesamiento Pago
F7L_CODOPE	C	1	0	@!	Cod. Aut. OP	Código Autorización. Op.	0	Si	No	Si						Código Autorización Op.
F7L_NUMTRJ	C	4	0	@!	Num. Tarjeta	Num. Tarjeta	0	Si	No	No						Número de Tarjeta
F7L_CODBCO	C	6	0	@!	Banco Emisor	Banco Emisor	0	Si	No	No						Banco Emisor.
F7L_	C	8	0	@!	Num Cheque	Numero de Cheque	0	Si	No	Si						Número de cheque.
SFP
Campo	Tipo	Tamaño	Decimal	Formato	Titulo	Descripción	Nivel	Utilizado	Obligatorio	Browse	Opciones	When	Consulta(F3)	Val. Sistema	Folder	Help
FP_SERIE2	C	2		@!	Serie 2	Serie 2	1	Si	No	No		!(funname() $ 'MATA467N/MATA462N/MATA465N')
FP_FINITIM	C	8			Fch. In. Tim	Fecha de inicio Timbrado	1	Si		Si						Fecha de inicio de timbrado.
SA1
Campo	Tipo	Tamaño	Decimal	Formato	Titulo	Descripción	Nivel	Utilizado	Obligatorio	Browse	Opciones	When	Consulta(F3)	Val. Sistema	Folder	Help
A1_TIPDOC	C	2		@!	Tipo Dic.	Tipo Documento de Identid.	1	Si	No	No			PAR018	Vazio() .OR. ValidF3I("S018", M->A1_TIPDOC,1,1)		Tipo de documento de identidad.
A1_NUM	C	5		@!	No. Casa	Número de casa	1	Si	No	No					1	Número de casa.
A1_DEPTO	C	2		@!	Cod. Depto	Código de Departamento SET	1	Si	No	No			PAR003	NaoVazio() .and. ValidF3I("S003", M->A1_DEPTO,1,2)	1	Código de departamento de acuerdo al SET.
A1_DISTR	C	3		@!	Cod. Distrito	Código de Distrito	1	Si	No	No			PAR031	NaoVazio() .OR. ValidF3I("S031", M->A1_DISTR,3,3)	1	Código de distrito de acuerdo al SET.
A1_CIUDAD	C	4		@!	Cod. Ciudad	Código de Ciudad	1	Si	No	No			PAR012	NaoVazio() .OR. ValidF3I("S012", M->A1_CIUDAD,6,4)	1	Código de ciudad de acuerdo al SET.
A1_PFISCA	C	18		@!	DNI	DNI	1	Si	No	No					1	Documento de Identidad
SF2
Campo	Tipo	Tamaño	Decimal	Formato	Titulo	Descripción	Nivel	Utilizado	Obligatorio	Browse	Opciones	When	Consulta(F3)	Val. Sistema	Folder	Help
F2_SERIE2	C	2		@!	Serie 2	Serie 2	1	Si	No	Si				!(funname() $ 'MATA467N/MATA462N/MATA465N')		Serie usada en la factura electrónica.
F2_DOC	C	13		@!	Num de Doc	Numero de Documento	1	Si	No	Si				CtrFolios(xFilial("SF2"),M->F2_SERIE,M->F2_ESPECIE,M->F2_DOC) .AND. LXEXSER2()
F2_SERIE	C	3		@!	Serie Doc.	Serie del Documento	1	Si	No	Si				LxExSer2()
F2_HORA	C	8		99:99	Hora	Hora	1	Si	No	Si
F2_NUMTIM	C	13		@!	Timbrado	Número Timbrado	1	Si	No	Si		.F.
F2_TIPONF	C	4		@!	Tipo NF	Tipo de Factura.	1	Si	No	Si			PAR019	Vazio() .or. ValidF3I("S019", M->F2_TIPONF,1,4)		Tipo de Factura conforme a catálogo No. 19
F2_UUID	C	44		@!	CDC	CDC	1	Si	No	No						Número del CDC.
F2_TIPREF	C	2		@!	Tipo Nota de D	Tipo de Nota de Debito	1	Si	No	Si			PAR021	Vazio() .OR. ValidF3I("S021", M->F2_TIPREF,1,1)		Motivo de Emisión
F2_VEICULO	C	8		@!	Vehic. Transp	Vehículo del Transporte	1	Si	No	No			DA3	NAOVAZIO() .AND. ExistCpo("DA3",M->F2_VEICULO,1)		Código del Vehículo.
F2_RASTR	C	20		@!	Vuelo	No. de Vuelo	1	Si	No	No						Número de vuelo cuando es transporte aéreo.
F2_INCOTER	C	3		@!	Incoterms	Clave de Incoterms	1	Si	No	No			PAR010	Vazio() .or. ValidF3I("S010", M->F2_INCOTER,1,3)		Condiciones de negociación.
F2_FECDSE	D	8			Fch Ini Tras	Fecha Inicio de Traslado	1	Si	No	No						Fecha inicio de traslado.
F2_FECHSE	D	8			Fch fin Tras	Fecha Fin de Traslado	1	Si	No	No						Fecha fin de traslado.
F2_KM	N	7	0	@E 9,999,999	Dist. Entrega	Distancia de Entrega	1	Si	No	No						Distancia de entrega
F2_TPTRANS	C	2		@!	Tipo Transac	Tipo de Transacción	1	Si	No	No			PAR016	Vazio() .or. ValidF3I("S016", M->F2_TPTRANS,1,2)		Tipo Transacción
F2_MOTEMIR	C	2		@!	Motivo Emis	Motivo Emisión	1	Si	No	No			PAR022	Vazio() .or. ValidF3I("S022", M->F2_MOTEMIR,1,2)		Motivo Emisión del Remito
F2_FECTIMB	D	8			Fecha Trans.	Fecha de transmisión	1	Si	No	Si						Fecha de transmisión del documento.
F2_FECANTF	D	8			Fch Canc env	Fecha cancelación envio	1	Si	No	Si						Fecha de cancelación del documento enviado.
F2_FLFTEX	C	1			Status Trans	Estatus transmisión Elec	1	Si	No	No	0=No Enviado;1=Enviado;5=Rechazado;6=Autorizado					Estatus de los documento electrónicos.
F2_TPRESFL	C	1		@!	Resp. Flete	Responsable Flete	1	Si	No	No			PAR027	Vazio() .OR. ValidF3I("S027", M->F2_TPRESFL,1,1)		Responsable del flete
SF1
Campo	Tipo	Tamaño	Decimal	Formato	Titulo	Descripción	Nivel	Utilizado	Obligatorio	Browse	Opciones	When	Consulta(F3)	Val. Sistema	Folder	Help
F1_DOC	C	13		@!	Num de Doc.	Número de Documento	1	Si	No	Si				CtrFolios(xFilial("SF1"),M->F1_SERIE,M->F1_ESPECIE,M->F1_DOC) .AND. LXEXSER2()
F1_SERIE	C	3		@!	Serie Doc.	Serie del Documento	1	Si	No	Si
F1_SERIE2	C	2		@!	Serie 2	Serie 2	1	Si	No	Si				!(funname() $ 'MATA462N/MATA465N')
F1_NUMTIM	C	13		@!	Timbrado	Numero de Timbrado	1	Si	No	Si		.F.
F1_UUID	C	44		@!	CDC	CDC	1	Si	No	No						Número del CDC
F1_TIPREF	C	2		@!	Tipo Nota de C	Tipo de nota de Crédito	1	Si	No	Si			PAR021	Vazio() .OR. ValidF3I("S021", M->F1_TIPREF,1,1)		Motivo de Emisión
F1_FECTIMB	D	8			Fecha Trans.	Fecha de transmisión	1	Si	No	Si						Fecha de transmisión del documento.
F1_FECANTF	D	8			Fch Canc env	Fecha cancelación envio	1	Si	No	Si						Fecha de cancelación del documento enviado.
F1_FLFTEX	C	1			Status Trans	Estatus transmisión Elec	1	Si	No	No	0=No Enviado;1=Enviado;5=Rechazado;6=Autorizado					Estatus de los documento electrónicos.
SYA
Campo	Tipo	Tamaño	Decimal	Formato	Titulo	Descripción	Nivel	Utilizado	Obligatorio	Browse	Opciones	When	Consulta(F3)	Val. Sistema	Folder	Help
YA_CODERP	C	3		@!	Cod. ERP	Cod. ERP	1	Si	No	Si			PAR005			Clave de País de acuerdo al catálogo No. 05
CTO
Campo	Tipo	Tamaño	Decimal	Formato	Titulo	Descripción	Nivel	Utilizado	Obligatorio	Browse	Opciones	When	Consulta(F3)	Val. Sistema	Folder	Help
CTO_MOESAT	C	3		@!	Moneda SAT	Moneda SAT	1	Si	No	Si			PAR004			Clave de moneda de acuerdo al catálogo No. 04
SAH
Campo	Tipo	Tamaño	Decimal	Formato	Titulo	Descripción	Nivel	Utilizado	Obligatorio	Browse	Opciones	When	Consulta(F3)	Val. Sistema	Folder	Help
AH_COD_CO	C	3	@!		Ori Cert Cod.	FIESP Ori Certif Cod	1	Si	No	Si			PAR002	Vazio() .or. ValidF3I("S002", M->AH_COD_CO,1,3)		Clave de Unidad de Medida de acuerdo al catálogo No. 02
SA4
Campo	Tipo	Tamaño	Decimal	Formato	Titulo	Descripción	Nivel	Utilizado	Obligatorio	Browse	Opciones	When	Consulta(F3)	Val. Sistema	Folder	Help
A4_TIPCON	C	1		@!	Tipo Contrib	Tipo de Contribuyente	1	Si	No	No	1=Contribuyente;2=No Contribuyente			Pertence("12")
A4_TIPID	C	1		@!	Tipo de Iden	Tipo de identificación	1	Si	No	No			PAR018	Vazio() .OR. ValidF3I("S018", M->A4_TIPID,1,1)
SC5
Campo	Tipo	Tamaño	Decimal	Formato	Titulo	Descripción	Nivel	Utilizado	Obligatorio	Browse	Opciones	When	Consulta(F3)	Val. Sistema	Folder	Help
C5_TIPONF	C	4		@!	Tipo NF	Tipo de Factura	1	Si	No	Si			PAR019	Vazio() .or. ValidF3I("S019", M->C5_TIPONF,1,1)		Tipo de Factura conforme al catálogo 19
C5_TPTRANS	C	2		@!	Tipo Transac	Tipo de Transacción	1	Si	No	No			PAR016	Vazio() .or. ValidF3I("S016", M->C5_TPTRANS,1,2)		Tipo Transacción
C5_RASTR	C	20		@!	Vuevlo	No. de Vuelo	1	Si	No	No						Número de vuelo cuando es transporte aéreo
C5_INCOTER	C	3		@!	Inconterms	Inconterms	1	Si	No	No			PAR010	Vazio() .or. ValidF3I("S010", M->C5_INCOTER,1,3)		Condiciones de Negociación
C5_FECDSE	D	8			Fecha Ini Tras	Fecha Inicio de Traslado	1	Si	No	No						Fecha Inicio de Traslado
C5_FECHSE	D	8			Fecha Fin Tras	Fecha Fin de Traslado	1	Si	No	No						Fecha Fin de Traslado
C5_MODTRAD	C	2		@!	Motivo	Motivo	1	Si	No	No				Vazio() .or. ValidF3I("S022", M->C5_MODTRAD,1,2)		Motivo de Emisión
C5_TPRESFL	C	1		@!	Resp. Flete	Responsable Flete	1	Si	No	No			PAR027	Vazio() .OR. ValidF3I("S027", M->C5_TPRESFL,1,1)		Responsable del flete
DA3
Campo	Tipo	Tamaño	Decimal	Formato	Titulo	Descripción	Nivel	Utilizado	Obligatorio	Browse	Opciones	When	Consulta(F3)	Val. Sistema	Folder	Help
DA3_MARVEI	C	2		@!	Marca	Marca	1	Si	No	Si			M6	ExistCpo("SX5","M6"+M->DA3_MARVEI,1)
DA3_TIPTR2	C	1		@!	Tipo Transp.	Tipo de Transporte	1	Si	No	No			PAR026	Vazio() .OR. ValidF3I("S026", M->DA3_TIPTRA,1,1)
DA3_FROVEI	C	1		@!	Flota	Flota	1	Si	No	No	1=Propia;2=Tercero			Pertence("12")
DA3_TIPID	C	1		@!	Tipo Vechiculo	Tipo de Vehiculo	1	Si	No	No	1= Numero de identificación del vehículo;2=Numero de matricula del vehículo			Pertence('12')
SFB
Campo	Tipo	Tamaño	Decimal	Formato	Titulo	Descripción	Nivel	Utilizado	Obligatorio	Browse	Opciones	When	Consulta(F3)	Val. Sistema		Help
FB_CODIMP	C	1	@!	Cod. Impuest	Código de Impuesto	NaoVazio() .OR. ValidF3I("S017", M->FB_CODIMP,1,1)	1	Si	No	No				PAR017		Código de Impuesto
FB_CLASSE	C	1	@!		Clase Imp.	Clase de impuesto	1	Si	Si	No	I=Impuesto; P=Percepción; R=Retención					Indica clase del impuesto.

Totvs custom tabs box items

default	no
referencia	paso3

Alias	Tipo	Secuencia	Columna	Descripción	Contenido
Consulta PAR001
PAR001	1	01	RE	Regímenes	F3I
PAR001	2	01	01	Regímenes	F812SXB("S001","Codigo")
PAR001	5	01			VAR_IXB
Consulta PAR002
PAR002	1	01	RE	Unidades Medida	F3I
PAR002	2	01	01	Unidades Medida	F812SXB("S002","Codigo")
PAR002	5	01			VAR_IXB
Consulta PAR003
PAR003	1	01	RE	Departamentos	F3I
PAR003	2	01	01	Departamentos	F812SXB("S003","Codigo")
PAR003	5	01			VAR_IXB
Consulta PAR004
PAR004	1	01	RE	Monedas	F3I
PAR004	2	01	01	Monedas	F812SXB("S004","Codigo")
PAR004	5	01			VAR_IXB
Consulta PAR005
PAR005	1	01	RE	Países	F3I
PAR005	2	01	01	Países	F812SXB("S005","Codigo")
PAR005	5	01			VAR_IXB
Consulta PAR006
PAR006	1	01	RE	Actividad Económica	F3I
PAR006	2	01	01	Actividad Económica	F812SXB("S006","Codigo")
PAR006	5	01			VAR_IXB
Consulta PAR007
PAR007	1	01	RE	Afectaciones	F3I
PAR007	2	01	01	Afectaciones	F812SXB("S007","Codigo")
PAR007	5	01			VAR_IXB
Consulta PAR008
PAR008	1	01	RE	Categoría ISC	F3I
PAR008	2	01	01	Categoría ISC	F812SXB("S008","Codigo")
PAR008	5	01			VAR_IXB
Consulta PAR009
PAR009	1	01	RE	Tasa ISC	F3I
PAR009	2	01	01	Tasa ISC	F812SXB("S009","Codigo")
PAR009	5	01			VAR_IXB
Consulta PAR010
PAR010	1	01	RE	Condiciones	F3I
PAR010	2	01	01	Condiciones	F812SXB("S010","Codigo")
PAR010	5	01			VAR_IXB
Consulta PAR011
PAR011	1	01	RE	Regímenes Aduaneros	F3I
PAR011	2	01	01	Regímenes Aduaneros	F812SXB("S011","Codigo")
PAR011	5	01			VAR_IXB
Consulta PAR012
PAR012	1	01	RE	Referencia Geográfica	F3I
PAR012	2	01	01	Referencia Geográfica	F812SXB("S012","Codigo")
PAR012	5	01			VAR_IXB
Consulta PAR013
PAR013	1	01	RE	Tipos de Pago	F3I
PAR013	2	01	01	Tipos de Pago	F812SXB("S013","Codigo")
PAR013	5	01			VAR_IXB
Consulta PAR014
PAR014	1	01	RE	Denominación de Tarjeta	F3I
PAR014	2	01	01	Denominación de Tarjeta	F812SXB("S014","Codigo")
PAR014	5	01			VAR_IXB
Consulta PAR015
PAR015	1	01	RE	Documento Electrónico	F3I
PAR015	2	01	01	Documento Electrónico	F812SXB("S015","Codigo")
PAR015	5	01			VAR_IXB
Consulta PAR016
PAR016	1	01	RE	Tipo de Transacción	F3I
PAR016	2	01	01	Tipo de Transacción	F812SXB("S016","Codigo")
PAR016	5	01			VAR_IXB
Consulta PAR017
PAR017	1	01	RE	Tipo Operación	F3I
PAR017	2	01	01	Tipo Operación	F812SXB("S017","Codigo")
PAR017	5	01			VAR_IXB
Consulta PAR018
PAR018	1	01	RE	Documento Identidad	F3I
PAR018	2	01	01	Documento Identidad	F812SXB("S018","Codigo")
PAR018	5	01			VAR_IXB
Consulta PAR019
PAR019	1	01	RE	Indicador de Presencia	F3I
PAR019	2	01	01	Indicador de Presencia	F812SXB("S019","Codigo")
PAR019	5	01			VAR_IXB
Consulta PAR020
PAR020	1	01	RE	Doc Identidad Ven/Tr	F3I
PAR020	2	01	01	Doc Identidad Ven/Tr	F812SXB("S020","Codigo")
PAR020	5	01			VAR_IXB
Consulta PAR021
PAR021	1	01	RE	Motivo de Emisión NC	F3I
PAR021	2	01	01	Motivo de Emisión NC	F812SXB("S021","Codigo")
PAR021	5	01			VAR_IXB
Consulta PAR022
PAR022	1	01	RE	Motivo de Emisión Re	F3I
PAR022	2	01	01	Motivo de Emisión Re	F812SXB("S022","Codigo")
PAR022	5	01			VAR_IXB
Consulta PAR023
PAR023	1	01	RE	Responsable de Emisión	F3I
PAR023	2	01	01	Responsable de Emisión	F812SXB("S023","Codigo")
PAR023	5	01			VAR_IXB
Consulta PAR024
PAR024	1	01	RE	Venta de Vehículos	F3I
PAR024	2	01	01	Venta de Vehículos	F812SXB("S024","Codigo")
PAR024	5	01			VAR_IXB
Consulta PAR025
PAR025	1	01	RE	Tipo de Combustible	F3I
PAR025	2	01	01	Tipo de Combustible	F812SXB("S025","Codigo")
PAR025	5	01			VAR_IXB
Consulta PAR026
PAR026	1	01	RE	Modalidad de Transp	F3I
PAR026	2	01	01	Modalidad de Transp	F812SXB("S026","Codigo")
PAR026	5	01			VAR_IXB
Consulta PAR027
PAR027	1	01	RE	Responsable del Flete	F3I
PAR027	2	01	01	Responsable del Flete	F812SXB("S027","Codigo")
PAR027	5	01			VAR_IXB
Consulta PAR028
PAR028	1	01	RE	Documento Impreso	F3I
PAR028	2	01	01	Documento Impreso	F812SXB("S028","Codigo")
PAR028	5	01			VAR_IXB
Consulta PAR029
PAR029	1	01	RE	Tipo de Operación	F3I
PAR029	2	01	01	Tipo de Operación	F812SXB("S029","Codigo")
PAR029	5	01			VAR_IXB
Consulta PAR031
PAR031	1	01	RE	Distritos	F3I
PAR031	2	01	01	Distritos	F812SXB("S031","Codigo")
PAR031	5	01			VAR_IXB
Consulta PAR032
PAR032	1	01	RE	Proc. de Pago	F3I
PAR032	2	01	01	Proc. de Pago	F812SXB("S032","Codigo")
PAR032	5	01			VAR_IXB

Totvs custom tabs box items

default	no
referencia	paso4

Nombre de la Variable	Tipo	Descripción
MV_PATH814	Carácter	Ruta de donde serán cargados los catálogos
MV_F3HNUM	Carácter	Almacena el ultimo numero del código del parámetro
MV_CFDI_AM	Carácter	Configuración de ambiente para la comunicación con los servicios web del SIFEN: T=(Teste) Pruebas; P= Producción
MV_CFDSMAR	Carácter	Carpeta local en donde se procesarán las facturas para firmar y enviar al SIFEN.
MV_CFDI_PA	Carácter	Nombre del archivo .exe encargado de firmar XML y consumir los servicios web del SIFEN.
MV_CFDDOCS	Carácter	Directorio donde se grabaran las facturas electrónicas.
MV_CFDI_PX	Carácter	Nombre del archivo en formato .pfx del certificado digital.
MV_CFDICVE	Carácter	Contraseña del certificado digital para firmado de los XML y comunicación con el SIFEN.
MV_IDCONEN	Carácter	Identificador control de envío Factura electrónica.
MV_IDCSC	Carácter	Identificador del código secreto del contribuyente
MV_CSC	Carácter	Código secreto del contribuyente
MV_CFDUSO	Carácter	Indica si las facturas electrónicas se utilizaran o no, configurándose con: 0 - No utiliza Fact-E, 1-Utiliza Fact-e, 2-Indica uso de Fact-E
MV_CFDANUL	Carácter	Indica el directorio donde se grabaran los CFD de facturas anuladas.
MV_RELACNT	Carácter	Cuenta a ser utilizada en el envío de E-Mail para los informes.
MV_TIPTRAN	Carácter	Configuración del tipo transmisión usada con SIFEN, A= Asíncrona; S:Síncrona
MV_ASYNLOT	Númerico	Máximo de documentos en lote transmisión asíncrona

Totvs custom tabs box items

default	no
referencia	paso5

Índice	Orden	Clave	Descripción	Propietario
F3H	1	F3H_FILIAL+F3H_CODIGO	Código	S
F3H	2	F3H_FILIAL+F3H_DESC	Descripción	S
F3H	3	F3H_FILIAL+F3H_CAMPOS+F3H_CODIGO	Campos + Código	S
F3I	1	F3I_FILIAL+F3I_CODIGO+F3I_SEQUEN	Código + Secuencia	S
F7L	1	F7L_FILIAL+F7L_DOC+F7L_SERIE+F7L_CLIENT+F7L_LOJA	Documento + Serie + Cliente + Tienda	S

Totvs custom tabs box items

default	no
referencia	paso6

MATA486

X1_ORDEM	X1_PERGUNT	X1_TIPO	X1_TAMANHO	X1_VAR01	X1_F3	X1_DEF01	X1_DEF02	X1_DEF03	X1_DEF04	X1_HELP
01	¿Tipo de Documento?	Numérico	1	MV_PAR01		Factura	Nota de Débito	Nota de Crédito	Remisión	Informe el tipo de documento con el que se estará trabajando durante la transmisión electrónica: Factura Nota de Débito Nota de Crédito Remisión
02	¿Serie?	Carácter	3	MV_PAR02	SERNF					Informe la serie del documento.
03	¿Estatus?	Carácter	1	MV_PAR03	SD					Indica el estatus del documento electrónico. 1-No transmitido 2-Recibido 3-Esperando Procesamiento 4-Documento Rechazado 5-Documento Autorizado
04	¿Fecha Inicial?	Fecha	8	MV_PAR04						Indique la fecha de digitación inicial.
05	¿Fecha Final?	Fecha	8	MV_PAR05						Indique la fecha de digitación final.

MATA486A

X1_ORDEM	X1_PERGUNT	X1_TIPO	X1_TAMANHO	X1_VAR01	X1_VALID	X1_F3	X1_HELP
01	¿Serie de la Factura?	Carácter	3	MV_PAR01		SERNF	Informe el número de Serie de la Factura
02	¿Factura Inicial?	Carácter	13	MV_PAR02			Informe el número Factura Inicial
03	¿Factura Final?	Carácter	13	MV_PAR03	!Empty(MV_PAR03) .And. MV_PAR02<=MV_PAR03		Informe el número Factura Final

MATA486B

X1_ORDEM	X1_PERGUNT	X1_TIPO	X1_TAMANHO	X1_VAR01	X1_VALID	X1_F3	X1_HELP
01	¿Serie de Nota de Debito?	Carácter	3	MV_PAR01		SERNF	Informe el número de Serie de la Nota de Débito
02	¿Nota de Débito Inicial?	Carácter	13	MV_PAR02			Informe el número de la Nota de Débito Inicial
03	¿Nota de Débito Final?	Carácter	13	MV_PAR03	!Empty(MV_PAR03) .And. MV_PAR02<=MV_PAR03		Informe el número de la Nota de Débito Final

MATA486C

X1_ORDEM	X1_PERGUNT	X1_TIPO	X1_TAMANHO	X1_VAR01	X1_VALID	X1_F3	X1_HELP
01	¿Serie de Nota de Crédito?	Carácter	3	MV_PAR01		SERNF	Informe el número de Serie de la Nota de Crédito
02	¿Nota de Crédito Inicial?	Carácter	13	MV_PAR02			Informe el número de la Nota de Crédito Inicial
03	¿Nota de Crédito Final?	Carácter	13	MV_PAR03	!Empty(MV_PAR03) .And. MV_PAR02<=MV_PAR03		Informe el número de la Nota de Crédito Final

MATA486E

X1_ORDEM	X1_PERGUNT	X1_TIPO	X1_TAMANHO	X1_VAR01	X1_VALID	X1_F3	X1_HELP
01	¿Serie de la Remisión?	Carácter	3	MV_PAR01		SERNF	Informe el número de Serie de la Remisión
02	¿Remisión Inicial?	Carácter	13	MV_PAR02			Informe el número de la Remisión Inicial
03	¿Remisión Final?	Carácter	13	MV_PAR03	!Empty(MV_PAR03) .And. MV_PAR02<=MV_PAR03		Informe el número de la Remisión Final

MATA486F

X1_ORDEM	X1_PERGUNT	X1_TIPO	X1_TAMANHO	X1_VAR01	X1_VALID	X1_F3	X1_DEF01	X1_HELP
01	¿Serie de documento?	Carácter	3	MV_PAR01	NaoVazio()	SERNF		Informe serie del documento.
02	¿Documento inicial?	Carácter	13	MV_PAR02				Informe el número de documento inicial.
03	¿Documento final?	Carácter	13	MV_PAR03	NaoVazio() .And. MV_PAR03>=MV_PAR02			Informe el número de documento final.
04	¿Formato?	Numérico	1	MV_PAR04	NaoVazio()		PDF	Informe formato de generación de representación impresa.

- Estatus Documentos

Totvs custom tabs box items

default	no
referencia	paso7

SD - Estatus Documentos

Clave

Descripción

1

NO TRANSMITIDA

2

RECIBIDO

3

ESPERANDO PROCESAMIENTO

4

DOCUMENTO RECHAZADO

5

DOCUMENTO AUTORIZADO

8

DOCUMENTO CANCELADO/INUTILIZADO

Clave	Descripción
1	NO TRANSMITIDA
2	RECIBIDO
3	ESPERANDO PROCESAMIENTO
4	DOCUMENTO RECHAZADO
5	DOCUMENTO AUTORIZADO
8	DOCUMENTO CANCELADO/INUTILIZADO

Totvs custom tabs box items

default	no
referencia	paso8

Leyenda/Estatus

Color	Estatus	Condición
Gris	No Transmitida	(F1_FLFTEX/F2_FLFTEX = '' o F1_FLFTEX/F2_FLFTEX = '0')
Azul	Recibido	(F1_FLFTEX/F2_FLFTEX = '1')
Amarillo	Esperando procesamiento	(F1_FLFTEX/F2_FLFTEX = '4' o F1_FLFTEX/F2_FLFTEX = '2')
Rojo	Documento rechazado	(F1_FLFTEX/F2_FLFTEX == '5' o F1_FLFTEX/F2_FLFTEX == '3')
Verde	Documento autorizado	(F1_FLFTEX/F2_FLFTEX = '6')
Blanco	Documento inutilizado	(F1_FLFTEX/F2_FLFTEX = '8' y F1_FECANF/ F2_FECANTF vacío).
Café	Documento cancelado	(F1_FLFTEX/F2_FLFTEX = '8' y F1_FECANF/ F2_FECANTF diferente de vacío (con fecha de cancelación)).

Importante

Aviso

title	IMPORTANTE

Los documentos cancelados e inutilizados son identificados con el valor 8 en el campo Estatus Transmisión (F1_FLFTEX/F2_FLFTEX). Para

diferencias

diferenciar estos documentos, se verifica si fue informada la fecha de cancelación (F1_FECANTF/F2_FECANTF). Los documentos cancelados sí tienen informada una fecha de cancelación; y los documentos inutilizados no tienen informada fecha de cancelación.

Leyenda/Estatus de los documentos