Histórico da Página

...

RetCdaSeq - Recupera o número de sequência máximo da tabela CDA com base nos parâmetros fornecidos.

A função RetCdaSeq é usada para recuperar o número de sequência máximo da tabela CDA com base nos parâmetros fornecidos. Os parâmetros incluem a data de início para a pesquisa, o tipo de movimento, a espécie, o número da NF, a série, o código do cliente ou fornecedor e o código da loja.

A função começa inicializando variáveis locais, incluindo cQuery para a consulta SQL que será construída, cAliasCDA para o alias da tabela CDA, e cData e cDataFim para as datas de início e fim da pesquisa.

A consulta seleciona o valor máximo da coluna CDA_SEQ da tabela CDA. Ela junta a tabela CDA com as tabelas SFT e SB1 com base em várias condições. A consulta também inclui várias condições WHERE, incluindo que a filial CDA deve ser igual a um valor específico, o tipo de movimento e a espécie devem ser iguais aos parâmetros fornecidos, a origem deve ser '6', e a data de cancelamento deve estar entre as datas de início e fim fornecidas.

Depois que a consulta é construída, ela é executada usando o método FwExecStatement():New(cQuery). Os parâmetros da consulta são definidos usando os métodos SetUnsafe e SetString do objeto oMontQry.

Finalmente, o alias da tabela CDA é aberto usando o método OpenAlias do objeto oMontQry, e esse alias é retornado pela função. Antes do retorno, o objeto oMontQry é destruído e definido como Nil para liberar recursos.

DelCDA - Esta função deleta registros de uma tabela onde o campo 'D_E_L_E_T_' não está marcado para exclusão e o campo 'CDA_ORIGEM' corresponde a um valor especificado.

A função DelCDA

...

é usada para deletar registros de uma tabela com base em uma condição específica. A função é estática, o que significa que ela pertence à classe em vez de uma instância da classe.

A função começa inicializando duas variáveis locais: cQuery, que será usada para armazenar a consulta SQL que será executada, e oDelCDA, que será usada para preparar e executar a consulta SQL.

A consulta SQL é definida como "DELETE FROM ? WHERE D_E_L_E_T_ = ' ' AND CDA_ORIGEM = ?". Esta consulta deleta registros de uma tabela (que será especificada mais tarde) onde o campo 'D_E_L_E_T_' não está marcado para exclusão (ou seja, é igual a ' ') e o campo 'CDA_ORIGEM' corresponde a um valor específico (que também será especificado mais tarde).

A consulta SQL é preparada usando o método FWPreparedStatement():New(), que retorna um novo objeto PreparedStatement. A consulta é então definida no objeto PreparedStatement usando o método SetQuery.

Os parâmetros da consulta são definidos usando os métodos SetUnsafe e SetString do objeto PreparedStatement. O primeiro parâmetro é o nome da tabela "CDA", e o segundo parâmetro é a string "6".

Finalmente, a consulta é executada usando a função TCSqlExec, que executa uma consulta SQL fixa. A consulta fixa é obtida do objeto PreparedStatement usando o método GetFixQuery.