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()
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
<!-- esconder o menu --> <style> div.theme-default .ia-splitter #main { margin-left: 0px; } .ia-fixed-sidebar, .ia-splitter-left { display: none; } #main { padding-left: 10px; padding-right: 10px; overflow-x: hidden; } .aui-header-primary .aui-nav, .aui-page-panel { margin-left: 0px !important; } .aui-header-primary .aui-nav { margin-left: 0px !important; } </style> |