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 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 }) aadd(aItens,{"RC_DATA" , Ctod("31/01/12") , Nil }) aadd(aItens,{"RC_CC" , "1011" , Nil }) aadd(aItens,{"RC_PARCELA" , "01" , Nil })
aadd(aItensFinal, aItens)
If lMsErroAuto MostraErro() Else Alert("Registro(s) Incluído(s) !!!") EndIf Return() |
---|