OX001RSUG Ponto de Entrada executado na rotina de impressão do relatório de Peças para Sugestão de compras.

Descrição:

Este ponto de entrada está localizado na rotina Orc. Por Fases (OFIXA011). É executado na rotina de impressão do relatório de Peças para Sugestão de compras. Quando compilado, ele substitui totalmente a impressão do relatório padrão de sugestão de compras.

Eventos:

/*

===============================================================================

###############################################################################

##+----------+------------+-------+-----------------------+------+----------+##

##|Fun‡„o | OX001RSC | Autor | Luis Delorme | Data | 17/04/09 |##

##+----------+------------+-------+-----------------------+------+----------+##

##|Descri‡„o | Relatorio Simples com peças sugeridas no orçamento |##

##+----------+--------------------------------------------------------------+##

###############################################################################

===============================================================================

*/

Function OX001RSC(aSugest)

Local cDesc1 := ""

Local cDesc2 := ""

Local cDesc3 := ""

Local cAlias := "SF2"

Default aSugest := {}

Private nLin := 1

Private aReturn := { STR0220, 1,STR0221, 2, 2, 1, "",1 } //"Zebrado # Administracao

Private cTamanho:= "P" // P/M/G

Private Limite := 80 // 80/132/220

Private aOrdem := {} // Ordem do Relatorio

Private nCaracter:=15

Private cTitulo := STR0209 +Alltrim(VS1->VS1_NUMORC)

Private cNomProg:= "OX001RSC"

Private cNomeRel:= "OX001RSC"

Private cabec1 := STR0210

Private cabec2 := ""

Private nLastKey:= 0

IF ExistBlock("OX001RSUG")// PE para que substitui a impressão padrão.

ExecBlock("OX001RSUG",.f.,.f.,{VS1->VS1_NUMORC,aSugest})

Return

Endif

cNomeRel := SetPrint(cAlias,cNomeRel,NIL,@cTitulo,cDesc1,cDesc2,cDesc3,.f.,,.t.,cTamanho)

If nLastKey == 27

Return

EndIf

SetDefault(aReturn,cAlias)

RptStatus( { |lEnd| FS_RELATO(@lEnd,cNomeRel,cAlias,aSugest) } , cTitulo )

If aReturn[5] == 1

OurSpool( cNomeRel )

EndIf

Return

Função:

OX001RSC()