Histórico da Página

Información General

   Leyenda: 1 – Innovación 2 – Mantenimiento (Los demás campos se deben completar en ambos los procesos). 

Objetivo

Crear la función  M486CERXML para generar XML del resumen diario así como realizar el envío de este XML a TSS.

Modificar FINA085A para que guarde el contenido del parámetro MV_CRSERIE en el campo FE_SERIE2 al generarse el Comprobante de Retención.

Modificar MATA486 para tratamiento de monitoreo y transmisión de comprobante de retención.

Definición de la Regla de Negocio

Modificar la rutina Documentos Electrónicos (MATA486) , que permita realizar la transferencia y monitoreo de  los documentos fiscales:

• Certificados de Retención

Generar y enviar hacia TSS en formato xml bajo el estándar UBL  que  solicita la SUNAT.

Al ingresar a la rutina, deberá válidar que si es detonada desde el módulo de Libros Fiscales(SIGAFIS) o Compras(SIGACOM)  no preguntar tipo de documento, mostrar directamente los comprobantes de Retención. 

Visualizará el browse del rutina (Prototipo 1)  con los Comprobantes de Retención(SFE). Dentro de las opciones de la rutina, se encontrarán(Prototipo 2):

• Configuración
• Ambiente
• Transmitir
• Monitor
• Imprimir PDF
• Visualizar
• Leyenda

Opción Configuración:

Esta opción Configuración (Prototipo 3) permitirá configurar la conexión de Protheus con TSS. Se abrirá un wizard (Prototipo 4) en dónde pedirán los siguientes datos:

• Informe la URL del Servidor Totvs Services: Se deberá informar la url para conexión con los Web services de TSS. Campo tipo carácter de 100 caracteres, obligatorio.   Ejemplo: http://localhost:8081/ws
• Informe ruta Certificado digital: Con la función cgetfile, deberá permitir buscar la ruta del certificado digital en formato pfx.
• Informe Contraseña Certificado Digital: Contraseña del Certificado digital.  
• Ambiente: Homologación/Producción en una lista desplegable.

Al dar clic en “Avanzar”,  deberá detonar la siguiente funcionalidad:

1. Validar que los datos  de URL de TSS, Certificado y password no estén vacíos, de lo contrario deberá enviar mensaje al usuario indicando qué dato está vacío y no deberá permitir continuar con el proceso.
2. Validar que los datos siguientes estén registrados en el sigamat (SM0):
   
   • SM0->M0_CIDCOB
   • SM0->M0_ESTENT
   • SM0->M0_ENDENT
   • SM0-> M0_CEPENT
   • SM0->CIDENT
   • SM0->M0_NOME
   • SM0->M0_FAX
   • SM0->M0_TEL
   • SM0->M0_INS
   • SM0->M0_NOMECOM
   • SM0->M0_CGC

   Si alguno de los datos está vació, deberá enviar mensaje al usuario y no continuar con el proceso.

3. Si las validaciones anteriores están ok, deberá guardar en el parámetro MV_WSRTSS,  el url de los web services de TSS.
4. Detonar Web Method ADMEMPLOC para crear entidad en TSS.
   
   • Usertoken : “TOTVS”
   • Empresa:
   • • BAIRRO = SM0->M0_BAIRENT
     • CIDADE = SM0->M0_CIDCOB
     • COD_PAIS=604
     • CODFIL = FWGETCODFILIAL
     • CODPROVINC = SM0->M0_ESTENT
     • COMPL= FisGetEnd(SM0->M0_ENDENT)[4]
     • CP=vacio
     • CUIT = vacio
     • DDN= vacio
     • DESCPROVINC= SM0->CIDENT

   El idEnt que retorna el web Method, deberá ser utilizado en el siguiente paso.

    
5. Detonar Web Method CFGLOCCERTPFX para enviar y guardar el certificado digital y el password en TSS.
   
   
   Usertoken : “TOTVS”
   ID_ENT: Id Ent obtenido en el paso anterior.
   Certificate: Archivo de certificado
   Password: Contraseña del Certificado.
   
   
6. Detonará Web Method CFGAMBLOC para enviar la configuración de ambiente seleccionada por el usuario hacia TSS. Realizar el consumo de la siguiente manera:
   
   
   • USERTOKEN : "TOTVS"
   • ID_ENT    : Id Ent obtenido en el paso anterior
   • Ambiente  := Opción seleccionada por el usuario.
7. Si todo es Ok, Indicar mensaje de éxito al usuario. Prototipo 5
8. Si existió algún problema, indicar con mensaje al usuario.
   
   

Opción Transmitir.

Esta opción tiene como objetivo realizar el proceso de transmisión de un documento hacia TSS. Esta función deberá ser independiente y puede ser llamada desde un menú o dentro de otra función.  Al detonar esta opción, se mostrará el grupo de preguntas MATA485E para Comprobantes de Retención(Prototipo 6). Se deberá indicar rango de documentos a transmitir. Al dar clic en ok, deberá:

1. Deberá validar que el parámetro MV_WSTSS no esté vacío, de lo contrario deberá enviar mensaje en pantalla al usuario indicando: “No se realizó la Configuración de conexión con TSS. Ejecute opción de configuración” (Prototipo 7).  Si el parámetro está ok, continuar al siguiente paso.
2. Deberá validar que exista conexión con TSS. (Revisar funcionalidad de Argentina) Si la conexión es Ok, deberá seguir al paso siguiente, de lo contrario enviar mensaje al usuario indicando lo siguiente: “Imposible establecer conexión con Totvs Services Server. TSS offline.” (Prototipo 8)
3. Validar que los siguientes campos del sigamat, tengan contenido:
   
   • SM0->M0_CIDCOB
   • SM0->M0_ESTENT
   • SM0->M0_ENDENT
   • SM0-> M0_CEPENT
   • SM0->CIDENT
   • SM0->M0_NOME
   • SM0->M0_FAX
   • SM0->M0_TEL
   • SM0->M0_INSC
   • SM0->M0_NOMECOM
   • SM0->M0_CGC 
     
     Si alguno se encuentra vacío, se deberá informar al usuario y no permitir seguir con el proceso. Ejemplo “Falta informar Código Postal del Emisor. Revise Datos de la Empresa:” + SM0->SM0_NOM
     
     
4. Seleccionar aquellos comprobantes de retención que se encuentren dentro del rango indicado en parámetros y que no hayan sido autorizados previamente (FE_STATUS <> ‘6’) y que no hayan sido RECHAZADOS por la SUNAT (FE_STATUS<>’5’) y que la fecha de emisión(FE_EMISSAO) se encuentre en un rango de hasta 7 días anteriores a la fecha de transmisión. Por cada registro Validar:
   
   • Datos del PROVEEDOR: Deberá revisar que el registro del cliente a quien se emitió el documento, tenga información en los siguientes campos:
     
     

     RUC (A2_CGC)

     Nombre(A2_NOME)

     Domicilio fiscal (A2_END, A2_EST,A2_BAIRRO, A2_MUN, A2_PAIS, A2_CEP)

     Tipo de documento de Indentificación(A2_TIPDOC)

     Email (A2_EMAIL)

      Para el caso del tipo de Identificación (A2_TIPDOC), deberá revisar que el código exista en la tabla XN- Tipos de Identificación. Así mismo, deberá validar que el Código de País (A2_PAIS) contenga su equivalente en el campo YA_CODERP y que además este código se encuentre contenido en la tabla XT – Códigos de Países. 

     Si alguno de los datos anteriores falta deberá agregar un registro al log de transmisión indicando el dato faltante para el documento. Ejemplo:

      

     Documento        Serie  Proveedor    Tienda       Detalle

     00000001         R001   000001        01     Información faltante registro cliente RUC(A2_CGC)

     00000001         R001   000001 01     Información faltante registro cliente País(A2_PAIS)

   • Deberá Validar  que tenga contenido el campo Serie 2, de lo contrario agregar registro en el  log de Transmisión.
     

     Ejemplo:

     Documento        Serie  Proveedor Tienda Detalle

     0000000001        R001  000001        01       Serie del Comprobante vacía(FE_SERIE2)

     
     
     

5. Si el documento cumple con las validaciones anteriores, se debe generar el XML en formato UBL indicado por la SUNAT.

   • Generar XML dependiendo del tipo de documento Comprobante de Retención. Véase sección Generación de XML.
   • Deberá Transmitir el XML a TSS consumiendo el Web Method SendDoc de la siguiente manera:

   • Si no, agregar registro en el log de transmisión con el mensaje retornado por el Web Method. Ejemplo:
     Documento        Serie  Proveedor    Tienda Detalle

     00000001         R001   000001        01     El documento no cumple con Esquema

     Establecido. Rechazado TSS.

6. Si no cumplió las validaciones mencionadas en el paso 2, no debe generarse XML y validar el siguiente registro. Si cumple con las validaciones continuar al siguiente paso.

7. Al finalizar de Procesar y transmitir todos los registros:

   • Preguntar al usuario si desea visualizar log de Transmisión (Prototipo 9).
   • Si la respuesta es positiva mostrar diálogo de impresión (Prototipo 10)
   • Al dar clic en ok, mostrar informe en pantalla como  a continuación (Prototipo 11). Deberá mostrar en e lencabezado el tipo de documento a Transmitir.
     

     Tipo de documento Transmitido: Comprobante de Retención

      

     Documento        Serie  Proveedor    Tienda       Detalle

      

     00000001         R001   000001        01     Información faltante registro proveedor

     RUC (A1_CGC)

     00000001         R001   000001        01     Información faltante registro proveedor

     (A2_PAIS)

     00000003         R001   000001        01     El documento no cumple con Esquema

     Establecido. Rechazado TSS.

     00000002         R001   000001        01     Transmisión Éxitosa a TSS.

      

     Documentos procesados: 3

     Documentos con error : 2

     Documentos transmitidos:      1

   • Si la respuesta es negativa, continuar con el proceso.

    

8. Preguntar al usuario si desea monitorear los comprobantes de Retención Transmitidos a TSS (Prototipo 12).
   Si la respuesta es positiva, mostrar Monitor (Prototipo 13).  Para mayor detalle véase opción Monitor
   Si la respuesta es negativa retornar al browse principal.

Opción Monitor

El objetivo de esta opción, es obtener el resultado de la transmisión de los documentos a TSS.  La funcionalidad podrá detonarse mediante selección en el menú (se considera que esta función no sea de tipo estática, para que pueda ser llamada desde cualquier otra rutina).

Si la opción es llamada desde el menú Acciones Relacionadas:

1. Deberá pedir el rango de documentos mostrando el grupo de preguntas MATA486F para Comprobantes de Retención. Prototipo 14
2. Al confirmar los parámetros, realizar consulta a SFE para aquellos documentos donde FE_NROCERT se encuentre entre nímero comprobante inicial y número de certificado final. Por cada registro, deberá realizar consulta al Web Method ConsultaDoc enviando los siguientes parámetros:
   

   USERTOKEN: “TOTVS”

   IDENT: Id de la Entidad

   IdDoc: Id del documento formado por serie + No. De documento

   Modelo: Enviar  S7- Comprobante Retención

3. Procesar el retorno del web Method y mostrar lisbox con las columnas Documento, Serie, Fecha Autorización, Hr de Autorización,  Mensaje y Recomendación (Prototipo 15) .  El retorno del Web Method será como a continuación:
   

   <body>

         < ConsultaDocResult>

               <idDoc>String</idDoc>

               <Status>boolean</Status>

               <Ambiente>boolean</Ambiente>

               <codigo>String</codigo>       

               <descripcion>String</descricao>

                <recomendacion>String</recomendacion>     

               <FechaAut>Date</FechaAut>

               <HrAut>String</HrAut>

               <XML>Base64Binary</XML>   

         </ConsultaDocResult>                  

   </body>

    

   Status :

   Si el campo Satus  del retorno del web method corresponde con los siguientes códigos, deberá pintar según el color:

    

   Si Status es 1 Recibido por TSS Color Azúl

   Si Status es 4 Aguardando procesamiento Color Amarillo

   Si Status es 5 Documento Rechazado Color Rojo

   Si Status es 6 Documento Autorizado Color Verde

    

   Documento: Mostar propiedad idDoc del retorno del Web Method.

   Ambiente: Si el retorno del campo Ambiente es 1 colocar “Producción”, si es 2 colocar “Homologación”.

   Fch. Aut. : Fecha de Autorización del Documento. Propiedad FechaAut

   Hr. Aut.: Hora de Autorización del documento. Propiedad HrAut

   Mensaje: Mensaje retornado. Propiedad Descripción.

   Recomendación: en esta columna será informado propiedad Recomendación.

    

   Si el documento fue autorizado, deberá obtener de la propiedad XML el documento autorizado codificado en Base64 y decodificarlo. Guardarlo en la carpeta configurada en parámetro MV_CFDDOCS + “/autorizados/” +especie con nombre de archivo formado por Propiedad idDocumento + especie + extensión xml 

4. Tendrá 5 botones en la parte inferior.

• Leyenda: Mostrará significado de status presentados(Prototipo 16): 
  Azul: Recibido TSS
  Amarillo: Enviado SUNAT
  Rojo: Rechazado SUNAT
  Verde: Autorizado SUNAT

• XML Envio: Al dar clic, mostrará el XML enviado a la SUNAT. Prototipo 17
• XML SUNAT: Al dar clic, mostrará XML Autorizado por SUNAT siempre y cuando el documento seleccionado haya sido autorizado. Tomar XML de la ruta MV_CFDDOCS + “/autorizados/” +especie con nombre de archivo formado por Propiedad idDocumento + especie + extensión xml. Si el documento no ha sido autorizado, deberá enviar mensaje al usuario indicando “Opción Válida solo para documentos Autorizados.” Prototipo 18

• Refresh: Permitirá realizar la consulta a TSS y actualizar en pantalla los datos.
• Ok: Detonará la actualización de los datos obtenidos de TSS para Protheus. Llamará nuevamente el web Method ConsultaDoc, por cada registro mostrado en el monitor procesará el retorno y actualizará en Protheus:

FE_STATUS:= Propiedad Status

FE_FECAUT:= Propiedad FechaAut

• Salir: Permitirá salir del monitor, sin afectar información en Protheus. 

Generación del XML

Los parámetros que deberá recibir la función son los siguientes:

• Número de Certificado. SFE->FE_NROCERT
• Número de Dócumento SFE->FE_NFISCAL
• Serie SFE->FE_SERIEC
• Proveedor SFE->FE_FORNECE
• Tienda SFE->FE_LOJA
• Ambiente: Ambiente configurado para conexión con el TSS. Solo deberá aceptar valores 1. Homologación y 2. Producción

Buscar en SFE los registros asociados al número de documento (FE_NFISCAL=Número de documento,FE_SERIE= Serie, FE_FORNECE=Proveedor, FE_LOJA= Tienda)

Retornará XML obedeciendo a la siguiente estructura.

Ejemplo de aplicación:

• Al detonar la función M486CRXML está retornará XML como a continuación:

<?xml version="1.0" encoding="iso-8859-1" standalone="no"?>

<Retention

        xmlns="urn:sunat:names:specification:ubl:peru:schema:xsd:Retention-1"

        xmlns:cac="urn:oasis:names:specification:ubl:schema:xsd:CommonAggregateComponents-2"

        xmlns:cbc="urn:oasis:names:specification:ubl:schema:xsd:CommonBasicComponents-2"

        xmlns:ccts="urn:un:unece:uncefact:documentation:2"

        xmlns:ds="http://www.w3.org/2000/09/xmldsig#"

        xmlns:ext="urn:oasis:names:specification:ubl:schema:xsd:CommonExtensionComponents-2"

        xmlns:qdt="urn:oasis:names:specification:ubl:schema:xsd:QualifiedDatatypes-2"

        xmlns:sac="urn:sunat:names:specification:ubl:peru:schema:xsd:SunatAggregateComponents-1"

        xmlns:udt="urn:un:unece:uncefact:data:specification:UnqualifiedDataTypesSchemaModule:2"

        xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">

        <ext:UBLExtensions>

               <ext:UBLExtension>

                     <ext:ExtensionContent/>

              </ext:UBLExtension>

        </ext:UBLExtensions>

        <cbc:UBLVersionID>2.0</cbc:UBLVersionID>

        <cbc:CustomizationID>1.0</cbc:CustomizationID>

        <cac:Signature>

              <cbc:ID>IDFIRMA</cbc:ID>

              <cac:SignatoryParty>

                     <cac:PartyIdentification>

                            <cbc:ID>20382567855</cbc:ID>

                     </cac:PartyIdentification>

                     <cac:PartyName>

                            <cbc:Name>STARSOFT</cbc:Name>

                     </cac:PartyName>

              </cac:SignatoryParty>

              <cac:DigitalSignatureAttachment>

                     <cac:ExternalReference>

                            <cbc:URI>IDFIRMA</cbc:URI>

                     </cac:ExternalReference>

              </cac:DigitalSignatureAttachment>

        </cac:Signature>

        <cbc:ID>R001-123</cbc:ID>

        <cbc:IssueDate>2016-06-21</cbc:IssueDate>

        <cac:AgentParty>

              <cac:PartyIdentification>

                     <cbc:ID schemeID="6">20382567855</cbc:ID>

              </cac:PartyIdentification>

              <cac:PartyName>

                     <cbc:Name>STARSOFT</cbc:Name>

              </cac:PartyName>

              <cac:PostalAddress>

                     <cbc:ID>150136</cbc:ID>

                     <cbc:StreetName><![CDATA[CALLE TIAHUANACO 146]]></cbc:StreetName>

                     <cbc:CitySubdivisionName>URB. MARANGA</cbc:CitySubdivisionName>

                     <cbc:CityName>LIMA</cbc:CityName>

                     <cbc:CountrySubentity>LIMA</cbc:CountrySubentity>

                     <cbc:District>SAN MIGUEL</cbc:District>

                     <cac:Country>

                            <cbc:IdentificationCode>PE</cbc:IdentificationCode>

                     </cac:Country>

              </cac:PostalAddress>

              <cac:PartyLegalEntity>

                     <cbc:RegistrationName><![CDATA[ENTERPRISE SOLUTIONS S.A.]]></cbc:RegistrationName>

              </cac:PartyLegalEntity>

        </cac:AgentParty>

        <cac:ReceiverParty>

              <cac:PartyIdentification>

                     <cbc:ID schemeID="6">20101295673</cbc:ID>

              </cac:PartyIdentification>

              <cac:PartyName>

                     <cbc:Name><![CDATA[FABRICACIONES ONUR SAC]]></cbc:Name>

              </cac:PartyName>

              <cac:PostalAddress>

                     <cbc:ID>150101</cbc:ID>

                     <cbc:StreetName><![CDATA[AV. ABANCAY 1023]]></cbc:StreetName>

                     <cbc:CitySubdivisionName>CERCADO DE LIMA</cbc:CitySubdivisionName>

                     <cbc:CityName>LIMA</cbc:CityName>

                     <cbc:CountrySubentity>LIMA</cbc:CountrySubentity>

                     <cbc:District>LIMA</cbc:District>

                     <cac:Country>

                            <cbc:IdentificationCode>PE</cbc:IdentificationCode>

                     </cac:Country>

              </cac:PostalAddress>

              <cac:PartyLegalEntity>

                     <cbc:RegistrationName><![CDATA[FABRICACIONES ONUR SAC]]></cbc:RegistrationName>

              </cac:PartyLegalEntity>

        </cac:ReceiverParty>

        <sac:SUNATRetentionSystemCode>01</sac:SUNATRetentionSystemCode>

        <sac:SUNATRetentionPercent>3.00</sac:SUNATRetentionPercent>

        <cbc:Note/>

        <cbc:TotalInvoiceAmount currencyID="PEN">35.40</cbc:TotalInvoiceAmount>

        <sac:SUNATTotalPaid currencyID="PEN">1144.60</sac:SUNATTotalPaid>

        <sac:SUNATRetentionDocumentReference>

              <cbc:ID schemeID="01">F001-540</cbc:ID>

              <cbc:IssueDate>2016-06-01</cbc:IssueDate>

              <cbc:TotalInvoiceAmount currencyID="PEN">1180.00</cbc:TotalInvoiceAmount>

              <cac:Payment>

                     <cbc:ID>1</cbc:ID>

                     <cbc:PaidAmount currencyID="PEN">1180.00</cbc:PaidAmount>

                     <cbc:PaidDate>2016-06-21</cbc:PaidDate>

              </cac:Payment>

              <sac:SUNATRetentionInformation>

                     <sac:SUNATRetentionAmount currencyID="PEN">35.40</sac:SUNATRetentionAmount>

                     <sac:SUNATRetentionDate>2016-06-21</sac:SUNATRetentionDate>

                     <sac:SUNATNetTotalPaid currencyID="PEN">1144.60</sac:SUNATNetTotalPaid>

              </sac:SUNATRetentionInformation>

        </sac:SUNATRetentionDocumentReference>

 </Retention>

Tablas Utilizadas

• SF1– Encabezado de Factura de Entrada
• SFE – Comprobantes de Retención.
  
  

Prototipo de Pantalla

Prototipo 1

Prototipo 2

Prototipo 3

Prototipo 4

Prototipo 5

Prototipo 6

Prototipo 7

Prototipo 8

Prototipo 9

Prototipo 10

Prototipo 11

Prototipo 12

Prototipo 13

Prototipo 14

Prototipo 15

Prototipo 16

Prototipo 17

Prototipo 18

Diccionario de Datos

Archivo o Código del Script: 

SFE– Retenciones de Impuestos

Grupo de Preguntas

Nombre: MATA486F