| Produto: | |
|---|---|
| Linha de Produto: | |
| Segmento: | |
| Módulo: | |
| Função: | CTBA231 |
| País: | Brasil |
| Ticket: | Interno |
| Requisito/Story/Issue | DSERCTR1-46829 |
O ponto de entrada CTB231PR permite a edição da stored procedure para seleção das informações de origem no momento da consolidação.
Deve-se observar com cuidado pois o ponto de entrada é chamado em dois momentos diferentes, no primeiro é para tratar a query referente ao saldo inicial, e o segundo é o processamento das informações a serem consolidadas.
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] //Identificação da função que esta chamando, para que seja possível realizar as tratativas em separado. Local cMsg := "" If nOper = 1 cMsg := "A função chamadora é a de saldo inicial" Else cMsg := "A função chamadora é a de processamento da aglutinação" Endif //Atribuindo a variável da nova query a query oriunda do fonte principal. cSQLPE := cSQLPE //Retornando a query em branco, para garantir que não irá ocorrer erro. //cSQLPE := " " //Atribuindo novas informações a query //cSQLPE += "declare @dtlp1 char(8)" Alert(cMsg) Return cSQLPE |
|