GERACAO DE ARQUIVO DE VALE TRANSPORTE RIOCARD

USUARIO.EXCLUIDOS 25/08/2006 10:23:44
#167210
Ola galera bom dia, estou com o seguinte problema:
eu tenho um sistema de cadastro de funcionarios que gera a quantidade e valor de vale transporte para cada funcionario um intervalo de datas.
o que eu quero é o seguinte:
criar um arquivo que ja é preestabelicio pelo RIOCARD (FETRANSCOR)
gostaria de saber se alguem ja tem essa situação em mãos ou se podem me dar uma luz.

Fico muito grato
Luciano de Paula
USUARIO.EXCLUIDOS 25/08/2006 10:30:27
#167215
o que exatamente vc gostaria de fazer?? gerar um arquivo texto dentro de um layout pré estabelcido pela FETRANSPOR?? seria isto??
USUARIO.EXCLUIDOS 25/08/2006 10:51:20
#167223
Exatamente Marcelo
USUARIO.EXCLUIDOS 25/08/2006 11:31:48
#167239
Okay, já trabalhei com isto.
Não é difícil de fazer..

vou dar um exemplo bem simples:

Digamos que no layout da FETRANSPOR esteja da seguinte forma:

Posição 1-30 = NOme do funcionário
Posição 31-32 = QUantidade

Private Sub Form_Load()

Dim Nome As String
Dim Qtd As Integer

Nome = "Marcelo Faustino"
Qtd = 30

Open "C:\FETRANSPOR_Exp.txt" For Output As #1
   Print #1, MontaPalavra(Nome, 30) & MontaPalavra(Qtd, 2)
Close #1

End Sub



[c]Public Function MontaPalavra(Palavra, Caracteres As Long) As String
For i = 1 To Caracteres - Len(Palavra)
    Palavra = Palavra & " "
Next
MontaPalavra = Palavra
End Function

[/c]

Ai é só vc adaptar para suas necessidades.
Qualquer coisa posta ai que vou te dando umas dicas.
USUARIO.EXCLUIDOS 25/08/2006 11:59:47
#167255
Beleza valeu marcelo vou começar a adpitar agora mesmo.
USUARIO.EXCLUIDOS 25/08/2006 12:04:45
#167257
Sem problemas!! Qualquer coisa só postar!!
Tópico encerrado , respostas não são mais permitidas
Voltar