FunçãoFunción: Execauto FATA600 - Proposta Propuesta Comercial
Alcances: | A partir | do del Microsiga Protheus 12.1.6 | ||
Versiones: | Protheus 12 | |||
Compatible países: | Todos | |||
Sistemas | Operacionaisoperativos: | Todos | ||
Compatible con las bases de datos: | Todos | |||
Nivel de | Acessoacceso: | Nível Nivel 1 ( | Acesso Acceso Clientes) | |
Idiomas: | Português Portugués (Brasil), | Português portugués (Portugal), | Espanhol español, | Inglêsinglés |
Descripción:
Esta
função é utilizada para geração da oportunidade de vendas via rotinafunción se utiliza para generar la oportunidad de ventas a través de la rutina automática (ExecAuto).
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:
Nombre |
|
| Tipo |
|
| Descripción |
|
| Estándar |
|
| Obligatorio |
|
| Referencia |
| Nome | Tipo | Descrição | Default | Obrigatório | Referência||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
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ãoInclusión 4- AlteraçãoModificación 5- ExclusãoEliminación | MODEL_OPERATION_INSERT | Não No | |||||||||||||||||||
aADYMaster | Array of Record | Array contendo os dados do cabeçalhoque contiene los datos del encabezado | Sí Sim | ||||||||||||||||||||
aADZProduto | Array of Record | Array contendo os itens do folder: Produtosque contiene los ítems de la carpeta: Productos | Sí Sim | ||||||||||||||||||||
aADZAcessor | Array of Record | Array contendo os itens do folder Acessóriosque contiene los ítems en la carpeta Accesorios | No Não |