Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin

Ponto de Entrada

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.

Localização:

Atualizações \ Mov Oficina \ Orçamento por Fases

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

Programa Fonte:

OFIXX001.PRW

Função:

OX001RSC()

Parâmetros:
NomeTipoDescrição

PARAMIXB[1]

Caractere

cVs1Norc - Caractere contendo o numero do orçamento.

PARAMIXB[2]

Array

aSugest - Array contendo os dados dos itens da sugestão de compras.

Retorno:

N/A


Exemplo:

Include totvs.ch

#INCLUDE "PROTHEUS.CH"


User Function OX001RSUG()


Local cVs1Norc := PARAMIXB[1]

Local aSugest := PARAMIXB[2]


Return