Explore o futuro com
Mentes Codificadas

User Function MinhaFuncao()
  Local cNome  := Space(40)
  Local nValor := 0
  Local lAtivo := .T.

  cNome  := AllTrim(SA1->A1_NOME)
  nValor := SA1->A1_SALARIO

  If lAtivo
    MsgInfo('Cliente: ' + cNome)
  EndIf

Return NIL

Local cQuery := ''
Local cAlias := 'QRY' + DToS(Date())

cQuery := 'SELECT A1_COD, A1_NOME, A1_CGC '
cQuery += 'FROM ' + RetSQLName('SA1') + ' SA1 '
cQuery += 'WHERE SA1.D_E_L_E_T_ = ' '
cQuery += 'AND SA1.A1_FILIAL = ''' + xFilial('SA1') + ''''

TCQuery cQuery New Alias cAlias

While !(cAlias)->(Eof())
  MsgInfo((cAlias)->A1_NOME)
  (cAlias)->(DbSkip())
EndDo

(cAlias)->(DbCloseArea())

DbSelectArea('SA1')
DbSetOrder(1)

If DbSeek(xFilial('SA1') + cCodCliente)
  If RecLock('SA1', .F.)
    SA1->A1_EMAIL := '[email protected]'
    SA1->A1_DDD   := '11'
    MsUnlock()
  Else
    MsgAlert('Registro em uso!')
  EndIf
EndIf

Local aItens := {}

aAdd(aItens, {'001', 'Produto A', 100.00})
aAdd(aItens, {'002', 'Produto B', 250.50})

Local nI
For nI := 1 To Len(aItens)
  MsgInfo(aItens[nI][2])
Next nI

Local nPos := AScan(aItens, {|x| x[1] == '002'})
If nPos > 0
  MsgInfo('Encontrado: ' + aItens[nPos][2])
EndIf

Local lOk := .T.

BeginTran()

If !GrvCabecalho()
  lOk := .F.
EndIf

If lOk .And. !GrvItens()
  lOk := .F.
EndIf

If lOk
  CommitTran()
  MsgInfo('Gravação concluída!')
Else
  RollBackTran()
  MsgAlert('Erro. Operação cancelada.')
EndIf

Local aRet  := {}
Local wnrel := 'MEUREL'

aRet := SetPrint(wnrel, wnrel,, 'Relatório de Clientes', .T.)

If Empty(aRet)
  Return
EndIf

SetDefault(aRet, wnrel)

If aRet[1] == 'V'
  Set Printer To
Else
  Set Printer To (aRet[2])
EndIf

Set Device To Printer
// ... corpo do relatório ...
Set Device To Screen

Local cTexto := '  Joao Silva  '

AllTrim(cTexto)            // 'Joao Silva'
Upper(cTexto)              // '  JOAO SILVA  '
SubStr(cTexto, 3, 4)       // 'Joao'
StrTran(cTexto,' ','-')    // '--Joao-Silva--'
At('Silva', cTexto)       // 8 (posicao)
PadR(AllTrim(cTexto),20)  // padded a direita

Local oMail := TMailMsg():New()
oMail:SetFrom('[email protected]','ERP')
oMail:AddTo('[email protected]')
oMail:SetSubject('Relatorio de Vendas')
oMail:SetBody('Total: R$ 15.000,00',.F.)
oMail:AddAttachment('
elatendas.pdf')
oMail:Send('smtp.empresa.com',587,'user','senha',.T.)
oMail:End()

// Ler com default
Local cEmail := SuperGetMV('MV_EMAILENV',.F.,'[email protected]')
Local nLim   := SuperGetMV('MV_LIMDESC',.F.,10)

// Gravar
PutMV('MV_EMAILENV', '[email protected]')

// Checar existencia
If ExistMV('MV_LIMDESC')
  MsgInfo(cValToChar(nLim) + '%')
EndIf

Local oRest := FWRest():New('https://api.empresa.com')
oRest:setPath('/v1/pedidos')
oRest:setChaveHeader('Authorization','Bearer '+cToken)
oRest:setChaveHeader('Content-Type','application/json')

If oRest:Post(cBody)
  Local oRet := JsonObject():New()
  oRet:fromJson(oRest:GetResult())
  MsgInfo(oRet['mensagem'])
Else
  MsgAlert('Erro: '+cValToChar(oRest:GetStatus()))
EndIf
oRest:End()

SELECT
  A1_COD, A1_LOJA, A1_NOME,
  A1_CGC AS CNPJ,
  A1_EMAIL, A1_TEL,
  A1_END, A1_MUN, A1_EST
FROM SA1010
WHERE D_E_L_E_T_ = ' '
  AND A1_FILIAL = '0101'
ORDER BY A1_NOME

SELECT
  C5.C5_NUM, C5.C5_EMISSAO,
  SA1.A1_NOME AS Cliente,
  SB1.B1_DESC AS Produto,
  C6.C6_QTDVEN * C6.C6_PRCVEN AS Total
FROM SC5010 C5
INNER JOIN SC6010 C6
  ON C6.C6_NUM = C5.C5_NUM
INNER JOIN SA1010 SA1
  ON SA1.A1_COD = C5.C5_CLIENTE
INNER JOIN SB1010 SB1
  ON SB1.B1_COD = C6.C6_PRODUTO
WHERE C5.D_E_L_E_T_ = ' '
  AND C5.C5_FILIAL = '0101'

SELECT
  E1_NUM, SA1.A1_NOME AS Cliente,
  E1_VENCREA, E1_VALOR, E1_SALDO,
  DATEDIFF(DAY,
    CONVERT(DATE,E1_VENCREA,112),
    GETDATE()) AS DiasAtraso
FROM SE1010 E1
LEFT JOIN SA1010 SA1
  ON SA1.A1_COD = E1_CLIENTE
WHERE E1.D_E_L_E_T_ = ' '
  AND E1_SALDO > 0

SELECT
  F3_DOC, F3_SERIE, F3_EMISSAO,
  CASE F3_TIPO
    WHEN 'E' THEN 'Entrada'
    WHEN 'S' THEN 'Saída'
  END AS Tipo,
  F3_VALBRUT, F3_VALIPI,
  F3_VALICM, F3_VALPIS, F3_VALCOF
FROM SF3010
WHERE D_E_L_E_T_ = ' '
  AND F3_EMISSAO BETWEEN
    '20250101' AND '20251231'

SELECT
  A2_COD, A2_LOJA, A2_NOME,
  A2_CGC    AS CNPJ,
  A2_INSCEST AS IE,
  A2_END, A2_MUN, A2_EST,
  A2_EMAIL, A2_TEL,
  A2_TIPO  -- F=Físico J=Jurídico
FROM SA2010
WHERE D_E_L_E_T_ = ' '
  AND A2_FILIAL = '0101'
ORDER BY A2_NOME

SELECT
  SB1.B1_COD, SB1.B1_DESC, SB1.B1_UM,
  SB1.B1_POSIPI AS NCM,
  SB2.B2_LOCAL  AS Armazem,
  SB2.B2_QATU   AS SaldoFisico,
  SB2.B2_CM1    AS CustoMedio,
  SB2.B2_QATU * SB2.B2_CM1 AS Valor
FROM SB1010 SB1
INNER JOIN SB2010 SB2
  ON SB2.B2_COD = SB1.B1_COD
WHERE SB1.D_E_L_E_T_ = ' '
  AND SB2.B2_QATU > 0

SELECT
  C1.C1_NUM, C1.C1_PRODUTO,
  SB1.B1_DESC AS Produto,
  C1.C1_QUANT - C1.C1_QUJE AS Saldo,
  C1.C1_DATPRF AS DataPrevista,
  SA2.A2_NOME  AS Fornecedor
FROM SC1010 C1
LEFT JOIN SB1010 SB1 ON SB1.B1_COD = C1.C1_PRODUTO
LEFT JOIN SA2010 SA2 ON SA2.A2_COD = C1.C1_FORNECE
WHERE C1.D_E_L_E_T_ = ' '
  AND C1.C1_QUANT > C1.C1_QUJE

SELECT
  F2.F2_DOC, F2.F2_SERIE, F2.F2_EMISSAO,
  SA1.A1_NOME AS Cliente,
  D2.D2_CF    AS CFOP,
  D2.D2_QUANT, D2.D2_TOTAL,
  D2.D2_BASICO AS BaseICMS,
  D2.D2_VALICM, D2.D2_VALIPI
FROM SF2010 F2
INNER JOIN SD2010 D2
  ON D2.D2_DOC = F2.F2_DOC
  AND D2.D2_SERIE = F2.F2_SERIE
WHERE F2.D_E_L_E_T_ = ' '
  AND F2.F2_FILIAL = '0101'

SELECT
  SF1.F1_DOC, SF1.F1_EMISSAO,
  SA2.A2_NOME  AS Fornecedor,
  D1.D1_COD, D1.D1_CF AS CFOP,
  D1.D1_QUANT, D1.D1_TOTAL,
  D1.D1_BASEIA AS BaseICMS,
  D1.D1_PEDIDO AS PedidoCompra
FROM SF1010 SF1
INNER JOIN SD1010 D1
  ON D1.D1_DOC = SF1.F1_DOC
  AND D1.D1_SERIE = SF1.F1_SERIE
WHERE SF1.D_E_L_E_T_ = ' '

SELECT
  SRA.RA_MAT    AS Matricula,
  SRA.RA_NOME   AS Funcionario,
  SRB.RB_DESC   AS Departamento,
  SRC.RC_DESC   AS Cargo,
  SRA.RA_SALARIO AS Salario,
  SRA.RA_ADMISSA AS Admissao
FROM SRA010 SRA
LEFT JOIN SRB010 SRB ON SRB.RB_DEPTO = SRA.RA_DEPTO
LEFT JOIN SRC010 SRC ON SRC.RC_CARGO = SRA.RA_CARGO
WHERE SRA.RA_SITFOLH = '1'

-- Tabelas de domínio do Protheus
SELECT X5_CHAVE, X5_DESCRI
FROM SX5010
WHERE D_E_L_E_T_ = ' '
  AND X5_TABELA = '12' -- UFs

-- No ADVPL:
-- Posicione('SX5', 1,
--   xFilial('SX5')+'12'+cUF,
--   'X5_DESCRI')

-- Empresas e filiais do ambiente
SELECT
  M0_CODIGO  AS Empresa,
  M0_CODFIL  AS Filial,
  M0_NOME    AS NomeEmpresa,
  M0_CGC     AS CNPJ,
  M0_ESTADO  AS UF
FROM SM0010
WHERE D_E_L_E_T_ = ' '
ORDER BY M0_CODIGO, M0_CODFIL

-- ❌ Evite: coluna calculada
Lucro = Vendas[Receita] - Vendas[Custo]

-- ✅ Prefira: medida
Lucro Total =
  SUM(Vendas[Receita]) - SUM(Vendas[Custo])

-- Vendas apenas da região Sul
Vendas Sul =
CALCULATE(
    SUM(Vendas[Valor]),
    Regioes[Regiao] = "Sul"
)

-- Vendas do ano anterior
Vendas Ano Anterior =
CALCULATE(
    SUM(Vendas[Valor]),
    SAMEPERIODLASTYEAR(Calendario[Data])
)

Calendario =
ADDCOLUMNS(
    CALENDAR(DATE(2020,1,1), DATE(2030,12,31)),
    "Ano",        YEAR([Date]),
    "Mes",        MONTH([Date]),
    "NomeMes",   FORMAT([Date], "MMMM"),
    "Trimestre", "T" & ROUNDUP(MONTH([Date])/3,0),
    "DiaSemana", WEEKDAY([Date], 2)
)

Vendas YTD =
TOTALYTD(SUM(Vendas[Valor]), Calendario[Data])

Vendas MTD =
TOTALMTD(SUM(Vendas[Valor]), Calendario[Data])

Crescimento % =
DIVIDE(
    [Vendas YTD] - [Vendas Ano Anterior],
    [Vendas Ano Anterior],
    0
)

Ranking Vendedores =
RANKX(
    ALL(Vendedores[Nome]),
    [Vendas Total],
    ,
    DESC,
    DENSE
)

-- Filtrar top 5 em visuals:
Top 5 =
IF([Ranking Vendedores] <= 5, [Vendas Total])

// Tabela de agregação por mês
let
    Fonte = Vendas,
    Agrupado = Table.Group(
        Fonte,
        {"AnoMes", "Regiao"},
        {
            {"TotalVendas", each List.Sum([Valor]), type number},
            {"QtdPedidos",  each Table.RowCount(_), type number}
        }
    )
in
    Agrupado

-- Busca campo da tabela pai
Segmento = RELATED(Clientes[Segmento])

-- Conta linhas relacionadas
Total Pedidos =
COUNTROWS(RELATEDTABLE(Pedidos))

-- Com filtro:
Concluidos =
CALCULATE(
    COUNTROWS(RELATEDTABLE(Pedidos)),
    Pedidos[Status] = "Concluido"
)

Classificacao =
SWITCH(TRUE(),
    [Vendas Total] >= 100000, "Diamante",
    [Vendas Total] >=  50000, "Ouro",
    [Vendas Total] >=  20000, "Prata",
    [Vendas Total] >=   5000, "Bronze",
    "Iniciante"
)

Status Desc =
SWITCH(Pedidos[Status],
    "A", "Aberto",
    "F", "Faturado",
    "C", "Cancelado",
    "Desconhecido"
)

-- Medida do What-If:
Desconto Valor =
    'Desconto'[Desconto] / 100

-- Usar o parametro:
Receita Simulada =
SUM(Vendas[Valor]) * (1 - [Desconto Valor])

Lucro Simulado =
[Receita Simulada] - SUM(Vendas[Custo])

let
    Fonte   = Sql.Database("srv","banco"),
    Tabela  = Fonte{[Item="Vendas"]}[Data],
    Filtrado = Table.SelectRows(Tabela,
        each [Status] = "A"),
    Renomeado = Table.RenameColumns(Filtrado,{
        {"C5_NUM",     "NrPedido"},
        {"C5_EMISSAO", "DataEmissao"}
    }),
    Tipado = Table.TransformColumnTypes(
        Renomeado,{{"DataEmissao",type date}}
    )
in Tipado

// Cada nó recebe e passa arrays de items
[
  {
    "json": {
      "id": 1,
      "nome": "João Silva",
      "email": "[email protected]"
    }
  }
]

// Item atual
{{ $json.nome }}
{{ $json.email }}

// Nó específico pelo nome
{{ $('HTTP Request').item.json.status }}

// Operações na expressão
{{ $json.preco * $json.quantidade }}
{{ new Date($json.data).toLocaleDateString('pt-BR') }}

// Processar e transformar items
const resultado = items.map(item => {
  const d = item.json;
  return {
    json: {
      nome:       d.nome.trim(),
      email:      d.email.toLowerCase(),
      valor:      `R$ ${d.valor.toFixed(2)}`,
      data:       new Date(d.data)
                    .toLocaleDateString('pt-BR'),
      ativo:      d.status === 'A'
    }
  };
});
return resultado;

// Payload recebido no Webhook
{
  "evento":  "pedido_criado",
  "pedido": {
    "id":      "PED-001",
    "cliente": "João Silva",
    "valor":   1500.00
  }
}

// Acessar no próximo nó:
{{ $json.body.pedido.cliente }}
{{ $json.body.pedido.valor }}

// Fluxo para grandes volumes:
//
// [Buscar dados] → lista completa
//      ↓
// [Split in Batches] → tamanho: 50
//      ↓
// [Processar cada item]
//      ↓
// [Wait] → 1s entre batches

// Verificar último batch (nó Code):
if ($input.context.noItemsLeft) {
  // todos processados!
}

// Dados no Error Workflow:
// $json.workflow.name   → nome do workflow
// $json.error.message   → mensagem do erro
// $json.execution.url   → link no n8n

// Montar alerta para Slack:
const msg = [
  `❌ *Erro:* ${$json.workflow.name}`,
  `📋 ${$json.error.message}`,
  `🔗 ${$json.execution.url}`
].join('
');

return [{ json: { text: msg } }];

// Condições no nó IF:

// Campo existe e não está vazio
{{ $json.email !== '' && $json.email !== undefined }}

// Comparar número
{{ $json.valor > 1000 }}

// Array tem itens
{{ $json.itens.length > 0 }}

// Múltiplas condições
{{ $json.tipo === 'PJ' && $json.cnpj !== '' }}

// URL com variável de ambiente:
https://api.empresa.com/v1/pedidos

// Header de autenticação:
Authorization: Bearer {{ $env.API_TOKEN }}

// Body dinâmico:
{
  "cliente": "{{ $json.codCliente }}",
  "itens": {{ JSON.stringify($json.itens) }},
  "total": {{ $json.valorTotal }}
}

// Todo dia às 8h
0 8 * * *

// Seg–Sex às 7h30
30 7 * * 1-5

// Dia 1 de cada mês às 6h
0 6 1 * *

// A cada 30min em horário comercial
*/30 8-18 * * 1-5

// Toda segunda às 9h
0 9 * * 1

// Após Merge (Combine by Field: id)
const merged = items.map(item => {
  const d = item.json;
  return {
    json: {
      id:          d.id,
      // Do CRM:
      nomeCliente: d.nome,
      // Do ERP:
      saldoERP:    d.saldo,
      // Calculado:
      utilizacao:
        ((d.saldo / d.limite) * 100)
          .toFixed(1) + '%'
    }
  };
});
return merged;

Extintos:
  PIS+COFINS → CBS (federal)
  ICMS+ISS   → IBS (est.+mun.)
  IPI        → IS (seletivo)

Cronograma:
  2026 → testes 0,1%
  2027 → CBS plena
  2029-2032 → IBS gradual
  2033 → regime pleno

          CBS          IBS
Esfera    Federal      Est.+Mun.
Substitui PIS+COFINS   ICMS+ISS
Alíquota  ~8,8%        ~17,7%
Crédito   Pleno        Pleno
Início    2027         2029

NF-e 4.x (previsto):
  <CBS> alíquota + valor
  <IBS> alíquota + valor
  <IS>  alíquota + valor

Protheus — aguardar TOTVS:
  MV_CBSALIQ, MV_IBSALIQ
  SF2/SD2 → novos campos
  Pacote TOTVS Legislação

Hoje:
  Venda R$ 1.000 → recebe R$ 1.000
  Imposto: recolhe mês seguinte

Split Payment (2027+):
  Venda R$ 1.000
  Banco → R$ 270 ao fisco
  Empresa recebe → R$ 730

Fim do "float tributário"

Geram crédito:
  Mercadorias para revenda
  Insumos, energia, fretes
  Servicos contratados
  Aluguel (atividade)
  Ativo imobilizado

Sem crédito:
  Simples Nacional / MEI
  Uso pessoal

Sujeitos ao IS:
  Tabaco, álcool, refrigerantes
  Veículos (exceto elétricos)
  Agrotóxicos, armas
  Minérios

Regras:
  IS não gera crédito
  Base CBS/IBS inclui IS

Quem recebe:
  CadÚnico + CPF na NF-e

Devolução:
  CBS: 20%  IBS: 20%
  Cesta básica: 100%

Para o ERP:
  CPF na NF-e é obrigatório

Simples Nacional:
  CBS/IBS no DAS
  Comprador: crédito presumido

Imunes + MEI:
  Não recolhem → sem crédito

Lucro Presumido:
  Regime geral → crédito normal

Fazer AGORA:
  1. Atualizar pacotes TOTVS
  2. Revisar NCM (SB1.B1_POSIPI)
  3. CPF/CNPJ em todas as NF-e
  4. Revisar CFOP por operação
  5. Documentar pontos de entrada

Aguardar TOTVS 2026+:
  NF-e 4.x, MV_CBS*, MV_IBS*
  Split Payment, SIGAFIS novo

[SmartClient / WebApp]
      TCP/IP
[TOTVS AppServer]
      DBAccess
[DBAccess Server]
      ODBC / driver
[SQL Server / Oracle]

Portas: AppServer 1234
        DBAccess  7890
        REST      8080

Protheus  Apo    tttm120.rpo   (RPO padrão)
    custom.rpo    (customizações)
  Bin\AppServer  Bin\SmartClient  Protheus_Data    Systemload\   (fontes .prw)
  appserver.ini
  dbaccess.ini

[TCP]
Port=1234

[ENVIRONMENT]
sourcepath=...\Systemload
RootPath=...\Protheus_Data
RpoDb=Top
RpoVersion=120

[TOP]
Server=localhost
Port=7890
Database=MSSQL

; RpoCustom=...\custom.rpo

1. VS Code + extensão TOTVS
2. Add Server:
   Host: IP do AppServer
   Porta: 1234
   Ambiente: SEU_AMBIENTE
3. Compilar:
   Ctrl+F9      → arquivo
   Ctrl+Shift+F9 → pasta
4. Debug: F5 → Launch ADVPL

// RPO separado:
// RpoCustom=...\custom.rpo

// Prefixo: Z + módulo + seq
// ZFIN001.PRW, ZVEN002.TLPP

/*/{Protheus.doc}
Funcao    : ZFIN001
Descricao : Relatorio X
Autor     : Dev
Data      : 01/01/2026
/{*/

// Versionar com Git

; Um AppServer → 3 ambientes

[DESENV]
RootPath=...\Protheus_Data_DEV

[HOMOLOG]
RootPath=...\Protheus_Data_HML

[PRODUCAO]
RootPath=...\Protheus_Data_PRD

; SmartClient → escolher no login

// Breakpoint condicional TDS:
// Right-click → Conditional
// Ex: nValor > 1000

// Log em arquivo:
MemoWrite(GetTempPath()+'debug.log',
  DToS(Date())+' '+cValToChar(nValor),
  .T.)

// Console AppServer:
ConOut('nValor: '+cValToChar(nValor))

; appserver.ini:
[HTTPSERVER]
Enable=1
Ports=8080

; TLPP:
#include 'tlpp-rest.th'

@Get('/api/pedidos')
Function getPedidos() As Object
  Local oBody := JsonObject():New()
  oBody['status'] := 'ok'
  oRest:getResponse():setStatus(200)
Return oRest:getResponse()

# .gitignore ADVPL:
*.rpo *.err *.ind
*.dbf *.log

# Versionar:
# *.prw *.tlpp *.ch *.th

# TDS-CLI (pipeline CI/CD):
tdscli compile   --server=localhost --port=1234   --env=DESENV   --program=ZFIN001.PRW   --rpoCustom=custom.rpo