Histórico da Página

Esta rotina automática tem a finalidade de efetuar inclusão/alteração/exclusão de Lançamentos Mensais.Basicamente, na chamada da rotina GPEA090, deverão 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 incluidosincluídos/deletados da tabela SRC - Movimentos Mensais.    

User Function GP090INC()

Local aCabec    := {}

Local aItens    := {}

PRIVATE lMsErroAuto := .F.

aCabec   := {}

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

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

aItens := {}

    aadd(aItens,{"RC_FILIAL"     , "01"               , Nil })

    aadd(aItens,{"RC_MAT"        , "000001"           , Nil })

    aadd(aItens,{"RC_PD"         , "001"              , Nil })

    aadd(aItens,{"RC_TIPO1"      , "MARIA DA SILVA"   , Nil })

    aadd(aItens,{"RC_HORAS"      , 100.00             , Nil })

    aadd(aItens,{"RC_VALOR"      , 3252.27            , Nil })

    aadd(aItens,{"RC_DATA"       , Ctod("31/01/12")   , Nil })

    aadd(aItens,{"RC_CC"         , "1011"             , Nil })

    aadd(aItens,{"RC_PARCELA"    , "01"               , Nil })

MsExecAuto( { |x,y| GPEA090(x,y)} ,NIL ,aCabec ,aItens ,3 )  // 3 - InclusaoInclusão, 4 - Alteração, 5 - Exclusão  

If lMsErroAuto     

    MostraErro()

Else     

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

EndIf

Return()