Linha de Produto: | Linha Protheus |
---|---|
Segmento: | Backoffice |
Módulo: | Financeiro |
A rotina FINA631 possui 2 parâmetros a serem informados.
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.
Para o correto funcionamento da rotina padrão e automática deverá estar com os seguintes cadastros efetuados: Parâmetro MV_NATTRFF -Código da Natureza a ser utilizada na geração do título a pagar da filial destino 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 |
#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á.
Não há.
<style> div.theme-default .ia-splitter #main { margin-left: 0px; } .ia-fixed-sidebar, .ia-splitter-left { display: none; } #main { padding-left: 10px; padding-right: 10px; overflow-x: hidden; } .aui-header-primary .aui-nav, .aui-page-panel { margin-left: 0px !important; } .aui-header-primary .aui-nav { margin-left: 0px !important; } </style> |