Histórico da Página

#include 'totvs.ch'
 
/*/{Protheus.doc} User Function GCP9QTD
   Permite manipular a quantidade dos pedidos e contratos que serão gerados pelo Encerramento do Edital.
   @type Function
   @since 01/01/2024
   @author user
/*/
User Function GCP9QTD()

  Local nRet      := 0
  Local cAliasSql := Paramixb[1] // Alias da consulta SQL do momento.
  Local aCampos   := (cAliasSql)->(DBStruct())
  Local nC        := 0
  Local cTodos    := ""
  
  // O loop abaixo irá mostrar todos os campos disponíveis na consulta SQL do momento para uso neste ponto de entrada. Utilize essas informações para auxiliar na
  // tomada de decisão.
  If Len(aCampos) > 0
    
    For nC := 1 To Len(aCampos)

      cTodos += AllTrim(aCampos[nC][1])
      cTodos += " = "

      If aCampos[nC][2] == "N"
        cTodos += AllTrim(cValToChar((cAliasSql)->&(aCampos[nC][1])))
      ElseIf aCampos[nC][2] == "D"
        cTodos += AllTrim(DToC((cAliasSql)->&(aCampos[nC][1])))
      Else
        cTodos += AllTrim((cAliasSql)->&(aCampos[nC][1]))
      EndIf

      cTodos += " ** "

    Next nC

    FWAlertInfo(cTodos)

  EndIf

  If (cAliasSql)->QUANT == 1 // Se a quantidade calculada pelo sistema for igual à 1.
    
    nRet := 2 // Altera para 2.

    FWAlertInfo("Quantidade alterada com sucesso", "Rotina GCPA200")

  Else

    nRet := (cAliasSql)->QUANT // Caso contrário, aceita a quantidade calculada pelo sistema.

  EndIf

Return nRet