Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

Punto de entrada: CT175GRV - Genera asientos de ajuste

Alcances

Composition Setup
import.css=/download/attachments/327912/newLayout.css

...

Ponto-de-Entrada: CT175GRV - Gera lancamentos de ajuste

...

:

Microsiga Protheus 10 , Microsiga Protheus 11

...

Versiones:

Microsiga Protheus 10 , Microsiga Protheus 11

...

Compatible países:

Todos

Sistemas

...

operativos:

Todos

...

Compatible con las bases de datos:

...

Todas

Idiomas:

...

Portugués (Brasil) ,

...

Portugués (Portugal) ,

...

Español ,

...

Inglés

...

Descripción:

...

Este P.E

...

. Genera asientos de ajuste   

Eventos

...

Ocurre en la rutina que Genera asientos de ajuste                                

Programa

...

fuente

CTBA175.PRW

...

...

Sintaxis

CT175GRV -

...

Genera asientos de ajuste ( [ aClone(aCab) ], [ aClone(aTotItem) ] ) --> aRetorno

...

Parámetros:

...


Nombre



Tipo

...



Descripción

...



Estándar

...



Obligatorio

...



Referencia



aClone(aCab)



Array of Record

...



Copia de la matriz encab












aClone(aTotItem)



array_of_record



Copia

...

de la matriz con totales de los ítems











...

Devolución
           aRetorno

(array_of_record)

...

           Colección con los asientos de ajuste

...

Ejemplos

	If lCt175GrCT2		aRetorno	:=	ExecBlock('CT175GRV',.F.,.F.,{aClone(aCab),aClone(aTotItem)})		aCab		:=	aClone(aRetorno[1])		aTotItem	:=	aClone(aRetorno[2])		aRetorno	:=	{}		Endif			IncProc(STR0036) //"

...

Generando 

...

asiento "	MSExecAuto({|x,y,Z| Ctba102(x,y,Z)},aCab,aTotItem,3) 	aTotItem	:=	{}		If lMsErroAuto		DisarmTransaction()		MostraErro()		Return .F.	Endif			nBase		:=	nX