Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 7

changes.mady.by.user Marjorie Yuri Taki

Gravado em

comparado com

Nova versão 8

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 for do tipo recebimento antecipado - "RA"

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



...