Perguntas Erro function strzero

User Function ISQNC003()

Local cDesc1 := "Relação de FNC por Usuário"
Local cDesc2 := ""
Local cDesc3 := ""
Local cPict := ""
Local titulo := "Relacao de FNC por Usuario"
Local nLin := 80
Local imprime := .T.
Local aOrd := {}

Private lEnd := .F.
Private lAbortPrint := .F.
Private CbTxt := ""
Private limite := 220
Private Cabec2 := "Ficha/Ano Dt. Reg. Sit. Cla. Ori. Causa Descricao Resumida Nome Cli./Forn. Cod.Produto/Desc. Aplicacao Disp. Descricao"
Private Cabec1 := ""
Private nomeprog := "ISQNC003"
Private tamanho := "G"
Private nTipo := 15
Private aReturn := { "Zebrado", 1, "Administracao", 2, 2, 1, "", 1}
Private nLastKey := 0
Private cbtxt := Space(10)
Private cbcont := 00
Private CONTFL := 01
Private m_pag := 01
Private cPerg := PADR("ISQNC003",10)
Private wnrel := "ISQNC003"
Private cString := "QI2"
Private _cOpe := Space(10)
Private _nCont := 0
Private _nLinha := 0
Private _cAcedes := Space(1)
Private _cAcequa := Space(1)
Private _cAcequa := Space(1)
Private _cMat := Space(10)
Private _cCc := Space(13)
Private _cmv_pa13 := ""
Private _cmv_pa14 := ""
Private _cmv_pa17 := ""
Private _cmv_pa18 := ""
Private aSintetico := {}
Private aAnalitico := {}

VldPerg(cPerg)

Pergunte(cPerg,.F.)

wnrel := SetPrint(cString,NomeProg,cPerg,@titulo,cDesc1,cDesc2,cDesc3,.T.,aOrd,.T.,Tamanho,,.T.)

If nLastKey == 27
Return
Endif

SetDefault(aReturn,cString)

If nLastKey == 27
Return
Endif

nTipo := If(aReturn[4]==1,15,18)

If mv_par11 == 1
_cmv_pa13 := "Não Conf.Potencial"
ElseIf mv_par11 == 2
_cmv_pa13 := "Não Conf.Existente"
ElseIf mv_par11 == 3
_cmv_pa13 := "Melhoria"
ElseIf mv_par11 == 4
_cmv_pa13 := "Desenvolvimento"
ElseIf mv_par11 == 5
_cmv_pa13 := "Todas Qualidade"
EndIf

If mv_par12 == 1
_cmv_pa14 := "Sim"
ElseIf mv_par12 == 2
_cmv_pa14 := "Não"
ElseIf mv_par12 == 3
_cmv_pa14 := "Ambas"
EndIf

If mv_par20 == 1
_cmv_pa18 := "Origem"
ElseIf mv_par20 == 2
_cmv_pa18 := "Destino"
EndIf

Cabec1 := "Ano: "+mv_par01+"/"+mv_par02+" C.FNC: "+alltrim(mv_par03)+"/"+alltrim(mv_par04)+" Usu: "+mv_par09+"/"+mv_par10+" Resp: "+_cmv_pa18+" Cl.NC: "+subst(_cmv_pa13,1,+" Baixada: "+_cmv_pa14+" Orig: "+alltrim(mv_par13)+"/"+alltrim(mv_par14)+" Disp: "+alltrim(mv_par15)+"/"+alltrim(mv_par16)+" Causa: "+alltrim(mv_par17)+"/"+alltrim(mv_par18)+" Reg: "+DtoC(mv_par21)+" a "+DtoC(mv_par22)+" Conc: "+DtoC(mv_par24)+" a "+DtoC(mv_par25)

RptStatus({|| RunReport(Cabec1,Cabec2,Titulo,nLin) },Titulo)
Return

/*/
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍ»±±
±±ºFun‡„o ³RUNREPORT º Autor ³ AP6 IDE º Data ³ 12/07/04 º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºDescri‡„o ³ Funcao auxiliar chamada pela RPTSTATUS. A funcao RPTSTATUS º±±
±±º ³ monta a janela com a regua de processamento. º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºUso ³ Programa principal º±±
±±ÈÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ±±
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
/*/

Static Function RunReport(Cabec1,Cabec2,Titulo,nLin)

SetRegua(RecCount())

If lAbortPrint
@nLin,00 PSAY "*** CANCELADO PELO OPERADOR ***"
Return
Endif

If Select("QRY") > 0
DbSelectArea("QRY")
DbCloseArea()
Endif

mv_par11 := Str(mv_par11,1)

cQuery:="SELECT * "
cQuery+="FROM "+RetSqlName("QI2")+" QI2 "
cQuery+="WHERE QI2.QI2_FILIAL = '"+xFilial("QI2")+"' AND "
cQuery+="QI2.QI2_ANO BETWEEN '"+mv_par01+"' AND '"+mv_par02+"' AND "
cQuery+="QI2.QI2_REV BETWEEN '"+mv_par05+"' AND '"+mv_par06+"' AND "
If mv_par20 == 1
cQuery+="QI2.QI2_MAT BETWEEN '"+mv_par09+"' AND '"+mv_par10+"' AND "
cQuery+="QI2.QI2_FILMAT BETWEEN '"+mv_par07+"' AND '"+mv_par08+"' AND "
Else
cQuery+="QI2.QI2_MATRES BETWEEN '"+mv_par09+"' AND '"+mv_par10+"' AND "
cQuery+="QI2.QI2_FILRES BETWEEN '"+mv_par07+"' AND '"+mv_par08+"' AND "
EndIf
cQuery+="QI2.QI2_FNC BETWEEN '"+mv_par03+"' AND '"+mv_par04+"' AND "
If mv_par11 == "5"
cQuery+="QI2.QI2_TPFIC BETWEEN '1' AND '3' AND "
Else
cQuery+="QI2.QI2_TPFIC = '"+mv_par11+"' AND "
EndIf
cQuery+="QI2.QI2_CODORI BETWEEN '"+mv_par13+"' AND '"+mv_par14+"' AND "
cQuery+="QI2.QI2_CODDIS BETWEEN '"+mv_par15+"' AND '"+mv_par16+"' AND "
cQuery+="QI2.QI2_CODCAU BETWEEN '"+mv_par17+"' AND '"+mv_par18+"' AND "
If mv_par12 == 1 //Sim
cQuery+="QI2.QI2_CONREA <> ' ' AND "
cQuery+="QI2.QI2_CONREA BETWEEN '"+DTOS(mv_par24)+"' AND '"+DTOS(mv_par25)+"' AND "
ElseIf mv_par12 == 2 //Nao
cQuery+="QI2.QI2_CONREA = ' ' AND "
Else //Ambas
cQuery+="QI2.QI2_CONREA BETWEEN '"+DTOS(mv_par24)+"' AND '"+DTOS(mv_par25)+"' AND "
EndIf
cQuery+="QI2.QI2_OBSOL <> 'S' AND "
cQuery+="QI2.QI2_REGIST BETWEEN '"+DTOS(mv_par21)+"' AND '"+DTOS(mv_par22)+"' AND "
cQuery+="QI2.D_E_L_E_T_ <> '*' "
If mv_par20 == 1
cQuery+="ORDER BY QI2.QI2_MAT, QI2.QI2_ANO, QI2.QI2_FNC "
Else
cQuery+="ORDER BY QI2.QI2_MATRES, QI2.QI2_ANO, QI2.QI2_FNC "
EndIf
cQuery:=ChangeQuery(cQuery)
DbUseArea(.T., "TOPCONN", TCGenQry(,,cQuery), 'QRY', .T., .F.)

dbSelectArea("QRY")
dbgoTop()
SetRegua(RecCount())

_cAcedes := Posicione("QAA",6,cusername,"QAA_ACEDES")
_cAcequa := Posicione("QAA",6,cusername,"QAA_ACEQUA")
_cMat := Posicione("QAA",6,cusername,"QAA_MAT")
_cCc := Posicione("QAA",6,cusername,"QAA_CC")

If QRY->(Eof())
msgbox("Nenhum registro selecionado para os parametros informados","Específico Isogama","Alert")
Return
EndIf

While !QRY->(Eof())

// Filtro do usuario na tela padrao
if (!empty(aReturn[7]))
if !&(aReturn[7])
QRY->(dbskip())
IncRegua()
Loop
endif
endIf

If mv_par20 == 1
If QRY->QI2_TPFIC == "4" //Desenvolvimento
If _cAcedes <> "T"
If _cAcedes == "R" .AND. !(QRY->QI2_MAT == _cMat)
QRY->(dbskip())
IncRegua()
Loop
ElseIf _cAcedes == "G" .AND. !(QRY->QI2_MAT == _cMat) .AND. !(QRY->QI2_MATDEP == _cCc)
QRY->(dbskip())
IncRegua()
Loop
EndIf
EndIf
Else
If _cAcequa <> "T"
If _cAcequa == "R" .AND. !(QRY->QI2_MAT == _cMat)
QRY->(dbskip())
IncRegua()
Loop
ElseIf _cAcequa == "G" .AND. !(QRY->QI2_MAT == _cMat) .AND. !(QRY->QI2_MATDEP == _cCc)
QRY->(dbskip())
IncRegua()
Loop
EndIf
EndIf
EndIf
Else
If QRY->QI2_TPFIC == "4"
If _cAcedes <> "T"
If _cAcedes == "R" .AND. !(QRY->QI2_MATRES == _cMat)
QRY->(dbskip())
IncRegua()
Loop
ElseIf _cAcedes == "G" .AND. !(QRY->QI2_MATRES == _cMat) .AND. !(QRY->QI2_DESDEP == _cCc)
QRY->(dbskip())
IncRegua()
Loop
EndIf
EndIf
Else
If _cAcequa <> "T"
If _cAcequa == "R" .AND. !(QRY->QI2_MATRES == _cMat)
QRY->(dbskip())
IncRegua()
Loop
ElseIf _cAcequa == "G" .AND. !(QRY->QI2_MATRES == _cMat) .AND. !(QRY->QI2_DESDEP == _cCc)
QRY->(dbskip())
IncRegua()
Loop
EndIf
EndIf
EndIf
EndIf

If nLin > 55 .And. mv_par19 == 1
//Cabec(Titulo,Cabec1,Cabec2,NomeProg,Tamanho,nTipo)
Cabec(Titulo,Cabec1,Cabec2,wnrel,Tamanho,nTipo)
nLin := 9
If mv_par20 == 1
@ nLin,000 pSay "Usuário:"+" "+Posicione("QAA",1,xFilial("QAA")+QRY->QI2_MAT,"QAA_FILIAL")+"-"+Posicione("QAA",1,xFilial("QAA")+QRY->QI2_MAT,"QAA_MAT")+" "+Alltrim(Posicione("QAA",1,xFilial("QAA")+QRY->QI2_MAT,"QAA_NOME"))+" - "+"(ORIGEM)"
Else
@ nLin,000 pSay "Usuário:"+" "+Posicione("QAA",1,xFilial("QAA")+QRY->QI2_MATRES,"QAA_FILIAL")+"-"+Posicione("QAA",1,xFilial("QAA")+QRY->QI2_MATRES,"QAA_MAT")+" "+Alltrim(Posicione("QAA",1,xFilial("QAA")+QRY->QI2_MATRES,"QAA_NOME"))+" - "+"(DESTINO)"
EndIf
nLin := nLin + 2
Endif

// erro nesta linha
If nLin > 55 .And. mv_par19 == 2
Cabec(Titulo,Cabec1,Cabec2,NomeProg,Tamanho,nTipo)
nLin := 9
Endif

If mv_par20 == 1
If _cOpe # QRY->QI2_MAT .And. mv_par19 == 2
nLin := nLin + 1
If !Empty(QRY->QI2_FILMAT)
@ nLin,000 pSay "Usuário:"+" "+Posicione("QAA",1,xFilial("QAA")+QRY->QI2_MAT,"QAA_FILIAL")+"-"+Posicione("QAA",1,xFilial("QAA")+QRY->QI2_MAT,"QAA_MAT")+" "+Alltrim(Posicione("QAA",1,xFilial("QAA")+QRY->QI2_MAT,"QAA_NOME"))+" - "+"(ORIGEM)"
nLin := nLin + 2
EndIf
EndIf
Else
If _cOpe # QRY->QI2_MATRES .And. mv_par19 == 2
nLin := nLin + 1
If !Empty(QRY->QI2_FILRES)
@ nLin,000 pSay "Usuário:"+" "+Posicione("QAA",1,xFilial("QAA")+QRY->QI2_MATRES,"QAA_FILIAL")+"-"+Posicione("QAA",1,xFilial("QAA")+QRY->QI2_MATRES,"QAA_MAT")+" "+Alltrim(Posicione("QAA",1,xFilial("QAA")+QRY->QI2_MATRES,"QAA_NOME"))+" - "+"(DESTINO)"
nLin := nLin + 2
EndIf
EndIf
EndIf

If Empty(QRY->QI2_CODDIS)
_cDispo := "* NÃO INFORMADO"
Else
_cDispo := Posicione("QI1",1,xFilial("QI1")+QRY->QI2_CODDIS,"QI1_DESC")
EndIf

If QRY->QI2_STATUS == "1"
_cStatus := "Registrada"
ElseIf QRY->QI2_STATUS == "2"
_cStatus := "Em Análise"
ElseIf QRY->QI2_STATUS == "3"
_cStatus := "Procede"
ElseIf QRY->QI2_STATUS == "4"
_cStatus := "Não Procede"
ElseIf QRY->QI2_STATUS == "5"
_cStatus := "Cancelada"
EndIf

If mv_par23 == 1 .OR. mv_par23 == 2
nPos := aScan(aSintetico,{|x| x[1] == QRY->QI2_CODDIS})

If nPos == 0
AADD(aSintetico,{QRY->QI2_CODDIS,_cDispo,1})
Else
aSintetico[nPos][2] := _cDispo
aSintetico[nPos][3] += 1
Endif

If mv_par23 == 2
nPos := aScan(aAnalitico,{|x| x[1]+x[2] == QRY->QI2_CODDIS+_cStatus})

If nPos == 0
AADD(aAnalitico,{QRY->QI2_CODDIS,_cStatus,1})
Else
aAnalitico[nPos][2] := _cStatus
aAnalitico[nPos][3] += 1
Endif
Endif
Endif

If mv_par20 == 1
_cOpe := QRY->QI2_MAT
Else
_cOpe := QRY->QI2_MATRES
EndIf

_nCont += 1

@ nLin,000 pSay Substr(QRY->QI2_FNC,6,6) + "/" + Substr(QRY->QI2_FNC,12,4)
@ nLin,014 pSay STOD(QRY->QI2_REGIST)

If QRY->QI2_STATUS == "1"
@ nLin,024 pSay "Reg"
ElseIf QRY->QI2_STATUS == "2"
@ nLin,024 pSay "Em A"
ElseIf QRY->QI2_STATUS == "3"
@ nLin,024 pSay "Proc"
ElseIf QRY->QI2_STATUS == "4"
@ nLin,024 pSay "N Pr"
ElseIf QRY->QI2_STATUS == "5"
@ nLin,024 pSay "Canc"
EndIf

If QRY->QI2_TPFIC == "1"
@ nLin,030 pSay "NCP"
ElseIf QRY->QI2_TPFIC == "2"
@ nLin,030 pSay "NCE"
ElseIf QRY->QI2_TPFIC == "3"
@ nLin,030 pSay "Mel"
ElseIf QRY->QI2_TPFIC == "4"
@ nLin,030 pSay "Des"
EndIf

@ nLin,035 pSay Substr(QRY->QI2_CODORI,1,4)
@ nLin,041 pSay Substr(QRY->QI2_CODCAU,1,4)
@ nLin,047 pSay QRY->QI2_DESCR

If !Empty(QRY->QI2_CODCLI)
@ nLin,099 pSay Substr(Posicione("SA1",1,xFilial("SA1")+QRY->QI2_CODCLI+QRY->QI2_LOJCLI,"A1_NOME"),1,25)
ElseIf !Empty(QRY->QI2_CODFOR)
@ nLin,099 pSay Substr(Posicione("SA2",1,xFilial("SA2")+QRY->QI2_CODFOR+QRY->QI2_LOJFOR,"A2_NOME"),1,25)
EndIf

@ nLin,126 pSay Trim(QRY->QI2_CODPRO)+" "+Posicione("SB1",1,xFilial("SB1")+QRY->QI2_CODPRO,"B1_DESC")
@ nLin,174 pSay Substr(QRY->QI2_APLICA,1,17)
@ nLin,193 pSay Substr(QRY->QI2_CODDIS,1,4)
@ nLin,199 pSay Substr(Posicione("QI1",1,xFilial("QI1")+QRY->QI2_CODDIS,"QI1_DESC"),1,21)
nLin := nLin + 1
@ nLin,000 pSay Replicate("-", 220)

nLin := nLin + 1

IncRegua()

QRY->(DbSkip())

If mv_par20 == 1
If _cOpe # QRY->QI2_MAT .And. mv_par19 == 1
_nLinha := nLin
nLin := 61
EndIf
Else
If _cOpe # QRY->QI2_MATRES .And. mv_par19 == 1
_nLinha := nLin
nLin := 61
EndIf
EndIf

If mv_par19 == 2
_nLinha := nLin
EndIf
End

If _nCont > 0
_nLinha := _nLinha + 1
@ _nLinha,000 pSay "Quantidade Total de Fichas --> "
@ _nLinha,031 pSay _nCont
EndIf

If mv_par23 <> 3
Cabec("RESUMO QUALITATIVO POR DISPOSIÇÃO",Cabec1," Cód./Descrição Disposição Qtd. Partic.",NomeProg,Tamanho,nTipo)
EndIf

nLin := 9

If mv_par23 == 1 .OR. mv_par23 == 2
ASort(aSintetico,,, {|x,y| x[1] < y[1]})
ASort(aAnalitico,,, {|x,y| x[1] < y[1]})

For i:=1 to len(aSintetico)
If nLin > 55
Cabec("RESUMO QUALITATIVO POR DISPOSIÇÃO",Cabec1," Cód./Descrição Disposição Qtd. Partic.",NomeProg,Tamanho,nTipo)
nLin := 9
Endif

@ nLin,082 pSay Replicate("-", 57)
nLin := nLin + 1
@ nLin,082 pSay Alltrim(aSintetico[1]) + " " + aSintetico[2]
@ nLin,127 pSay aSintetico[3]
@ nLin,132 pSay (aSintetico[3]/_nCont) * 100 Picture "@E 999.99"
@ nLin,138 pSay "%"
If mv_par23 == 2
For i2:=1 to len(aAnalitico)
If aSintetico[1] == aAnalitico[i2][1]
nLin := nLin + 1
@ nLin,111 pSay aAnalitico[i2][2]
@ nLin,127 pSay aAnalitico[i2][3]
EndIf
Next
EndIf
nLin := nLin + 1
Next
EndIf

If mv_par23 <> 3
@ nLin,082 pSay Replicate("-", 57)
nLin := nLin + 1
@ nLin,082 pSay "Quantidade Total --> "
@ nLin,127 pSay _nCont
@ nLin,135 pSay "100%"
EndIf

If Select("QRY") > 0
DbSelectArea("QRY")
DbCloseArea()
Endif

SET DEVICE TO SCREEN

If aReturn[5]==1
dbCommitAll()
SET PRINTER TO
OurSpool(wnrel)
Endif

MS_FLUSH()

Return

/*
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍ»±±
±±ºPrograma ³VldPerg º Autor ³ Mauricio Micheli º Data ³ 16/09/08 º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºDesc. ³ Perguntas. º±±
±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹±±
±±ºUso ³ Especifico para Isogama º±±
±±ÈÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ±±
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß
*/

Static Function VldPerg(cPerg)

cPerg := PadR(cPerg,10)
_sAlias := Alias()

dbSelectArea("SX1")
SX1->(DbSetOrder(1))

If !dbSeek(cPerg+"01")
RecLock("SX1",.T.)
sx1->x1_grupo :=cPerg
sx1->x1_ordem :='01'
sx1->x1_pergunt:='Ano De ?'
sx1->x1_variavl:='mv_ch1'
sx1->x1_tipo :='C'
sx1->x1_tamanho:=4
sx1->x1_decimal:=0
sx1->x1_presel :=0
sx1->x1_gsc :='G'
sx1->x1_var01 :='mv_par01'
sx1->x1_f3 :=''
sx1->(MsUnlock())
EndIf
If !dbSeek(cPerg+"02")
RecLock("SX1",.T.)
sx1->x1_grupo :=cPerg
sx1->x1_ordem :='02'
sx1->x1_pergunt:='Ano Ate ?'
sx1->x1_variavl:='mv_ch2'
sx1->x1_tipo :='C'
sx1->x1_tamanho:=4
sx1->x1_decimal:=0
sx1->x1_presel :=0
sx1->x1_gsc :='G'
sx1->x1_var01 :='mv_par02'
sx1->x1_f3 :=''
sx1->(MsUnlock())
EndIf
If !dbSeek(cPerg+"03")
RecLock("SX1",.T.)
sx1->x1_grupo :=cPerg
sx1->x1_ordem :='03'
sx1->x1_pergunt:='Codigo FNC De ?'
sx1->x1_variavl:='mv_ch3'
sx1->x1_tipo :='C'
sx1->x1_tamanho:=10
sx1->x1_decimal:=0
sx1->x1_presel :=0
sx1->x1_gsc :='G'
sx1->x1_var01 :='mv_par03'
sx1->x1_f3 :='QI2'
sx1->(MsUnlock())
EndIf
If !dbSeek(cPerg+"04")
RecLock("SX1",.T.)
sx1->x1_grupo :=cPerg
sx1->x1_ordem :='04'
sx1->x1_pergunt:='Codigo FNC Ate ?'
sx1->x1_variavl:='mv_ch4'
sx1->x1_tipo :='C'
sx1->x1_tamanho:=10
sx1->x1_decimal:=0
sx1->x1_presel :=0
sx1->x1_gsc :='G'
sx1->x1_var01 :='mv_par04'
sx1->x1_f3 :='QI2'
sx1->(MsUnlock())
EndIf
If !dbSeek(cPerg+"05")
RecLock("SX1",.T.)
sx1->x1_grupo :=cPerg
sx1->x1_ordem :='05'
sx1->x1_pergunt:='Revisao FNC De ?'
sx1->x1_variavl:='mv_ch5'
sx1->x1_tipo :='C'
sx1->x1_tamanho:=2
sx1->x1_decimal:=0
sx1->x1_presel :=0
sx1->x1_gsc :='G'
sx1->x1_var01 :='mv_par05'
sx1->x1_f3 :=''
sx1->(MsUnlock())
EndIf
If !dbSeek(cPerg+"06")
RecLock("SX1",.T.)
sx1->x1_grupo :=cPerg
sx1->x1_ordem :='06'
sx1->x1_pergunt:='Revisao FNC Ate ?'
sx1->x1_variavl:='mv_ch6'
sx1->x1_tipo :='C'
sx1->x1_tamanho:=2
sx1->x1_decimal:=0
sx1->x1_presel :=0
sx1->x1_gsc :='G'
sx1->x1_var01 :='mv_par06'
sx1->x1_f3 :=''
sx1->(MsUnlock())
EndIf
if !SX1->(DBSEEK(cPerg+'07'))
RecLock("SX1",.T.)
sx1->x1_grupo :=cPerg
sx1->x1_ordem :='07'
sx1->x1_pergunt:='Filial Usr De ?'
sx1->x1_variavl:='mv_ch7'
sx1->x1_tipo :='C'
sx1->x1_tamanho:=2
sx1->x1_decimal:=0
sx1->x1_presel :=0
sx1->x1_gsc :='G'
sx1->x1_var01 :='mv_par07'
sx1->x1_f3 :='SM0'
sx1->(MsUnlock())
EndIf
If !dbSeek(cPerg+"08")
RecLock("SX1",.T.)
sx1->x1_grupo :=cPerg
sx1->x1_ordem :='08'
sx1->x1_pergunt:='Filial Usr Ate ?'
sx1->x1_variavl:='mv_ch8'
sx1->x1_tipo :='C'
sx1->x1_tamanho:=2
sx1->x1_decimal:=0
sx1->x1_presel :=0
sx1->x1_gsc :='G'
sx1->x1_var01 :='mv_par08'
sx1->x1_f3 :='SM0'
sx1->(MsUnlock())
EndIf
If !dbSeek(cPerg+"09")
RecLock("SX1",.T.)
sx1->x1_grupo :=cPerg
sx1->x1_ordem :='09'
sx1->x1_pergunt:='Usuario De ?'
sx1->x1_variavl:='mv_ch9'
sx1->x1_tipo :='C'
sx1->x1_tamanho:=10
sx1->x1_decimal:=0
sx1->x1_presel :=0
sx1->x1_gsc :='G'
sx1->x1_var01 :='mv_par09'
sx1->x1_f3 :='QAAFO'
sx1->(MsUnlock())
EndIf
If !dbSeek(cPerg+"10")
RecLock("SX1",.T.)
sx1->x1_grupo :=cPerg
sx1->x1_ordem :='10'
sx1->x1_pergunt:='Usuario Ate ?'
sx1->x1_variavl:='mv_cha'
sx1->x1_tipo :='C'
sx1->x1_tamanho:=10
sx1->x1_decimal:=0
sx1->x1_presel :=0
sx1->x1_gsc :='G'
sx1->x1_var01 :='mv_par10'
sx1->x1_f3 :='QAAFO'
sx1->(MsUnlock())
EndIf
If !dbSeek(cPerg+"11")
RecLock("SX1",.T.)
sx1->x1_grupo :=cPerg
sx1->x1_ordem :='11'
sx1->x1_pergunt:='Classif.N.C. ?'
sx1->x1_variavl:='mv_chb'
sx1->x1_tipo :='N'
sx1->x1_tamanho:=1
sx1->x1_decimal:=0
sx1->x1_presel :=0
sx1->x1_gsc :='C'
sx1->x1_var01 :='mv_par11'
sx1->X1_DEF01 :='Não Conf.Potencial'
sx1->X1_DEF02 :='Não Conf.Existente'
sx1->X1_DEF03 :='Melhoria'
sx1->X1_DEF04 :='Desenvolvimento'
sx1->X1_DEF05 :='Todas Qualidade'
sx1->x1_f3 :=''
sx1->(MsUnlock())
EndIf
If !dbSeek(cPerg+"12")
RecLock("SX1",.T.)
sx1->x1_grupo :=cPerg
sx1->x1_ordem :='12'
sx1->x1_pergunt:='Imprime Ficha Baixada ?'
sx1->x1_variavl:='mv_chc'
sx1->x1_tipo :='N'
sx1->x1_tamanho:=1
sx1->x1_decimal:=0
sx1->x1_presel :=0
sx1->x1_gsc :='C'
sx1->x1_var01 :='mv_par12'
sx1->X1_DEF01 :='Sim'
sx1->X1_DEF02 :='Não'
sx1->X1_DEF03 :='Ambas'
sx1->x1_f3 :=''
sx1->(MsUnlock())
EndIf
If !dbSeek(cPerg+"13")
RecLock("SX1",.T.)
sx1->x1_grupo :=cPerg
sx1->x1_ordem :='13'
sx1->x1_pergunt:='Cod. Origem De ?'
sx1->x1_variavl:='mv_chd'
sx1->x1_tipo :='C'
sx1->x1_tamanho:=8
sx1->x1_decimal:=0
sx1->x1_presel :=0
sx1->x1_gsc :='G'
sx1->x1_var01 :='mv_par13'
sx1->x1_f3 :='QIC'
sx1->(MsUnlock())
EndIf
If !dbSeek(cPerg+"14")
RecLock("SX1",.T.)
sx1->x1_grupo :=cPerg
sx1->x1_ordem :='14'
sx1->x1_pergunt:='Cod. Origem Ate ?'
sx1->x1_variavl:='mv_che'
sx1->x1_tipo :='C'
sx1->x1_tamanho:=8
sx1->x1_decimal:=0
sx1->x1_presel :=0
sx1->x1_gsc :='G'
sx1->x1_var01 :='mv_par14'
sx1->x1_f3 :='QIC'
sx1->(MsUnlock())
EndIf
If !dbSeek(cPerg+"15")
RecLock("SX1",.T.)
sx1->x1_grupo :=cPerg
sx1->x1_ordem :='15'
sx1->x1_pergunt:='Cod. Disposição De ?'
sx1->x1_variavl:='mv_chf'
sx1->x1_tipo :='C'
sx1->x1_tamanho:=8
sx1->x1_decimal:=0
sx1->x1_presel :=0
sx1->x1_gsc :='G'
sx1->x1_var01 :='mv_par15'
sx1->x1_f3 :='QI1'
sx1->(MsUnlock())
EndIf
If !dbSeek(cPerg+"16")
RecLock("SX1",.T.)
sx1->x1_grupo :=cPerg
sx1->x1_ordem :='16'
sx1->x1_pergunt:='Cod. Disposição Ate ?'
sx1->x1_variavl:='mv_chg'
sx1->x1_tipo :='C'
sx1->x1_tamanho:=8
sx1->x1_decimal:=0
sx1->x1_presel :=0
sx1->x1_gsc :='G'
sx1->x1_var01 :='mv_par16'
sx1->x1_f3 :='QI1'
sx1->(MsUnlock())
EndIf
If !dbSeek(cPerg+"17")
RecLock("SX1",.T.)
sx1->x1_grupo :=cPerg
sx1->x1_ordem :='17'
sx1->x1_pergunt:='Cod. Causa De ?'
sx1->x1_variavl:='mv_chh'
sx1->x1_tipo :='C'
sx1->x1_tamanho:=8
sx1->x1_decimal:=0
sx1->x1_presel :=0
sx1->x1_gsc :='G'
sx1->x1_var01 :='mv_par17'
sx1->x1_f3 :='QIA'
sx1->(MsUnlock())
EndIf
If !dbSeek(cPerg+"18")
RecLock("SX1",.T.)
sx1->x1_grupo :=cPerg
sx1->x1_ordem :='18'
sx1->x1_pergunt:='Cod. Causa Ate ?'
sx1->x1_variavl:='mv_chi'
sx1->x1_tipo :='C'
sx1->x1_tamanho:=8
sx1->x1_decimal:=0
sx1->x1_presel :=0
sx1->x1_gsc :='G'
sx1->x1_var01 :='mv_par18'
sx1->x1_f3 :='QIA'
sx1->(MsUnlock())
EndIf
If !dbSeek(cPerg+"19")
RecLock("SX1",.T.)
sx1->x1_grupo :=cPerg
sx1->x1_ordem :='19'
sx1->x1_pergunt:='Salta Pag.Usuario ?'
sx1->x1_variavl:='mv_chj'
sx1->x1_tipo :='N'
sx1->x1_tamanho:=1
sx1->x1_decimal:=0
sx1->x1_presel :=0
sx1->x1_gsc :='C'
sx1->x1_var01 :='mv_par19'
sx1->X1_DEF01 :='Sim'
sx1->X1_DEF02 :='Não'
sx1->x1_f3 :=''
sx1->(MsUnlock())
EndIf
If !dbSeek(cPerg+"20")
RecLock("SX1",.T.)
sx1->x1_grupo :=cPerg
sx1->x1_ordem :='20'
sx1->x1_pergunt:='Responsavel ?'
sx1->x1_variavl:='mv_chl'
sx1->x1_tipo :='N'
sx1->x1_tamanho:=1
sx1->x1_decimal:=0
sx1->x1_presel :=0
sx1->x1_gsc :='C'
sx1->x1_var01 :='mv_par20'
sx1->X1_DEF01 :='Origem'
sx1->X1_DEF02 :='Destino'
sx1->x1_f3 :=''
sx1->(MsUnlock())
EndIf
If !dbSeek(cPerg+"21")
RecLock("SX1",.T.)
sx1->x1_grupo :=cPerg
sx1->x1_ordem :='21'
sx1->x1_pergunt:='Dt. Registro De ?'
sx1->x1_variavl:='mv_chm'
sx1->x1_tipo :='D'
sx1->x1_tamanho:=8
sx1->x1_decimal:=0
sx1->x1_presel :=0
sx1->x1_gsc :='G'
sx1->x1_var01 :='mv_par21'
sx1->x1_f3 :=''
sx1->(MsUnlock())
EndIf
If !dbSeek(cPerg+"22")
RecLock("SX1",.T.)
sx1->x1_grupo :=cPerg
sx1->x1_ordem :='22'
sx1->x1_pergunt:='Dt. Registro Até ?'
sx1->x1_variavl:='mv_chn'
sx1->x1_tipo :='D'
sx1->x1_tamanho:=8
sx1->x1_decimal:=0
sx1->x1_presel :=0
sx1->x1_gsc :='G'
sx1->x1_var01 :='mv_par22'
sx1->x1_f3 :=''
sx1->(MsUnlock())
EndIf
If !dbSeek(cPerg+"23")
RecLock("SX1",.T.)
sx1->x1_grupo :=cPerg
sx1->x1_ordem :='23'
sx1->x1_pergunt:='Imprime Resumo ?'
sx1->x1_variavl:='mv_cho'
sx1->x1_tipo :='N'
sx1->x1_tamanho:=1
sx1->x1_decimal:=0
sx1->x1_presel :=0
sx1->x1_gsc :='C'
sx1->x1_var01 :='mv_par23'
sx1->X1_DEF01 :='Sintético'
sx1->X1_DEF02 :='Analítico'
sx1->X1_DEF03 :='Não Imprime'
sx1->x1_f3 :=''
sx1->(MsUnlock())
EndIf
If !dbSeek(cPerg+"24")
RecLock("SX1",.T.)
sx1->x1_grupo :=cPerg
sx1->x1_ordem :='24'
sx1->x1_pergunt:='Dt. Conclusão De ?'
sx1->x1_variavl:='mv_chp'
sx1->x1_tipo :='D'
sx1->x1_tamanho:=8
sx1->x1_decimal:=0
sx1->x1_presel :=0
sx1->x1_gsc :='G'
sx1->x1_var01 :='mv_par24'
sx1->x1_f3 :=''
sx1->(MsUnlock())
EndIf
If !dbSeek(cPerg+"25")
RecLock("SX1",.T.)
sx1->x1_grupo :=cPerg
sx1->x1_ordem :='25'
sx1->x1_pergunt:='Dt. Conclusão Até ?'
sx1->x1_variavl:='mv_chq'
sx1->x1_tipo :='D'
sx1->x1_tamanho:=8
sx1->x1_decimal:=0
sx1->x1_presel :=0
sx1->x1_gsc :='G'
sx1->x1_var01 :='mv_par25'
sx1->x1_f3 :=''
sx1->(MsUnlock())
EndIf

Return

alguem tem alguma ideia sobre esse erro ainda não descobri o q é

Alguem tem alguma ideia de onde pode estar esse problema...

Estou com o mesmo problema...fiz a virada de versão da 10 para 11. Maioria das rotinas funcionando normalmente mas está me apresentando este mesmo erro.

Na versão 10 funciona normalmente...

Na versão 11 acontece :

THREAD ERROR (Administrador, CTI-EDSON) 13/12/2012 16:04:27
argument #0 error, expected N or F->C, function strzero on CABEC(APLIB080.PRW) 02/07/2012 15:20:14 line : 2118

[TOTVS build: 7.00.120420A-20120726]
Called from RUNREPORT(ALNFIN22.PRW) 25/10/2012 10:25:46 line : 169
Called from {|| RUNREPORT(CABEC1,CABEC2,TITULO,NLIN) }(ALNFIN22.PRW) 25/10/2012 10:25:46 line : 80
Called from eval line : 1860
Called from { || EVAL( BACTION, @LSTOP ),LSTOP := .T. , ODLG:END() }(APLIB080.PRW) 02/07/2012 15:20:14 line : 1860
Called from ::MSDIALOG:ACTIVATE


Algum analista da totvs mexeu na função e não testou direito. Aguardar pra ver se alguém acha a solução.

Substitui:
wnrel := SetPrint(cString,NomeProg,cPerg,@titulo,cDesc1,cDesc2,cDesc3,.F.,aOrd,,Tamanho)

Por:
wnrel := SetPrint(cString,NomeProg,cPerg,@titulo,cDesc1,cDesc2,cDesc3,.F.,aOrd,.F.,Tamanho,,.F.)


Aparentemente resolveu o problema. Vejam se acontece o mesmo com vocês e postem aqui.

[]'s

Hola Alyson, tengo exactamente el mismo error, lo lograste solucionar??