Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 8

changes.mady.by.user Usuário desconhecido (tp.victor.furukawa)

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Usuário desconhecido (tp.victor.furukawa)

Gravado em

Chave

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

...

Informações
titleInformações

O sistema não permite a solicitação de transferência nas seguintes situações:

  • quando o título não estiver em carteira;
  • quando o título já sofreu algum tipo de baixa;
  • quando já houve solicitação de transferência anterior para esse título.
  • quando o tipo de titulo título for do tipo recebimento antecipado - "RA". Esse bloqueio ocorre devido, já haver ocorrido movimentação bancária, causando assim uma quebra de consistência das informações processadas. 

02. Utilização


Deck of Cards
idUtilização
Card
idUtilização
labelManual

Para efetuar uma solicitação de transferência:

  1. Em Solic. de Transf., selecione o título desejado e clique em Solicitar.

2. O sistema apresenta a tela de Solicitação de Transferência.

3. Na área superior da tela, são relacionados os dados do título.

4. Na área central, o sistema apresenta o checklist. Todas as questões devem ser assinaladas.


Importante:

Somente será permitida a inclusão de uma solicitação de transferência, se todas as questões do checklist forem respondidas com Sim (marcadas com X).


5. Na área inferior, selecione a filial de débito (destino) ou o cliente (débito) e informe o histórico da solicitação de transferência, se desejar.

6. Confira os dados e confirme.

7. Observe que título é sinalizado com a legenda na cor vermelha , aguardando aprovação ou rejeição.

Card
idUtilização
labelAutomático

A rotina possui duas formas de utilização da rotina automática, uma chamando a função Fa620Auto, outra via execauto.

Chamando a função Fa620Auto, é possível solicitar penas transferência entre filiais, já via execauto é possível a alteração de cliente também. 

Exemplo de utilização da rotina automática pela função Fa620Auto:


Bloco de código
languagesql
themeFadeToGrey
titleFa620Auto
User Function FINA620AUTO( )

LOCAL nRecSe1	:= 18	//Recno do titulo Principal
LOCAL cfilDest	:= "02"	//Filial de Destino
LOCAL cHist		:= "Teste Transferência"	//Histórico da transferência
LOCAL lAprov	:= .T.	//Executa aprovação da transferência automaticamente
LOCAL lMsgErro	:= .T.	//Apresenta mensagem de erro "Mostraerro( )".

PRIVATE lMsErroAuto := .F. 

Fa620Auto(nRecSe1,cfilDest,cHist, lAprov, lMsgErro)

If lMsErroAuto
    MostraErro( )
Else
    Alert("Título transferido com sucesso!")
Endif

Return


Exemplo de utilização da rotina automática por execauto:

Bloco de código
languagesql
themeFadeToGrey
titleFINA620
User function ExFin620()

Local cE1_Pref := " "
Local cE1_Num := "00102031 "
Local cE1_Cliente := "000001"
Local cE1_Loja := "01"
Local cFilSE1 := "D MG 01 "
Local cFilDest := "D MG 01 "
Local aCab := {}

Private lMsErroAuto := .F.

RPCSETENV("T1", "D MG 01", "teste", "123", "FIN", "FINA620")

If SE1->( dbSeek( cFilSE1+cE1_Pref+cE1_Num+" "+"NF"))

	aadd(aCab, {"E6_FILDEB",cFilDest})
	aadd(aCab, {"E6_CLIENTE",cE1_Cliente})
	aadd(aCab, {"E6_LOJA",cE1_Loja})
	aadd(aCab, {"AUTHISTDEB","Teste"})

	//Inclusao de Solicitação de transferencia
	MSExecAuto({|a, b| FINA620(a,b)}, aCab,3)

	If lMsErroAuto
		mostraerro()
	Else
		MsgStop("Processo realizado com sucesso.")
	EndIf
Else
	MsgStop("Titulo não encontrado.")
EndIf

Return



...