#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 |