MATA185 - Baixa de Pré-Requisições Gerando as Requisições

User Function MyMata185()

Local aCamposSCP
Local aCamposSD3
Local cNum     := "000085"  // No.da Requisicao
Local cItem      := "03"        // No.do Item da Req.
Local aRetCQ  := {}
Local nOpcAuto:= 1 // BAIXA

dbSelectArea("SCP")
dbSetOrder(1)
If SCP->(dbSeek(xFilial("SCP")+cNum+cItem))
    aCamposSCP := {    {"CP_NUM"        ,SCP->CP_NUM    ,Nil     },;
                    {"CP_ITEM"        ,SCP->CP_ITEM   ,Nil     },;
                       {"CP_QUANT"        ,SCP->CP_QUANT  ,Nil     }}

    aCamposSD3 := { {"D3_TM"        ,"501"            ,Nil },;  // Tipo do Mov.
                    {"D3_COD"        ,SCP->CP_PRODUTO,Nil },;
                    {"D3_LOCAL"        ,SCP->CP_LOCAL    ,Nil },;
                    {"D3_DOC"        ,"SK0050"         ,Nil },;  // No.do Docto.
                    {"D3_EMISSAO"    ,DDATABASE        ,Nil } }

    lMSHelpAuto := .F.
   lMsErroAuto := .F.

    MSExecAuto({|v,x,y,z| mata185(v,x,y)},aCamposSCP,aCamposSD3,nOpcAuto)  // 1 = BAIXA (ROT.AUT)

    If lMsErroAuto
        Conout("[MyMata185] Erro na execução da MATA185.")
        MostraErro()
    Else
        Conout("[MyMata185] MATA185 executada com sucesso.")
    EndIf
Else
        Conout("[MyMata185] Req. "+cNum +" do item "+cItem+" nao encontrada na base de dados")
EndIf

Return Nil