Histórico da Página
...
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 }),; aadd(aItens ,{"RC_MAT" , "000001" , Nil }),; aadd(aItens ,{"RC_PD" , "001" , Nil }),; aadd(aItens ,{"RC_TIPO1" , "MARIA DA SILVAV" , Nil }),; aadd(aItens ,{"RC_HORAS" , 100.00 , Nil }),; aadd(aItens ,{"RC_VALOR" , 3252.27 , Nil }),; aadd(aItens ,{"RC_DATA" , Ctod("31/0112/1213") , Nil }),; aadd(aItens ,{"RC_CC" , "1011000000101" , Nil }),; aadd(aItens ,{"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() |
---|