MATA416 - Aprovação Automática de Orçamentos (ExecAuto)

Descrição

Função utilizada para aprovação automática dos orçamentos de venda via rotina automática (ExecAuto).

Exemplos

#Include "Totvs.ch"
#Include "topconn.ch"
#INCLUDE "TBICONN.CH"

User Function MyMata416()

Local aCabec := {}

Local aItens := {}

Local aLinha := {}

PRIVATE lMsErroAuto := .F.

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿

//| Abertura do ambiente                                                                                                          |

//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ

PREPARE ENVIRONMENT EMPRESA "99" FILIAL "01" MODULO "FAT" TABLES "SC5","SC6","SA1","SA2","SB1","SB2","SF4","SCJ","SCK","SCL"

aCabec := {}

aItens := {}

aadd(aCabec,{"CJ_NUM"    ,"000009"            ,Nil})

aadd(aCabec,{"CJ_CLIENTE","000001"            ,Nil})

aadd(aCabec,{"CJ_LOJACLI","01"                ,Nil})

aadd(aCabec,{"CJ_CLIENT" ,"000001"            ,Nil})

aadd(aCabec,{"CJ_LOJAENT","01"                ,Nil})

aadd(aCabec,{"CJ_CONDPAG","001"                ,Nil})

aLinha := {}

aadd(aLinha,{"CK_ITEM"     ,"01"                ,Nil})

aadd(aLinha,{"CK_PRODUTO","01             "    ,Nil})

aadd(aLinha,{"CK_QTDVEN" ,1                    ,Nil})

aadd(aLinha,{"CK_PRCVEN" ,100                ,Nil})

aadd(aLinha,{"CK_PRUNIT" ,100                ,Nil})            

aadd(aLinha,{"CK_VALOR"     ,100                ,Nil})

aadd(aLinha,{"CK_TES"     ,"501"                ,Nil})

aadd(aItens,aLinha)

MATA416(aCabec,aItens)

If !lMsErroAuto

    ConOut("Baixa efetuada com sucesso! ")    

Else

    //MostraErro()

    ConOut("Erro na baixa!")

EndIf

RESET ENVIRONMENT

Return(.T.)   

Idioma

Português(Brasil)

Versões

Microsiga Protheus 10 e Microsiga Protheus 11

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

TOTVSDBAccess

Parâmetros

aCabec (Array) --> Cabeçalho do orçamento.
aItens (Array) --> Itens do orçamento.

Retorno

Nil --> Nenhum

Eventos de chamada do Ponto de Entrada

MATA416(aCabec,aItens) – > Nil

Programa Fonte

MATA416.PRW