Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 3

changes.mady.by.user Diego Abel Rivera Hernandez

Gravado em

comparado com

Nova versão 4

changes.mady.by.user Diego Abel Rivera Hernandez

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

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.

...

04. INFORMACIÓN ADICIONAL

Ejemplo de Execauto ExecAuto a rutina MATA102NMATA101N:


Bloco de código
languagedelphi
titleExecAuto
#INCLUDE "RWMAKE.CH"
#INCLUDE "TBICONN.CH"  
 
User Function xMta101n()
 
    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"  , "P17021P17348"          , Nil })   
    AAdd( aCab, { "F1_LOJA"     , "01"              , Nil })   
    AAdd( aCab, { "F1_SERIE"    , "LRRNFE"             , 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 })
 
    // Items
 
    AADD( aLin, { "D1_FILIAL"   , xFilial("SD1")    , Nil })
    AADD( aLin, { "D1_ITEM"     , "0001"            , Nil })
    AAdd( aLin, { "D1_COD"      , "D16887D17348"          , 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( 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

...