×
Linguagem de Programação ADVPL
Perguntas Analise de Codigo
- vcardoso
- Autor do Tópico
- Desconectado
- Membro Especialista
-
Menos
Mais
- Postagens: 119
- Obrigados Recebidos: 0
11 anos 8 meses atrás #11245
por vcardoso
Analise de Codigo foi criado por vcardoso
Boa tarde pessoal!!
Alguem pode me ajudar neste codigo ?
User Function Gerarx()
Local nRec := Recno()
Local cQuery := ""
Local cAlias := "SC7"
Local _aCoBrw1 := {}
MsgInfo("Gerando Documento de Saida...")
// PEGAR RECNO DO REGISTRO SELECIONADO NA TELA
DbSelectArea(cAlias)
DbGotop()
MSGINFO("Registro posicionado: "+cValToChar(nRec)+" ")
// FILTRAR NA TABELA SF1 E SD1 O REGISTRO PELO RECNO ENCONTRADO ACIMA
cQuery := "SELECT C7_PRODUTO FROM "+RetSqlName("SF3")+" SF3 WHERE R_E_C_N_O_ = '"+nRec+"'
Esta dando erro na linha de codigo do cQuery, alguem sabe onde ta o erro? o protheus diz que eh no +.
Alguem pode me ajudar neste codigo ?
User Function Gerarx()
Local nRec := Recno()
Local cQuery := ""
Local cAlias := "SC7"
Local _aCoBrw1 := {}
MsgInfo("Gerando Documento de Saida...")
// PEGAR RECNO DO REGISTRO SELECIONADO NA TELA
DbSelectArea(cAlias)
DbGotop()
MSGINFO("Registro posicionado: "+cValToChar(nRec)+" ")
// FILTRAR NA TABELA SF1 E SD1 O REGISTRO PELO RECNO ENCONTRADO ACIMA
cQuery := "SELECT C7_PRODUTO FROM "+RetSqlName("SF3")+" SF3 WHERE R_E_C_N_O_ = '"+nRec+"'
Esta dando erro na linha de codigo do cQuery, alguem sabe onde ta o erro? o protheus diz que eh no +.
Por favor Acessar ou Registrar para participar da conversa.
- lalberto
-
- Desconectado
- Administrador
-
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
11 anos 8 meses atrás #11247
por lalberto
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Respondido por lalberto no tópico Analise de Codigo
cQuery := "SELECT C7_PRODUTO FROM "+RetSqlName("SF3")+" SF3 WHERE R_E_C_N_O_ = '"+Str(nRec)+"'
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Por favor Acessar ou Registrar para participar da conversa.
- vcardoso
- Autor do Tópico
- Desconectado
- Membro Especialista
-
Menos
Mais
- Postagens: 119
- Obrigados Recebidos: 0
- lalberto
-
- Desconectado
- Administrador
-
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
11 anos 8 meses atrás #11250
por lalberto
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Respondido por lalberto no tópico Analise de Codigo
Isso mesmo, é que vc estava somando o nrec com o texto da query, porém nrec é variável tipo numérica.
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Por favor Acessar ou Registrar para participar da conversa.
- vcardoso
- Autor do Tópico
- Desconectado
- Membro Especialista
-
Menos
Mais
- Postagens: 119
- Obrigados Recebidos: 0
11 anos 8 meses atrás #11254
por vcardoso
Respondido por vcardoso no tópico Analise de Codigo
Ficou SHOW!!
So dei uma melhorada usando o AllTrim e usando com a minha necessidade, segue.
cQuery := "SELECT C7_ITEM FROM "+RetSqlName("SC7")+" SC7 WHERE R_E_C_N_O_ = '"+AllTrim(STR(nRec))+"'
Valeu!!
So dei uma melhorada usando o AllTrim e usando com a minha necessidade, segue.
cQuery := "SELECT C7_ITEM FROM "+RetSqlName("SC7")+" SC7 WHERE R_E_C_N_O_ = '"+AllTrim(STR(nRec))+"'
Valeu!!
Por favor Acessar ou Registrar para participar da conversa.
Tempo para a criação da página:0.129 segundos