Jump to content
Fórum Script Brasil
  • 0

Funções Nativas do Visual Basic


Rafaselic

Question

Bom dia, amigos

Sou desenvolvedor .NET e estou com dificuldade de entender um trecho de código escrito em VB6.

Já dei uma pesquisada à respeito do método "Seek", mesmo assim não ficou claro.

Segue o trecho do código em VB, que utiliza um RecordSet, com Index e o tal método Seek.

Quem souber à respeito, pode me explicar melhor o que esse código faz exatamente?!?

Private Sub Command6_Click()

If MsgBox("Se for pressionado SIM será gerado o arquivo. Confirma?", vbYesNo, "Gera arquivo texto para ser importado pelo DIMOB") = 6 Then

Screen.MousePointer = 11

sequencia = 0

Open "c:\locacao\dimob" & Text2 & ".txt" For Output As #1

myrecord0.sistema = "DIMOB"

myrecord0.reservado = Space(369)

myrecord0.delimitador = vbCr

myrecord0.delimitador1 = vbLf

Print #1, myrecord0.sistema + myrecord0.reservado

myrecord1.tipo = "R01"

myrecord1.cnpj = "48435101000111"

myrecord1.ano = Text2.Text

myrecord1.declaracaoretificadora = "0"

myrecord1.numerodorecibo = "0000000000"

myrecord1.situacaoespecial = "0"

myrecord1.datadoevento = "00000000"

myrecord1.codigo = "00"

myrecord1.uf = "SP"

myrecord1.codigodomunicipio = "7107"

myrecord1.reservado = Space(30)

myrecord1.delimitador = vbCr

myrecord1.delimitador1 = vbLf

Print #1, myrecord1.tipo + myrecord1.cnpj + myrecord1.ano + myrecord1.declaracaoretificadora + myrecord1.numerodorecibo + myrecord1.situacaoespecial + myrecord1.datadoevento + myrecord1.codigo + myrecord1.nomeempresarial + myrecord1.cpfdoresponsavel + myrecord1.enderecodocontribuinte + myrecord1.uf + myrecord1.codigodomunicipio + myrecord1.reservado

tdimob.Index = "imovel_locatario"

tdimob.Seek ">", Text2.Text, 0, "", 0, 0, ""

If tdimob.NoMatch Then

Else

cod_proprietario = tdimob("cod_proprietario")

cpf_cgc = tdimob("cpf-cgc")

sequen = tdimob("sequencia")

cod_locat = tdimob("cod_locatario")

Agradeço qualquer ajuda.

Valeu!!!

Link to comment
Share on other sites

0 answers to this question

Recommended Posts

There have been no answers to this question yet

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



  • Forum Statistics

    • Total Topics
      152.1k
    • Total Posts
      651.8k
×
×
  • Create New...