| |
|
Bem Vindo, Visitante
|
 Todos os Fórums
  ADVPL
|
 Imprimir
 Enviar Para um Amigo
Precisa estar Logado
|
 |
 |
Assunto: |
Field or Alias does not exist ZZ0 on PESQPICT |
|
Versão: |
12.1.2210 |
|
Plataforma: |
Microsoft |
Complemento: |
|
|
DB: |
SQL Server |
Complemento: |
|
|
|
|
|
|
|
Mensagem do
ALEXLABTEC
em 28/03/2024, 15:03 h
Local: SP Registro: 07/07/2006 Postagens: 189 |
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)
|
|
|
|
Mensagem do
ROBERTOMEN
em 28/03/2024, 16:34 h
Local: PR Registro: 04/07/2017 Postagens: 546 |
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 ? |
|
 Para postar no Fórum você precisa efetuar o seu login ou se registrar
|
|
