// ========================================
// RELATÓRIO COMPLETAMENTE CONDICIONADO POR CÓDIGO
// ========================================

PROCEDURE PrintConditionalReport(nOrderNumber IS int, nCopies IS int = 1, bShowPreview IS boolean = False)

// Declaração de variáveis locais
sReportTitle IS string
sCompanyName IS string = “Minha Empresa Ltda”
nCurrentCopy IS int
bPrintDuplicate IS boolean

// ========================================
// 1. VALIDAÇÕES INICIAIS
// ========================================

// Valida número do pedido
IF nOrderNumber <= 0 THEN
Error(“Número do pedido inválido!”)
RETURN
END

// Valida número de cópias
IF nCopies <= 0 OR nCopies > 10 THEN
Error(“Número de cópias deve ser entre 1 e 10!”)
RETURN
END

// ========================================
// 2. CONSULTA DOS DADOS
// ========================================

// Executa query para buscar dados do pedido
IF NOT HExecuteQuery(QRY_Order, hQueryDefault, nOrderNumber) THEN
Error(“Erro ao consultar dados do pedido!”)
RETURN
END

// Verifica se encontrou dados
IF HOut(QRY_Order) THEN
Error(“Pedido não encontrado!”)
RETURN
END

// ========================================
// 3. CONFIGURAÇÃO CONDICIONAL DO RELATÓRIO
// ========================================

// Define título baseado no tipo de pedido
SWITCH QRY_Order.OrderType
CASE “VENDA”
sReportTitle = “NOTA FISCAL DE VENDA”
CASE “ORCAMENTO”
sReportTitle = “ORÇAMENTO”
CASE “PEDIDO”
sReportTitle = “PEDIDO DE COMPRA”
OTHER CASE
sReportTitle = “DOCUMENTO COMERCIAL”
END

// Verifica se deve imprimir via duplicata (condição de negócio)
bPrintDuplicate = (QRY_Order.TotalValue > 1000.00)

// Ajusta número de cópias baseado em regras de negócio
IF bPrintDuplicate THEN
nCopies = Max(nCopies, 2) // Mínimo 2 cópias para valores altos
END

// ========================================
// 4. CONFIGURAÇÃO DA IMPRESSÃO
// ========================================

// Define destino baseado na escolha do usuário
IF bShowPreview THEN
iDestination(iPreview)
ELSE
iDestination(iPrinter)
END

// Configurações adicionais da impressão
iParameter(“ReportTitle”, sReportTitle)
iParameter(“CompanyName”, sCompanyName)
iParameter(“OrderNumber”, nOrderNumber)

// ========================================
// 5. LOOP DE IMPRESSÃO CONDICIONAL
// ========================================

FOR nCurrentCopy = 1 TO nCopies

```
// Define texto da cópia atual
SWITCH nCurrentCopy
CASE 1
g_sCurrentCopy = "1ª VIA - CLIENTE"
CASE 2
IF bPrintDuplicate THEN
g_sCurrentCopy = "2ª VIA - CONTROLE"
ELSE
g_sCurrentCopy = "CÓPIA " + nCurrentCopy
END
OTHER CASE
g_sCurrentCopy = "CÓPIA " + nCurrentCopy
END

// Configura parâmetros específicos da cópia
iParameter("CopyText", g_sCurrentCopy)
iParameter("CopyNumber", nCurrentCopy)

// Impressão condicional baseada no tipo
IF QRY_Order.OrderType = "ORCAMENTO" THEN
// Para orçamentos, usa relatório específico
iPrintReport("RPT_Budget", nOrderNumber)
ELSE
// Para vendas/pedidos, usa relatório padrão
iPrintReport("RPT_Order", nOrderNumber)
END

// Delay entre cópias (evita problemas na impressora)
IF nCurrentCopy < nCopies THEN
Delay(200)
END
```

END

// ========================================
// 6. FINALIZAÇÃO E FEEDBACK
// ========================================

// Mensagem de confirmação
sMessage IS string = StringBuild(“Relatório impresso com sucesso!%1” + …
“Pedido: %2%1” + …
“Cópias: %3”, …
CR, nOrderNumber, nCopies)

IF bShowPreview THEN
Info(“Visualização do relatório aberta.”)
ELSE
Info(sMessage)
END

// Log da operação (opcional)
Trace(StringBuild(”[%1] Relatório impresso - Pedido: %2, Cópias: %3”, …
DateTimeToString(DateTimeSys()), nOrderNumber, nCopies))

END

// ========================================
// PROCEDIMENTO AUXILIAR - SELEÇÃO INTELIGENTE DE CÓPIAS
// ========================================

PROCEDURE SmartCopySelection(nOrderNumber IS int) : int

LOCAL nSuggestedCopies IS int = 1

// Consulta dados do pedido para sugerir número de cópias
IF HExecuteQuery(QRY_Order, hQueryDefault, nOrderNumber) THEN

```
// Regras de negócio para número de cópias
IF QRY_Order.TotalValue > 5000.00 THEN
nSuggestedCopies = 3 // Valores altos = 3 vias
ELSE IF QRY_Order.TotalValue > 1000.00 THEN
nSuggestedCopies = 2 // Valores médios = 2 vias
END

// Clientes especiais sempre 2 cópias
IF QRY_Order.CustomerType = "VIP" THEN
nSuggestedCopies = Max(nSuggestedCopies, 2)
END
```

END

RESULT nSuggestedCopies

END

// ========================================
// EXEMPLO DE USO NO BOTÃO
// ========================================

// Click event of BTN_Print
PROCEDURE BTN_Print_Click()

LOCAL nCopies IS int
LOCAL bPreview IS boolean

// Obtém sugestão inteligente
nCopies = SmartCopySelection(EDT_OrderNumber)

// Pergunta ao usuário sobre preview
bPreview = Confirm(“Deseja visualizar antes de imprimir?”, “Preview”, YesNo)

// Se não quer preview, pergunta sobre número de cópias
IF NOT bPreview THEN
nCopies = InputNum(“Número de cópias:”, “Impressão”, nCopies, 1, 10)
IF nCopies = 0 THEN RETURN // Usuário cancelou
END

// Chama o procedimento principal
PrintConditionalReport(EDT_OrderNumber, nCopies, bPreview)

END

// ========================================
// CONFIGURAÇÃO NO RELATÓRIO (Before Print do TXT_Copy)
// ========================================

// No evento “Before printing” do controle TXT_Copy no relatório:
TXT_Copy = g_sCurrentCopy

// Formatação condicional
IF Left(g_sCurrentCopy, 3) = “1ª “ THEN
// 1ª via em negrito
TXT_Copy..Font.Bold = True
TXT_Copy..Color = RGBBlue
ELSE IF Left(g_sCurrentCopy, 3) = “2ª “ THEN
// 2ª via em itálico
TXT_Copy..Font.Italic = True
TXT_Copy..Color = RGBRed
ELSE
// Outras cópias em fonte normal
TXT_Copy..Font.Bold = False
TXT_Copy..Font.Italic = False
TXT_Copy..Color = RGBBlack
END