Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Bloco de código
languagevb
themeRDark
firstline1
#INCLUDE "protheus.ch"
#INCLUDE "TBICONN.ch"
#INCLUDE "PARMTYPE.ch"

User Function Mod11()

    Local cRest     := ""

    cRest := Modulo11("19" + "00000000001",2, 7)
    If !Empty(cRest) .And. cRest == "0" .And. SEE->EE_CODIGO == '237'
        cRest := "P"
    EndIf

Return cRest

...

03. MAIS INFORMAÇÕES

MÓDULO11 - Calcular o dígito verificador do Nosso Número

19 - CNAB / SISPAG - Funções e Variáveis