Á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
firstline1
titleExemplo de Utilização
linenumberstrue
User Function EICEI100()

Local cParam:= ""

IF Type("ParamIXB") == "C"
    cParam:= PARAMIXB
Else
    cParam:= PARAMIXB[1]
Endif

IF cParam == "ADICIONA_ACOES"
    msginfo("Entrou no ponto de entrada 'ADICIONA_ACOES'")
    //aActions := {}
  
ElseIf cParam ==  "ENVIAREMAIL"
    cSmtpServer   := 'servidor'
    cAccount      := 'softleasingprodutos@gmailemail@email.com'
    cPassword     := 'f-1@produtossenha'
    lAutentica    := .T.
    nTryConnection:= ''
    nTimeout      := 120
    cUserAuth     := 'softleasingprodutos@gmailemail@email.com'
    cPswAuth      := 'f-1@produtossenha'
    cSmtpPort     := 465123
    MsgInfo("Entrei no Ponto de Entrada ENVIAREMAIL","Ponto de Entrada")
Endif
  
Return Nil

...