Linha Microsiga Protheus

Árvore de páginas

01. DATOS GENERALES


Producto

TOTVS Backoffice

Línea de producto: 

Línea Protheus

Segmento:

Backoffice

Módulo:SIGACOM - Compras
Función:
Rutina(s)Nombre TécnicoFecha
FISA015Certificados de Retención.07/11/2022
País:Ecuador
Ticket:15388037
Requisito/Story/Issue (informe el requisito vinculado):DMINA-17348



02. SITUACIÓN/REQUISITO

Al intentar crear una Factura de Entrada que genera certificado de retención gestada por el MSExecAuto de la MATA101N, muestra mensaje de Generación de certificado, se solicita que cuando sea usada como rutina automática no envíe al usuario la pregunta ni el impreso del certificado.


03. SOLUCIÓN

En la rutina Certificados de Retención (FISA015) dentro de la función fGrvCrt() se incluye validación para cuando se gesta Factura de Entrada con certificado de retención de manera automática, no muestre pregunta, impresión, ni confirmación de generación del certificado.


  1. Realizar un respaldo del repositorio (archivo .rpo)
  2. Aplicar el parche correspondiente al issue DMINA-17348.
  3. Validar que la rutina actualizada coincida con la indicada en la sección 01. DATOS GENERALES del presente Documento Técnico.
  4. En el módulo Compras (SIGACOM) desde el menú Actualizaciones | Archivos | Proveedores (MATA020)
    • Configurar un Proveedor, para la generación de la Factura de Entrada por medio del ExecAuto.
  5. En el módulo Compras (SIGACOM) desde el menú Actualizaciones | Archivos | Productos (MATA010)
    • Configurar un Producto, para la generación de la Factura de Entrada por medio del ExecAuto.
  6. En el módulo Compras (SIGACOM) desde el menú Actualizaciones | Archivos | Tipos de Entrada y Salida (MATA080)
    • Configurar un Tipo de Entrada (TES), para la generación de la Factura de Entrada por medio del ExecAuto.
    • Debe incluir impuesto que genere de retención y el correspondiente certificado. 
  7. Compilar la rutina que contenga la Función de Usuario con el ExecAuto a la rutina MATA101N (Ver ejemplo en la sección 04. INFORMACIÓN ADICIONAL)
  8. En el módulo Configurador (SIGACFG) desde el menú Entorno| Archivos | Menú (CFGX013)
    • Incluir en el menú la rutina para generación de Factura de Entrada por medio de ExecAuto.
  1. Ir al menú donde se agregó la rutina con la Función de Usuario y ejecutar el proceso.
  2. Una vez finalizado, verificar la grabación correcta de la Factura de Entrada con Certificado de retención.


04. INFORMACIÓN ADICIONAL

Ejemplo de función de usuario para ExecAuto de la rutina MATA101N - Entrada por Compra:


ExecAuto
#INCLUDE "RWMAKE.CH"
#INCLUDE "TBICONN.CH"  
 
// Ejemplo de Factura de Entrada - Tipo - Normal //
 
User Function ExcAuMT101n()
 
    Local aCab          := {}   // Array con datos de encabezado
    Local aLin          := {}   // Array con datos de ítem
    Local aItem         := {}   // Array de ítems
    Local cDoc          := ""   // String con el número de documento
    Private lMsErroAuto := .F.  // Control de ejecución de rutina
 
    cDoc :=  FWInputBox("Número de Factura", "")    // Informar número de documento, ejemplo: "000000000001"
 
    // Encabezado  
 
    AADD( aCab, { "F1_FILIAL"   , xFilial("SF1")    , Nil })
    AAdd( aCab, { "F1_FORNECE"  , "P17348"          , Nil })   
    AAdd( aCab, { "F1_LOJA"     , "01"              , Nil })   
    AAdd( aCab, { "F1_SERIE"    , "LRR"             , Nil })    
    AAdd( aCab, { "F1_DOC"      , cDoc              , Nil })
    AAdd( aCab, { "F1_NATUREZ"  , "EFECTIVO"        , Nil }) // Modalidad                       
    AAdd( aCab, { "F1_TIPO"     , "N"               , Nil })
    AAdd( aCab, { "F1_FORMUL"   , "N"               , Nil })
    AAdd( aCab, { "F1_TIPODOC"  , "10"              , Nil })
    AAdd( aCab, { "F1_ESPECIE"  , "NF "             , Nil })
    AAdd( aCab, { "F1_EMISSAO"  , dDataBase         , Nil })
    AAdd( aCab, { "F1_DTDIGIT"  , dDataBase         , Nil })
    AAdd( aCab, { "F1_MOEDA"    , 1                 , Nil })
    AAdd( aCab, { "F1_TXMOEDA"  , 1                 , Nil })
    AAdd( aCab, { "F1_COND"     , "001"             , Nil })
    AAdd( aCab, { "F1_EST"      , "10"              , Nil })
 
    // Item
 
    AADD( aLin, { "D1_FILIAL"   , xFilial("SD1")    , Nil })
    AADD( aLin, { "D1_ITEM"     , "0001"            , Nil })
    AAdd( aLin, { "D1_COD"      , "D17348"          , Nil })
    AAdd( aLin, { "D1_UM"       , "UN"              , Nil })
    AAdd( aLin, { "D1_QUANT"    , 1                 , Nil })                   
    AAdd( aLin, { "D1_VUNIT"    , 1000              , Nil })                   
    AAdd( aLin, { "D1_TOTAL"    , 1000              , Nil })
    AAdd( aLin, { "D1_TES"      , "077"             , Nil })
    AAdd( aLin, { "D1_CF"       , "1102"            , Nil })
    AAdd( aLin, { "D1_CONCEPT"  , "303"             , Nil })
 
    AAdd( aItem, aLin)
 
    // Ejecuta Rutina Automática
    MSExecAuto( { |x,y| MATA101N(x,y) }, aCab, aItem, 3 )
     
    If lMsErroAuto     
        MsgStop("Error en la grabación de la factura!")
        MostraErro()   
    Else   
        msgInfo("Factura de Entrada incluida: " + cDoc, "MsExecAuto MATA101N")
    EndIf
 
Return



¡IMPORTANTE!

Solución disponible para Protheus versión 12.1.27 (que cuente con garantía extendida), 12.1.33 y posterior que cuente con las rutinas actualizadas a una fecha igual o posterior a las indicadas en el presente documento técnico.


05. ASUNTOS RELACIONADOS

Certificado de Retención FISA015 EQU