- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Verificação de dados na tabela - DT6
×
Linguagem de Programação ADVPL
Perguntas Verificação de dados na tabela - DT6
- Dhoma
- Autor do Tópico
- Desconectado
- Membro Iniciado
Menos
Mais
- Postagens: 6
- Obrigados Recebidos: 0
11 anos 6 meses atrás #13846
por Dhoma
Verificação de dados na tabela - DT6 foi criado por Dhoma
Boa tarde
Estou com um fonte que emite um relatório de conhecimentos, porém as notas estão vindo com valores errados.
Preciso que este trecho do fonte, procure dentro do lote todas as notas existentes, e coloque no relatório, mas não estou sabendo fazer, pois estou começando em programação, alguém poderia me ajudar, por favor.
Segue trecho:
cQuery := " SELECT TOP 4 DTC_NUMNFC "
cQuery += " FROM "+RetSqlName("DTC")+" DTC "
cQuery += " JOIN "+RetSqlName("DT6")+" DT6 ON DTC_DOC = DT6_DOC AND DTC_SERIE = DT6_SERIE AND DTC_LOTNFC = DC6_LOTNFC" //R.I
cQuery += " WHERE DTC.D_E_L_E_T_ = '' "
cQuery += " AND DT6_DOC = '"+(cAliasRel)->DOC+"' "
cQuery += " AND DT6_SERIE = '"+(cAliasRel)->SERIE+"'"
cQuery += " AND DT6_LOTNFC = '"+(cAliasRel)->LOTE+"'"
memowrite('Rel_Notas.sql',cQuery)
If Select("NOTAS") > 0
// dbSelectArea("NOTAS")
dbSelectArea ("LOTE")
// dbCloseArea("NOTAS")
dbCloseArea ("LOTE")
Endif
Estou com um fonte que emite um relatório de conhecimentos, porém as notas estão vindo com valores errados.
Preciso que este trecho do fonte, procure dentro do lote todas as notas existentes, e coloque no relatório, mas não estou sabendo fazer, pois estou começando em programação, alguém poderia me ajudar, por favor.
Segue trecho:
cQuery := " SELECT TOP 4 DTC_NUMNFC "
cQuery += " FROM "+RetSqlName("DTC")+" DTC "
cQuery += " JOIN "+RetSqlName("DT6")+" DT6 ON DTC_DOC = DT6_DOC AND DTC_SERIE = DT6_SERIE AND DTC_LOTNFC = DC6_LOTNFC" //R.I
cQuery += " WHERE DTC.D_E_L_E_T_ = '' "
cQuery += " AND DT6_DOC = '"+(cAliasRel)->DOC+"' "
cQuery += " AND DT6_SERIE = '"+(cAliasRel)->SERIE+"'"
cQuery += " AND DT6_LOTNFC = '"+(cAliasRel)->LOTE+"'"
memowrite('Rel_Notas.sql',cQuery)
If Select("NOTAS") > 0
// dbSelectArea("NOTAS")
dbSelectArea ("LOTE")
// dbCloseArea("NOTAS")
dbCloseArea ("LOTE")
Endif
Por favor Acessar ou Registrar para participar da conversa.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Verificação de dados na tabela - DT6
Tempo para a criação da página:0.117 segundos