TVHMUP_DT_VC680IMP_Ponto_de_Entrada_na_impressao_da_rotina_de_Consulta_de_Oportunidades_Interesses

Descrição:

Ponto de Entrada na impressão da rotina de Consulta de Oportunidades/Interesses. Pode ser utilizado para manipular os vetores de Impressão aIntCab (Colunas de Impressão) e aIntIte (Registros a serem Impressos). O Ponto de Entrada é chamado em dois pontos passando o parametro nTp (1=Impressao de Interesses e 2=Impressao Resumo).

Eventos:

If nTp == 1 // Interesses

//

aAdd(aIntCab,{STR0006,"C", 35,"@!"}) // Cliente

aAdd(aIntCab,{STR0025,"C",100,"@!"}) // Nome

aAdd(aIntCab,{STR0024,"C", 40,"@!"}) // Telefone

aAdd(aIntCab,{STR0008,"D", 35,"@D"}) // Dt.Limite

aAdd(aIntCab,{STR0013,"C", 70,"@!"}) // Fase Oportunidade

aAdd(aIntCab,{STR0017,"C", 35,"@!"}) // Marca

aAdd(aIntCab,{STR0052,"C", 35,"@!"}) // Grupo

aAdd(aIntCab,{STR0018,"C", 50,"@!"}) // Modelo

aAdd(aIntCab,{STR0019,"C", 40,"@!"}) // Cor

aAdd(aIntCab,{STR0026,"N",50,"@E 999,999"}) // Qtde

//

For ni := 1 to len(aInteres)

aAdd(aIntIte,{ aInteres[ni,01] , aInteres[ni,02] , aInteres[ni,03] , aInteres[ni,04] , aInteres[ni,05] , aInteres[ni,06] , aInteres[ni,07] , aInteres[ni,08] , aInteres[ni,09] , aInteres[ni,10] })

Next

//

If ExistBlock("VC680IMP")

ExecBlock("VC680IMP",.F.,.F.,{nTp})

EndIf

//

FGX_VISINT( STR0001 , STR0002 , aIntCab , aIntIte , .t. ) // Oportunidade de Negocios - Interesses

//

ElseIf nTp == 2 // Resumo

//

ni := ascan(aTpTotal,cTpTotal)

If ni > 0

aAdd(aIntCab,{aTpTotal[ni],"C",155,"@!"}) // Titulo

Else

aAdd(aIntCab,{"","C",155,"@!"})

EndIf

aAdd(aIntCab,{STR0026,"N",50,"@E 999,999"}) // Qtde

aAdd(aIntCab,{"%" ,"N",50,"@E 999.9"}) // %

//

For ni := 1 to len(aTotais)

aAdd(aIntIte,{ aTotais[ni,01] , aTotais[ni,02] , (aTotais[ni,2]/aTotais[1,2])*100 })

Next

//

If ExistBlock("VC680IMP")

ExecBlock("VC680IMP",.F.,.F.,{nTp})

EndIf

//

FGX_VISINT( STR0001 , STR0067 , aIntCab , aIntIte , .t. ) // Oportunidade de Negocios - Resumo

//

Função:

FS_IMPRIMIR