Histórico da Página

#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 de proceso exitoso.
    Endif   
  
Return Nil																	//Fin de la ejecución