Linha Microsiga Protheus - Espanhol

Atalhos

Árvore de páginas


Función: Execauto FATA600 - Propuesta Comercial


Alcances:

A partir del Microsiga Protheus 12.1.6

Versiones:

Protheus 12

Compatible países:

Todos

Sistemas operativos:

Todos

Compatible con las bases de datos:

Todos

Nivel de acceso:

Nivel 1 (Acceso Clientes)

Idiomas:

Portugués (Brasil), portugués (Portugal), español, inglés


Descripción:

Esta función se utiliza para generar la oportunidad de ventas a través de la rutina automática (ExecAuto).


Programa:

FATA600.prw

Sintaxis:

#INCLUDE "PROTHEUS.CH"
#INCLUDE "FWMVCDEF.CH"
#INCLUDE "FATA600.CH"

User Function MyFata600()

Local nOperation      := 3
Local aADZProduto  := {}
Local aADYMaster   := {}
Local aADZAcessor := {}
Local lRetorno          := .T.

Private lMsErroAuto := .F.

RpcSetEnv( "T1", "D MG 01", "Admin", "",,, )

//-----------------------------------------------
// Encabezado de la propuesta comercial
//----------------------------------------------
aAdd( aADYMaster, {"ADY_OPORTU", cCodOport, Nil } )
aAdd( aADYMaster, {"ADY_REVISA", "01", Nil } )
aAdd( aADYMaster, {"ADY_DATA", dDatabase, Nil } )
aAdd( aADYMaster, {"ADY_ENTIDA", "1", Nil } ) //1=Cliente; 2=Prospect
aAdd( aADYMaster, {"ADY_CODIGO", "000001", Nil } )
aAdd( aADYMaster, {"ADY_LOJA", "00", Nil } )
aAdd( aADYMaster, {"ADY_TABELA", "001", Nil } )

//-----------------------------------------------
// Ítems de la Propuesta Comercial - Carpeta Productos
//-----------------------------------------------
aAdd( aADZProduto,{ {"ADZ_PRODUT", "CRM001", Nil } ,;
{"ADZ_CONDPG", "001", Nil } ,;
{"ADZ_TES", "502", Nil } ,;
{"ADZ_QTDVEN", 2, Nil } ,;
{"ADZ_CODAGR", "000004", Nil },;
{"ADZ_CODNIV", "001", Nil } } )

//-------------------------------------------------
// Ítems de la Propuesta Comercial - Carpeta Accesorios
//-------------------------------------------------
aAdd( aADZAcessor, { {"ADZ_PRODUT", "CRM002", Nil },;
{"ADZ_CONDPG", "001", Nil } ,;
{"ADZ_TES", "502", Nil } ,;
{"ADZ_QTDVEN", 4, Nil } } )


FATA600( /*oMdlFt300*/, nOperation, aADYMaster, aADZProduto, aADZAcessor )

If lMsErroAuto
    lRetorno := .F.
    DisarmTransaction()
    MostraErro()
Else
    Conout( "¡Propuesta incluida con éxito!" )
EndIf

RpcClearEnv()

Return(lRetorno)


Parámetros:

Nombre

 

 

Tipo

 

 

Descripción

 

 

Estándar

 

 

Obligatorio

 

 

Referencia

 



oMdlFt300



Objeto



No es necesario que se informe, porque este se trata al ejecutar la rutina.





 No







nOperation



Numérico



Opción deseada 3- Inclusión 4- Modificación 5- Eliminación


 MODEL_OPERATION_INSERT



 No







aADYMaster



Array of Record



Array que contiene los datos del encabezado





 Sí







aADZProduto



Array of Record



Array que contiene los ítems de la carpeta: Productos





 Sí







aADZAcessor 



Array of Record



Array que contiene los ítems en la carpeta Accesorios





 No