Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.


Composition Setup
import.css=/download/attachments/327912/newLayout.css

PagetitleExecauto FATA300 - Oportunidade de vendas.Execauto FATA300 - Oportunidade de vendas.Função: Execauto FATA600 - Proposta Comercial


 

Abrangências:A partir do Microsiga Protheus 12.1.6
Versões:Protheus 12
Compatível Países:Todos
Sistemas Operacionais:Todos
Compatível às Bases de Dados:Todos
Nível de Acesso:Nível 1 (Acesso Clientes)
Idiomas:Português (Brasil) , Português (Portugal) , Espanhol , Inglês

 


Descrição:

Esta função é utilizada para geração da oportunidade de vendas via rotina automática (ExecAuto). 

Programa:

FATA600.prw

Sintaxe:

#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 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 Comercial - Folder Produtos
//-----------------------------------------------
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 Comercial - Folder Acessórios
//-------------------------------------------------
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.!" )
EndIf

RpcClearEnv()

Return(lRetorno)


Parâmetros:

Nome
  


Tipo
  


Descrição
  


Default
  


Obrigatório
  


Referência
  


oMdlFt300
  


Objeto
  


Não precisa ser informado, pois é tratado na execução da rotina.
    




 Não
      






nOperation
  


Numérico
 
 


Opção desejada 3- Inclusão 4- Alteração 5- Exclusão
 

 MODEL_OPERATION_INSERT
  


 Não
     
 






aADYMaster
  


Array of Record
 
 


Array contendo os dados do cabeçalho
 
   




 Sim
 
     






aADZProduto
 
 


Array of Record
  


Array contendo os itens do folder: Produtos
    




 Sim
      






aADZAcessor 
  


Array of Record
  


Array contendo os itens do folder Acessórios
    




 Não