01. DATOS GENERALES
| Producto | TOTVS Backoffice | ||||||||||||||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| Línea de producto: | Línea Protheus | ||||||||||||||||||||||||
| Segmento: | Backoffice | ||||||||||||||||||||||||
| Módulo: | SIGAFAT - Facturación. | ||||||||||||||||||||||||
| Función: |
| ||||||||||||||||||||||||
| País: | Perú | ||||||||||||||||||||||||
| Ticket: | 13222117 | ||||||||||||||||||||||||
| Requisito/Story/Issue (informe el requisito vinculado): | DMINA-14701 |
02. SITUACIÓN/REQUISITO
Para la transmisión electrónica de documentos a la entidad Superintendencia Nacional de Aduanas y de Administración Tributaria (SUNAT) a través de TSS-Siganture, se solicita que al transmitir Facturas/Boletas de Venta (NF) y Notas de Débito de Cliente (NDC), se active la funcionalidad para el tipo de Operación Sujeta a Detracción.
03. SOLUCIÓN
Rutina de Funciones Genéricas Transmisión Electrónica Perú (TSS-Signature) - M485XFUNPE.
Se realizan ajusten en las funciones que Obtienen datos del encabezado del documento (M485TotEnc) y Obtienen el detalle de los impuestos de las Facturas de Venta, Notas de Débito de Cliente y Notas de Crédito de Cliente (NFAEDetImp), para acumular el valor del cálculo de las Detracciones retornando en la posición 6 valor lógico que indica si el documento tiene cálculo de detracciones (.T. si contiene detracciones en caso contrario .F.) y en la posición 7 el valor de detracciones para ser eliminado en el elemento <Monto> del nodo <Referencia> que es creado cuando en la Condición de Pago utilizada para el documento el campo Tipo Pago (E4_MPAGSAT) se encuentra configurado con valor 2 - Crédito.
En la función que Genera el nodo <Totales> (fGetSubTot) se realiza ajuste para que si el documento tiene cálculo de Detracciones en el nodo Encabezado/Totales:
Se agrega el atributo <MntRet> con el monto del documento incluyendo los impuestos menos el valor de las detracciones.
Se agrega un nuevo nodo <TotSubMonto> con los siguientes atributos:
- <Tipo>: "2003"
- <TipoTipoMonto>: Valor del campo F2_CODDOC con valores del catálogo 54-Códigos de bienes y servicios sujetos a detracciones
- <TasaConcepto>: Valor de la alícuota de las detracciones.
- <MontoConcepto>: Valor acumulado de las detracciones del documento.
En la función que Obtiene datos requeridos para las cuotas y el saldo acumulado de todas las cuotas del documento (M485CUOTA) se agrega un nuevo parámetro que recibe el valor de las detracciones a descontar en el elemento <Monto> para cada nodo <Referencia>
Archivo de la Estructura XML de Documentos Electrónicos de Salida para Perú (TSS-Signature).
Se realizaron los siguientes ajustes:
En el llamado a la función Obtiene datos requeridos para las cuotas y el saldo acumulado de todas las cuotas del documento (M485CUOTA) se agrega el valor de las detracciones a descontar en el elemento <Monto> para cada nodo <Referencia>
Se almacena el valor del parámetro MV_TKN_EMP el cual se asigna a la generación del atributo <FormaPago> en el nodo /Encabezado/IdDoc si el documento tiene cálculo de Detracciones.
Se agrega generación de atributo <MedioPago> el cual es llenado con el valor informado en el campo Medio Pago (F2_MODCONS) si el documento tiene cálculo de Detracciones.
Se mueve la generación del atributo <MntRet> para que se genere después del atributo <MntDcto> y que se le descuente el valor del cálculo de Detracciones.
Para la funcionalidad estándar se movió el uso de la función ENCODEUTF8() ya que al transmitir un documento con más de un ítem, el XML se generaba erróneamente y causaba rechazo por esquema.
IMPORTANTE
- Para la visualización de los campos Bien/Ser Det (F2_CODDOC) y Medio Pago (F2_MODCONS), es necesario tener actualizadas las rutinas LOCXNF y LOCXPER con fecha mayor o igual a las mencionadas en la sección 01. DATOS GENERALES.
- En caso de que se tengan personalizaciones en el archivo FATSPERTSS.INI en la sección 04. INFORMACIÓN ADICIONAL se muestran los ajustes necesario para poder realizar merge al archivo.
- Para la carga de los catálogos S054 y S059 es necesario tener actualizada la rutina FISA814 con fecha mayor o igual a la mencionada en la sección 01. DATOS GENERALES. Colocar los archivos CatalogoNo54.csv y CatalogoNo59.csv en la ruta local que está configurada en el parámetro MV_PATH814 para que al entrar a las rutinas Definición de Catálogos (FISA812) o Mantenimiento de Catálogos (FISA813) se realice la carga en automático.
- Los catálogos S051, S054 y S059 deben contener los siguiente datos:
Catálogo 51 - Código de tipo de operación.
Catálogo 54 - Códigos de bienes y servicios sujetos a detracciones.
Catálogo 59 - Medios de Pago.
- Realizar un respaldo del repositorio del ambiente (archivo .rpo)
- Aplicar el parche generado para la issue DMINA-14701.
- Realizar un respaldo del archivo FATSPERTSS.INI que se encuentra en la ruta configurada en el parámetro MV_CFDFTS.
- Realizar las configuraciones a diccionario que se mencionan en la sección 04. INFORMACIÓN ADICIONAL.
- Validar que las rutinas actualizadas en el repositorio, coincidan con las descritas en la sección función del punto 01. DATOS GENERALES.
- Configurar el parámetro MV_TKN_EMP con la Cuenta Corriente para detracciones del Banco Nacional (Ejemplo: 0004-3342343243).
- En el módulo Facturación (SIGAFAT), ir al menú Actualizaciones | Archivos | Mantenimiento de Catálogos (FISA813).
- Validar que se tengan cargados los catálogos S051, S054 y S059 de acuerdo a los definidos por la SUNAT.
- Validar que que en catálogo S051 existan los códigos 1001, 1002, 1002 o 1003 de tipo de Operación Sujeta a Detracción.
- En el módulo Facturación (SIGAFAT), ir al menú Actualizaciones | Archivos | Impuestos Variable.
- Configurar impuesto de IGV indicando en el campo Clase Imp. (FB_CLASSE) el valor I-Impuesto.
- Configurar impuesto de Detracción indicando en el campo Clase Imp. (FB_CLASSE) el valor D-Detracción.
- En el módulo Facturación (SIGAFAT), ir al menú Actualizaciones | Archivos | Tipos de Entrada y Salida.
- Configurar un Tipo de Salida que contenga el cálculo de los impuestos de IGV y Detracción configurados previamente.
- En el módulo Facturación (SIGAFAT), ir al menú Actualización | Archivos | Facturaciones (MATA467N).
- Incluir una nueva Factura de Salida (NF).
- Informar en el encabezado el campo Tipo NF (F2_TIPONF) con el código 1001, 1002, 1002 o 1003 de tipo de Operación Sujeta a Detracción.
- Informar en el encabezado el campo Bien/Ser Det (F2_CODDOC) con un valor del Catálogo No. 54 de la SUNAT de Códigos de bienes y servicios sujetos a detracciones.
- Informar en el encabezado el campo Medio Pago (F2_MODCONS) con un valor del Catálogo No. 59 de la SUNAT de Medios de Pago.
- En el detalle informar la Cantidad, Valor Unit, Valor Total y el Tipo de Salida que contenga el cálculo del impuesto de Detracción.
- En el módulo Facturación (SIGAFAT), ir al menú Actualizaciones | Facturación | Transmisión Electrónica (MATA485).
- Informar los parámetros:
- ¿Tipo de Documento?: Factura
- ¿Serie?: Serie de la Factura de Venta creada previamente.
- Ejecutar la acción Transmitir.
- En la pantalla "Asistente de Transmisión Electrónica"
- Presionar el botón Param.
- En el parámetro ¿Serie de la Factura? informar la Serie de la Factura de Venta creada previamente.
- En el parámetro ¿Factura Inicial? informar el Folio de la Factura de Venta creada previamente.
- En el parámetro ¿Factura Final? informar el Folio de la Factura de Venta creada previamente.
- Presionar Ok, para confirmar los parámetros.
- Presionar Ok, para confirmar el inicio del proceso de la transmisión.
- Validar que el proceso de transmisión haya sido exitoso.
- En el XML de la Factura de Salida validar:
- En el nodo /Encabezado/IdDoc se visualicen los elementos <FormaPago> (con el valor del parámetro MV_TKN_EMP) y <MedioPago> (con el valor que fue informado en el campo F2_MODCONS)
- En el nodo /Encabezado/Totales se visualiza el monto del documento el monto de las Detracciones, así como se genera el nodo <TotSubMonto> para el Tipo 2003 (Detracciones) donde se muestran los elementos <CodTipoMonto> (con el valor que fue informado en el campo F2_CODDOC), <TasaConcepto> (Con el valor de la tasa de las Detracciones) y <MontoConcepto> (Con el valor total de las Detracciones.)
- Si en la Condición de Pago el campo Tipo Pago (E4_MPAGSAT) se encuentra configurado con valor 2 - Crédito y existe cálculo de Detracciones en los nodos <Referencia> de las cuotas no se toma en cuenta en el elemento <Monto> el valor de las Detracciones.
04. INFORMACIÓN ADICIONAL
DICCIONARIO DE DATOS:
IMPORTANTE
Los ajustes al Diccionario de Datos fueron realizados en el pacote: 007891- DMINA-9655 - FE CON DETRACCIONES PER 12.1.27. (Uso interno )
Mediante el Configurador (SIGACFG), realizar las siguientes configuraciones al Diccionarios de Datos, en modo exclusivo y en conjunto con el Administrador del Sistema:
Crear la consulta estándar PER059 para el catálogo Códigos de bienes y servicios sujetos a detracciones - (SXB - Consultas Estándar).
Alias | Tipo | Secuencia | Columna | Descripción | Contenido |
PER059 | 1 | 01 | RE | Bien/Servicio Detrac | F3I |
PER059 | 2 | 01 | 01 | Bien/Servicio Detrac | F812SXB("S059","Codigo") |
PER059 | 5 | 01 | VAR_IXB |
En la tabla Encabezado de Fact. de Salida (SF2), se deben configurar los siguientes campos - (SX3 - Campos):
Campo | F2_CODDOC |
Tipo | C |
Tamaño | 3 |
Decimal | 0 |
Formato | @! |
Título | Bien/Ser Det |
Descripción | Bien/Ser de Detracción |
Nivel | 1 |
Utilizado | Sí |
Obligatorio | No |
Browse | No |
Consulta | PER054 |
Val. Sistema | Vazio() .OR. ValidF3I("S054", M->F2_CODDOC, 1, 3) |
Help | Código de bienes y servicios sujetos a detracciones, de acuerdo al catálogo 54 de la SUNAT. |
Campo | F2_MODCONS |
Tipo | C |
Tamaño | 3 |
Decimal | 0 |
Formato | @! |
Título | Medio Pago |
Descripción | Medio de Pago |
Nivel | 1 |
Utilizado | Sí |
Obligatorio | No |
Browse | No |
Consulta | PER059 |
Val. Sistema | Vazio() .or. ValidF3I("S059", M->F2_MODCONS,1,3) |
Help | Código del medio de pago, de acuerdo al catálogo 59 de la SUNAT. |
Para la funcionalidad de Generación de Factura de Venta desde Pedidos de Venta:
En la tabla Pedidos de Venta (SC5), se deben configurar los siguientes campos - (SX3 - Campos):
Campo | C5_CODVGLP |
Tipo | C |
Tamaño | 3 |
Decimal | 0 |
Formato | @! |
Título | Bien/Ser Det |
Descripción | Bien/Ser de Detracción |
Nivel | 1 |
Utilizado | Sí |
Obligatorio | No |
Browse | No |
Consulta | PER054 |
Val. Sistema | Vazio() .or. ValidF3I("S054", M->C5_CODVGLP,1,3) |
Help | Código de bienes y servicios sujetos a detracciones, de acuerdo al catálogo 54 de la SUNAT. |
Campo | C5_MODANP |
Tipo | C |
Tamaño | 3 |
Decimal | 0 |
Formato | @! |
Título | Medio Pago |
Descripción | Medio de Pago |
Nivel | 1 |
Utilizado | Sí |
Obligatorio | No |
Browse | No |
Consulta | PER059 |
Val. Sistema | Vazio() .or. ValidF3I("S059", M->C5_MODANP,1,3) |
Help | Código del medio de pago, de acuerdo al catálogo 59 de la SUNAT. |
ARCHIVO FATSPERTSS.INI:
Se enmarcan en color azul los ajustes que deben realizarse en el archivo estándar para activar la funcionalidad de Detracciones.
[XXX INICIALIZACION]
(PRE) SD2->(DbSetOrder(1))
(PRE) SB1->(DbSetOrder(1))
(PRE) SYA->(DbSetOrder(1))
(PRE) SAH->(DbSetOrder(1))
(PRE) _aTotal[002] := chr(13) + chr(10)
(PRE) _aTotal[003] := "99999999999999.99"
(PRE) _aTotal[004] := {"SD2",""}
(PRE) _aTotal[005] := IIf(Alltrim(SF2->F2_ESPECIE)=="NF","factura","notaDebito")
(PRE) _aTotal[006] := Alltrim(SF2->F2_SERIE) + Alltrim(SF2->F2_DOC) + Alltrim(SF2->F2_ESPECIE)
(PRE) _aTotal[007] := SuperGetMV("MV_CFDIAMB",.F.,"2")
(PRE) _aTotal[008] := M485TotEnc(1, SF2->F2_SERIE, SF2->F2_CLIENTE, SF2->F2_LOJA, SF2->F2_DOC, SF2->F2_ESPECIE, _aTotal[007],SF2->F2_SERIE2)
(PRE) _aTotal[009] := TamSX3("F2_DOC")[1]
(PRE) _aTotal[010] := ""
(PRE) _aTotal[011] := 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+"Z"
(PRE) _aTotal[012] := ""
(PRE) _aTotal[013] := alltrim(SA1->A1_EST) == "EX"
(PRE) _aTotal[014] := alltrim(fGetSX5("XQ" + STR(SF2->F2_MOEDA,2)))
(PRE) _aTotal[015] := ""
(PRE) _aTotal[016] := ""
(PRE) _aTotal[017] := IIf(Alltrim(SF2->F2_ESPECIE)=="NF",IIf(Substr(SF2->F2_SERIE2,1,1)=="F","01","03"),"08")
(PRE) _aTotal[018] := M485TPPAG(xFilial("SE4"), SF2->F2_COND)
(PRE) _aTotal[019] := M485CUOTA(SF2->F2_FILIAL,SF2->F2_CLIENTE,SF2->F2_LOJA,SF2->F2_SERIE,SF2->F2_DOC,SF2->F2_ESPECIE,SF2->F2_HORA,_aTotal[008][7])
(PRE) _aTotal[020] := Alltrim(SuperGetMV("MV_TKN_EMP",.F.,""))
(PREREG) FsQuery(_aTotal[004],1,"D2_DOC='" + SF2->F2_DOC + "' AND D2_SERIE='" + SF2->F2_SERIE + "' AND D2_CLIENTE='" + SF2->F2_CLIENTE + "' AND D2_LOJA='" + SF2->F2_LOJA + "'","SD2->D2_DOC=SF2->F2_DOC .AND. SD2->D2_SERIE=SF2->F2_SERIE .AND. SD2->D2_CLIENTE=SF2->F2_CLIENTE .AND. SD2->D2_LOJA=SF2->F2_LOJA","D2_ITEM") .And. .T.
[XXX ENCABEZADO]
(PRE) SA1->(MSSeek(xFilial("SA1") + SF2->F2_CLIENTE + SF2->F2_LOJA))
(PRE) SYA->(MsSeek(xFilial("SYA") + SA1->A1_PAIS))
(PREREG) (_aTotal[001] := '<?xml version="1.0" encoding="iso-8859-1"?>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += '<DTE version="1.1.0" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:noNamespaceSchemaLocation="DTE_v1.0.xsd">' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += '<Documento ID="'+ ALLTRIM(SF2->F2_SERIE2) + ALLTRIM(SF2->F2_DOC) +'">' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += '<Encabezado>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <IdDoc>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <Ambiente>' + _aTotal[007] + '</Ambiente>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <TipoEmision>' + IIf(Alltrim(SF2->F2_ESPECIE)=="NF",SF2->F2_TIPONF,"NORMAL") + '</TipoEmision>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <ContenidoTC></ContenidoTC>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <Tipo>' + _aTotal[017] + '</Tipo>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <Serie>' + Alltrim(SF2->F2_SERIE2) + '</Serie>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <Numero>' + ALLTRIM(substr(SF2->F2_DOC,(_aTotal[009]-7),8)) + '</Numero>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <Estado>ORIGINAL</Estado>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <NumeroInterno>' + Alltrim(SF2->F2_DOC) + '</NumeroInterno>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <FechaEmis>' + _aTotal[011] + '</FechaEmis>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += IIf(Len(_aTotal[008])>= 6 .And. _aTotal[008][6],' <FormaPago>' + Alltrim(_aTotal[020]) + '</FormaPago>' + _aTotal[002],""),.T.)
(PREREG) (_aTotal[001] += IIf(SF2->(ColumnPos("F2_MODCONS")) > 0 .And. _aTotal[008][6],' <MedioPago>' + Alltrim(SF2->F2_MODCONS) + '</MedioPago>' + _aTotal[002],""),.T.)
(PREREG) (_aTotal[001] += IIF(Alltrim(SF2->F2_ESPECIE)=="NF" .And. Substr(SF2->F2_SERIE2,1,1)=="F",' <CondPago>' + IIf(_aTotal[018] == "1","Contado","Credito") + '</CondPago>' + _aTotal[002],""),.T.)
(PREREG) (_aTotal[001] += ' </IdDoc>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <Emisor>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <TipoContribuyente></TipoContribuyente>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <RegimenContable></RegimenContable>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <IDEmisor>' + Alltrim(SM0->M0_CGC) + '</IDEmisor>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <NmbEmisor>' + Alltrim(SM0->M0_NOME) + '</NmbEmisor>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <NombreEmisor>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <PrimerNombre>' + Alltrim(SM0->M0_NOMECOM) + '</PrimerNombre>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' </NombreEmisor>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <FechaInicioActividades>2016-01-01</FechaInicioActividades>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <DomFiscal>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <Calle>' + Alltrim(SM0->M0_ENDENT) + " " + Alltrim(SM0->M0_COMPENT) + '</Calle>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <Departamento>' + Alltrim(SM0->M0_CIDENT) + '</Departamento>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <Distrito>' + Alltrim(SM0->M0_CIDENT) + '</Distrito>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <Ciudad>' + Alltrim(SM0->M0_CIDENT) + '</Ciudad>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <Municipio>' + Alltrim(SM0->M0_CIDENT) + '</Municipio>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <Pais>PE</Pais>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <CodigoPostal>' + ALLTRIM(SM0->M0_CEPENT) + '</CodigoPostal>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <GLN>' + Alltrim(SM0->M0_DSCCNA)+ '</GLN>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' </DomFiscal>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <LugarExped>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <Calle>' + Alltrim(SM0->M0_ENDENT) + " " + Alltrim(SM0->M0_COMPENT) + '</Calle>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' </LugarExped>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' </Emisor>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <Receptor>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <DocRecep>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <TipoDocRecep>' + Alltrim(SA1->A1_TIPDOC) + '</TipoDocRecep>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <NroDocRecep>' + IIF(Alltrim(SA1->A1_TIPDOC) $ "06",ALLTRIM(SA1->A1_CGC),IIF(_aTotal[013],"-",ALLTRIM(SA1->A1_PFISICA))) + '</NroDocRecep>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' </DocRecep>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <NmbRecep>' + Alltrim(SA1->A1_NOME) + '</NmbRecep>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += IIF(!Empty(SA1->A1_EMAIL),' <Contacto>' + ALLTRIM(SA1->A1_EMAIL) + '</Contacto>' + _aTotal[002],""),.T.)
(PREREG) (_aTotal[001] += ' <DomFiscalRcp>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <Calle>'+ Alltrim(SA1->A1_END) +'</Calle>'+ _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <Departamento>'+ fGetSX5("12"+SA1->A1_EST) + '</Departamento>'+ _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <Distrito>' + alltrim(SA1->A1_BAIRRO) + '</Distrito>'+ _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <Ciudad>' + alltrim(SA1->A1_BAIRRO) + '</Ciudad>'+ _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <Municipio>' + alltrim(SA1->A1_MUN) + '</Municipio>'+ _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <Pais>' + Alltrim(Posicione("SYA",1,xFilial("SYA") + SA1->A1_PAIS,"SYA->YA_CODERP")) + '</Pais>'+ _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <CodigoPostal>' + Alltrim(SA1->A1_CEP) + '</CodigoPostal>'+ _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <GLN>' + Alltrim(SA1->A1_GLN) + '</GLN>'+ _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' </DomFiscalRcp>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' </Receptor>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <Transporte>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <MedioTransporte>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <MetodoTransp>MetodoTransp</MetodoTransp>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' </MedioTransporte>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' </Transporte>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <Totales>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <Moneda>' + _aTotal[014] + '</Moneda>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <SubTotal>' + Alltrim(TRANSFORM(_aTotal[008][2], _aTotal[003])) + '</SubTotal>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += IIF(SF2->F2_DESCONT > 0,' <MntDcto>' + Alltrim(TRANSFORM(SF2->F2_DESCONT, _aTotal[003])) + '</MntDcto>' + _aTotal[002],""),.T.)
(PREREG) (_aTotal[001] += IIf(Len(_aTotal[008])>= 6 .And. _aTotal[008][6] .And. _aTotal[018] == "2",' <MntRet>' + Alltrim(TRANSFORM(SF2->F2_VALBRUT-_aTotal[008][7],_aTotal[003])) + '</MntRet>' + _aTotal[002],""),.T.)
(PREREG) (_aTotal[001] += ' <VlrPagar>' + Alltrim(TRANSFORM( IIF(!_aTotal[008][3],SF2->F2_VALBRUT,0), _aTotal[003])) + '</VlrPagar>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <VlrPalabras>' + IIF(!_aTotal[008][3],EXTENSO(SF2->F2_VALBRUT,.f.,SF2->F2_MOEDA), fCero2Txt(SF2->F2_MOEDA))+ '</VlrPalabras>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <MontoPropina>0.00</MontoPropina>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += _aTotal[008][4],.T.)
(PREREG) (_aTotal[001] += ' </Totales>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += _aTotal[008][5],.T.)
(PREREG) (_aTotal[001] += '</Encabezado>' + _aTotal[002],.T.)
[SD2 INVOICE]
(PRE) DbGoTop()
(PREREG) (SB1->(DbSeek(xFilial("SB1") + SD2->D2_COD)),.T.)
(PREREG) (SAH->(DbSeek(xFilial("SAH") + SB1->B1_UM)),.T.)
(PREREG) _aTotal[010] := M485DETIMP(SD2->D2_SERIE,SD2->D2_CLIENTE,SD2->D2_LOJA,SD2->D2_DOC,SD2->D2_ITEM,SF2->F2_ESPECIE,SD2->D2_COD, 1)
(PREREG) _aTotal[016] := Posicione("SAH",1,xFilial("SAH")+ SB1->B1_UM,"AH_COD_CO")
(PREREG) (_aTotal[001] += '<Detalle>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <NroLinDet>' + Alltrim(SD2->D2_ITEM) + '</NroLinDet>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <CdgItem>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <TpoCodigo>' + Alltrim(SB1->B1_PRODSAT) + '</TpoCodigo>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <VlrCodigo>' + Alltrim(SB1->B1_COD) + '</VlrCodigo>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' </CdgItem>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <IndExe>1</IndExe>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <DscLang>ES</DscLang>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <DscItem>' + Alltrim(SB1->B1_DESC) + '</DscItem>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <QtyItem>' + Alltrim(TRANSFORM(SD2->D2_QUANT,_aTotal[003])) + '</QtyItem>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <UnmdItem>' + _aTotal[016] + '</UnmdItem>'+ _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <PrcBrutoItem>' + Alltrim(TRANSFORM(IIF(!_aTotal[010][7],_aTotal[010][1],0),_aTotal[003])) + '</PrcBrutoItem>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <PrcNetoItem>' + Alltrim(TRANSFORM(_aTotal[010][2],_aTotal[003])) + '</PrcNetoItem>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <DescuentoMonto>' + Alltrim(TRANSFORM(SD2->D2_DESCON,_aTotal[003])) + '</DescuentoMonto>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += _aTotal[010][3],.T.)
(PREREG) (_aTotal[001] += _aTotal[010][5],.T.)
(PREREG) (_aTotal[001] += ' <MontoBrutoItem>' + ALLTRIM(TRANSFORM(_aTotal[010][1] ,_aTotal[003])) +'</MontoBrutoItem>'+ _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <MontoNetoItem>' + ALLTRIM(TRANSFORM(_aTotal[010][1] ,_aTotal[003])) +'</MontoNetoItem>'+ _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <MontoTotalItem>' + ALLTRIM(TRANSFORM(_aTotal[010][4] ,_aTotal[003])) +'</MontoTotalItem>'+ _aTotal[002],.T.)
(PREREG) (_aTotal[001] += _aTotal[010][6],.T.)
(PREREG) (_aTotal[001] += '</Detalle>' + _aTotal[002],.T.)
[XXX INVOICE_FIN]
(PREREG) (_aTotal[001] := IIF(Alltrim(SF2->F2_ESPECIE)=="NF" .And. Substr(SF2->F2_SERIE2,1,1)=="F" .And. _aTotal[018] == "2",_aTotal[019][1],""),.T.)
(PREREG) _aTotal[015] += IIF(Alltrim(SF2->F2_ESPECIE)=="NF","",M485GETREF(SF2->F2_NFREF,SF2->F2_SERREF,SF2->F2_CLIENTE,SF2->F2_LOJA,SF2->F2_ESPECIE,.F.,SF2->F2_MOTIVO,SF2->F2_TIPREF))
(PREREG) (_aTotal[001] += _aTotal[015],.T.)
(PREREG) (_aTotal[001] += '<CAE>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <Tipo>String</Tipo>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <NumeroInicial>' + Alltrim(SF2->F2_DOC) + '</NumeroInicial>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <NumeroFinal>' + Alltrim(SF2->F2_DOC) + '</NumeroFinal>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <NroResolucion>' + Alltrim(SF2->F2_DOC) + '</NroResolucion>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += ' <FechaResolucion>' + Substr(_aTotal[011],1,10) + '</FechaResolucion>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += '</CAE>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += '<TimeStamp>' + _aTotal[011] + '</TimeStamp>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += '</Documento>' + _aTotal[002],.T.)
(PREREG) (_aTotal[001] += '</DTE>',.T.)
(PREREG) ENCODEUTF8(_aTotal[001])
(POS) FsQuery(_aTotal[004],2)
[XXX FACTURA]
(PRE) _aTotal[094] := _aTotal[006] + ".XML"
(ARQ) _aTotal[094]
Se debe contar con la funcionalidad de Facturación Electrónica para el país Perú con transmisión a la SUNAT a través de TSS-Signature desde la rutina de Transmisión Electrónica (MATA485); y la solución aplica para versión 12.1.17, 12.1.27 o superior.
¡IMPORTANTE!
05. ASUNTOS RELACIONADOS
- Documento Técnico de Generación de documentos electrónicos con TSS para país Perú UBL 2.1
- Documento Técnico para Nodo de Forma de Pago para Perú TSS-Signature
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas