#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 |
