All pastes #213520 Raw Edit

Marcelo

public text v1 · immutable
#213520 ·published 2006-10-21 13:34 UTC
rendered paste body
                For Each instance As WSIntegracao.ExportQuestInstanceTypeResponse In eqit.QuestInstance

                    commSQL.Parameters.Clear()
                    commSQL.Parameters.Add("@cn_origem", instance.cdStore)
                    commSQL.Parameters.Add("@cn_consultor", instance.cdRegion)
                    commSQL.Parameters.Add("@dt_pesquisa", instance.dtExecutionStart)
                    commSQL.ExecuteNonQuery()

                    For Each parameter As WSIntegracao.ExportParameterTypeResponse In eqit.Parameter

                        If instance.cdQuestInstance = parameter.cdQuestInstance Then

                            'SELECT * FROM dbo.tbl_tipo_pergunta 
                            'INNER JOIN dbo.tbl_pergunta ON 
                            'tbl_pergunta.cn_tipo_pergunta = tbl_tipo_pergunta.cn_tipo_pergunta;

                            'parameter.vlCollected é o resultado do primeiro join?

                            If parameter.vlCollected = 1 Then
                                'PROCEDURE tbl_resposta_pergunta_aberta
                            End If

                        End If

                    Next
                Next