#INCLUDE "RWMAKE.CH"
#INCLUDE "TBICONN.CH"
User Function xMta102n()
Local _aCabec := {} //Array com dados do cabecalho
Local _aItens := {} //Array com dados do item
Local aLinha := {} //Array de trabalho
Local cDoc := ""
Private aRecsSF1 := {} //Array para vinculo de Notas
Private lMsErroAuto := .f. //Controle de execucao da Rotina
cDoc := FWInputBox("Núemro documento", "") //"000021111901"
//Cabecalho
aadd(_aCabec,{"F1_FILIAL","01"})
aadd(_aCabec,{"F1_DOC",cDoc})
aadd(_aCabec,{"F1_SERIE","FAT"})
aadd(_aCabec,{"F1_FORNECE","12984 "})
aadd(_aCabec,{"F1_LOJA","01"})
aadd(_aCabec,{"F1_TIPO","N"})
aadd(_aCabec,{"F1_FORMUL","N"})
aadd(_aCabec,{"F1_EMISSAO",dDataBase})
aadd(_aCabec,{"F1_TXMOEDA",1})
aadd(_aCabec,{"F1_TIPODOC","60"})
//Itens
aadd(_aItens,{"D1_COD","000000000000001",nil})
aadd(_aItens,{"D1_QUANT",1,nil})
aadd(_aItens,{"D1_VUNIT",1000,nil})
aadd(_aItens,{"D1_TOTAL",1000,nil})
aadd(_aItens,{"D1_TES","001",nil})
aadd(_AItens,{"D1_TIPO","N",nil})
aadd(aLinha,_aItens)
MsExecAuto({|x, y, z| Mata102N(x, y, z)}, _aCabec, aLinha, 3)
If lMsErroAuto
MostraErro()
else
msgInfo("Remito de Entrada incluido: " + cDoc, "ExecAuto MATA102N")
Endif
Return
|