Páginas filhas
  • CT175GRV - Creates adjustment entries -- 109642

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Composition Setup
import.css=/download/attachments/327912/newLayout.css

...

Pagetitle
CT175GRV -

...

Creates adjustment entries
CT175GRV -

...

Creates adjustment entries

Entry-Points: CT175GRV -

...

Creates adjustment entries


Scope:

Microsiga Protheus 10, Microsiga Protheus 11

...

Versions:

Microsiga Protheus 10, Microsiga Protheus 11

...

Compatible Countries:

...

All

...

Operating Systems:

...

All

Compatible with the Databases:

...

All

...

Languages:

...

Portuguese (

...

Brazil) ,

...

Portuguese (Portugal) ,

...

Spanish ,

...

English

...


Description:

...

This P.E

...

. creates adjustment entriese   

Event

It happens in the routine that creates adjustment entries.                                

Source Program

Eventos

occore na rotina que Gera lancamentos de ajuste                                

...

CTBA175.PRW

...

...

Syntax

CT175GRV -

...

Creates adjustment Entries ( [ aClone(aCab) ], [ aClone(aTotItem) ] ) --> aRetorno

...

Parameters:

...



Name

...



Type

...



Description



Default

...



Mandatory

...



Reference



aClone(aCab)



Array of Record

...



Copy of the cab matrix












aClone(aTotItem)



array_of_record

...



Copy of the matrix with item totals











Return

aRetorno(array_of_record)

...

Collection with adjustment entries

Examples

If lCt175GrCT2          aRetorno    :=     

...

ExecBlock('CT175GRV',.F.,.F.,{aClone(aCab),aClone(aTotItem)})

...

            aCab        :=

...

    aClone(aRetorno[1])

...

           aTotItem    :=

...

    aClone(aRetorno[2])

...

           aRetorno    :=

...

    {}

...

          Endif             IncProc(STR0036)

...

//"

...

Creating entries "      MSExecAuto({|x,y,Z|

...

Ctba102(x,y,Z)},aCab,aTotItem,3)

...

      aTotItem    :=

...

    {}

...

          If lMsErroAuto          DisarmTransaction()

...

           MostraErro()

...

            Return

...

.F.

...

  Endif             nBase       :=    nX



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