Histórico da Página

Esta rotina automática tem a finalidade de efetuar inclusãoincluir/alteraçãoalterar/exclusãoexcluir dedos Lançamentos Mensais.Basicamente, naAo chamadaexecutar daa rotina GPEA090, deverãodevem ser informados 2 arrays:1)  aCabec   -> Corresponde aos dados da tabela SRA - Funcionários.         Sintaxe: { {"RA_FILIAL", conteudo1, NIL},; {"RA_MAT", conteudo2, NIL} }    2)  aItens   -> Corresponde aos dados a serem incluídos/deletados da tabela SRC - Movimentos Mensais.    

User Function GP090INC()

Local aCabec    := {}

Local aItens    := {}

Local aItensFinal := {} //agrupador de itens

 PRIVATE lGPEA011 := .T. //Necesário para setar o lIncluir = .T. na Gpea090aux()

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 }})

    aadd(aItensFinal, aItens)  

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

If lMsErroAuto     

    MostraErro()

Else     

    Alert("Registro(s) IncluídoAlterado(s) !!!")      

EndIf

Return()