Discussion Forum

Imprimi Página | Fechar janela

Field or Alias does not exist ZZ0 on PESQPICT

Impresso de: Helpfacil - Portal do conhecimento
Nome do Forum: ADVPL
Descrição do Forum: Dúvidas sobre a programação em ADVPL
URL:http://www.helpfacil.com.br/display_topic_threads.asp?ForumID=1&TopicID=44484
Data da Impressão: segunda-feira, 2 de dezembro de 2024 at 11:35

Topico: Field or Alias does not exist ZZ0 on PESQPICT

Postado por: ALEXLABTEC
Assunto: Field or Alias does not exist ZZ0 on PESQPICT
Data Postagem: quinta-feira, 28 de março de 2024 at 15:03

Boa tarde pessoal, estou tentando ajustar uma rotina velha para o Treport, porem estou com esse erro.

THREAD ERROR ([5320], SYSTEM, AWD-PROPUS)   28/03/2024 14:40:24
Field or Alias does not exist ZZ0 on PESQPICT(APLIB080.PRW) 29/02/2024 17:21:47 line : 4245

Segue o fonte

USER FUNCTION RIMPMP()

     Local oReport
     local cPerg := PadR(‘RIMPMP‘,10)
     Private cMascCus := GETMV( "MV_MASCCUS" )

     Private cFilDe, cFilAte, cMatDe, cMatAte, cCcDe, cCcAte
     Private cNomeDe, cNomeAte, cSit, cCat, nTipVale
     Private lTotFunc, lTotCc, lTotFil, lTotEmpr, lQuebra

     Pergunte(cPerg,.F.)
     dDtRef    := mv_par01
     cFilDe    := mv_par02
     cFilAte   := mv_par03
     cMatDe    := mv_par04
     cMatAte   := mv_par05
     cCcDe     := mv_par06
     cCcAte    := mv_par07
     cNomeDe   := mv_par08
     cNomeAte := mv_par09
     cSit      := U_fSqlIN( mv_par10, 1 )
     cCat      := U_fSqlIN( mv_par11, 1 )
     nTipVale := mv_par12
     lTotFunc := mv_par13
     lTotCc    := mv_par14
     lTotFil   := mv_par15
     lTotEmpr := mv_par16
     lQuebra   := mv_par17

     oReport := reportDef(cPerg)
     oReport:printDialog()

Return


//------------------------------------------------//
//FUNCÃO: CRIACAO DA SEÇÃO E CELULAS               //
//------------------------------------------------//
static function reportDef(cNome)
local oReport
Local oSection1
local cTitulo := ‘MAPA VALE REFEICAO / ALIMENTACAO‘

oReport := TReport():New(cNome, cTitulo,cNome, {|oReport| PrintReport(oReport)},"Este relatorio ira imprimir o mapa vale refeicao e alimentacao")
oreport:nfontbody:=10
oreport:cfontbody:="Arial Narrow"
oReport:SetPortrait()
oReport:SetTotalInLine(.F.)
//oReport:ShowHeader()

oSection1 := TRSection():New(oReport, "MAPA DO VALE", {"ZZ0"})
oSection1:SetTotalInLine(.F.)

TRCell():New(oSection1, "FILIAL"              , "ZZ0",      ‘FILIAL‘                ,PesqPict(‘ZZ0‘,"ZZ0_FILIAL" )           ,TamSX3("ZZ0_FILIAL")[1]+7,)
TRCell():New(oSection1, "C CUSTO"             , "ZZ0",     ‘C CUSTO‘           ,PesqPict(‘ZZ0‘,"ZZ0_CC" )             ,TamSX3("ZZ0_CC")[1]-5,)
TRCell():New(oSection1, "MATRICULA"        , "ZZ0",     ‘MATRICULA‘        ,PesqPict(‘ZZ0‘,"ZZ0_MAT" )             ,TamSX3("ZZ0_MAT")[1]+10,)
TRCell():New(oSection1, "NOME"                , "ZZ0",      ‘NOME‘                ,PesqPict(‘ZZ0‘,"ZZ0_NOME" )         ,TamSX3("ZZ0_NOME")[1]-5,)
TRCell():New(oSection1, "COD"               , "ZZ0",      ‘COD‘               ,PesqPict(‘ZZ0‘,"ZZ0_COD" )             ,TamSX3("ZZ0_COD")[1]+5,)
TRCell():New(oSection1, "DESC"                  , "ZZ0",      ‘DESC‘              ,PesqPict(‘ZZ0‘,"ZZ0_DESC" )        ,TamSX3("ZZ0_DESC")[1]+20,)
TRCell():New(oSection1, "DIAS VALE"             , "ZZ0",     ‘DIAS VALE‘        ,PesqPict(‘ZZ0‘,"ZZ0_DIACAL" )          ,TamSX3("ZZ0_DIACAL")[1],)
TRCell():New(oSection1, "VALOR UNITARIO"    , "ZZ0",     ‘VALOR UNITARIO‘    ,PesqPict(‘ZZ0‘,"ZZ0_VLVALE" )          ,TamSX3("ZZ0_VLVALE")[1]-5,)
TRCell():New(oSection1, "TOTAL DOS VALES"   , "ZZ0",     ‘TOTAL DOS VALES‘   ,PesqPict(‘ZZ0‘,"ZZ0_TTVALE" )          ,TamSX3("ZZ0_TTVALE")[1]-45,)
TRCell():New(oSection1, "VALOR DESCONTO"    , "ZZ0",     ‘VALOR DESCONTO‘    ,PesqPict(‘ZZ0‘,"ZZ0_VLFUNC" )          ,TamSX3("ZZ0_VLFUNC")[1]+7,)
TRCell():New(oSection1, "PARTE EMPRESA"      , "ZZ0",     ‘UPARTE EMPRESA‘    ,PesqPict(‘ZZ0‘,"ZZ0_VLEMPR" )          ,TamSX3("ZZ0_VLEMPR")[1]+5,)
return (oReport)

Static Function PrintReport(oReport)

Local oSection1 := oReport:Section(1)

oSection1:Init()
//oSection1:SetHeaderSection(.T.)

dDtRef    := mv_par01
nOrdem      := 1

// Monta Query Principal
MsAguarde( {|| lCont := fMtaQuery( dDtRef, nOrdem )}, "Processando...", "Selecionado Registros no Banco de Dados..." )
If !lCont
   Aviso("ATENCAO","Nao Existem Dados para Este Relatorio",{"Sair"})
   Return
EndIf

dbSelectArea( "MAPA" )
MAPA->(dbGoTop())
oReport:SetMeter(MAPA->(RecCount()))
While MAPA->(!Eof())
     If oReport:Cancel()
          Exit
     EndIf

    oReport:IncMeter()
    oSection1:Cell("FILIAL"):SetValue(MAPA->ZZ0_FILIAL)
    oSection1:Cell("C CUSTO"):SetValue(MAPA->ZZ0_CC)
    oSection1:Cell("MATRICULA"):SetValue(MAPA->ZZ0_MAT)
    oSection1:Cell("NOME"):SetValue(MAPA->ZZ0_NOME)
    oSection1:Cell("COD"):SetValue(MAPA->ZZ0_COD)
    oSection1:Cell("DESC"):SetValue(MAPA->ZZ0_DESC)
    oSection1:Cell("DIAS VALE"):SetValue(MAPA->ZZ0_DIACAL)
    oSection1:Cell("VALOR UNITARIO"):SetValue(MAPA->ZZ0_VLVALE)
    oSection1:Cell("TOTAL DOS VALES"):SetValue(MAPA->ZZ0_TTVALE)
    oSection1:Cell("VALOR DESCONTO"):SetValue(MAPA->ZZ0_VLFUNC)
    oSection1:Cell("PARTE EMPRESA"):SetValue(MAPA->ZZ0_VLEMPR)

    oSection1:PrintLine()


     MAPA->(dbSkip())

EndDo
dbSelectArea("MAPA")
dbCloseArea()
oReport:ThinLine()
oSection1:Finish()

Return

Alexandro de Oliveira
Analista de sistema Jr.
[email protected]
11 9 7605 3113 - (WABusiness)

Respostas:

Postado Por: ROBERTOMEN
Data Postagem: quinta-feira, 28 de março de 2024 at 16:34

Boa tarde Alex,

Field or Alias does not exist ZZ0

Significa que a rotina procurou a tabela e não encontrou,
você tem a tabela ZZ0 criada no seu banco de dados ?

Imprimir Página | Fechar Janela