HOMOLOGA?ÃO DO TEF - PDV NFCE

JOHNSTEVE 20/04/2017 18:53:33
#473458
Boa noite galera, eita que é correria... Atualizando varios sistemas tais como: NFe, NFCe, CTe, MDFe. novas Leis chegando versões novas, novos layouts. uffa ta tenso esse ano...

E agora varios clientes solicitando a implantação do TEF.

Semana passada, fechei parceria com a equipe da SKYTEF , para representar o TEF para meus clientes. ja estou em fase de Homologação. essa equipe é show de bola. galera afinada, super atenciosos gente boa mesmo, auxiliando na Homologação do meu PDV no TEF.

Bom galera, eu ja tenho tudo em mãos, ja fiz varios testes... Estou Homologando em Troca de ARquivos Cliente Modular , enviando arquivos na pasta C:\Client\Req
e recebendo os retorno na pasta C:\Client\Resp

Tipo do Arquivo. txt com extensão [txt-color=#e80000] (.001) [/txt-color] IntPos.001

Galera quem utiliza o TEF, com troca de arquivos no Cient Modular.
por gentileza, alguem aqui sabe como crio esse arquivo nesse extensão ?
e como cria as linhas que fica dentro do arquivo [Ô]IntPos.001[Ô]
  000-000 = CRT
001-000 = 1
003-000 = 35,00 [ô]valor da venda
999-999 = 0


esse é o arquivo basico de uma venda simples. so preciso criar o arquivo com essas informações dentro.
Seria do tipo txt ? com essa extensão .001

Agradeço se alguem tive alguma dica
JOHNSTEVE 21/04/2017 09:35:12
#473484
Bom dia galera, consegui gerar o arquivo.
agora so me resta ler o arquivo de retorno.

   Private Sub Gerar_Arquivo_CLienModular()
        Dim SW As New StreamWriter([Ô]C:\Client\Req\IntPos.001[Ô]) [ô] Cria o arquivo de texto

        SW.WriteLine([Ô]000-000 = CRT[Ô]) [ô] Grava uma linha no arquivo de texto
        SW.WriteLine([Ô]001-000 = 1[Ô]) [ô] Grava uma linha no arquivo de texto
        SW.WriteLine([Ô]002-000 = 1234[Ô]) [ô] Grava uma linha no arquivo de texto
        SW.WriteLine([Ô]003-000 = [Ô] & txtValor.Text) [ô] Grava uma linha no arquivo de texto
        SW.WriteLine([Ô]004-000 = 0[Ô]) [ô] Grava uma linha no arquivo de texto
        SW.WriteLine([Ô]999-999 = 0[Ô]) [ô] Grava uma linha no arquivo de texto
       
        SW.Close() [ô]Fecha o arquivo de texto
        SW.Dispose() [ô]Libera a memória utilizada
    End Sub


estou lendo dessa forma. porem queria que pegar apenas as informações de cada grupo por exemplo
   Private Sub Ler_Arquivo_CLientModular()
        Dim texto As New StreamReader([Ô]C:\Client\Resp\IntPos.001[Ô])
        While Not texto.EndOfStream
            TextBox1.Text &= texto.ReadLine [ô]o resultado vem ssim [Ô]001-000 = 1[Ô] porem so queria pegar as informações depoius do [Ô]=[Ô] que seria   [Ô]1[Ô] 
            TextBox2.Text &= texto.ReadLine [ô]002-000 = 1234  - queria pegar apenas    [Ô]1234[Ô] 
            TextBox3.Text &= texto.ReadLine
            TextBox4.Text &= texto.ReadLine
            TextBox5.Text &= texto.ReadLine
            TextBox6.Text &= texto.ReadLine
            TextBox7.Text &= texto.ReadLine
            TextBox8.Text &= texto.ReadLine
            TextBox9.Text &= texto.ReadLine
            TextBox10.Text &= texto.ReadLine
            TextBox11.Text &= texto.ReadLine
            TextBox12.Text &= texto.ReadLine

        End While
    End Sub


Nessa função de ler o arquivo txt esta trazendo todo o conteudo de cada linha.
e preciso pegar apenas o conteudo depois do [Ô] = [Ô]

alguem poderia aperfeiçoar esse codigo de ler, da forma que preciso ?

Agradeço desde de já pela colaboração...
F001E 24/04/2017 12:59:07
#473510 Resposta escolhida
use a função Split

http://www.macoratti.net/10/11/vb_split.htm

https://msdn.microsoft.com/pt-br/library/6x627e5f%28v=vs.90%29.aspx
JOHNSTEVE 24/04/2017 13:11:42
#473511
Citação:

:
use a função Split

http://www.macoratti.net/10/11/vb_split.htm

https://msdn.microsoft.com/pt-br/library/6x627e5f%28v=vs.90%29.aspx



Boa tarde F001E, achei uma outra função que deu certo.

antes de finalizar o Topico, gostaria de saber com vcs como eu faço para Centralizar o nome na impressão do comprovante. levando em consideração que o tamanho maximo seria de 8mm bobina.

estou usando o PrindDocument para fazer a impressão do comprovante 1ºvia e 2ºvia.

MASTERCARD
1ºVIA
------------------------------------------------

Alguem poderia me passar uma dica de Centralização usando PrinDocument. fazendo a impressão na unha

abaixo segue o exemplo como estou fazendo
  Private Sub PrintDocument1_PrintPage(sender As Object, e As Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
        [ô]Declarar tipo de fonte e parametros ([Ô]fonte[Ô], tamanho, estilo)
        Dim minhafonte1 As New Font([Ô]Lucida Bright[Ô], 7, FontStyle.Regular)
        Dim minhafonte2 As New Font([Ô]Lucida Bright[Ô], 7, FontStyle.Bold)
        Dim margemEsq As Single = e.MarginBounds.Left
        Dim margemSup As Single = e.MarginBounds.Top
        Dim margemDir As Single = e.MarginBounds.Right
        Dim sf As New StringFormat()
        sf.Alignment = StringAlignment.Far

        e.Graphics.DrawString([Ô]----------------------------------------------------------------------------[Ô], minhafonte1, Brushes.Black, 15, 70)

        e.Graphics.DrawString([Ô]         [Ô] & [Ô]             NÃO é DOCUMENTO FISCAL[Ô] & [Ô]         [Ô], minhafonte1, Brushes.Black, 15, 80)
        e.Graphics.DrawString([Ô]         [Ô] & [Ô]    COMPROVANTE CRéDITO OU DéBITO[Ô] & [Ô]         [Ô], minhafonte1, Brushes.Black, 15, 90)
        [ô]                                    [ô]                              [ô]
        e.Graphics.DrawString([Ô]         [Ô] & [Ô]                          CARTÃO            [Ô] & [Ô]         [Ô], minhafonte2, Brushes.Black, 15, 100)
        e.Graphics.DrawString([Ô]         [Ô] & [Ô]                             1ª VIA            [Ô] & [Ô]         [Ô], minhafonte1, Brushes.Black, 15, 110)


Agradeço desde de já a todos
Tópico encerrado , respostas não são mais permitidas
Voltar