MATA360 - Condição de Pagamento (ExecAuto)

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