Histórico da Página
...
A rotina GPEA090 possui parâmetros a serem informados, porém para o funcionamento em MsExecAuto. O primeiro parâmetro necessita ser preenchido como um array, pois as informaçoes utilizadas neste array são essenciais para a conclusão do processo. |
---|
User Function GP090INC() Local aCabec := {} Local aItens := {} Local aItensFinal := {} //agrupador de itens
PRIVATE lMsErroAuto :=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"
, "01"
, Nil }) aadd aadd(aItens,{"RC_MAT"
, "000001"
, Nil })
aadd(aItens,{"RC_PD"
, "001"
, Nil }) aadd aadd(aItens,{"RC_TIPO1"
, "MARIA DA SILVA"
, Nil })
aadd(aItens,{"RC_HORAS"
, 100.00
, Nil })
aadd(aItens,{"RC_VALOR"
, 3252.27 , Nil, Nil })
aadd(aItens,{"RC_DATA"
, Ctod("31/01/12")
, Nil })
aadd(aItens,{"RC_CC"
, "1011"
, Nil })
aadd(aItens,{"RC_PARCELA"
, "01"
, Nil })
aadd(aItensFinal, aItens)
GPEA090(w,x,y,z)} , 3nil,aCabec, aItensaItensFinal, 34 ) // 34 - Inclusão, 4 - Alteração, 5 - Exclusão If lMsErroAuto
MostraErro() Else
Alert("Registro(s) Incluído(s) !!!")
EndIf Return() |
---|