Perguntas Consulta Sql em Advpç
- Pedro99
- Autor do Tópico
- Desconectado
- Membro Iniciado
-
Menos
Mais
- Postagens: 1
- Obrigados Recebidos: 0
3 anos 11 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: 295
- Obrigados Recebidos: 20
3 anos 11 meses atrás - 3 anos 11 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: 3 anos 11 meses atrás por admin.
Por favor Acessar ou Registrar para participar da conversa.
Tempo para a criação da página:0.093 segundos