Histórico da Página

(Obrigatório) 

Informações Gerais

Legenda: 1 – Inovação 2 – Manutenção (Os demais campos devem ser preenchidos para ambos os processos). 

(Obrigatório)

Objetivo

ID 64:
Ter possibilidade de a partir do contrato informar se o fornecedor tem uma liminar para que não desconte o imposto FUNRURAL. 
ID 74:
Ter possibilidade de configurar o valor do sobrpreço, a validade da configuração do sobrepreço, a titularidade (quem entregou a cana) e o favorecido do sobrepreço. 
Ter processo para calcular o valor da nota fiscal de sobrepreço. 
Ter relatório para exibir o cálculo do sobrepreço. 
ID 78:
Tela para configuração da simulação do ajuste de preço, onde será informado o ATR, o valor do kg de ATR e o fornecedor (ou fornecedores) que será(ão) simulado(s) o ajuste de preço. Ter possibilidade de calcular quanto falta para completar a entrega de cana e considerar essa cana faltante na simulação do ajuste de preço, solicitando uma confirmação se considera ou não as canas faltantes na simulação do ajuste de preço. Deve considerar e descontar os adiantamentos de ajustes de safra. Deve ter um relatório para demonstrar a simulação do ajuste de preço. 
Desenvolvimento de uma tela de argumentos para emissão da consulta dos dados gerados na Simulação de Acerto, que realiza a simulação do ajuste de preço, onde será informado o ATR, o valor do kg de ATR e o fornecedor (ou fornecedores) que será(ão) simulado(s) o ajuste de preço. Na tela de argumentos deve conter o período para emissão, o fornecedor, fundo agrícola e tipo de simulçao (se para fornecedores, parceria ou ambos). 
Ter um processo genérico de recuperação de canas a entregar na safra a partir das estimativas. 

(Obrigatório)

Definição da Regra de Negócio

ID 64:
Objeto: dlgRotGerNFContr da APL PGFOCOSA.dlgRotGerNFontr.APL
Ao executar o processo de geração de notas fiscais (CONTRATO), recuperar na tabela CONTRATO_CANA a nova coluna FG_LIMINAR_INSS.
Ao executar a rotina de calculo de taxas, verificar se a nova coluna FG_LININAR_INSS está marcada com "S". Se estiver, o valor resultante do calculo da taxa INSS (parâmetro recuperado no subitem 3.1) não deve ser somando no acumumulador de taxas (NF_HE.AC_TXCONTRIB) e não deve ser deduzido do valor bruto.
Ao gravar a taxa de INSS na tabela HIST_TX, gravar a nova coluna FG_LIMINAR_INSS com o mesmo valor da coluna FG_LIMINAR_INSS da tabela CONTRATO_CANA.
Aplicar os procedimentos acima também nos processos de geração de folha de pagamento do aplicativo COCTAGR.
Objetos:
dlgRotGerRec, dlgRotGerRecAjTopogr, dlgRotGerRecCompl e dlgRotGerRecCtr.
Aplicar os procedimentos acima também nos processos de geração de folha de pagamento do aplicativo PGFOCOSA.
Objetos:
dlgRotGerRecFdo, dlgRotGerRecACoiF e dlgRotGerRecAcCoiF.
ID 74:
O processo para cálculo do sobrepreço e geração da nota fiscal de sobrepreços será no aplicativo PGFOCOSA.EXE na nova opção: "Processos" ? "Notas Fiscais" ? "Geração Notas Fiscais de Sobrepreço". A respectiva reversão será na nova opção: "Processos" ? "Notas Fiscais" ? "Reversão Notas Fiscais de Sobrepreço"
Obs.: Essas duas opções deverão estar após a opção "Processos" ? "Notas Fiscais" ? "Reversão Notas Fiscais de Complemento de Preço - PPB" e após um separador.

Tabela de Configuração de Sobrepreço

Criar um botão no contrato de fornecedores ( "Sobrepreço" ) para exibir a tabela de configuração do sobrepreços.
As colunas INSTANCIA, CD_EMPRESA e NO_CONTRATO não serão exibidas e devem ser gravadas com a respectiva instância, código da empresa e numero do contrato do respectivo contrato.
A data de validade inicial e final deve estar compreendida dentro do período de validade do contrato.
A coluna CD_UPNIVEL1_TIT deve ser inicializada com o Fundo Agrícola de origem do contrato e não deve aceitar alteração.
A coluna CD_UPNIVEL1_FAV deve ser validada conforme abaixo:

1. Se a tabela "PercSafra" foi preenchida, deve ser um dos Fundos Agrícola de destino da tabela PercSafra.
2. Se a tabela "PercSafra" não foi preenchida, deve ser o Fundo de Agríocola de destino do contrato.

Processo de Geração de Notas Fiscais de Sobrepreço

Inícializações:

1. Incializar o Mês/Ano de Referência com o Mês/Ano corrente.
2. Inicializar a Data de Emissão da Nota Fiscal com a data corrente.
3. Alem dos campos visíveis acima, criar um campo para o filtro múltiplo de CD_UNID_IND e deixa-lo invisivel. Inicializar com o (s) valor (es) parâmetro com deção "RCMP_PGTCP" e entrada "CD_UNID_ZERO". Esse parametro pode ter valores separados por ; (ponto e vírgula) por isso a necessidade de ser um filtro múltiplo

Validações:

1. Ao informar o Mês/Ano de Refencia:
   1. Verificar se é o mês atual ou o mês imediatamente anterior. Se não for um dos dois meses, deve retornar mensagem "Mês/Ano de Referencia dever o mês/Ano atual ou mês/ano anterior ao atual" e parar o processo.

1. Ao informar a Fazenda:
   1. Ler tabela UPNIVEL1 e verificar se a fazeda está cadastrada na tabela Upnivel1. Se não estiver, retornar mensage "Fazenda não cadastrada" e parar processo.
   2. Ler a tabela UP1TPPROPR e recuperar tipo de propriedade. Se a fazenda não estiver cadastrado na tabela UP1TPPROPR, retornar mensagem "Fazenda não relacionada a tipo de propriedade" e parar o processo.
   3. Ler a tabela TPPROPRFORN com o tipo de propriedade recuperado no item acima. Se o tipo de propriedade não estiver cadastrado na tabela TPPROPFORN deve retornar mensagem "Fazenda não relacionada a tipo de propriedade Fornecedor" e parar o processo.
   4. Recuperar o contrato COCGTAGR para a fazenda informada. Se não encontrar contrato, retornar mensagem "Fazenda sem contrato" e parar o processo.
   5. A partir do contrato encontrado e com o fazenda informada, ler a tabela CONTRCANA_SOBREPREÇO e recupearar a coluna CD_UPNIVEL1_TIT, onde:
      1. INSTANCIA = Instância do contrato,
      2. CD_EMPRESA = Empresa do contrato,
      3. NO_CONTRATO = Número do contrato,
      4. CD_UPNIVEL1_FAV = Fazenda informada
      5. DT_VAL_IN <= Mês/Ano informado,
      6. DT_VAL_FIN>= Mês/Ano informado

Se não encontrar, retornar mandagem "Fazenda não contem configuração de sobrepreço" e parar o processo

Obs.: o título do atributo "Fazenda" deve ser configurado conforme descrição do atrinuto UpNilve1.

1. Ao informar o Período de Fornecimento:
   1. Verificar se há registro para o período informado. Ler a tabela HISTUPNV1 onde:
      1. CD_UNID_IND conforme configuração abaixo,
      2. CD_UPNIVEL1 = CD_UPNIVEL1_TIT recuperado acima na leitura da tabela CONTRCANA_SOREPREÇO,
      3. DT_REF between o Período de Fornecimento,
      4. CD_REG_UP1 = 'D
   2. Se naão encontrar o registo, retornar mensagem "Não há fornecimento de cana no período informado para configuração de sobrepreço" e parar o processo.
   3. Configuração da unidade industrial na clausula Where:
      1. Se o parâmetro com seção "'RCMP_PGT e entrada "FG_MULT_PLANTA" = "N"
         1. Configurar com "and CD_UNID_IND = resultado do função fMakeFilter()
      2. Se Se o parâmetro com seção "'RCMP_PGT e entrada "FG_MULT_PLANTA" = "S"
         1. Se o parâmetro com seção "RCMP_PGT e entrada "FG_MED_QUI_MP" = 1
            1. Configurar com "and CD_UNID_IND = resultado do função fMakeFilter()
         2. Se o parâmetro com seção "RCMP_PGT e entrada "FG_MED_QUI_MP" != 1
            1. Configurar com "and CD_UNID_IND = valor do parâmetro com seção "RCMP_CAR" e entrada "CD_UNID_IND"

1. Ao informar a Série da Nota Fiscal:
   1. Recuperar o maior número de notas fiscais existente na tabela de outras notas fiscais. Ler a tabela NF_HE_OUT e recuperar a coluna "NO_NF" em ordem descendente onde:
      1. INSTANCIA = instancia logada,
      2. CD_SERIE_NF = Série da Nota Fiscal informada,
      3. CD_UNID_IND = = valor do parâmetro com seção "RCMP_CAR" e entrada "CD_UNID_IND"
   2. Se não encontrar registro, inicializar o Número da Nota Fiscal com 1
   3. Se encontrar registro, inicializar o Número da Nota Fiscal com a coluna NO_NF da tabela NF_HE_OUT + 1

1. Ao informar o Número da Nota Fiscal:
   1. Validar se a nota fiscal e a série da nota fiscal já existe. Ler a tabela NF_HE_OUT onde:
      1. INSTANCIA = instancia logada,
      2. NO_NF = Número da Nota Fiscal informada
      3. CD_SERIE_NF = Série da Nota Fiscal informada,
      4. CD_UNID_IND = = valor do parâmetro com seção "RCMP_CAR" e entrada "CD_UNID_IND".
   2. Se encontrar registro, retornar mensagem "Já existe nota fiscal com a série e o número informado" e parar o processo.

1. Ao informar a Data de Emissão da Nota Fiscal: Validar se a Data de Emissão da Nota Fiscal pertence ao mês atual ou ao mês imediatamente anterior. Se não pertencer, deve retornar mensagem "Data de Emissão da Nota Fiscal deve pertencer ao mês/ano autal ou ao mês anterior ao atual" e parar o processo.

Processo

Recuperar o contrato COCGTAGR para a fazenda informada.
A partir do contrato encontrado e com o fazenda informada, ler a tabela CONTRCANA_SOBREPREÇO e recupearar a coluna CD_UPNIVEL1_TIT e VL_UNIT_SOBREPRECO, onde:
INSTANCIA = Instância do contrato,
CD_EMPRESA = Empresa do contrato,
NO_CONTRATO = Número do contrato,
CD_UPNIVEL1_FAV = Fazenda informada
DT_VAL_IN <= Mês/Ano informado,
DT_VAL_FIN >= Mês/Ano informado


Ler a tabela a tabela HISTUPNV1 contendo JOIN com as tabela UPNIVEL1 pela coluna CD_UPNIVEL1 (constante nas tabelas HISTUPNV1 e UPNIVEL2), FORNECS pela coluna CD_FORNEC (constante nas tabelas UPNIVEL1 e FORNECS) e UP1TPPROPR pela coluna CD_UPNIVEL1 (constante nas tabelas UP1TPPROPR e HISTUPNV1, recuperando as colunas:
UPNIVEL1.CD_FORNEC,
FORNECS. DE_FORNEC,
UPNIVEL1. DE_ENDERECO,
UPNIVEL1. NO_CEP,
UPNIVEL1. NO_TELEFONE,
UPNIVEL1. NO_CGC_CPF,
UP1TPPROPR. CD_TP_PROPR e
SUM( HISTUPNV1.QT_CANA_ENT )
onde:
CD_UNID_IND conforme configuração abaixo,
CD_UPNIVEL1 = CD_UPNIVEL1_TIT recuperado acima na leitura da tabela CONTRCANA_SOREPREÇO,
DT_REF between o Período de Fornecimento,
CD_REG_UP1 = 'D
Configuração da unidade industrial na clausula Where:

1. Se o parâmetro com seção "'RCMP_PGT e entrada "FG_MULT_PLANTA" = "N"
   1. Configurar com "and CD_UNID_IND = resultado do função fMakeFilter()
2. Se Se o parâmetro com seção "'RCMP_PGT e entrada "FG_MULT_PLANTA" = "S"
   1. Se o parâmetro com seção "RCMP_PGT e entrada "FG_MED_QUI_MP" = 1
      1. Configurar com "and CD_UNID_IND = resultado do função fMakeFilter()
   2. Se o parâmetro com seção "RCMP_PGT e entrada "FG_MED_QUI_MP" != 1
      1. Configurar com "and CD_UNID_IND = valor do parâmetro com seção "RCMP_CAR" e entrada "CD_UNID_IND"

Gravar a tabela NF_DE_OUT com as valores abaixo:
INSTANCIA = Instância logada
NO_NF = Número da nota fiscal da tela de argumentos
CD_SERIE_NF= Série da nota fiscal da tela de argumentos
DD_INICIAL= 1
DD_FIM = Último dia do Mês/Ano da tela de argumentos
CD_UNID_IND= Valor do parâmetro com seção "RCMP_CAR" e entrada "CD_UNID_IND"
FG_TP_NOTA= 'S' (sobrepreço)
QT_CANA_ENT= SUM( HISTUPNV1.QT_CANA_ENT )
VL_TON_CANA = CONTRCANA_SOBREPRECO.VL_UNIT_SOBREPRECO
VL_TOTAL= ( SUM( HISTUPNV1.QT_CANA_ENT ) / 1000) * CONTRCANA_SOBREPRECO.VL_UNIT_SOBREPRECO (arredondado em duas decimais)
Executar o processo de taxas, exatamente ao processo de taxas (fProcesso_TAXAS), porém sem a opção de "UPDATE"

Gravar a tabela NF_HE_OUT com as valores abaixo:
INSTANCIA = Instância logada
CD_TP_PROPR = HISTUPNV1.CD_TP_PROPR
NO_NF = Número da nota fiscal da tela de argumentos
CD_SERIE_NF = Série da nota fiscal da tela de argumentos
CD_UNID_IND = Valor do parâmetro com seção "RCMP_CAR" e entrada
"CD_UNID_IND"
FG_TP_NOTA = 'S' (sobrepreço)
CD_UPNIVEL1 = Fazenda da tela de argumentos
CD_FORNEC = UPNIVEL1.CD_FORNEC
CD_SAFRA = Safra do Mês/Ano de referencia da tela de argumentos
AM_FORNEC = Mês/Ano de referência da tela de argumentos
DT_EMIS_NF = Data de emissão da nota fiscal da tela de argumentos
DE_MUNIC = MUNICÍPIOS. DE_MUNIC
DE_NAT_OPER = FISCOP.DE_FISC_OP
DE_END = UPNIVEL1. DE_ENDERECO
NO_CEP = UPNIVEL1. NO_CEP
CD_UF = MUNICIPIOS. CD_UF
NO_FONE = UPNIVEL1. NO_TELEFONE
NO_CGC_CPF = UPNIVEL1. NO_CGC_CPF
FG_SITUACAO = 'N'
AC_PESO = SUM( HISTUPNV1.QT_CANA_ENT )
VL_TOT_NF = ( SUM( HISTUPNV1.QT_CANA_ENT ) / 1000) * CONTRCANA_SOBREPRECO.VL_UNIT_SOBREPRECO (arredondado em duas decimais)
AC_TX_CONTRIB= Reultdo do acúmulo do calculo de taxas
VL_LIQ_NF = VL_TOT_NF - AC_TX_CONTRIB
FG_COMPL_PRECO= 'N'
CD_REG_UP1 = 'Q'
DE_FISC_OP = FISCOP.DE_FISC_OP
VL_TOT_PRODUTO= VL_TOT_NF – ICMS (quando estiver configurado taxa de ICMS)
FG_ACERTO_ANUAL= 'N'
NO_CONTR_CANA= Número do contrato da Fazenda informada
CD_EMPRESA = Empresa do contrato da Fazenda informada
INST_CONTR = Instância do contrato da Fazenda informada





ID 78:
Executar o procedimento de fechamento da safra (PGFOCOSA \ Processos \ Fechamento \ Fechamento de Safra) para recuperar a data da quinzena final de safra que será usada na simulação do acerto.




Realizar leitura na tabela HISTUPNV1 recuperando os atributos CD_FORNEC, CD_UPNIVEL1, QT_CANA_ENT, quando CD_REG_UP1 = 'T', DT_REF = data final de safra da tela de argumentos e recuperar o CD_UNID_IND de acordo com as condições abaixo.

• Se o valor do parâmetro – seção: RCMP_PGTCP e entrada: FG_UNID_ACERTO for 1 então considerar o valor do atributo CD_UNID_IND do parâmetro – seção: RCMP_CAR, entrada: CD_UNID_IND.
• Se o valor do parâmetro – seção: RCMP_PGTCP e entrada: FG_UNID_ACERTO for diferente de 1 considerar o valor do atributo CD_UNID_IND do parâmetro – seção: RCMP_PGTCP, entrada: CD_UNID_AGREG.
  Quando for informada a data na tela de argumentos recuperar, pela função fBuscaSafra, a safra em que pertence a data digitada.
  Na tela de argumentos, se o flag "Considera Cana a Entregar" estiver marcado recuperar os dados da tabela HISTPREPRO, onde a safra é a recuperada na função fBuscaSafra, o CD_UPNIVEL1 que foi lido da tabela HISTUPNV1 e CD_HIST IN (1,2.3,4,5).
  
  SELECT H1.CD_UPNIVEL1, H1.CD_UPNIVEL2, H1.CD_UPNIVEL3, SUM( H1.QT_CANA_ENTR )
  FROM HISTPREPRO H1
  WHERE H1.CD_SAFRA = 21112
  AND H1.CD_UPNIVEL1 = '9875'
  AND H1.CD_HIST         != 'S'
  AND      H1.DT_HISTORICO = ( SELECT MAX( H2.DT_HISTORICO )
                                              FROM  HISTPREPRO H2
                                            WHERE H2.CD_SAFRA = 21112
                                                 AND H2.CD_UPNIVEL1 = H1.CD_UPNIVEL1
                                                 AND H2.CD_UPNIVEL2 = H1.CD_UPNIVEL2
                                                 AND H2.CD_UPNIVEL3 = H1.CD_UPNIVEL3
                                                 AND H2.CD_HIST         != 'S' )
  GROUP BY H1.CD_UPNIVEL1, H1.CD_UPNIVEL2, H1.CD_UPNIVEL3;
  
  Obs.: Fazer a leitura na HISTPREPRO e acumular os dados.
  
  Para encontrar o valor da Cana a Entregar (gravar o valor encontrado no atributo QT_CANA_A_ENT da tabela SIMULACAO_ACERTO):
  Utiliza o resultado do SELECT acima (QT_CANA_ENTR da HISPREPRO) MENOS QT_CANA_ENT da HISTUPNV1
  Então: QT_CANA_A_ENT = QT_CANA_ENTR da HISPREPRO MENOS QT_CANA_ENT da HISTUPNV1
  Obs.: Se retornar valor NEGATIVO gravar ZERO.
  
  Tabela SIMULACAO_ACERTO:
  QT_ATR = informado na tela de argumentos
  VL_KG_ATR = informado na tela de argumentos
  VL_TON = QT_ATR * VL_KG_ATR
  VL_TOTAL_CANA_ENT = VL_TON * QT_CANA_ENT
  VL_TOTAL_CANA_A_ENT = VL_TON * QT_CANA_A_ENT
  VL_BRUTO = VL_TOTAL_CANA_ENT + VL_TOTAL_CANA_A_ENT
  
  Se o valor do parâmetro – seção: RCMP_PGTCP e entrada: FG_PGT_FORN_UP1 for F então deve garvar o valor '999999' no CD_UPNIVEL1 da tabela SIMULAÇÂO_ACERTO.
  Se o valor do parâmetro – seção: RCMP_PGTCP e entrada: FG_PGT_FORN_UP1 for U então deve garvar o código do fundo no atributo CD_UPNIVEL1 da tabela SIMULAÇÂO_ACERTO.
  Para recuperar o Valor Pago (Atributo VL_PAGO da tabela SIMULACAO_ACERTO):
  Se o valor do parâmetro – seção: RCMP_PGTCP e entrada: FG_PGT_FORN_UP1 for F então recupera o VL_PAGO da tabela RECIBOFOR onde:
  Intancia = instancia logada
  CD_FORNEC = fornecedor do loop anterior
  CD_SAFRA = recuperada (função fBuscaSafra)
  SUM(VL_CANA_BRUTO
  
  Se o valor do parâmetro – seção: RCMP_PGTCP e entrada: FG_PGT_FORN_UP1 for U então recupera o VL_PAGO da tabela RECIBOGTM onde:
  Intancia = instancia logada
  CD_FORNEC = fornecedor do loop anterior
  CD_UPNIVEL1 = fundo do loop anterior
  CD_SAFRA = recuperada (função fBuscaSafra)
  SUM(VL_CANA_BRUTO
  Gravar valor líquido (atributo VL_LIQUIDO da tabela SIMULACAO_ACERTO)
  VL_LIQUIDO = VL_BRUTO – VL_PAGO
  Após executar o procedimento de Simulação de Acerto, pode ser emitida a consulta.
  O usuário vai informar como campo obrigatório: "Mês/Ano Simul.Acerto". A data digitada deve estar na tabela SIMULACAO_ACERTO, no atributo:
  Mês/Ano Simul.Acerto = AM_REF
  Os campos "Fornecedor" e "Fundo" podem aceitar um ou mais fornecedores/fundos, separados por ponto e vírgula ( ou então um intervalo de fornecedores/fundos, separados por hifem
  O campo "Tipo de Simulação" pode ser o tipo de simulação por Fornecedor, por Parceria ou Ambos. Quando for "Tipo de Simulação = Fornecedor", o sistema fará leitura na tabela SIMULACAO_ACERTO no atrbitudo FG_TP_SIMULACAO = 'F'. Quando for "Tipo de Simulação = Parceria", o sistema fará leitura na tabela SIMULACAO_ACERTO no atrbitudo .FG_TP_SIMULACAO = 'P'. E quando for "AMBOS" o sistema vai recuperar o atribtuo FG_TP_SIMULACAO IN ( 'F','P').
  Se a flag "Considerar Cana a Entregar" estiver MARCADA, ao emitir a consulta fazer leitura na tabela SIMULACAO_ACERTO, no atributo QT_CANA_A_ENT.
  Se a flag "Considerar Cana a Entregar" estiver DESMARCADA, ao emitir a consulta fazer leitura na tabela SIMULACAO_ACERTO, no atributo QT_CANA_ENT apenas.
  A Instancia deve ser a logada.
  Ordenar por AM_REF, CD_FORNEC, CD_UPNIVEL1.
  
  Se o parâmetro Fornecedor estiver preenchido e o parametro UpNivel1 estiver nulo, deve executar um select para recuperar todas as UpNiveis1 pertencentes ao fornecedor do parametro e processar todas as UpNiveis1 pertencentes ao fornecedor do parâmetro
  Se o parâmetro UpNivel1 estiver preenchido, ignora o parâmetro Fornecedor e o processo será somente para a UpNivel1 do parametro.
  Para cada UpNivel1 pertencente ao fornecedor ou recuperada do parametro, ler sequencialmente (LOOP ou WHILE) a tabela HISPREPRO, executaando o comando abaixo:
  SELECT H1.CD_UPNIVEL1, H1.CD_UPNIVEL2, H1.CD_UPNIVEL3, SUM( H1.QT_CANA_ENTR )
  FROM HISTPREPRO H1
  WHERE H1.CD_SAFRA = Safra do parâmetro
  AND H1.CD_UPNIVEL1 = do parametro ou pertencentes ao fornecedor
  AND H1.CD_HIST         != 'S'
  AND H1.DT_HISTORICO = ( SELECT MAX( H2.DT_HISTORICO )
                                              FROM  HISTPREPRO H2
                                             WHERE H2.CD_SAFRA = 21112
                                                   AND H2.CD_UPNIVEL1 = H1.CD_UPNIVEL1
                                                   AND H2.CD_UPNIVEL2 = H1.CD_UPNIVEL2
                                                   AND H2.CD_UPNIVEL3 = H1.CD_UPNIVEL3
                                               AND H2.CD_HIST         != 'S' )
  GROUP BY H1.CD_UPNIVEL1, H1.CD_UPNIVEL2, H1.CD_UPNIVEL3;
  

  Encontrou registro na tabela HISTPREPRO

  Se encontrou registro, executa LOOP ou WHILE
  Dentro do LOOP ou WHILE:
  Para cada registro lido:
  Lê a tabela HISTPRODUC recupara somantorio da coluna QT_CANA_ENT ( Sum(QT_CANA_ENT )), onde:
  HISTPRODUC.CD_SAFRA = Safra do parâmetro,
  HISTPRODUC.CD_UPNIEL1 = HISTPREPRO.CD_UPNIVEL1,
  HISTPRODUC.CD_UPNIEL2 = HISTPREPRO.CD_UPNIVEL2,
  HISTPRODUC.CD_UPNIEL3 = HISTPREPRO.CD_UPNIVEL3,
  HISTPRODUC.CD_UNID_MED = parametro com seção "RCMP_CAR" e entrada "CD_UNID_MED"
  Cálculo 1: Apura a quantidade de cana a entregar antes do rateio = SUM( HISTPREPRO.QT_CANA_ENTR) - SUM( HISPRODUC.QT_CANA_ENT )
  
  Recupera o contrato de rateio valido para o talhão conforme abaixo:
  Ler sequencialmente as tabelas header e detalhe de contatos de rateio executando o comando abaixo, passando na clausula "where" a UpNivel1, 2 e 3
  
  select HE.NO_CONTRATO, HE.FG_TP_RATEIO, HE.DT_INI_VAL, HE.NO_SEQ_PROC,
  DE.CD_UPNIVEL1_PARA, DE.PE_RATEIO, DE.FG_TP_CONS, DE.FG_SIT_TON,
  DE.QT_TON_PREV, DE.QT_TON_PAG, DE.FG_UPN1_SLIM,
  DE.NO_CONTR_RELAC, HE.INSTANCIA
  from CONTR_RAT_CANA_DE DE, CONTR_RAT_CANA_HE HE, UPNIVEL1 UP1
  where HE.INSTANCIA = 'Instancia Logada'
  and ( HE.INSTANCIA = DE.INSTANCIA )
  and ( HE.DT_INI_VAL <= 'Data de referência do parâmetro' and HE.DT_FIM_VAL >= 'Data de referência do parâmetro' )
  and ( HE.FG_SITUACAO ='A')
  and ( HE.NO_CONTRATO = DE.NO_CONTRATO)
  and HE.FG_TP_RATEIO != 'X'
  and ( DE.CD_UPNIVEL1_DE = HISTPREPRO.CD_UPNIVEL1
  and DE.CD_UPNIVEL2_DE = HISTPREPRO.CD_UPNIVEL2
  and DE.CD_UPNIVEL3_DE = HISTPREPRO.CD_UPNIVEL3 )
  and ( DE.FG_SITUACAO = 'A')
  and DE.CD_UPNIVEL1_PARA != HISTPREPRO.CD_UPNIVEL1
  Order by HE.NO_SEQ_PROC, HE.DT_INI_VAL, HE.NO_CONTRATO, DE.NO_SEQUENCIA_EXEC, DE.CD_UPNIVEL1_PARA;
  
  
  Se nao encontrar registro informando UpNivel1, 2 e 3, ler sequencialmente as tabelas header e detalhe de contatos de rateio executando o comando abaixo, passando na clausula "where" a UpNivel1 e 2.
  select HE.NO_CONTRATO, HE.FG_TP_RATEIO, HE.DT_INI_VAL, HE.NO_SEQ_PROC,
  DE.CD_UPNIVEL1_PARA, DE.PE_RATEIO, DE.FG_TP_CONS, DE.FG_SIT_TON,
  DE.QT_TON_PREV, DE.QT_TON_PAG, DE.FG_UPN1_SLIM,
  DE.NO_CONTR_RELAC, HE.INSTANCIA
  from CONTR_RAT_CANA_DE DE, CONTR_RAT_CANA_HE HE, UPNIVEL1 UP1
  where HE.INSTANCIA = 'Instancia Logada'
  and ( HE.INSTANCIA = DE.INSTANCIA )
  and ( HE.DT_INI_VAL <= 'Data de referência do parâmetro' and HE.DT_FIM_VAL >= 'Data de referência do parâmetro' )
  and ( HE.FG_SITUACAO ='A')
  and ( HE.NO_CONTRATO = DE.NO_CONTRATO)
  and HE.FG_TP_RATEIO != 'X'
  and ( DE.CD_UPNIVEL1_DE = HISTPREPRO.CD_UPNIVEL1
  and DE.CD_UPNIVEL2_DE = HISTPREPRO.CD_UPNIVEL2 )
  and ( DE.FG_SITUACAO = 'A')
  and DE.CD_UPNIVEL1_PARA != HISTPREPRO.CD_UPNIVEL1
  Order by HE.NO_SEQ_PROC, HE.DT_INI_VAL, HE.NO_CONTRATO, DE.NO_SEQUENCIA_EXEC, DE.CD_UPNIVEL1_PARA;
  
  
  Se nao encontrar registro informando UpNivel1 e 2, Ler sequencialmente as tabelas header e detalhe de contatos de rateio executando o comando abaixo, passando na clausula "where" a UpNivel1.
  
  select HE.NO_CONTRATO, HE.FG_TP_RATEIO, HE.DT_INI_VAL, HE.NO_SEQ_PROC,
  DE.CD_UPNIVEL1_PARA, DE.PE_RATEIO, DE.FG_TP_CONS, DE.FG_SIT_TON,
  DE.QT_TON_PREV, DE.QT_TON_PAG, DE.FG_UPN1_SLIM,
  DE.NO_CONTR_RELAC, HE.INSTANCIA
  from CONTR_RAT_CANA_DE DE, CONTR_RAT_CANA_HE HE, UPNIVEL1 UP1
  where HE.INSTANCIA = 'Instancia Logada'
  and ( HE.INSTANCIA = DE.INSTANCIA )
  and ( HE.DT_INI_VAL <= 'Data de referência do parâmetro' and HE.DT_FIM_VAL >= 'Data de referência do parâmetro' )
  and ( HE.FG_SITUACAO ='A')
  and ( HE.NO_CONTRATO = DE.NO_CONTRATO)
  and HE.FG_TP_RATEIO != 'X'
  and ( DE.CD_UPNIVEL1_DE = HISTPREPRO.CD_UPNIVEL1 )
  and ( DE.FG_SITUACAO = 'A')
  and DE.CD_UPNIVEL1_PARA != HISTPREPRO.CD_UPNIVEL1
  Order by HE.NO_SEQ_PROC, HE.DT_INI_VAL, HE.NO_CONTRATO, DE.NO_SEQUENCIA_EXEC, DE.CD_UPNIVEL1_PARA;
  Se nao encontrar registro informando somente UpNivel1, para acumular no "Calculo2" o "Calculo 1" como está
  Para qualquer um dos comandos acima encontrar registro, executar Loop ou While
  Dentro do Loop ou While:
  Se CONTR_RAT_CANA_ HE.FG_TP_RATEIO = 'X'
  Refaz o "Cálculo1" = Calculo1 * (100 – CONTR_RAT_CANA_ DE.PE_RATEIO) /100
  Se CONTR_RAT_CANA_ HE.FG_TP_RATEIO = 'L'
  Refaz o "Cálculo1" = Calculo1 - (CONTR_RAT_CANA_DE.QT_TON_PREV - CONTR_RAT_CANA_ DE.QT_TON_PAG)
  Se CONTR_RAT_CANA_ HE.FG_TP_RATEIO = 'T'
  Refaz o "Cálculo1" = Calculo1 - (CONTR_RAT_CANA_DE.QT_TON_PREV - CONTR_RAT_CANA_ DE.QT_TON_PAG)
  Após o Loop ou While:
  Se "Cálculo1" < 0
  Seta "Cálculo1" = 0
  Calculo2: Acumula resultado do "Calculo1": Calculo2 = Calculo2 + Calculo1
  

  Não ncontrou registro na tabela HISTPREPRO

  Se não encontrou registo na tabela HISTPRPRO, executa leitura squencialo (LOOP ou WHILE) nas tabelas CONTR_RAT_CANA_DE e CONTR_RAT_CANA_HE.
  select DE.CD_UPNIVEL1_DE, DE.CD_UPNIVEL2_DE,DE.CD_UPNIVEL3_DE,
  HE.NO_CONTRATO, HE.FG_TP_RATEIO,HE.DT_INI_VAL, HE.NO_SEQ_PROC,
  DE.PE_RATEIO, DE.FG_TP_CONS, DE.FG_SIT_TON,
  DE.QT_TON_PREV, DE.QT_TON_PAG, DE.FG_UPN1_SLIM,
  DE.NO_CONTR_RELAC, HE.INSTANCIA
  from CONTR_RAT_CANA_DE DE, CONTR_RAT_CANA_HE HE, UPNIVEL1 UP1
  where HE.INSTANCIA = 'Instancia Logada'
  and ( HE.INSTANCIA = DE.INSTANCIA )
  and ( HE.DT_INI_VAL <= 'Data de referência do parâmetro' and HE.DT_FIM_VAL >= 'Data de referência do parâmetro' )
  and ( HE.FG_SITUACAO ='A')
  and ( HE.NO_CONTRATO = DE.NO_CONTRATO)
  and HE.FG_TP_RATEIO != 'X'
  and (DE.CD_UPNIVEL1_PARA = do parametro ou pertencentes ao fornecedor )
  and ( DE.FG_SITUACAO = 'A')
  Order by DE.CD_UPNIVEL1_DE, DE.CD_UPNIVEL2_DE,DE.CD_UPNIVEL3_DE;
  
  
  Dentro do Loop ou While:
  Executa leitura na tabela HISTPREPRO para recuperar a estimativa da UpNivel3, UpNivel 2 e UpNivel1.
  Se CONTR_RAT_CANA_DE.CD_UPNIVEL3_DE é diferente de nulo.
  SELECT SUM( H1.QT_CANA_ENTR )
  FROM HISTPREPRO H1
  WHERE H1.CD_SAFRA = Safra do parâmetro
  AND H1.CD_UPNIVEL1 = CONTR_RAT_CANA_DE.CD_UPNIVEL1_DE
  AND H1.CD_UPNIVEL2 = CONTR_RAT_CANA_DE.CD_UPNIVEL2_DE
  AND H1.CD_UPNIVEL3 = CONTR_RAT_CANA_DE.CD_UPNIVEL3_DE
  AND H1.CD_HIST         != 'S'
  AND H1.DT_HISTORICO = ( SELECT MAX( H2.DT_HISTORICO )
                                              FROM  HISTPREPRO H2
                                             WHERE H2.CD_SAFRA = Safra do parâmetro
                                                    AND H2.CD_UPNIVEL1 = H1.CD_UPNIVEL1
                                                   AND H2.CD_UPNIVEL2 = H1.CD_UPNIVEL2
                                                   AND H2.CD_UPNIVEL3 = H1.CD_UPNIVEL3
                                               AND H2.CD_HIST         != 'S' )
  Lê a tabela HISTPRODUC recupara somantorio da coluna QT_CANA_ENT ( Sum(QT_CANA_ENT )), onde:
  HISTPRODUC.CD_SAFRA = Safra do parâmetro,
  HISTPRODUC.CD_UPNIEL1 = CONTR_RAT_CANA_DE.CD_UPNIVEL1_DE,
  HISTPRODUC.CD_UPNIEL2 = CONTR_RAT_CANA_DE.CD_UPNIVEL2_DE,
  HISTPRODUC.CD_UPNIEL3 = CONTR_RAT_CANA_DE.CD_UPNIVEL3_DE,
  HISTPRODUC.CD_UNID_MED = parametro com seção "RCMP_CAR" e entrada "CD_UNID_MED"
  Cálculo 1: Apura a quantidade de cana a entregar antes do rateio = SUM( HISTPREPRO.QT_CANA_ENTR) - SUM( HISPRODUC.QT_CANA_ENT )
  Se CONTR_RAT_CANA_DE.CD_UPNIVEL3_DE é nulo AND
  CONTR_RAT_CANA_DE.CD_UPNIVEL2_DE é diferente de nulo.
  SELECT SUM( H1.QT_CANA_ENTR )
  FROM HISTPREPRO H1
  WHERE H1.CD_SAFRA = Safra do parâmetro
  AND H1.CD_UPNIVEL1 = CONTR_RAT_CANA_DE.CD_UPNIVEL1_DE
  AND H1.CD_UPNIVEL2 = CONTR_RAT_CANA_DE.CD_UPNIVEL2_DE
  AND H1.CD_HIST         != 'S'
  AND H1.DT_HISTORICO = ( SELECT MAX( H2.DT_HISTORICO )
                                              FROM  HISTPREPRO H2
                                             WHERE H2.CD_SAFRA = Safra do parâmetro
                                                    AND H2.CD_UPNIVEL1 = H1.CD_UPNIVEL1
                                                   AND H2.CD_UPNIVEL2 = H1.CD_UPNIVEL2
                                                   AND H2.CD_UPNIVEL3 = H1.CD_UPNIVEL3
                                               AND H2.CD_HIST         != 'S' )
  Lê a tabela HISTPRODUC recupara somantorio da coluna QT_CANA_ENT ( Sum(QT_CANA_ENT )), onde:
  HISTPRODUC.CD_SAFRA = Safra do parâmetro,
  HISTPRODUC.CD_UPNIEL1 = CONTR_RAT_CANA_DE.CD_UPNIVEL1_DE,
  HISTPRODUC.CD_UPNIEL2 = CONTR_RAT_CANA_DE.CD_UPNIVEL2_DE,
  HISTPRODUC.CD_UNID_MED = parametro com seção "RCMP_CAR" e entrada "CD_UNID_MED"
  Cálculo 1: Apura a quantidade de cana a entregar antes do rateio = SUM( HISTPREPRO.QT_CANA_ENTR) - SUM( HISPRODUC.QT_CANA_ENT )
  Se CONTR_RAT_CANA_DE.CD_UPNIVEL3_DE é nulo AND
  CONTR_RAT_CANA_DE.CD_UPNIVEL2_DE é nulo.
  SELECT SUM( H1.QT_CANA_ENTR )
  FROM HISTPREPRO H1
  WHERE H1.CD_SAFRA = Safra do parâmetro
  AND H1.CD_UPNIVEL1 = CONTR_RAT_CANA_DE.CD_UPNIVEL1_DE
  AND H1.CD_HIST         != 'S'
  AND H1.DT_HISTORICO = ( SELECT MAX( H2.DT_HISTORICO )
                                              FROM  HISTPREPRO H2
                                             WHERE H2.CD_SAFRA = Safra do parâmetro
                                                    AND H2.CD_UPNIVEL1 = H1.CD_UPNIVEL1
                                                   AND H2.CD_UPNIVEL2 = H1.CD_UPNIVEL2
                                                   AND H2.CD_UPNIVEL3 = H1.CD_UPNIVEL3
                                               AND H2.CD_HIST         != 'S' )
  Lê a tabela HISTPRODUC recupara somantorio da coluna QT_CANA_ENT ( Sum(QT_CANA_ENT )), onde:
  HISTPRODUC.CD_SAFRA = Safra do parâmetro,
  HISTPRODUC.CD_UPNIEL1 = CONTR_RAT_CANA_DE.CD_UPNIVEL1_DE,
  HISTPRODUC.CD_UNID_MED = parametro com seção "RCMP_CAR" e entrada "CD_UNID_MED"
  Cálculo 1: Apura a quantidade de cana a entregar antes do rateio = SUM( HISTPREPRO.QT_CANA_ENTR) - SUM( HISPRODUC.QT_CANA_ENT )
  
  Se "Cálculo1" < 0
  Seta "Cálculo1" = 0
  
  
  
  Se CONTR_RAT_CANA_ HE.FG_TP_RATEIO = 'X'
  Refaz o "Cálculo1" = Calculo1 * (100 – CONTR_RAT_CANA_ DE.PE_RATEIO) /100
  Se CONTR_RAT_CANA_ HE.FG_TP_RATEIO = 'L'
  Refaz o "Cálculo1" = Calculo1 - (CONTR_RAT_CANA_DE.QT_TON_PREV - CONTR_RAT_CANA_ DE.QT_TON_PAG)
  Se CONTR_RAT_CANA_ HE.FG_TP_RATEIO = 'T'
  Refaz o "Cálculo1" = Calculo1 - (CONTR_RAT_CANA_DE.QT_TON_PREV - CONTR_RAT_CANA_ DE.QT_TON_PAG)
  
  
  
  
  Calculo2: Acumula resultado do "Calculo1": Calculo2 = Calculo2 + Calculo1
  
  
  
  (Obrigatório)
  <Na tabela abaixo informe quais são as rotinas envolvidas, o tipo de operação, a opção de menu e se necessário uma breve descrição das regras de negócio relacionadas a rotina>.

  Rotinas Envolvidas
  Rotina	Tipo de Operação	Opção de Menu	Regras de Negócio
  PGFO_REL	Alterar	Notas Fiscais de Cana - Registro de Entrada de Cana PGCS_017
  PGFO_REL	Alterar	Resumo Notas Fiscais de Cana por Tipo Propriedade PGCS_018
  PGFO_REL	Alterar	Demonstrativo de Taxas e Contribuições PGCS_027
  PGFO_REL	Alterar	Posição das Taxas dos Fornecedores - N.F. PGCS_058
  PGFO_REL	Alterar	Demonstrativo de Funrural p/ Fundo PGCS_070
  PGFO_REL	Alterar	Registros das Aquisições de Cana - Livro Fiscal PGCS_072
  PGFO_REL	Alterar	Demonstrativo de Funrural p/ Fundo PGCS_086
  PGFO_REL	Alterar	Registros Aquisições Cana-L. Fiscal PGCS_086
  PGFO_REL	Alterar	Registros Aquisições Cana-L. Fiscal PGCS_090
  PGFO_REL	Alterar	Demonstrativo de Taxas/Contribuições PGCS_092
  PGFO_REL	Alterar	Registros Aquisições Cana-L. Fiscal PGCS_096
  PGFO_REL	Alterar	ICMS a Recolher PGCS_098
  PGFO_REL	Alterar	Demonstrativo de Funrural p/ Fundo PGCS_114
  PGFO_REL	Alterar	Posição das Taxas de Fornecedores(Isentos)-NF PGCS_117
  PGFO_REL	Alterar	Registros das Aquisições de Cana - L. Fiscal PGCS_134
  PGFO_REL	Alterar	Demonstrativo de Funrural p/ Fundo PGCS_135
  PGFO_REL	Alterar	Taxas/Provisão dos Fornecedores – Anual PGCS_137
  PGFO_REL	Alterar	Demonstrativo de Pagamento Fundo/Fornecedor PGCS_158
  PGFO_REL	Alterar	Demonstrativo de Notas com CPR PGCS_180
  PGFO_REL	Alterar	Notas Fiscais - Outros Estados PGCS_209
  PGFO_REL	Alterar	N.Fiscais de Cana - Reg. de Entrada de Cana PGTM_017
  PGFO_REL	Alterar	Rel. Posição das Taxas de Fornecedores - N.F. PGTM_058
  COCTAGR	Alterar	Emissão de Recibo de Pagamento COCT_006
  COCTAGR	Alterar	Folha de Pagamento COCT_007
  COCTAGR	Alterar	Demonstrativo de Taxas COCT_008
  COCTAGR	Alterar	Demon&strativo Acerto Annual COCT_017
  COCTAGR	Alterar	Emissão de Recibo de Pagamento COCT_031
  PGFOCOSA	Incluir	PGFOCOSA \ Processos \ Fechamento \ Simualação de Acerto.
  PGFO_REL	Incluir	Simualação de Acerto.

  
  
  (Opcional)
  Diagrama de Entidade e Relacionamento
  
  (Opcional)
  Dicionário de Dados
  Incluir nas tabelas CONTRATO_CANA, MANUT_CONTRATOCANA, LOG_CONTRATOCANA, HIST_TX e HIST_TX_CTACANA a coluna FG_LIMINAR_ICMS (Flag controlador de liminar para suspensçao da cobrança do imposto NSS)
  
  
  
  
  
  
  
  
  
  
  Nova tabela para configuração de sobrepreço (Oficial, Manut e LOG) CONTRCANA_SOBREPREÇO, MANUT_CONTRCANA_SOBREPREÇO e LOG_CONTRCANA_SOBREPRECO
  
  
  
  
  
  
  Criada a tabela SIMULAÇÃO_ACERTO para armazenamento da simulação do acerto.