Execução das operações automáticas da Solicitação de Transferência - FINA621

01. DADOS GERAIS

Linha de Produto:	Linha Protheus
Segmento:	Backoffice
Módulo:	Financeiro

02. VISÃO GERAL

A rotina FINA621 possui 2 parâmetros a serem informados.

Parâmetros utilizados pela FINA621

xAutoCab: Array com o número da Solicitação de Transferência a ser processada.

nOpc: Opção que está sendo realizada no fonte: 3-Inclusão.

Observação

Para o correto funcionamento da rotina padrão e automática deverá estar com os seguintes cadastros efetuados:

Parâmetro MV_IMPTRAN - Geração dos impostos. Será gerado os impostos retidos na baixa ( '1' = Filial de Origem - * No momento da transferência / '2' = Filial de Destino - * Na baixa. )

Cadastro do Motivo de Baixa sigla "TRF" - Cadastro o Motivo de Baixa através da rotina FINA490 , disponível em Miscelânea->Arquivos->Tabela de Motivos de Baixas

03. EXEMPLO DE UTILIZAÇÃO

Exemplo de Aprovação de Solicitação

#Include "PROTHEUS.CH"

/*/{Protheus.doc} F621IncAuto
    Inclusão Solicitação de Transferência
/*/
USer FUnction F621IncAuto()

	Local cE2_Pref    := " "
	Local cE2_Num     := "00102031 "
	Local cE2_Fornece := "000001"
	Local cE2_Loja    := "01"
	Local cFilSE2     := "D MG 01 "
	Local cFilDest    := "D MG 01 "
	Local aCab        := {}

	Private lMsErroAuto := .F.

	RPCSETENV("T1", "D MG 01", "admin", "1234", "FIN", "FINA621")

	If SE2->( dbSeek( cFilSE2+cE2_Pref+cE2_Num+" "+"NF"))

		aadd(aCab, {"E6_FILDEB",cFilDest})
		aadd(aCab, {"E6_CLIENTE",cE2_Fornece})
		aadd(aCab, {"E6_LOJA",cE2_Loja})
		aadd(aCab, {"AUTHISTDEB","solicitado pelo FINA621 via execauto."})

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

		If lMsErroAuto
			//mostraerro() //Se for usado em interface
			conout('erro na inclusao')
		Else
			//MsgStop("Processo realizado com sucesso.") // Se for usado em interface
			conoute('Processo realizado com sucesso.')
		EndIf

	Else

		//MsgStop("Titulo não encontrado.") // Se for em interface
		conout('Titulo nao encontrado')

	EndIf

Return

04. DEMAIS INFORMAÇÕES

Não há.

05. ASSUNTOS RELACIONADOS

Ponto de entrada.

Árvore de páginas