FIN0085 - DT Rotina automática FINA060 - Cancelamento de borderô

01. DADOS GERAIS

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

• Parâmetros para o cancelamento de borderô para rotina automática FINA060

  Elemento	Tipo	Descrição
  Parâmetro 1	Numérico	nOpcAuto - 4 Cancelamento de borderô
  Parâmetro 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

• Exemplo:

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

Conout(cErroRet)

EndIf

Return

05. ASSUNTOS RELACIONADOS

• FIN0084 - DT Rotina automática FINA060 - Inclusão de borderô
• FIN0083 - DT Rotina automática FINA060 - Transferência