Perguntas Consulta Sql em Advpç
- Pedro99
- Autor do Tópico
- Desconectado
- Membro Iniciado
-
Menos
Mais
- Postagens: 1
- Obrigados Recebidos: 0
4 anos 5 meses atrás #32870
por Pedro99
Consulta Sql em Advpç foi criado por Pedro99
Bom dia,
Sou iniciante em ADVPL e estou com um problema em um comando para trazer a demanda do 12° mês anterior na tela de sugestão de compra o comando no sql traz o valor correto mas quando chamo essa função no inicializador padrão do campo ela não traz nada alguém consegue identificar algum erro nesse comando?
#INCLUDE "TOTVS.CH"
#include "TOPCONN.CH"
User Function xDem12(cCodProd)
Local nRet := 0
Local cAlias := GetNextAlias()
Default cCodProd := SDF->DF_PRODUTO
BeginSQL alias cAlias
select BL_DEMANDA DEMANDA
from SBL010
where SBL010.BL_PRODUTO = %Exp:cCodProd%
and SBL010.D_E_L_E_T_ = ‘‘ and BL_MES = (MONTH(GETDATE())-1)
AND BL_ANO = (YEAR(GETDATE())-1) AND BL_FILIAL = %xfilial:SDF%
EndSQL
IF !(cAlias)->(EOF())
nRet := (cAlias)->DEMANDA
EndIf
IF Select(cAlias)> 0
(cAlias)->(dbCloseArea())
EndIF
Return nRet
Sou iniciante em ADVPL e estou com um problema em um comando para trazer a demanda do 12° mês anterior na tela de sugestão de compra o comando no sql traz o valor correto mas quando chamo essa função no inicializador padrão do campo ela não traz nada alguém consegue identificar algum erro nesse comando?
#INCLUDE "TOTVS.CH"
#include "TOPCONN.CH"
User Function xDem12(cCodProd)
Local nRet := 0
Local cAlias := GetNextAlias()
Default cCodProd := SDF->DF_PRODUTO
BeginSQL alias cAlias
select BL_DEMANDA DEMANDA
from SBL010
where SBL010.BL_PRODUTO = %Exp:cCodProd%
and SBL010.D_E_L_E_T_ = ‘‘ and BL_MES = (MONTH(GETDATE())-1)
AND BL_ANO = (YEAR(GETDATE())-1) AND BL_FILIAL = %xfilial:SDF%
EndSQL
IF !(cAlias)->(EOF())
nRet := (cAlias)->DEMANDA
EndIf
IF Select(cAlias)> 0
(cAlias)->(dbCloseArea())
EndIF
Return nRet
Por favor Acessar ou Registrar para participar da conversa.
- admin
-
- Desconectado
- Administrador
-
Menos
Mais
- Postagens: 297
- Obrigados Recebidos: 21
4 anos 5 meses atrás - 4 anos 5 meses atrás #32879
por admin
Respondido por admin no tópico Consulta Sql em Advpç
#INCLUDE "TOTVS.CH"
#include "TOPCONN.CH"
User Function xDem12(cCodProd)
Local nRet := 0
Local cAlias := GetNextAlias()
Default cCodProd := SDF->DF_PRODUTO
BeginSQL alias cAlias
select BL_DEMANDA DEMANDA
from SBL010
where SBL010.BL_PRODUTO = %Exp:cCodProd%
and SBL010.D_E_L_E_T_ = ‘‘ and BL_MES = (MONTH(GETDATE())-1)
AND BL_ANO = (YEAR(GETDATE())-1) AND BL_FILIAL = %xfilial:SBL%
EndSQL
IF !(cAlias)->(EOF())
nRet := (cAlias)->DEMANDA
EndIf
IF Select(cAlias)> 0
(cAlias)->(dbCloseArea())
EndIF
Return nRet
#include "TOPCONN.CH"
User Function xDem12(cCodProd)
Local nRet := 0
Local cAlias := GetNextAlias()
Default cCodProd := SDF->DF_PRODUTO
BeginSQL alias cAlias
select BL_DEMANDA DEMANDA
from SBL010
where SBL010.BL_PRODUTO = %Exp:cCodProd%
and SBL010.D_E_L_E_T_ = ‘‘ and BL_MES = (MONTH(GETDATE())-1)
AND BL_ANO = (YEAR(GETDATE())-1) AND BL_FILIAL = %xfilial:SBL%
EndSQL
IF !(cAlias)->(EOF())
nRet := (cAlias)->DEMANDA
EndIf
IF Select(cAlias)> 0
(cAlias)->(dbCloseArea())
EndIF
Return nRet
Ultima edição: 4 anos 5 meses atrás por admin.
Por favor Acessar ou Registrar para participar da conversa.
Tempo para a criação da página:0.074 segundos