Producto: | TOTVS Backoffice |
---|---|
Línea de producto: | Línea Protheus |
Segmento: | Servicios |
Módulo: | TOTVS Backoffice (Línea Protheus) - Contabilidad de gestión (SIGACTB) |
Función: | CTBA231 |
País: | Brasil |
Ticket: | Interno |
Requisito/Story/Issue | DSERCTR1-46829 |
El punto de entrada CTB231PR permite la edición de la stored procedure para selección de las informaciones de origen en el momento de la consolidación.
Debe observarse con cuidado, pues el punto de entrada se activa en dos momentos diferentes, en el primero es para tratar la query que se refiere al saldo inicial, y el segundo es el procesamiento de las informaciones que se consolidarán.
If ExistBlock("CTB231PR") cSQLPE := ExecBlock( "CTB231PR", .F., .F., {cSQL,2}) If !Empty (cSQLPE) .And. cSQLPE <> cSQLOld cSQL := cSQLPE Endif Endif If ExistBlock("CTB231PR") cSQLPE := ExecBlock( "CTB231PR", .F., .F., {cSQL,2}) If !Empty (cSQLPE) .And. cSQLPE <> cSQLOld cSQL := cSQLPE Endif Endif
User Function CTB231PR() Local cSQLPE := ParamIxb[1] Local nOper := ParamIxb[2] //Identificación de la función que está activando, para que sea posible realizar los tratamientos separadamente. Local cMsg := "" If nOper = 1 cMsg := "La función activadora es la de saldo inicial" Else cMsg := "La función activadora es la de procesamiento de agrupación" Endif //Atribuyendo la variable de la nueva query la query oriunda del fuente principal. cSQLPE := cSQLPE //Devolviendo la query en blanco, para garantizar que no ocurrirá error. //cSQLPE := " " //Atribuyendo nuevas informaciones a la query //cSQLPE += "declare @dtlp1 char(8)" Alert(cMsg) Return cSQLPE
Importante