Histórico da Página

Descrição:	Função utilizada para

geração da

gerar a Comissão de Vendas via rotina automática (ExecAuto)

Observações

.

Exemplos:

#INCLUDE "PROTHEUS.CH"
#INCLUDE "TBICONN.CH"

User Function

Tmata490

MyMata490()

Local

aVetor

aAuto := {}

Private

lMsErroAuto := .F.

Private lMsHelpAuto := .T.
aVetor:={

PREPARE ENVIRONMENT EMPRESA "99" FILIAL "01" MODULO "FAT" TABLES "SE3","SA1","SA3"

//Posiciona no Cliente/Loja
SA1->(dbSetOrder(1))
SA1->(dbSeek(xFilial("SA1")+"00000402"))

//Posiciona no Vendedor
SA3->(dbSetOrder(1))
SA3->(dbSeek(xFilial("SA3")+"000001"))

//***** Exemplo de Inclusão *****
aAdd(aAuto,{"E3_VEND" ,

"000002",NIL},;

SA3->A3_COD ,Nil})
aAdd(aAuto,{"E3_NUM" ,"

000000233

123456" ,

NIL

Nil})
aAdd(aAuto,

;

{"E3_EMISSAO" ,dDataBase ,

NIL

Nil})
aAdd(aAuto,

;

{"E3_SERIE" ,"

1

UNI" ,

NIL

Nil})
aAdd(aAuto,

;

{"E3_CODCLI" ,

"000005",NIL},;

SA1->A1_COD ,Nil})
aAdd(aAuto,{"E3_LOJA" ,

"16",NIL},;

SA1->A1_LOJA ,Nil})
aAdd(aAuto,{"E3_BASE" ,

2000.00

1000 ,

NIL

Nil})
aAdd(aAuto,

;

{"E3_PORC" ,10 ,

NIL},;

Nil})
aAdd(aAuto,{"E3_DATA" ,dDataBase ,Nil})
aAdd(aAuto,{"E3_PREFIXO" ,"

1

001" ,

NIL

Nil})
aAdd(aAuto,

;

{"E3_PARCELA" ,"

A

1" ,

NIL

Nil})
aAdd(aAuto,

;

{"E3_SEQ" ," " ,

NIL

Nil}

,;

)
aAdd(aAuto,{"E3_TIPO" ,"DH" ,Nil})
aAdd(aAuto,{"E3_

MOEDA

PEDIDO" ,"

01

654321" ,

NIL

Nil})
aAdd(aAuto,

;

{"E3_VENCTO" ,dDataBase ,

NIL

Nil})
aAdd(aAuto,

;

{"E3_PROCCOM" ,"

TESTE

INCLUSAO" ,

NIL}}

Nil})
aAdd(aAuto,{"E3_MOEDA" ,"01" ,Nil})

MSExecAuto({|x,y|

mata490

Mata490(x,y)},

aVetor

aAuto,3) //Inclusao

If lMsErroAuto
Alert("Erro Inclusão")
MostraErro()
Endif

//***** Exemplo de Alteração *****
SE3->(dbSetOrder(

1

3)) //E3_FILIAL+E3_VEND+E3_CODCLI+E3_LOJA+E3_PREFIXO+E3_NUM+E3_PARCELA
SE3->(dbSeek(xFilial("SE3")

+"1 "+"000000233

+SA3->A3_COD+SA1->A1_COD+SA1->A1_LOJA+"001"+"

A

123456789"+"1"+"

000002

DH"))

aVetor

aAuto := {}
aAdd(aAuto,{"E3_VEND" ,

"000002",NIL},;

SA3->A3_COD ,Nil})
aAdd(aAuto,{"E3_NUM" ,"

000000233

123456789" ,

NIL

Nil})
aAdd(aAuto,

;

{"E3_EMISSAO" ,dDataBase ,

NIL

Nil})
aAdd(aAuto,

;

{"E3_SERIE" ,"

1

UNI" ,

NIL

Nil})
aAdd(aAuto,

;

{"E3_CODCLI" ,

"000005",NIL},;

SA1->A1_COD ,Nil})
aAdd(aAuto,{"E3_LOJA" ,

"16",NIL},;

SA1->A1_LOJA ,Nil})
aAdd(aAuto,{"E3_BASE" ,1000

.00

,

NIL

Nil})
aAdd(aAuto,

;

{"E3_PORC" ,

5

10 ,

NIL},;

Nil})
aAdd(aAuto,{"E3_DATA" ,dDataBase ,Nil})
aAdd(aAuto,{"E3_PREFIXO" ,"

1

001" ,

NIL

Nil})
aAdd(aAuto,

;

{"E3_PARCELA" ,"

A

1" ,

NIL

Nil})
aAdd(aAuto,

;

{"E3_SEQ" ," " ,

NIL

Nil}

,;

)
aAdd(aAuto,{"E3_TIPO" ,"DH" ,Nil})
aAdd(aAuto,{"E3_

MOEDA

PEDIDO" ,"

01

654321" ,

NIL

Nil})
aAdd(aAuto,

;

{"E3_VENCTO" ,dDataBase

+4

,

NIL

Nil})
aAdd(aAuto,

;

{"E3_PROCCOM" ,"

TESTE INCLUSAO

ALTERACAO" ,

NIL}}
lMsErroAuto := .F.

Nil})
aAdd(aAuto,{"E3_MOEDA" ,"01" ,Nil})

MSExecAuto({|x,y|

mata490

Mata490(x,y)},

aVetor

aAuto,4) //

Alteracao
If lMsErroAuto
Alert("Erro

Alteração

")
MostraErro()
Endif

//***** Exemplo de Exclusão *****
SE3->(dbSetOrder(

1

3)) //E3_FILIAL+E3_VEND+E3_CODCLI+E3_LOJA+E3_PREFIXO+E3_NUM+E3_PARCELA
SE3->(dbSeek(xFilial("SE3")+

"1 "+"000000233

SA3->A3_COD+SA1->A1_COD+SA1->A1_LOJA+"001"+"

A

123456789"+"1"+"

000002

DH"))

aVetor:={

aAdd(aAuto,{"E3_VEND" ,

"000002",NIL},;

SA3->A3_COD ,Nil})
aAdd(aAuto,{"E3_NUM" ,"

000000233

123456789" ,

NIL

Nil})
aAdd(aAuto,

;

{"E3_

EMISSAO

CODCLI" ,

dDataBase,NIL},;
{"E3_SERIE","1 ",NIL},;

SA1->A1_COD ,Nil})
aAdd(aAuto,{"E3_

CODCLI

LOJA" ,

"000005",NIL},;
{"E3

SA1->A1_LOJA

"

,

"16",NIL},;

Nil})
aAdd(aAuto,{"E3_PREFIXO" ,"

1

001" ,

NIL

Nil})
aAdd(aAuto,

;

{"E3_PARCELA" ,"

A

1" ,

NIL

Nil}

,;
{"E3_SEQ"," ",NIL},;

)
aAdd(aAuto,{"E3_

MOEDA

TIPO" ,"

01

DH" ,

NIL}}
lMsErroAuto := .F.

Nil})

MSExecAuto({|x,y|

mata490

Mata490(x,y)},

aVetor

aAuto,5) //

Exclusao

Exclusão

If lMsErroAuto

Alert

Conout("

Erro Exclusão

Ocorreu algum problema.")

MostraErro

MOSTRAERRO()

Endif

Else

Alert

Conout("

Teste MSEXECAUTO MATA490 finalizado..

Executado com sucesso.")

Return

Endif

Preview

Veja também

Idioma

RESET ENVIRONMENT

Return Nil

Idioma:

Português (Brasil)

Versões

Versão:	Microsiga

_

Protheus11 e Microsiga Protheus12
Sistemas Operacionais Suportados:	Todos
Compatível com as Bases de Dados:	Todas

Updates

Parâmetros

Retorno

Eventos de chamada do Ponto de Entrada

Variáveis

Programa Fonte:	MATA490.PRX

Árvore de páginas

Versões comparadas

Versão antiga 1

Nova versão Atual

Chave