Árvore de páginas

Versões comparadas

Chave

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

 

 

 

 

 

 

 

 

Ponto de Entrada

Descrição:

Este Ponto de Entrada tem a finalidade de validar a conversão do Prospect em Cliente - Tipo ( 1 = Validação / 2 = Após conversão )

Localização:

Atualizações / Cad C e V / Oportunid Negócios (VEICM680)

Eventos:

Function FGX_SUSSA1(_cCodSUS,_cLojSUS,_lAuto)

Local lRet := .t.

Local lPE := ExistBlock("PESUSSA1")

Default _cCodSUS := SUS->US_COD

Default _cLojSUS := SUS->US_LOJA

Default _lAuto := .f.

If FGX_USERVL( xFilial("VAI"),__cUserID, "VAI_SUSSA1", "==" ,"1")

DbSelectArea("SUS")

DbSetOrder(1)

If !Empty(_cCodSUS+_cLojSUS) .and. DbSeek(xFilial("SUS")+_cCodSUS+_cLojSUS)

If Empty(SUS->US_CODCLI+SUS->US_LOJACLI)

 

//Ponto de Entrada tem a finalidade de validar a conversao do Prospect em cliente - Tipo ( 1 = Validação / 2 = Apos conversão )

If !lPE .or. ExecBlock("PESUSSA1",.f.,.f.,{ "1" , _lAuto , _cCodSUS , _cLojSUS , SUS->US_CODCLI , SUS->US_LOJACLI })

//

lRet := Tk273GrvPTC(_cCodSUS,_cLojSUS,_lAuto) // Converter SUS em SA1

//

If lRet .and. !Empty(SUS->US_CODCLI+SUS->US_LOJACLI)

If !_lAuto

MsgInfo(STR0120+CHR(13)+CHR(10)+CHR(13)+CHR(10)+STR0119+" "+_cCodSUS+"-"+_cLojSUS+CHR(13)+CHR(10)+STR0017+" "+SUS->US_CODCLI+"-"+SUS->US_LOJACLI,STR0014) // Prospect convertido com sucesso! / Prospect / Cliente / Atencao

EndIf

if lPE

//Ponto de Entrada tem a finalidade de validar a conversao do Prospect em cliente - Tipo ( 1 = Validação / 2 = Apos conversão )

ExecBlock("PESUSSA1",.f.,.f.,{ "2" , _lAuto , _cCodSUS , _cLojSUS , SUS->US_CODCLI , SUS->US_LOJACLI })

Endif

//

EndIf

Else

lRet := .f.

Endif

Else // Possui Cliente relacionado ao Prospect

lRet := .f.

If !_lAuto

MsgStop(STR0121+CHR(13)+CHR(10)+CHR(13)+CHR(10)+STR0119+" "+_cCodSUS+"-"+_cLojSUS+CHR(13)+CHR(10)+STR0017+" "+SUS->US_CODCLI+"-"+SUS->US_LOJACLI,STR0014) // Impossivel continuar! Prospect já esta relacionado a um Cliente. / Prospect / Cliente / Atencao

EndIf

EndIf

Else

lRet := .f.

If !_lAuto

MsgStop(STR0122,STR0014) // Impossivel continuar! Prospect não encontrado. / Atencao

EndIf

EndIf

Else

lRet := .f.

If !_lAuto

MsgStop(STR0123,STR0014) // Usuario sem permissao para converter o Prospect em Cliente. / Atencao

EndIf

EndIf

DbSelectArea("SUS")

Return(lRet)

 

Programa Fonte:

VEIXFUNA.PRW

Função:

FGX_SUSSA1                                                                                                                     

Retorno:

Lógico

 

Exemplo:

User Function PESUSSA1()

cTipo := ParamIxb[1]

if cTipo == "1"

MsgInfo("Ponto de entrada PESUSSA1 executado com sucesso - tipo 1")

Else

MsgInfo("Ponto de entrada PESUSSA1 executado com sucesso - tipo 2")

Endif

 

Return(.t.)