PEIPECND - Customização da Impressão dos Itens Não Importados no VSJ (OS)

Ponto de Entrada utilizado para customizar a impressão dos itens não importados no VSJ (OS), função FM_IPECNDISP.

User Function PEIPECND()

Local aItensNImp := ParamIxb[01] // Parametro 1 - Itens
Local cNomeRel := ParamIxb[02] // Parametro 2 - Nome Relatorio

MsgInfo("Ponto de Entrada PEIPECND executado com sucesso!","Atenção")

Return()

Português(Brasil)

Todas

Todos

Todas

aItensNImp - Itens para impressao
cNomeRel - Nome do relatorio.

Function FM_IPECNDISP(aItensNImp)
Local cAlias := Alias()
Local cNomeRel := "ORCNIMPORT"
Private cTamanho := "M"
Private cTitulo:= STR0014 //Pecas do orcamento nao transferido para o reservado.
Private cDesc1 := ""
Private cDesc2 := ""
Private cDesc3 := ""
Private aReturn:= \{STR0015,1,STR0016,1,2,1,,2\} //Zebrado # Administracao
Private cabec1 := ""
Private cabec2 := ""
Private nCaracter:= 15
Private nLastKey :=0
Private m_Pag := 1
If Empty(cAlias)
cAlias := "VS1"
EndIf
If Len(aItensNImp[2]) # 0
cNomeRel := SetPrint(cAlias,cNomeRel,,@cTitulo,cDesc1,cDesc2,cDesc3,.f.,,.t.,cTamanho)
If nlastkey == 27
Return(Allwaystrue())
EndIf
SetDefault(aReturn,cAlias)
If ExistBlock("PEIPECND")
RptStatus( \{ |lEnd| ExecBlock("PEIPECND",.f.,.f.,\{ aItensNImp , cNomeRel \}) \} )
Else
RptStatus( \{ |lEnd| FS_IPECNDISP( aItensNImp , cNomeRel ) \} )
EndIf
EndIf
Return()

VEIFUNB