...

---------------------------------------------------------------------------------------------------------------------------

SPEDFISCAL 

...

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 RetCdaSeq DelCDA é 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 lojadeletar 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, incluindo: cQuery , que será usada para armazenar a consulta SQL que será construídaexecutada,  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.

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.

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 PreparedStatement. O primeiro parâmetro é o nome 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.

RetCdalan - Função que filtrar as notas emitidas em períodos anteriores e canceladas 
   no período atual, a fim de facilitar o processamento de estorno ou crédito.

A função RetCdaLanc(dDtIni) éusada para recuperar informações de lançamentos na CDA. Ela recebe uma data inicial como parâmetro.

A variável cQuery é usada para construir uma consulta SQL que será executada posteriormente. Esta consulta SQL seleciona várias colunas de três tabelas CDA, SFT e SB1. A consulta também inclui várias condições e agrupamentos.

Depois de construir a consulta SQL, a função cria um objeto oMontQry usando o método FwExecStatement():New(cQuery). Este objeto é usado para executar a consulta SQL.

Em seguida, a função define várias variáveis para a consulta SQL usando os métodos SetUnsafe e SetString. Estes métodos são usados para definir os valores de parâmetros na consulta SQL.

A função então executa a consulta SQL e itera sobre os resultados. Para cada linha de resultado, ela cria uma string cCdaLanc que parece ser uma concatenação de várias colunas. Se cCdaLanc não estiver vazia, a função adiciona várias colunas a um array aCdaLanc e adiciona este array a um objeto JSON oJCdalanc com a chave sendo cCdaLanc , que será utilizado na função RetApurE113 pra compor o E113.

...

", 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.

RetCdalan - Função que filtrar as notas emitidas em períodos anteriores e canceladas 
   no período atual, a fim de facilitar o processamento de estorno ou crédito.

A função RetCdaLancé usada para retornar um alias para um conjunto de registros de uma consulta SQL, ou para fechar um alias existente. A função recebe quatro parâmetros: cCodLan, cAliasCDA, dDtIni e lOption.

A variável cQuery é usada para armazenar a consulta SQL que será executada. A consulta SQL é uma junção de duas tabelas, CDA e SFT.  A consulta também agrupa e ordena os resultados.

A variável oMontQry é usada para armazenar o objeto de consulta SQL. Se lOption for verdadeiro, a consulta SQL é preparada e executada, e um alias para o conjunto de registros resultante é aberto e retornado. Se lOption for falso, o alias fornecido é fechado.

Os métodos SetUnsafe, SetString, SetIn e SetDate são usados para definir os parâmetros da consulta SQL. O método OpenAlias é usado para abrir um alias para o conjunto de registros resultante da consulta SQL. O método Destroy é usado para destruir o objeto de consulta SQL depois que o alias é aberto.

A função retorna o Alias cAliasCDA

RetApurE113 - Função que monta o registro E113 do SPED Fiscal para documento cancelados.

A função RetApurE113 é usada para retornar um array aE113Apur que contém informações sobre ajustes de apuração do ICMS. A função recebe seis parâmetros: aRegE110, aRegE113, aRegE111, cFilSA1, aRegApur e dDataDe do SPEDFISCAL

Inicialmente, a função define várias variáveis locais e cria um objeto JSON jRegE111. Em seguida, ela percorre o array aRegE111 e adiciona cada elemento ao objeto JSON jRegE111 com uma chave MD5.

A função então verifica se o array aRegApur contém algum elemento. Se sim, ela percorre o array aRegApur e para cada elemento, ela verifica se o objeto JSON jRegE111 contém uma propriedade com uma chave MD5 específica. Se sim, ela chama a função RetCdaLanc para retornar um alias cAliasCDA

A função então percorre aliascAliasCDA  retornado pela função RetCdaLanc e para cada registro, ela adiciona um array de informações ao array aRegE113 e avança para o próximo registro. Quando todos os registros foram processados, ela chama a função RetCdaLanc novamente para fechar o alias.

Finalmente, a função adiciona o array aRegE113 e outras informações ao array aE113Apur, libera o objeto JSON jRegE111 e retorna o array aE113Apur.