Histórico da Página

FunçãoFunción: Execauto FATA600 - Proposta Propuesta Comercial

Abrangências do VersõesCompatível Países OperacionaisCompatível às Bases de DadosNível AcessoNível Acesso Português Português Espanhol Inglês

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

Descrição

Descripción:

Esta

função é utilizada para geração da oportunidade de vendas via rotina

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

Programa:

FATA600.prw

SintaxeSintaxis:

#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", "",,, )

//-----------------------------------------------
// Cabeçalho da Proposta ComercialEncabezado 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 } )

//-----------------------------------------------
// Itens da Proposta Ítems de la Propuesta Comercial - Folder ProdutosCarpeta 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 } } )

//-------------------------------------------------
// Itens da Proposta Ítems de la Propuesta Comercial - Folder AcessóriosCarpeta 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( "Proposta incluída com sucesso.¡Propuesta incluida con éxito!" )
EndIf

RpcClearEnv()

Return(lRetorno)

ParâmetrosParámetros:

Referência

Nombre		Tipo			Descripción			Estándar	Obligatorio		Referencia	Nome	Tipo	Descrição	Default	Obrigatório
	oMdlFt300		Objeto	Não precisa ser informado, pois é tratado na execução da rotina.			No es necesario que se informe, porque este se trata al ejecutar la rutina.			No Não
	nOperation		Numérico			Opção desejada Opción deseada 3- Inclusão Inclusión 4- Alteração Modificación 5- Exclusão Eliminación		MODEL_OPERATION_INSERT	Não No
	aADYMaster		Array of Record			Array contendo os dados do cabeçalho que contiene los datos del encabezado			Sí Sim
	aADZProduto		Array of Record			Array contendo os itens do folder: Produtos que contiene los ítems de la carpeta: Productos			Sí Sim
	aADZAcessor		Array of Record			Array contendo os itens do folder Acessórios que contiene los ítems en la carpeta Accesorios			No Não

Atalhos

Árvore de páginas

Versões comparadas

Versão antiga 1

Nova versão Atual

Chave