- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- DADOS DE TABELAS RELACIONADAS
×
Linguagem de Programação ADVPL
Perguntas DADOS DE TABELAS RELACIONADAS
- manoelcarlosjunior
- Autor do Tópico
- Desconectado
- Membro Especialista
Menos
Mais
- Postagens: 116
- Obrigados Recebidos: 0
10 anos 6 meses atrás #22855
por manoelcarlosjunior
DADOS DE TABELAS RELACIONADAS foi criado por manoelcarlosjunior
Bom dia Galera !
Estou criando um relatório e preciso buscar daados relacionas entre uma tabela (Ordem de Serviço) outra ao qual ela é a tabela principal. Como monto uma expressão no sql alguém tem exemplo ?
A baixo o meu que não esta dando certo.:
//Criando Query
cQuery := " SELECT * FROM "
cQuery += +RetSqlName("AB6")+" AB6 "
cQuery += " WHERE "
cQuery += " AB6.AB6_FILIAL = '" +xFilial("AB6")+"'"
cQuery += " AND AB6.AB6_NUMOS = '" + MV_PAR01 + "'"
cQuery += " AND AB6.D_E_L_E_T_ = ' ' "
cQuery += " ORDER BY AB6_NUMOS "
If Select("TRB") > 0
dbSelectArea("TRB")
TRB->(dbCloseArea())
EndIf
cQuery := ChangeQuery(cQuery)
DbUseArea(.T.,'TOPCONN',TCGENQRY(,,cQuery) ,"TRB",.T.,.T.)
//Cabecalho do Pedido
dbSelectArea("TRB")
If TRB->(Eof())
Aviso("Impressão Relatório Técnico ","Não existe Relatório Técnico a ser impresso!",{"OK"})
Return
EndIf
While !TRB->(EOF())
nCont ++
TRB->(DBSKIP())
EndDo
ProcRegua(nCont)
TRB->(DBGOTOP())
IncProc("Gerando Relatório Técnico...")
wcOS := TRB->AB6_NUMOS
wcRazSoc := TRB->AB6_ZZCLI
dbSelectArea("AB9")
dbSetOrder(1)
If dbSeek( xFilial("AB9") + wcOS)
wcTServ := TRB->AB9_CODPRB
wcGaran := TRB->AB9_GARANT
Endif
OBs.: wcTServ := TRB->AB9_CODPRB, wcGaran := TRB->AB9_GARANT, preciso desses dois caras vinculado ao numero na OS(wcOS:= TRB->AB6_NUMOS)
Estou criando um relatório e preciso buscar daados relacionas entre uma tabela (Ordem de Serviço) outra ao qual ela é a tabela principal. Como monto uma expressão no sql alguém tem exemplo ?
A baixo o meu que não esta dando certo.:
//Criando Query
cQuery := " SELECT * FROM "
cQuery += +RetSqlName("AB6")+" AB6 "
cQuery += " WHERE "
cQuery += " AB6.AB6_FILIAL = '" +xFilial("AB6")+"'"
cQuery += " AND AB6.AB6_NUMOS = '" + MV_PAR01 + "'"
cQuery += " AND AB6.D_E_L_E_T_ = ' ' "
cQuery += " ORDER BY AB6_NUMOS "
If Select("TRB") > 0
dbSelectArea("TRB")
TRB->(dbCloseArea())
EndIf
cQuery := ChangeQuery(cQuery)
DbUseArea(.T.,'TOPCONN',TCGENQRY(,,cQuery) ,"TRB",.T.,.T.)
//Cabecalho do Pedido
dbSelectArea("TRB")
If TRB->(Eof())
Aviso("Impressão Relatório Técnico ","Não existe Relatório Técnico a ser impresso!",{"OK"})
Return
EndIf
While !TRB->(EOF())
nCont ++
TRB->(DBSKIP())
EndDo
ProcRegua(nCont)
TRB->(DBGOTOP())
IncProc("Gerando Relatório Técnico...")
wcOS := TRB->AB6_NUMOS
wcRazSoc := TRB->AB6_ZZCLI
dbSelectArea("AB9")
dbSetOrder(1)
If dbSeek( xFilial("AB9") + wcOS)
wcTServ := TRB->AB9_CODPRB
wcGaran := TRB->AB9_GARANT
Endif
OBs.: wcTServ := TRB->AB9_CODPRB, wcGaran := TRB->AB9_GARANT, preciso desses dois caras vinculado ao numero na OS(wcOS:= TRB->AB6_NUMOS)
Por favor Acessar ou Registrar para participar da conversa.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- DADOS DE TABELAS RELACIONADAS
Tempo para a criação da página:0.062 segundos