Histórico da Página

Descrição

Possui a finalidade de efetuar o lançamento automático de condição de pagamento

Sintaxe

Mata360 ( [xAutoCab]

,[xAutoItens],

nOpcAuto

)

->

Nil

Exemplos

User Function MyMata360()

//DEFININDO

variáveis

Local

aItemAux

:=

{}

//Array

auxiliar

para

inserção

dos

itens

Local

aCabecalho

:=

{}

//Array

do

cabeçalho

(SE4)

Local

aItens

:=

{}

//Array

que

irá

conter

os

itens

(SEC)

Private

lMsErroAuto

:=

.F.

//Indicador

do

status

pós

chamada

//Populando

Cabeçalho
aAdd(aCabecalho,

{“E4_CODIGO”

,

“811”,

Nil})

aAdd(aCabecalho,

{“E4_TIPO”,

“B”,

Nil}

)

aAdd(aCabecalho,

{“E4_COND”,

“16”,

Nil}

)

aAdd(aCabecalho,

{“E4_DESCRI”,

“Descricao”,

Nil}

)

//Populando

Item

auxiliar

aAdd(aItemAux,

{“EC_ITEM”,

“01”,

Nil}

)

aAdd(aItemAux,

{“EC_TIPO”,

“2”,

Nil}

)

aAdd(aItemAux,

{“EC_COND”,

“3”,

Nil}

)

aAdd(aItemAux,

{“EC_IPI”,

“N”,

Nil}

)

aAdd(aItemAux,

{“EC_DDD”,

“D”,

Nil}

)

aAdd(aItemAux,

{“EC_SOLID”,

“N”,

Nil}

)

aAdd(aItemAux,

{“EC_RATEIO”,

100.00,

Nil}

)

aAdd(aItens,

aItemAux)

//Chamando

rotina

automática

de

inclusão

MSExecAuto

({|x,y,z|mata360(x,y,z)}

,

aDados,aItens,

3)

//Verificando

status

da

rotina

executada

If

!lMsErroAuto

ConOut(“Incluido

com

sucesso”)

Else
ConOut(“Erro

na

inclusão”)

EndIf

Return

Idioma

Português(Brasil)

Versões

Microsiga_Protheus10_e_Microsiga_Protheus11

Sistemas

Operacionais

Suportados

Todos

Compatível com as Bases de Dados

Todas

Parâmetros

xAutoCab: Array com os dados do cabeçalho
xAutoItens: Array com os dados dos itens.
nOpcAuto: Opção de rotina a ser utilizada

Retorno

Nil

Programa Fonte

Mata360.prx