Histórico da Página

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"  100.00             , Nil })

    aadd(aItens,{"RC_VALOR"      , "3,252.27"  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 - Inclusao, 4 - Alteração, 5 - Exclusão  

If lMsErroAuto     

    MostraErro()

Else     

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

EndIf

Return()

//-- Opcao 4 - Altera

USER FUNCTION GP090ALT()

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"      , "3,252.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 ,4 )  // 3 - Inclusao, 4 - Alteração, 5 - Exclusão

If lMsErroAuto

    MostraErro()

Else

    Alert("Alterada com sucesso!")

Endif

Return()

//-- Opcao 5 - Exclui      

USER FUNCTION GP090ALT()

Local aCabec    := {}

Local aItens    := {}

Local nX       := {}

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"      , "252.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 ,5 )  // 3 - Inclusao, 4 - Alteração, 5 - Exclusão

For nX:=1 to Len(aItens)            

    aLinha:=aItens[nX]          

    lRet:= ("Deseja Excluir. Confirmar (S)im / (N)não ? ")     //-- Chama rotina para Excluir  (opcao 5)               

    MSExecAuto({|x,y| GPEA090(x,y)},NIL,aCabec,{aLinha},5)  

    //-- Opcao 5 - Elimina registro               

    If lMsErroAuto                    

        MostraErro()            

    Else                    

        Alert("Registro Eliminado !!!")               

    Endif

Next nX

EndIf

Return()