Histórico da Página

#INCLUDE "RWMAKE.CH"								//Importação de bibliotecas
#INCLUDE "TBICONN.CH"   							//Importação de bibliotecas
  
User Function xMta102n()
    Local _aCabec       := {}						//Array com os dados do cabeçalho
    Local _aItens       := {}						//Array com os datos dos itens
    Local aLinha        := {}						//Array de trabalho
    Local cDoc          := ""						//Inicialização do número do documento
 
    Private aRecsSF1    := {}						//Array para associação de Notas
    Private lMsErroAuto := .F.						//Controle de execução de rotina
  
    cDoc :=  FWInputBox("Número documento", "") 	//Janela emergente onde será incluído o número do documento
  
    //Encabezado
    aadd(_aCabec,{"F1_FILIAL","0101"})				//Sucursal
    aadd(_aCabec,{"F1_DOC",cDoc})					//Número de Documento
    aadd(_aCabec,{"F1_SERIE","REM"})				//Série
    aadd(_aCabec,{"F1_FORNECE","000001"})			//Fornecedor
    aadd(_aCabec,{"F1_LOJA","01"})					//Loja
    aadd(_aCabec,{"F1_TIPO","N"})					//Tipo de Nota Fiscal
    aadd(_aCabec,{"F1_FORMUL","N"})					//Formulário Próprio
    aadd(_aCabec,{"F1_EMISSAO",dDataBase})			//Data de Emissão
    aadd(_aCabec,{"F1_TXMOEDA",1})					//Taxa da Moeda
    aadd(_aCabec,{"F1_TIPODOC","60"})				//Identificador de Documento
  
    //Ítems
    aadd(_aItens,{"D1_COD","0101001        ",NIL})	//Código do Produto
    aadd(_aItens,{"D1_QUANT",1,NIL})				//Quantidade
    aadd(_aItens,{"D1_VUNIT",712.00,NIL})			//Valor Unitário
    aadd(_aItens,{"D1_TOTAL",712.00,NIL})			//Total
    aadd(_aItens,{"D1_TES","001",NIL})				//TES
    aadd(_AItens,{"D1_TIPO","N",NIL})				//Tipo do Documento
    aadd(_AItens,{"D1_CUSTO",712.00,NIL})			//Custo de Entrada Moeda 1
    aadd(_AItens,{"D1_CUSORI",712.00,NIL})			//Custo Original Moeda 1
    aadd(aLinha,_aItens)							//Incluir o array de itens no array do trabalho
    
    SetFunName("MATA102N")							//Definir o "nome" da função executante como "MATA102N"

    MsExecAuto({|x, y, z| Mata102N(x, y, z)}, _aCabec, aLinha, 3)			//Execução automática pelo MsExecAuto
  
    If lMsErroAuto
        MostraErro()														//Se ocorrer algum erro, esta será apresentado
    Else
        MsgInfo("Guia de Remessa de Entrada incluída: " + cDoc, "ExecAuto MATA102N") //Se não ocorrer erro, será enviada uma mensagem de processo com sucesso.
    Endif   
  
Return Nil																	//Fim da execução