01. DADOS GERAIS

Linha de Produto:Microsiga Protheus
Segmento:Serviços
Módulo:SIGAFIN
Função:FINA060
Requisito/Story/Issue (informe o requisito relacionado) :DSERFINR-19055


02. SITUAÇÃO/REQUISITO

Implementação do cancelamento de borderô por rotina automática (execauto) FINA060.

03. SOLUÇÃO

Disponibilizado o cancelamento de borderô por rotina automática.

04. DEMAIS INFORMAÇÕES


User function AUTO060CAN()

Local aBor := {}
Local cNumBor := "123" //Número do borderô a ser cancelado

//-- Variáveis utilizadas para o controle de erro da rotina automática
Local aErroAuto :={}
Local cErroRet :=""
Local nCntErr :=0
Private lMsErroAuto := .F.
Private lMsHelpAuto := .T.
Private lAutoErrNoFile := .T.

PREPARE ENVIRONMENT EMPRESA "XX" FILIAL "XX" USER "admin" 

aAdd(aBor, {"AUTNUMBOR" , PadR(cNumBor ,TamSX3("E1_NUMBOR")[1]) })
aAdd(aBor, {"AUTCANLIQ" , .T. }) //Para cancelar borderô carteira descontada deve ser informado se o estorno é com valor liquido .T. ou bruto .F.

MSExecAuto({|a, b| FINA060(a, b)}, 4,aBor)

If lMsErroAuto

aErroAuto := GetAutoGRLog()

For nCntErr := 1 To Len(aErroAuto)

cErroRet += aErroAuto[nCntErr]

Next

EndIf

Conout(cErroRet)

Return


05. ASSUNTOS RELACIONADOS




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