Histórico da Página

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.)

Ponto de Entrada

Descrição:

Informe o Menu em que estará localizada a rotina

Localização:

Informe o Submenu em que estará localizada a rotina

Eventos:

Informe o Título da rotina

Programa Fonte:

Informe o Fonte da rotina

Função:

Informe o Nome do(s) produto(s) a ser utilizado ou “Todos”

Retorno:

Nome	Tipo	Descrição	Obrigatório

Exemplo:

#Include 'Protheus.ch'

User Function CN120ALT()

Local aCab:= PARAMIXB[1]

Local cTipo:= PARAMIXB[2]

If cTipo == '1'

aCab[4][2]:= 'NF' //Validações do usuário

EndIf

Return aCab

Árvore de páginas

Versões comparadas

Versão antiga 1

Nova versão Atual

Chave

Ponto de Entrada

Ponto de Entrada