Segmento:

Serviços

Função:

GPEA580

Operação

3 - Inclusão
4 - Alteração
5 - Exclusão

Solução/Implementação:

Exemplo de como realizar a inserção de registros através da MsExecAuto da rotina GPEA580() .

#Include 'Protheus.ch'
#iNCLUDE 'TBICONN.CH'

User Function mGPEA580()

//Declaracao das variaveis de controle
Local aCabAuto := {}
Local aItemAuto := {}
Local aLinha := {}

Local nOpc:=3

Private lMsErroAuto := .F.

//Preparando ambiente para conexão
PREPARE ENVIRONMENT EMPRESA 'T1' FILIAL 'D MG 01 '

//Criando variaveis do cabecalho
aAdd( aCabAuto,{ 'RA_FILIAL' , 'D MG 01 ' , nil })
aAdd( aCabAuto,{ 'RA_MAT' , '000012' , nil })
aAdd( aCabAuto,{ 'CROTEIRO' , 'FOL' , nil })
aAdd( aCabAuto,{ 'CNUMPAGTO', '01' , nil })
aAdd( aCabAuto,{ 'CPERIODO' , '201605' , nil })

//Criando variaveis dos itens

aadd(aLinha,{'RGB_FILIAL' , 'D MG 01 ' , nil})
aadd(aLinha,{'RGB_MAT' , '000012' , nil  })
aadd(aLinha,{'RGB_SEMANA' , '01' , nil})
aadd(aLinha,{'RGB_PD' , '001' , nil})
aadd(aLinha,{'RGB_TIPO1 ' , 'V' , nil})
aadd(aLinha,{'RGB_HORAS ' , 2 , nil})
aadd(aLinha,{'RGB_VALOR ' , 30 , nil})
aadd(aLinha,{'RGB_DTREF ' , STOD('20160119') , nil})
aadd(aLinha,{'RGB_CC ' , '000000001' , nil})
aadd(aLinha,{'RGB_PARCEL' , 1 , nil})
aadd(aLinha,{'RGB_CODFUN' , '00005' , nil})
aadd(aLinha,{'RGB_DEPTO ' , '000000002' , nil})

//Atribuindo variavel para MsExecAuto
aadd(aItemAuto,aLinha)

//Chama a rotina
MsExecAuto({|a, b, c, d| GPEA580(a,b,c,d)},nil, aCabAuto, aItemAuto,nOpc)

//Faz a validacao
If !lMsErroAuto
Alert("Incluido com sucesso! ")
Else
MostraErro()
EndIf

RESET ENVIRONMENT
Return

Chamados relacionados:

183671