Como automatizar o SPED/EFD no Protheus

-- Etapa 1: Fechamento de estoque e custo
MATA220()  -- Fechamento mensal de estoque (apuração fiscal depende do custo)

-- Etapa 2: Apuração dos tributos
MATA953()  -- Apuração de ICMS (rotina nativa da Central TOTVS)
-- Apuração de IPI: rotina conforme release — confirme no menu Fiscal

-- Etapa 3: Geração e validação do arquivo EFD
SPDFIS()   -- Geração/validação do SPED Fiscal (EFD ICMS/IPI)

-- Etapa 4: Validação (cross-check)
-- Rotina customizada de validação (ver abaixo)

-- Etapa 5: Transmissão — NÃO é feita pelo Protheus nem pelo TSS
-- PVA da Receita: importar → validar → assinar (certificado A1/A3)
-- → transmitir via Receitanet

-- 1. Notas canceladas que ainda aparecem no SPED
SELECT F3_FILIAL, F3_SERIE, F3_NFISCAL, F3_CLIEFOR, F3_DTCANC
FROM SF3010 SF3
WHERE SF3.F3_FILIAL = '01'
  AND SF3.F3_DTCANC <> '        '  -- vazio = 8 espaços (CHAR(8))
  AND SF3.F3_SERIE IN ('1', '2')
  AND SF3.F3_EMISSAO BETWEEN '20260801' AND '20260831'
  AND SF3.D_E_L_E_T_ = ' '

-- 2. CFOPs inconsistentes com a operação — join completo com loja
SELECT C5.C5_NUM, C5.C5_LOJACLI, C6.C6_PRODUTO, C6.C6_CF, C5.C5_TIPO
FROM SC5010 C5
JOIN SC6010 C6
  ON C6.C6_FILIAL = C5.C5_FILIAL
  AND C6.C6_NUM = C5.C5_NUM
WHERE C5.C5_FILIAL = '01'
  AND C5.C5_TIPO = 'N'
  AND C6.C6_CF LIKE '5%'
  AND C5.C5_EMISSAO BETWEEN '20260801' AND '20260831'
  AND C5.D_E_L_E_T_ = ' '
  AND C6.D_E_L_E_T_ = ' '

-- 3. Divergência entre estoque e fiscal — coluna com underscore (B2_QATU)
SELECT B2.B2_COD, B2.B2_QATU,
  SUM(D3.D3_QUANT) AS QTD_MOV
FROM SB2010 B2
LEFT JOIN SD3010 D3
  ON D3.D3_FILIAL = B2.B2_FILIAL
  AND D3.D3_COD = B2.B2_COD
WHERE B2.B2_FILIAL = '01'
  AND B2.D_E_L_E_T_ = ' '
GROUP BY B2.B2_COD, B2.B2_QATU
HAVING B2.B2_QATU <> SUM(D3.D3_QUANT)

// valida_sped.prw — Valida o SPED antes da transmissão.
// Retorna array de divergências encontradas.
#Include "protheus.ch"
#Include "topconn.ch"

User Function VALIDASPED(cMes, cAno)
  Local aErros   := 
  Local cQuery   := ""
  Local cPeriodo := cAno + cMes

  // 1. Notas canceladas no período (ADVPL: RetSqlName + ChangeQuery + TCQUERY)
  cQuery := "SELECT F3_FILIAL, F3_NFISCAL, F3_SERIE, F3_CLIEFOR "
  cQuery += "FROM " + RetSqlName("SF3") + " SF3 "
  cQuery += "WHERE SF3.F3_FILIAL = '" + xFilial("SF3") + "' "
  cQuery += " AND SF3.F3_DTCANC <> '" + Space(8) + "' "
  cQuery += " AND SF3.F3_EMISSAO BETWEEN '" + cPeriodo + "01' AND '" + cPeriodo + "31' "
  cQuery += " AND SF3.D_E_L_E_T_ = ' ' "
  cQuery += " %nolock%"

  cQuery := ChangeQuery(cQuery)
  TCQUERY cQuery NEW ALIAS "QSFC"

  QSFC->(dbGoTop())
  While QSFC->(!Eof())
    aAdd(aErros, "Nota cancelada: " + ;
      QSFC->F3_NFISCAL + " / " + QSFC->F3_SERIE)
    QSFC->(dbSkip())
  End

  QSFC->(dbCloseArea())

  // 2. Período apurado: verifique nas tabelas de apuração/fechamento do seu
  // ambiente (MATA953 grava o resultado da apuração). Não existe um parâmetro
  // MV_ genérico "ICMS apurado" — controle é por tabela, não por GetMv.

  Return aErros

// Tabela customizada ZZ_SPED
// Campos: ZZ_FILIAL, ZZ_PERIOD, ZZ_STATUS, ZZ_DTPROC

User Function SPEDOK(cPeriodo)
  Local lRet := .F.

  // Área + ordem corretas antes de buscar (índice: ZZ_FILIAL + ZZ_PERIOD)
  DbSelectArea("ZZ_SPED")
  ZZ_SPED->(DbSetOrder(1))

  // Verifica se já foi processado
  If ZZ_SPED->(MsSeek(xFilial("ZZ_SPED") + cPeriodo))
    If ZZ_SPED->ZZ_STATUS == "OK"
      // Já processado — log estruturado, sem MsgAlert (isso roda em job)
      FWLogMsg("WARN", "", "SPEDOK", "", "", "", ;
        "Periodo " + cPeriodo + " ja processado em " + DTOC(ZZ_SPED->ZZ_DTPROC))
      Return .F.
    EndIf
  EndIf

  // Grava registro de controle
  RecLock("ZZ_SPED", .T.)
  ZZ_SPED->ZZ_FILIAL := xFilial("ZZ_SPED")
  ZZ_SPED->ZZ_PERIOD := cPeriodo
  ZZ_SPED->ZZ_STATUS := "PROC"
  ZZ_SPED->ZZ_DTPROC := Date()
  MsUnLock()

  Return .T.