Histórico da Página

...

PRIVATE lMsErroAuto := .F.

aCabec := {}

/*INCLUSAO*/
aadd(aCabec,{"RA_FILIAL" ,"D MG 01 " ,Nil })
aadd(aCabec,{"RA_MAT" ,"991239" ,Nil })
aadd(aCabec,{'RA_NOME' ,'FUNCIONARIO ROTINA AUTOMATICA' ,Nil })
aadd(aCabec,{'RA_SEXO' ,'F' ,Nil })
aadd(aCabec,{'RA_ESTCIVI' ,'C' ,Nil })
aadd(aCabec,{'RA_NATURAL' ,'SP' ,Nil })
aadd(aCabec,{'RA_NACIONA' ,'10' ,Nil })
aadd(aCabec,{'RA_NASC' ,Stod('19731215') ,Nil })
aadd(aCabec,{'RA_CC' ,'000000001' ,Nil })
aadd(aCabec,{'RA_ADMISSA' ,Stod('20080505') ,Nil })
aadd(aCabec,{'RA_OPCAO' ,Stod('20080505') ,Nil })
aadd(aCabec,{'RA_BCDPFGT' ,'34100' ,Nil })
aadd(aCabec,{'RA_CTDPFGT' ,'222285' ,Nil })
aadd(aCabec,{'RA_HRSMES' ,220 ,Nil })
aadd(aCabec,{'RA_HRSEMAN' ,44 ,Nil })
aadd(aCabec,{'RA_CODFUNC' ,'00001' ,Nil })
aadd(aCabec,{'RA_CATFUNC' ,'A' ,Nil })
aadd(aCabec,{'RA_TIPOPGT' ,'M' ,Nil })
aadd(aCabec,{'RA_TIPOADM' ,'9A' ,Nil })
aadd(aCabec,{'RA_VIEMRAI' ,'10' ,Nil })
aadd(aCabec,{'RA_GRINRAI' ,'50' ,Nil })
aadd(aCabec,{'RA_HOPARC' ,'1' ,Nil })
aadd(aCabec,{'RA_COMPSAB' ,'1' ,Nil })
aadd(aCabec,{'RA_NUMCP' ,'1234567' ,Nil })
aadd(aCabec,{'RA_SERCP' ,'150' ,Nil })
aadd(aCabec,{'RA_PROCES' ,'00034' ,Nil })
aadd(aCabec,{'RA_TNOTRAB' ,'001' ,Nil })
aadd(aCabec,{'RA_ADTPOSE' ,'***N**' ,Nil })

...

If lMsErroAuto
       MostraErro()
       RETURN (.T.)
else
       Alert("Inclusão realizada com sucesso")
EndIf

/*ALTERACAO*/
aCabec := {}
aadd(aCabec,{"RA_FILIAL" ,"D MG 01 " ,Nil })
aadd(aCabec,{"RA_MAT" ,"991239" ,Nil })
aadd(aCabec,{'RA_NOME' ,'FUNCIONARIO ROTINA AUTOMATICA' ,Nil })
aadd(aCabec,{'RA_SEXO' ,'M' ,Nil })
aadd(aCabec,{'RA_ESTCIVI' ,'V' ,Nil })
aadd(aCabec,{'RA_NATURAL' ,'RJ' ,Nil })
aadd(aCabec,{'RA_NACIONA' ,'10' ,Nil })

...

If lMsErroAuto
       MostraErro()
       RETURN (.T.)
else
       Alert("Alteração realizada com sucesso")
EndIf

/*EXCLUSÃO*/
aCabec := {}
aadd(aCabec,{"RA_FILIAL" ,"D MG 01 " ,Nil })
aadd(aCabec,{"RA_MAT" ,"991239" ,Nil })
aadd(aCabec,{'RA_NOME' ,'FUNCIONARIO ROTINA AUTOMATICA' ,Nil })
MSExecAuto({|x,y| GPEA265(x,y)},aCabec,5)

...