Histórico da Página

Description:

This routine allows adding Configurable Accounting Frameworks automatically.

Source Program:

CTBA115.PRW

Syntax:

Automatic Routine CTBA115 - Configurable Accounting Frameworks Register ([])

Return:

()

Notes

MSExecAuto({|X, Y, Z| CTBA115(X, Y, Z)}, aDadosAuto, aItens, 3) 

Examples

/*/ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜܱ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±ÚÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄ¿±±±±³Programa  ³MyACTBA115³ Autor ³ Felipe c. Cunha       ³ Data ³ 10/01/12 ³±±±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄ´±±±±³Descri‡…o ³Example of calling CTBA115 via MSExecAuto()()             ³±±±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´±±±±³Uso       ³SIGACTB                                                     ³±±±±ÀÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß/*/User Function MyCTBA115()Local   aDadosAuto   := {} // Array with data to be sent by MsExecAuto() for automatic recording local    aItens          := {} // Array with data to be sent by MsExecAuto() for automatic recording Private 1MsdelpAuto  := .F.   // Determine whether help messages must be directed to log file Private lMsErroAuto := .F.      // Determines if there was any inconsistency in the routine execution in relation to//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿//³ Do not pass the branch value as a parameter.         ³//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙaDadosAuto:=       {{'CVQ_CODIGO'    , "003"                       , Nil},;      // Code                  {'CVQ_DESCRI'    , "Q. Accounting 003"   , Nil},;    // Description                      {'CVQ_IMPTOT'    , "1"                   , Nil}}       // Print Totals                //ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿//³ Do not pass the branch value and code as parameters.³ //ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙaAdd(aItens,      {{'CVQ_ITEM'      , "001"                 , Nil},;      // Item Code                {'CVQ_DESCIT' , "QC Item 01"   , Nil},;    // Item Description                 {'CVQ_CDVGIT'     , "003"                 , Nil},;   // Cod. Ledger Setting                 {'CVQ_FORMPA'    , ""                  , Nil},;   // Prev. Period Formula                    {'CVQ_FORMPC'     , ""              , Nil}})   // Current Period Formula                   MSExecAuto({|X, Y, Z| CTBA115(X, Y, Z)}, aDadosAuto, aItens, 3)If lMsErroAuto      lRetorno := .F.   MostraErro()Else  lRetorno:=.T.      MsgAlert("Record Add," "Alert!")    EndIf               Return

Parameters: