MATA416 - Aprobación automática de presupuestos (ExecAuto)

Descripción

Función utilizada para la aprobación automática de los presupuestos de venta a través de la rutina automática (ExecAuto).

Ejemplos

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

User Function MyMata416()

Local aCabec := {}

Local aItens := {}

Local aLinha := {}

PRIVATE lMsErroAuto := .F.

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

//| Apertura del entorno                                                                                                         |

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

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("¡Baja realizada con éxito! ")    

Else

    //MostraErro()

    ConOut("¡Error en la baja!")

EndIf

RESET ENVIRONMENT

Return(.T.)   

Idioma

Portugués (Brasil)

Versiones

Microsiga Protheus 10 y Microsiga Protheus 11

Sistemas operativos compatibles

Todos

Compatible con las bases de datos

TOTVSDBAccess

Parámetros

ACabec (array) --> Encabezado del presupuesto.
AItems (array) --> Ítems del presupuesto.

Devolución

Nil --> Ninguno

Eventos de llamada del Punto de Entrada

MATA416(aCabec,aItens) – > Nil

Programa fuente

MATA416.PRW