Linha Microsiga Protheus

Árvore de páginas


CONTEÚDO

  1. Visão Geral
  2. Exemplo de utilização
  3. Tabelas utilizadas


01. VISÃO GERAL

Este Ponto de Entrada pertence à rotina de Oportunidade Rápida (TMKA341). Ele deve ser utilizado para manipulação dos dados a serem gravados  na oportunidade quando esta for gerada na qualificação de um Suspect.


Programa Fonte: TMKA341.PRW


Sintaxe: TK341OPT - TK341OPT()


IMPORTANTE!

Após a alteração do modelo de dados será realizada a consistência dos dados dentro da oportunidade, logo ao alterar os dados do modelo não podemos garantir o devido relacionamento ao suspect qualificado, apenas se os dados da oportunidade não possuem inconsistência entre si.

02. EXEMPLO DE UTILIZAÇÃO

User Function TK341Opt()

Local oModel := ParamIXB
Local oView := FWLoadView ( "FATA300" )
Local oStructAD1 := oView:GetViewStruct( "AD1MASTER" )
Local cUser := CRMXCodUser()
Local aPaper := CRMXGetPaper()

oModel:GetModel( "AD1MASTER" ):LoadValue( "AD1_PROVEN",GetMV("TI_COPRVEN"))
oModel:GetModel( "AD1MASTER" ):LoadValue( "AD1_STAGE", GetMV("TI_COSTAGE"))


oModel:GetModel( "AD1MASTER" ):LoadValue( "AD1_PROSPE", SUS->US_COD )
oModel:GetModel( "AD1MASTER" ):LoadValue( "AD1_LOJPRO", SUS->US_LOJA )
oModel:GetModel( "AD1MASTER" ):LoadValue( "AD1_DTINI", dDataBase )
oModel:SetValue( "AD1MASTER", "AD1_DESCRI", "OPORTUNIDADE PROSPECT")
oModel:SetValue( "AD1MASTER", "AD1_VEND", Ft300Vend(.T.))
oModel:LoadValue( "AD2DETAIL", "AD2_VEND", "")
oModel:SetValue( "AD2DETAIL", "AD2_VEND", SUS->US_VEND)
oModel:SetValue( "AD1MASTER", "AD1_VEND", SUS->US_VEND)


oModel:GetModel('AD2DETAIL'):AddLine()
oModel:GetModel('AD2DETAIL'):GoLine(oModel:GetModel('AD2DETAIL'):Length())
oModel:LoadValue('AD2DETAIL', "AD2_VEND", "")
oModel:SetValue('AD2DETAIL', 'AD2_VEND' , ACH->ACH_VEND)
oModel:SetValue('AD2DETAIL', 'AD2_CODPAP', SuperGetMV("TI_INDAPN",,"000437"))


oStructAD1:SetProperty( "AD1_VEND", MVC_VIEW_CANCHANGE, .F.)


Return


05. TABELAS UTILIZADAS

  • AD1 - Oportunidade de Venda
  • AD2 - Time de Vendas