Histórico da Página
Esta rotina automática tem a finalidade de efetuar inclusão/alteração/exclusão de Lançamentos Mensais.Basicamente, na chamada da rotina GPEA090, deverão ser informados 2 arrays:1) aCabec -> Corresponde aos dados da tabela SRA - Funcionários. Sintaxe: { {"RA_FILIAL", conteudo1, NIL},; {"RA_MAT", conteudo2, NIL} } 2) aItens -> Corresponde aos dados a serem incluidosincluídos/deletados da tabela SRC - Movimentos Mensais. |
---|
...
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 , 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 }) MsExecAuto( { |x,y| GPEA090(x,y)} ,NIL ,aCabec ,aItens ,3 ) // 3 - InclusaoInclusão, 4 - Alteração, 5 - Exclusão If lMsErroAuto MostraErro() Else Alert("Registro(s) Incluído(s) !!!") EndIf Return() |
---|
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas