PHSYS - Wiki

O Script nomeado de "PH_CBAjustarLancamentosCC" é responsável por realizar a inclusão dos centros de custos nos lançamentos contábeis dos documentos, onde a conta contábil utilizada está marcada para exigir centro de custo e não possuí o lançamento do centro de custo informado.

 procedure CBAjustarLancamentosCC;
 var Q,QCC:TPHQuery;
    CC:TPHServerClass;                                                     
 begin
  Q := NewPHQuery;                                       
  try
    // SELECIONA TODOS OS LANÇAMENTOS CONTÁBEIS QUE NÃO POSSUEM LANÇAMENTO DE CENTRO DE CUSTO
    // PORÉM A CONTA CONTÁBIL ESTÁ MARCADA PARA EXIGIR CENTRO DE CUSTO
      
    Q.Add('SELECT DISTINCT A.ID, '+     
          '       A.VALOR '+                                                                                
          'FROM CBLANCAMENTOS A '+   
          'INNER JOIN CBCONTASCONTABEIS B ON B.ID = A.CONTACONTABIL '+   
          'INNER JOIN CBDOCUMENTOS C ON C.ID = A.CBDOCUMENTO '+                                                                                                                                 
          'WHERE B.ID = :CCB '+      
          'AND B.EXIGIRCENTROCUSTO = ''S'' '+        
          'AND NOT EXISTS (SELECT C.ID '+
          '                FROM CBLANCAMENTOCC C '+      
          '                WHERE C.LANCAMENTO = A.ID)');
    Q.ParamByName('CCB').AsLargeInt := ParamByName('FCBID').AsLargeInt;
    Q.Open;               
                                         
    if (Q.RecordCount > 0) then
    begin                                  
      QCC := NewPHQuery;                                                         
      try
        QCC.Tabela := 'CBLANCAMENTOCC';                                             
        while not Q.Eof do
        begin
          // REALIZA A GERAÇÃO DO LANÇAMENTO DO CENTRO DE CUSTO COM BASE NOS LANÇAMENTOS CONTÁBEIS LOCALIZADOS PELO SQL                                                                                                                                                                                                                                                                             
          QCC.NovoRegistro;                                                                                                                                                               
          QCC.FieldByName('LANCAMENTO').AsLargeInt  := Q.FieldByName('ID').AsLargeInt;                          
          QCC.FieldByName('CENTROCUSTO').AsLargeInt := ParamByName('FCCID').AsLargeInt;                             
          QCC.FieldByName('PERCENTUAL').AsFloat     := 100;                                                                
          QCC.FieldByName('VALOR').AsFloat          := Q.FieldByName('VALOR').AsFloat;                                                                  
          QCC.Post;                                                                                            
                        
          Q.Next;                      
        end;                                                  
      finally
        QCC.Free;                                          
      end;
    end;              
  finally
    Q.Free;                        
  end;            
 end;

Na procedure "ChamarNoServidor" é necessário preencher os parâmetros "FCCID" que é o ID do centro de custo que será informado nos lançamentos contábeis, e também é necessário informar o parâmetro "FCBID" que é o ID da conta contábil que será utilizada para verificar os lançamentos contábeis que não tem o lançamento do centro de custo.

Essa procedure faz a chamado do procedimento acima ("CBAjustarLancamentosCC") pelo servidor, por conta de funcionalidades como "NovoRegistro" e para performace de não precisar ir ao servidor realizar cada Insert na tabela.

 procedure ChamarNoServidor;
 var ScriptObj:TPHProcScript;                                                
 begin
  ScriptObj := TPHProcScript.Create;                                   
  try
    ScriptObj.ScriptNome := 'PH_CBAjustarLancamentosCC';                
    ScriptObj.Procedimento := 'CBAjustarLancamentosCC';
    // Parâmetro responsável por passar o ID do Centro de Custo                                                                                                                                                               
    ScriptObj.ParamByName('FCCID').AsLargeInt := 7;
    // Parâmetro responsável por passar o ID da Conta Contábil        
    ScriptObj.ParamByName('FCBID').AsLargeInt := 5;
    ScriptObj.Executar;      
  finally
    ScriptObj.Free;                                  
  end;        
 end;