Exemplo de rotina automática ATFA035

Características do Requisito

Descrição

Abaixo um exemplo de utilização na rotina automática de Baixas (ATFA035).

Observação.: Esta mesma estrutura de código vale para a rotina automática Baixa (ATFA030), porém utilizada nos demais países.

#include "rwmake.ch"
#include "protheus.ch"

User function AutoATF035()

Local aAuto := {}
Local dData := dDataBase

Private lMsErroAuto := .F.

aAuto := { {"N3_CBASE", 'ATF_035 ' , nil},;
{"N3_ITEM", '0001' , nil},;
{"N3_TIPO" , '01' , nil},;
{"AUTQUANT" , 5 , nil},;
{"AUTDTBX" , dData , nil},;
{"AUTMOTBX" , '01-Venda' , nil};
}

MSExecAuto( { |x,y| ATFA035(x,y) }, aAuto,4 )

/*
Campos de tela que podem ser passados para o execauto:
AUTQUANT
AUTDTBX
AUTMOTBX
AUTPERCBX
AUTNOTA
AUTSERIE
AUTBXFILHOS
AUTVLRVENDA

Opções:
nOpc = 4 (Baixa)
nOpc = 5 (Cancelamento)
*/

If lMsErroAuto
MostraErro()
Else
Alert("Baixa realizada com sucesso!")
Endif

Return