Histórico da Página

#INCLUDE "RWMAKE.CH"
#INCLUDE "TBICONN.CH"  
 
// Ejemplo de Factura de Entrada - Tipo - Normal //
 
User Function xMta101nExcAuMT101n()
 
    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"    , "NFELRR"             , 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 })
 
    // ItemsItem
 
    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