Histórico da Página

User Function GP090INC()

Local aCabec    := {}

Local aItens    := {}

Local aItensFinal := {} //agrupador de itens

PRIVATE lMsErroAuto := .F.

aCabec   := {}

    aadd(aCabec,{"RA_FILIAL"  ,"01"  ,Nil  })

    aadd(aCabec,{"RA_MAT"     ,"000001" ,Nil  })

aItens := {}

    aadd(aItens,{{"RC_FILIAL"

, "D MG 01"            , Nil },;

{"RC_MAT"        , "000001"            , Nil },;

{"RC_PD"          , "001"              , Nil },;

{"RC_TIPO1"      , "V"   , Nil },;

{"RC_HORAS"    , 100.00              , Nil },;

{"RC_VALOR"     , 3252.27            , Nil },;

{"RC_DATA"       , Ctod("31/12/13")  , Nil },;

{"RC_CC"         , "000000101"         , Nil },;

{"RC_PARCELA" , "01"               , Nil }})

MsExecAuto({|w,x,y,z| GPEA090(w,x,y,z)} ,4 ,aCabec, aItens,4 ) // 4 - Inclusão, 4 - Alteração, 5 - Exclusão

If lMsErroAuto     

    MostraErro()

Else     

    Alert("Registro(s) Alterado(s) !!!")      

EndIf

Return()