Cross Segmentos - TOTVS BackOffice (Línea Protheus) - MI - Facturación (SIGAFAT) - Execauto para generación de nota de débito - MATA465N

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

// Ejemplo de Nota de Débito - Especie - NDC //

User Function xMta465n()

    LocalaCab          := {}   // Array con datos de encabezado
    LocalaLin          := {}   // Array con datos de ítem
    LocalaItem         := {}   // Array de ítems
    LocalcDoc          := ""   // String con el número de documento
    PrivatelMsErroAuto := .F.  // Control de ejecución de rutina

    cDoc :=  FWInputBox("Número de Nota de Débito","") // Informar número de documento, ejemplo: "000000000001"

    // Encabezado
    AADD( aCab, { "F2_FILIAL"   ,xFilial("SF2")    ,Nil })
    AAdd( aCab, { "F2_CLIENTE"  ,"000001"          ,Nil })
    AAdd( aCab, { "F2_LOJA"     ,"01"              ,Nil })
    AAdd( aCab, { "F2_SERIE"    ,"A  "             ,Nil })
    AAdd( aCab, { "F2_DOC"      , cDoc             ,Nil })
    AAdd( aCab, { "F2_TIPO"     ,"C"               ,Nil })
    AAdd( aCab, { "F2_FORMUL"   ,"S"               ,Nil })
    AAdd( aCab, { "F2_TIPODOC"  ,"02"              ,Nil })
    AAdd( aCab, { "F2_ESPECIE"  ,"NDC"             ,Nil })
    AAdd( aCab, { "F2_EMISSAO"  , dDataBase        ,Nil })
    AAdd( aCab, { "F2_MOEDA"    ,1                 ,Nil })
    AAdd( aCab, { "F2_TXMOEDA"  ,1                 ,Nil })
    AAdd( aCab, { "F2_COND"     ,"001"             ,Nil })
    AAdd( aCab, { "F2_EST"      ,"BA"              ,Nil })
    AAdd( aCab, { "F2_DUPL"     , cDoc             ,Nil })    // Informar título si hay integración financiera
    AAdd( aCab, { "F2_RG1415"   ,"02 "             ,Nil })    // Dato para localización Argentina
    AAdd( aCab, { "F2_PV"       ,"0001"            ,Nil })    // Dato para localización Argentina
    AAdd( aCab, { "F2_TPVENT"   ,"1"               ,Nil })    // Dato para localización Argentina
    AAdd( aCab, { "F2_PROVENT"  ,"BA"              ,Nil })    // Dato para localización Argentina
 
    // Items   
    AADD( aLin, { "D2_FILIAL"   ,xFilial("SD2")    ,Nil })
    AADD( aLin, { "D2_ITEM"     ,"01"              ,Nil })
    AAdd( aLin, { "D2_COD"      ,"000000000000001" ,Nil })
    AAdd( aLin, { "D2_UM"       ,"UN"              ,Nil })
    AAdd( aLin, { "D2_QUANT"    ,1                 ,Nil })                    
    AAdd( aLin, { "D2_PRCVEN"   ,100               ,Nil })                    
    AAdd( aLin, { "D2_TOTAL"    ,100               ,Nil })
    AAdd( aLin, { "D2_TES"      ,"503"             ,Nil })
    AAdd( aLin, { "D2_CF"       ,"612"             ,Nil })
    AAdd( aLin, { "D2_ESPECIE"  ,"NDC"             ,Nil })
    AAdd( aLin, { "D2_PROVENT"  ,"BA"              ,Nil })    // Dato para localización Argentina
 
    AAdd( aItem, aLin)
  
    // Ejecuta Rutina Automática
    MSExecAuto( { |x,y,z| Mata465n(x,y,z) }, aCab, aItem,3 )
  
    If lMsErroAuto      
        MsgStop("Error en la grabación de la factura!") 
        MostraErro()    
    Else    
        msgInfo("Nota de Débito incluida: "+ cDoc,"MsExecAuto MATA465N")
    EndIf

Return