Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: CT175GRV - Gera lancamentos de ajuste
Abrangências: Microsiga Protheus 10 , Microsiga Protheus 11
Versões: Microsiga Protheus 10 , Microsiga Protheus 11
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Idiomas: Português (Brasil) , Português (Portugal) , Espanhol , Inglês
Descrição: 
Esse P.E Gera lancamentos de ajuste
Eventos

occore na rotina que Gera lancamentos de ajuste                                

Programa Fonte 
CTBA175.PRW
Sintaxe

CT175GRV - Gera lancamentos de ajuste ( [ aClone(aCab) ], [ aClone(aTotItem) ] ) --> aRetorno

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
aClone(aCab) Array of Record Coopia da matriz cab
aClone(aTotItem) array_of_record Copia da matriz com totais dos itens
Retorno
    aRetorno(array_of_record)
  • Coleção com os lançamentos de ajuste
Exemplos 
	If lCt175GrCT2		aRetorno	:=	ExecBlock('CT175GRV',.F.,.F.,{aClone(aCab),aClone(aTotItem)})		aCab		:=	aClone(aRetorno[1])		aTotItem	:=	aClone(aRetorno[2])		aRetorno	:=	{}		Endif			IncProc(STR0036) //"Gerando lancamento "	MSExecAuto({|x,y,Z| Ctba102(x,y,Z)},aCab,aTotItem,3) 	aTotItem	:=	{}		If lMsErroAuto		DisarmTransaction()		MostraErro()		Return .F.	Endif			nBase		:=	nX