#Include "Protheus.ch"
#Include "RwMake.ch"
#Include "TbiConn.ch"
User Function MyMATA120()
Local aCabec := {}
Local aItems := {}
Local aLinha := {}
Local cNumPc := ""
Local cTES := ""
Local nX := 0
Private lMsErroAuto := .F.
cFornece := FWInputBox("Proveedor: ", "016744") //Proveedor
cNumPc := FWInputBox("Num Doc: ", "250801") //Num Doc
cTES := FWInputBox("TES: ", "038") //TES
ConOut("Inicio de Ejecucción MYMT120: "+GetRmtTime())
aCabec := {}
aAdd(aCabec, {"C7_EMISSAO", dDataBase , NIL})
aAdd(aCabec, {"C7_FILIAL" , PADR(ALLTRIM(cFilAnt) ,TamSX3("C7_FILIAL")[1] ) , NIL})
aAdd(aCabec, {"C7_NUM" , PADR(ALLTRIM(cNumPc) ,TamSX3("C7_NUM")[1] ) , NIL})
aAdd(aCabec, {"C7_FORNECE", PADR(ALLTRIM(cFornece) ,TamSX3("C7_FORNECE")[1] ), NIL})
aAdd(aCabec, {"C7_LOJA" , PADR(ALLTRIM("01") ,TamSX3("C7_LOJA")[1] ) , NIL})
aAdd(aCabec, {"C7_COND" , "001" , NIL})
aAdd(aCabec, {"C7_CONTATO", PADR(ALLTRIM("") ,TamSX3("C7_CONTATO")[1] ) , NIL})
aAdd(aCabec, {"C7_MOEDA" , 1})
aAdd(aCabec, {"C7_TXMOEDA", 1})
aAdd(aCabec, {"C7_FILENT" , PADR(ALLTRIM(cFilAnt) ,TamSX3("C7_FILENT")[1] ) , NIL})
aItems := {}
FOR nX := 1 TO 100
aLinha := {}
aadd(aLinha, {"C7_PRODUTO", "000001" , Nil})
aadd(aLinha, {"C7_QUANT" , 1 , Nil})
aadd(aLinha, {"C7_DATPRF" , dDataBase, Nil})
aadd(aLinha, {"C7_PRECO" , 1000 , Nil})
aadd(aLinha, {"C7_TES" , cTES , Nil})
aadd(aLinha, {"C7_LOCAL" , "01" , Nil})
aadd(aItems, aLinha)
NEXT nX
SetFunname("MATA121")
MSExecAuto({|x,y,z,k|MATA120(x,y,z,k)},1,aCabec,aItems,3)
If lMsErroAuto
MostraErro()
Else
msgInfo("Pedido de compra incluido: " + cNumPc, " MsExecAuto Mimata120")
ConOut("Fin de Ejecuccion MYMT120: " + GetRmtTime())
Endif
Return
|
