01. DADOS GERAIS
Linha de Produto: | Linha Protheus |
---|
Segmento: | Backoffice |
---|
Módulo: | Financeiro |
---|
02. VISÃO GERAL
A rotina FINA631 possui 2 parâmetros a serem informados.
Parâmetros utilizados pela FINA631
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-Aprovação, 5-Exclusão e 6-Estorno.
03. EXEMPLO DE UTILIZAÇÃO
#Include "PROTHEUS.CH"
/*/{Protheus.doc} F631ApvAuto
Aprova Solicitação de Transferência
/*/
USer FUnction F631ApvAuto()
Local _aVetor := {}
Local _cNumSol := "000001"
Private lMsErroAuto := .F.
Private lMsHelpAuto := .T.
DbSelectArea("SE6")
DbSetorder(3)
If DbSeek(xFilial("SE6")+ Padr(_cNumSol,TamSx3('E6_NUMSOL')[1]))
If E6_SITSOL == "1" //-- Em aberto
Aadd(_aVetor,{"E6_NUMSOL" , _cNumSol , Nil})
MSExecAuto({|x,y| Fina631(x,y)},_aVetor,3)//-- Aprovar (Fa631Apv)
If lMsErroAuto
MostraErro()
Endif
ENDIF
EndIF
Return
#Include "PROTHEUS.CH"
/*/{Protheus.doc} F631ExcAuto
Exclui Solicitação de Transferência
/*/
User FUnction F631ExcAuto()
Local _aVetor := {}
Local _cNumSol := "000001"
Private lMsErroAuto := .F.
Private lMsHelpAuto := .T.
DbSelectArea("SE6")
DbSetorder(3)
If DbSeek(xFilial("SE6")+ Padr(_cNumSol,TamSx3('E6_NUMSOL')[1]))
If E6_SITSOL == "1" //-- Em aberto
Aadd(_aVetor,{"E6_NUMSOL" , _cNumSol , Nil})
MSExecAuto({|x,y| Fina631(x,y)},_aVetor,5)//-- Excluir (Fa631Exc)
If lMsErroAuto
MostraErro()
Endif
EndIf
EndIF
Return
#Include "PROTHEUS.CH"
/*/{Protheus.doc} F631EstAuto
Estorna Solicitação de Transferência
/*/
User Function F631EstAuto()
Local _aVetor :={}
Local _cNumSol := "000001"
Private lMsErroAuto := .F.
Private lMsHelpAuto := .T.
DbSelectArea("SE6")
DbSetorder(3)
If DbSeek(xFilial("SE6")+ Padr(_cNumSol,TamSx3('E6_NUMSOL')[1]))
If E6_SITSOL == "2" // Aprovada
Aadd(_aVetor,{"E6_NUMSOL" , _cNumSol , Nil})
MSExecAuto({|x,y| Fina631(x,y)},_aVetor,6)//-- Estornar (Fa631Exc)
If lMsErroAuto
MostraErro()
Endif
ENDIF
EndIF
Return
Não há.
05. ASSUNTOS RELACIONADOS
Não há.