Histórico da Página
...
- nOpcAuto - Indica a operação que será realizada, 3 - Inclusão, 4 - Alteração; 5 - Exclusão
- aCab - Array com as informações para posicionar no funcionário
- aItens - Array com os lançamentos
Para informações sobre a estrutura do array aItens consulte a página http://tdn.totvs.com/x/bv1n
...
02. EXEMPLO DE UTILIZAÇÃO
Bloco de código | ||||||||
---|---|---|---|---|---|---|---|---|
| ||||||||
#Include 'Protheus.ch' User Function Teste_Exec() Local aCab := {} Local aItem := {} Local aItens:= {} Local aLog := {} Private lMsErroAuto := .F. Aadd(aCab, {"RA_FILIAL" , "D MG 01 ",NIL}) Aadd(aCab, {"RA_MAT" , "000001" ,NIL}) Aadd(aItem,{ "RK_PD" , "963" ,nil}) Aadd(aItem,{ "RK_DOCUMEN" , "999999" ,nil}) Aadd(aItem,{ "RK_VALORTO" , 5555.55 ,nil}) Aadd(aItem,{ "RK_PARCELA" , 4 ,nil}) aAdd(aItens,aItem) MSExecAuto({|a, b, c| GPEA110(a, b, c) }, 3, aCab, aItens) If !lMsErroAuto ConOut("**** Incluido com sucesso! ****") Else aLog := getAutoGrLog() MostraErro() ConOut("Erro na Alteracao!") EndIf Return aLog |
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas