Pessoal, vou postar meu código aqui pra ver se vcs entendem tah???
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.Open "Provider=MSDAORA.1;Password=gemco;User ID=gemco;Data Source=gemco;Persist Security Info=True"
Me.MousePointer = vbHourglass
Sql = Sql & "Select a.codfil, d.cgccpf CNPJ, a.numnota NFISCAL, a.serie SERIE, a.dtemissao DT_EMISSAO, a.vltotal VALOR, "
Sql = Sql & "a.vldesconto VLDESCONTO, a.vlicm VLICMS, a.vlicmret ICM_RETIDO, c.vldescitem DESC_ITEM, Max(e.codbarra) CODBARRA, "
Sql = Sql & "c.qtcomp QNTPROD, c.precoorig PRECO_LIQ, c.aliqicm ALIQ_ICM, c.porcipi ALIQ_IPI, b.numpedcomp PED_COMPRA, a.tpnota, "
Sql = Sql & "a.codcli, a.dtnota, c.coditprod||'-'||f.digitprod Item, a.numpedcli "
Sql = Sql & "From mov_saida a , com_pedido b, mov_itsaida c, cad_cliente d, cad_codbarra e, cad_itprod f "
Sql = Sql & "Where a.codfil = c.codfil and "
Sql = Sql & "a.codcli = c.codcli and "
Sql = Sql & "a.codcli = d.codcli and "
Sql = Sql & "c.coditprod = f.coditprod and "
Sql = Sql & "c.coditprod = e.coditprod and "
Sql = Sql & "a.numnota = c.numnota and "
Sql = Sql & "a.numpedcli = b.numpedcomp and "
Sql = Sql & "a.dtnota ='" & Text1.Text & "' and "
Sql = Sql & "a.serie = c.serie and "
Sql = Sql & "a.codfil = 133 and "
Sql = Sql & "b.codforne = 100422 and a.numnota=39199 "
Sql = Sql & "Group by a.codfil, d.cgccpf, a.numnota, a.serie, a.dtemissao, a.vltotal, a.vldesconto, a.vlicm, a.vlicmret, "
Sql = Sql & "c.vldescitem, c.qtcomp, c.precoorig, c.aliqicm, c.porcipi, a.tpnota, a.codcli, a.dtnota, c.coditprod, "
Sql = Sql & "f.digitprod , a.numpedcli, b.numpedcomp "
Sql = Sql & "order by 3,20 "
rs.Open Sql, cn, adOpenDynamic, adLockOptimistic
If rs.EOF = False Then
Do
Arq = FreeFile
Call LimpaTela
Text2.Text = rs(1)
Text3.Text = rs(2)
Text4.Text = rs(3)
Text5.Text = Format(rs(4), "yyyymmdd")
Text6.Text = Format(rs(5), "####0.00")
Text11.Text = Format(rs(6), "##,##0.00")
Text14.Text = Format(rs(7), "##,##0.00")
Text15.Text = Format(rs(8), "##,##0.00")
Text18.Text = rs(13)
Text19.Text = Format(rs(9), "##,##0.00")
Call VerificaZeros
D = "01" + Text2.Text + Text3.Text + Text4.Text
E = "02" + Text5.Text + Text6.Text + Text7.Text
F = "03" + Text10.Text + Text11.Text + Text12.Text
G = "04" + Text14.Text + Text15.Text + Text16.Text
H = "05" + Text18.Text + Text19.Text + Text20.Text
Open "c:" & rs(17) & ".not" For Output As Arq ' determina o arquivo
Print #Arq, D ' enviar o texto da text box"
Print #Arq, E
Print #Arq, F
Print #Arq, G
Print #Arq, H
Do
Call LimpaTela2
Text22.Text = rs(10)
Text23.Text = rs(11)
Text24.Text = Format(rs(12), "##,##0.00")
Text26.Text = rs(13)
Text27.Text = rs(14)
Call VerificaZeros2
b = rs(2)
rs.MoveNext
A = "06" + Text22.Text + Text23.Text + Text24.Text + Text25.Text + Text26.Text + Text27.Text
Print #Arq, A
If rs.EOF = True Then
Exit Do
End If
Loop Until b <> rs(2)
Text28.Text = ""
Text29.Text = ""
Text28.Text = rs(15)
Do Until Len(Text28.Text) = 12 'enquanto o campo não tiver 14 caracteres
Text28.Text = "0" + Text28.Text 'insira zeros a esquerda até ficar com 14 caracteres
Loop
Do Until Len(Text29.Text) = 14 'enquanto o campo não tiver 14 caracteres
Text29.Text = "0" + Text29.Text 'insira zeros a esquerda até ficar com 14 caracteres
Loop
C = "07" + Text28.Text + Text29.Text
Print #Arq, C
Close Arq ' Fecha o arquivo
rs.MoveNext
Loop Until rs.EOF = True
MsgBox "Arquivo Gerado com sucesso!", vbInformation, "EDI"
MsgBox "ARQUIVO SALVO EM C:", vbInformation, "AVISO"
Else
MsgBox "Dados não encontrados", vbInformation, "Aviso"
End If
Me.MousePointer = vbArrow
