#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
//SetFunName("MATA101N")
AADD( aCab, { "F1_FILIAL" , xFilial("SF1") , Nil })
AAdd( aCab, { "F1_FORNECE" , "P15002P13357" , Nil })
AAdd( aCab, { "F1_LOJA" , "01" , Nil })
AAdd( aCab, { "F1_SERIE" , "A " , Nil })
AAdd( aCab, { "F1_DOC" , cDoc , Nil })
AAdd( aCab, { "F1_NATUREZ" , "OTROS" , 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" , "DU" "CB" , Nil })
AAdd( aCab, { "F1_DUPL" , cDoc , Nil })
AAdd( aCab, { "F1_RECIBO" , "1" , Nil })
// ItemItems
AADD( aLin, { "D1_FILIAL" , xFilial("SD1") , Nil })
AADD( aLin, { "D1_ITEM" , "0001" , Nil })
AAdd( aLin, { "D1_COD" , "000001" , Nil })
AAdd( aLin, { "D1_UM" , "UN" , Nil })
AAdd( aLin, { "D1_QUANT" , 21 , Nil })
AAdd( aLin, { "D1_VUNIT" , 50001000 , Nil })
AAdd( aLin, { "D1_TOTAL" , 100001000 , Nil })
AAdd( aLin, { "D1_TES" , "001101" , Nil })
AAdd( aLin, { "D1_CF" , "112" , 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
|
