LePoeItemMemo

Essa função lê um arquivo local (entra) e grava para um especificado item memo (item) de um determinado arquivo (arq).

LePoeItemMemo (char *arq, char *item, char *entra)

Sub cmd_ok_Click ()

Dim buffer As String * 14

Dim temp_buffer As String * 6

Dim result As Integer

ReDim items(3) As Itens

‘Entra nome do departamento no banco 

‘Pega o número máximo de dept_code

Filename = "dept"

cc = ObtemRegistrosNoArquivo(Trim(Filename))

result = ReiniciaSequencial("dept")

For i = 1 To cc

  items(0).item = "dept_code"

  items(1).item = ""

  result = LeProximoSequencial("dept", items(0), temp_buffer)

Next i

aa = Mid(temp_buffer, 1, 6)

maincode = Format(Val(aa) + 1, "000000")

buffer = maincode + edit_department_name.Text

‘Inclui registro

items(0).item = "dept_code"

items(1).item = "dept_name"

items(2).item = ""

result = InclueRegistro(Trim(Filename), items(0), buffer)

‘Posiciona no novo registro

items(0).item = "dept_code"

items(1).item = ""

result = LePorChavePrimaria("dept", maincode, items(0), temp_buffer)

‘Entre descrição do departamento no banco

buffer1 = edit_department_description.Text

If Len(Trim(buffer1)) <> 0 Then

  Open "c:\dlls\temp.txt" For Output As #1

  Print #1, buffer1

  Close #1

  result = ReadPutItemMemo("dept", "dept_desc", "c:\dlls\temp.txt")

End If

‘Entra musica do departamento no banco

If Len(Trim(putfilename)) <> 0 Then

  result = ReadPutItemMemo("dept", "dept_music", putfilename)

End If

‘fecha formulário corrente

Unload frm_add

End Sub