Histórico da Página

#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