Linha de Produto: | Microsiga Protheus |
---|---|
Segmento: | Serviços |
Módulo: | SIGAFIN |
Função: | FINA060 |
Requisito/Story/Issue (informe o requisito relacionado) : | DSERFINR-19055 |
Implementação do cancelamento de borderô por rotina automática (execauto) FINA060.
Disponibilizado o cancelamento de borderô por rotina automática.
Parâmetros para o cancelamento de borderô para rotina automática FINA060
Elemento | Tipo | Descrição |
---|---|---|
PARAMIXB[1] | Numérico | nOpcAuto - 4 Cancelamento de borderô |
PARAMIXB[2] | Array | Array com o número do borderô |
Estrutura do array do cancelamento de borderô:
Elemento | Tipo | Descrição |
---|---|---|
AUTNUMBOR | Caracter | Número do borderô |
AUTCANLIQ | Lógico | .T. para estorno com valor líquido e .F. pra valor bruto |
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
<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> |