#INCLUDE "RWMAKE.CH" //Importação de bibliotecas
#INCLUDE "TBICONN.CH" //Importação de bibliotecas
User Function xMta102n()
Local _aCabec := {} //AjusteArray com os dados do cabeçalho
Local _aItens := {} //AjusteArray com os datos dos itens
Local aLinha := {} //AjusteArray de trabalho
Local cDoc := "" //Inicialização do número do documento
Private aRecsSF1 := {} //AjusteArray 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 ajustearray de itens no ajustearray 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 |