MATA338 Rotina Automática de Reavaliação do Custo Médio

#INCLUDE "PROTHEUS.CH"
#Include "TbiConn.ch
#INCLUDE "MATA338.CH"

User Function EXECINC338()

    //------------------------------------------------------//
    //                  Exemplo de Inclusão                 //
    //------------------------------------------------------//

    local   aItem       := {}
    PRIVATE lMsErroAuto := .F.

    prepare environment empresa "99" filial "01"
    
    AAdd(aItem,{"DQ_COD","PRODTEST",Nil})
    AAdd(aItem,{"DQ_LOCAL","01" ,Nil})
    AAdd(aItem,{"DQ_DATA",dDATABASE ,Nil})
    AAdd(aItem,{"DQ_CM1",1500 ,Nil})
    AAdd(aItem,{"DQ_CM2",10 ,Nil})
    AAdd(aItem,{"DQ_CM3",0 ,Nil})
    AAdd(aItem,{"DQ_CM4",0 ,Nil})
    AAdd(aItem,{"DQ_CM5",0 ,Nil})
    
    MSExecAuto({|x,y,Z| MATA338(x,y)},aItem,3)//3-Inclusão, 4-Alteração e 5-Exclusão 
    If !lMsErroAuto 
        FWLogMsg("SUCESSO",,"zmsg",,,,"Sucesso na inclusao!") 
    Else 
        FWLogMsg("ERRO",,"zmsg",,,,"Erro na inclusao!") 
    EndIf
        
    FWLogMsg("INFO",,"zmsg",,,,"Fim da inclusao!")
    reset environment

Return

User Function EXECALT338()

    //------------------------------------------------------//
    //                  Exemplo de Alteração                //
    //------------------------------------------------------//

    local   aItem       := {}
    PRIVATE lMsErroAuto := .F.

    prepare environment empresa "99" filial "01"
    
    DbSelectArea("SDQ")
    DbSetOrder(1)
    DbSeek(xFilial("SDQ")+"PRODTEST"+"01"+"20211123") 

    AAdd(aItem,{"DQ_COD","PRODTEST",Nil})
    AAdd(aItem,{"DQ_LOCAL","01" ,Nil})
    AAdd(aItem,{"DQ_DATA",dDATABASE ,Nil})
    AAdd(aItem,{"DQ_CM1",300 ,Nil})
    AAdd(aItem,{"DQ_CM2",500 ,Nil})
    AAdd(aItem,{"DQ_CM3",1000 ,Nil})
    AAdd(aItem,{"DQ_CM4",0 ,Nil})
    AAdd(aItem,{"DQ_CM5",0 ,Nil})
    
    MSExecAuto({|x,y,Z| MATA338(x,y)},aItem,4)//3-Inclusão, 4-Alteração e 5-Exclusão 
    If !lMsErroAuto 
        FWLogMsg("SUCESSO",,"zmsg",,,,"Sucesso na alteracao!") 
    Else 
        FWLogMsg("ERRO",,"zmsg",,,,"Erro na alteracao!") 
    EndIf

    FWLogMsg("INFO",,"zmsg",,,,"Fim da alteracao!")
    reset environment

Return

User Function EXECEXC338()

    //------------------------------------------------------//
    //                  Exemplo de Exclusão                 //
    //------------------------------------------------------//

    local   aItem       := {}
    PRIVATE lMsErroAuto := .F.

    prepare environment empresa "99" filial "01"

    AAdd(aItem,{"DQ_COD","PRODTEST",Nil})
    AAdd(aItem,{"DQ_LOCAL","01" ,Nil})
    AAdd(aItem,{"DQ_DATA",dDATABASE ,Nil})
    AAdd(aItem,{"DQ_CM1",1500 ,Nil})
    
    MSExecAuto({|x,y,Z| MATA338(x,y)},aItem,5)//3-Inclusão, 4-Alteração e 5-Exclusão 
    If !lMsErroAuto 
        FWLogMsg("SUCESSO",,"zmsg",,,,"Sucesso na exclusao!") 
    Else 
        FWLogMsg("ERRO",,"zmsg",,,,"Erro na exclusao!") 
    EndIf

    FWLogMsg("INFO",,"zmsg",,,,"Fim da exclusao!")
    reset environment

Return