#INCLUDE "RWMAKE.CH" //ImportaciónImportação de librearíasbibliotecas
#INCLUDE "TBICONN.CH" //ImportaciónImportação de librearíasbibliotecas
User Function xMta102n()
Local _aCabec := {} //ArregloAjuste concom losos datosdados deldo encabezadocabeçalho
Local _aItens := {} //ArregloAjuste concom losos datos dedos los ítemsitens
Local aLinha := {} //ArregloAjuste de trabajotrabalho
Local cDoc := "" //InicializaciónInicialização deldo número dedo documento
Private aRecsSF1 := {} //ArregloAjuste para vínculoassociação de Notas
Private lMsErroAuto := .F. //ControlControle de ejecuciónexecução de rutinarotina
cDoc := FWInputBox("Número documento", "") //VentanaJanela emergente dondeonde será introducidoincluído elo número dedo documento
//Encabezado
aadd(_aCabec,{"F1_FILIAL","0101"}) //FilialSucursal
aadd(_aCabec,{"F1_DOC",cDoc}) //Número de Documento
aadd(_aCabec,{"F1_SERIE","REM"}) //SerieSérie
aadd(_aCabec,{"F1_FORNECE","000001"}) //ProveedorFornecedor
aadd(_aCabec,{"F1_LOJA","01"}) //TiendaLoja
aadd(_aCabec,{"F1_TIPO","N"}) //Tipo de Nota FacturaFiscal
aadd(_aCabec,{"F1_FORMUL","N"}) //FormularioFormulário PropioPróprio
aadd(_aCabec,{"F1_EMISSAO",dDataBase}) //FechaData de EmisiónEmissão
aadd(_aCabec,{"F1_TXMOEDA",1}) //TasaTaxa deda la MonedaMoeda
aadd(_aCabec,{"F1_TIPODOC","60"}) //Identificador de Documento
//Ítems
aadd(_aItens,{"D1_COD","0101001 ",NIL}) //Código deldo ProductoProduto
aadd(_aItens,{"D1_QUANT",1,NIL}) //CantidadQuantidade
aadd(_aItens,{"D1_VUNIT",712.00,NIL}) //Valor UnitarioUnitário
aadd(_aItens,{"D1_TOTAL",712.00,NIL}) //Total
aadd(_aItens,{"D1_TES","001",NIL}) //TES
aadd(_AItens,{"D1_TIPO","N",NIL}) //Tipo deldo Documento
aadd(_AItens,{"D1_CUSTO",712.00,NIL}) //CostoCusto de Entrada MonedaMoeda 1
aadd(_AItens,{"D1_CUSORI",712.00,NIL}) //CostoCusto Original MonedaMoeda 1
aadd(aLinha,_aItens) //SeIncluir agregao el arregloajuste de Ítemsitens alno arregloajuste dedo Trabajotrabalho
SetFunName("MATA102N") //SeDefinir establece elo "nombrenome" deda lafunção función ejecutanteexecutante como "MATA102N"
MsExecAuto({|x, y, z| Mata102N(x, y, z)}, _aCabec, aLinha, 3) //EjecuciónExecução automática por medio depelo MsExecAuto
If lMsErroAuto
MostraErro() //SiSe seocorrer detonóalgum algúnerro, error,esta esserá mostradoapresentado
Else
MsgInfo("RemitoGuia de Remessa de Entrada incluidoincluída: " + cDoc, "ExecAuto MATA102N") //SiSe nonão huboocorrer errorerro, seserá enviada envíauma mensajemensagem de procesoprocesso com exitososucesso.
Endif
Return Nil //FinFim deda la ejecuciónexecução |
