Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Fabio Henrique Zanchim Barbosa

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Fabio Henrique Zanchim Barbosa

Gravado em

Chave

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

...

Bloco de código
languagejava
themeMidnight
titleExemplo de rotina automaticaAprovação de Solicitação
collapsetrue

#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
Bloco de código
languagejava
themeMidnight
titleExemplo de rotina automática com rateio de múltiplas naturezasExclusão de Solicitação
collapsetrue
#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
Bloco de código
languagejava
themeMidnight
titleExemplo de rotina automática com rateio de múltiplas naturezasEstorno de Solicitação
collapsetrue
#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

...

05. ASSUNTOS RELACIONADOS

Documento de referencia FINA070 - baixas a receberNão há.



Templatedocumentos


HTML
<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>

...