Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Renato Ferreira Campos

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user admin

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin
Composition Setup
import.css=/download/attachments/327912/newLayout.css
Portuguese

Pagetitle
CT175GRV - Gera lancamentos de ajuste
CT175GRV - Gera lancamentos de ajuste

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:
NomeTipoDescriçãoDefaultObrigatórioReferência
aClone(aCab)Array of RecordCoopia da matriz cab
aClone(aTotItem)array_of_recordCopia 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