#INCLUDE "RWMAKE.CH" //Importación de librearías
#INCLUDE "TBICONN.CH" //Importación de librearías
User Function xMta102n()
Local _aCabec := {} //Arreglo con los datos del encabezado
Local _aItens := {} //Arreglo con los datos de los ítems
Local aLinha := {} //Arreglo de trabajo
Local cDoc := "" //Inicialización del número de documento
Private aRecsSF1 := {} //Arreglo para vínculo de Notas
Private lMsErroAuto := .F. //Control de ejecución de rutina
cDoc := FWInputBox("Número documento", "") //Ventana emergente donde será introducido el número de documento
//Encabezado
aadd(_aCabec,{"F1_FILIAL","0101"}) //Filial
aadd(_aCabec,{"F1_DOC",cDoc}) //Número de Documento
aadd(_aCabec,{"F1_SERIE","REM"}) //Serie
aadd(_aCabec,{"F1_FORNECE","000001"}) //Proveedor
aadd(_aCabec,{"F1_LOJA","01"}) //Tienda
aadd(_aCabec,{"F1_TIPO","N"}) //Tipo de Factura
aadd(_aCabec,{"F1_FORMUL","N"}) //Formulario Propio
aadd(_aCabec,{"F1_EMISSAO",dDataBase}) //Fecha de Emisión
aadd(_aCabec,{"F1_TXMOEDA",1}) //Tasa de la Moneda
aadd(_aCabec,{"F1_TIPODOC","60"}) //Identificador de Documento
//Ítems
aadd(_aItens,{"D1_COD","0101001 ",NIL}) //Código del Producto
aadd(_aItens,{"D1_QUANT",1,NIL}) //Cantidad
aadd(_aItens,{"D1_VUNIT",712.00,NIL}) //Valor Unitario
aadd(_aItens,{"D1_TOTAL",712.00,NIL}) //Total
aadd(_aItens,{"D1_TES","001",NIL}) //TES
aadd(_AItens,{"D1_TIPO","N",NIL}) //Tipo del Documento
aadd(_AItens,{"D1_CUSTO",712.00,NIL}) //Costo de Entrada Moneda 1
aadd(_AItens,{"D1_CUSORI",712.00,NIL}) //Costo Original Moneda 1
aadd(aLinha,_aItens) //Se agrega el arreglo de Ítems al arreglo de Trabajo
SetFunName("MATA102N") //Se establece el "nombre" de la función ejecutante como "MATA102N"
MsExecAuto({|x, y, z| Mata102N(x, y, z)}, _aCabec, aLinha, 3) //Ejecución automática por medio de MsExecAuto
If lMsErroAuto
MostraErro() //Si se detonó algún error, es mostrado
Else
MsgInfo("Remito de Entrada incluido: " + cDoc, "ExecAuto MATA102N") //Si no hubo error, se envía mensaje personalizadode proceso exitoso.
Endif
Return Nil //Fin de la ejecución |