Cross Segmento - TOTVS Backoffice (Línea Protheus) - MI - Compras (SIGACOM) – Execauto para generación de factura de entrada - MATA101N

#INCLUDE "RWMAKE.CH"
#INCLUDE "TBICONN.CH"   

// Ejemplo de Factura de Entrada - Tipo - Normal //

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"  , "000001"          , Nil })    
    AAdd( aCab, { "F1_LOJA"     , "01"              , Nil })    
    AAdd( aCab, { "F1_SERIE"    , "A  "             , Nil })     
    AAdd( aCab, { "F1_DOC"      , cDoc              , Nil })
    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"      , "BA"              , Nil })
    AAdd( aCab, { "F1_DUPL"     , cDoc              , Nil })    // Informar título si hay integración financiera
    //AAdd( aCab, { "F1_RG1415" , "01 "             , Nil })    // Dato para localización Argentina
    //AAdd( aCab, { "F1_PROVENT"    , "BA"              , Nil })    // Dato para localización Argentina
    
    // Items    
    AADD( aLin, { "D1_FILIAL"   , xFilial("SD1")    , Nil })
    AADD( aLin, { "D1_ITEM"     , "0001"            , Nil })
    AAdd( aLin, { "D1_COD"      , "000000000000001" , Nil })
    AAdd( aLin, { "D1_UM"       , "UN"              , Nil })
    AAdd( aLin, { "D1_QUANT"    , 1                 , Nil })
    AAdd( aLin, { "D1_VUNIT"    , 10                , Nil })
    AAdd( aLin, { "D1_TOTAL"    , 10                , Nil })
    AAdd( aLin, { "D1_TES"      , "123"             , Nil })
    AAdd( aLin, { "D1_CF"       , "112"             , Nil })
    //AAdd( aLin, { "D1_PROVENT"  , "BA"                , Nil })    // Dato para localización Argentina

    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