ENVIAR LINHAS DO COMP TEF DE 4 EM 4 LINHAS

NOBRE 26/08/2009 13:02:44
#321014

boa tarde,

TENHO UM SISTEMA EM VB6 QUE FAZ A VENDA COM CARTÃO DE CREDITO E DEBITO MAS ESTA ENVIANDO DE LINHA EM LINHA. GOSTARIA DE SABER SE ALGUEM PODE ME AJUDAR A ENVIAR EM BLOCOS DE 4 EM 4 LINHAS... POIS O COMANDO PODE CONTAR ATE ~500 CARACTERES!! SEGUE ABAIXO COMO FAÇO DE LINHA EM LINHA.
OBS. EU CRIO UM ARQUIVO DE TEXTO COM O COMPROVANTE E SO DEPOIS EU PUXO DESSE TEXTO E ENVIO PARA O ECF. SIMPLIFIQUEI AO MAXIMO PARA TODOS ENTENDEREM!!!!

If frm1.Combo1 = [Ô]ELGIN FIT[Ô] Then [ô] IMPRESSAO TEF ELGIN FIT DISCADO
iResultado = Elgin_EfetuaFormaPagamentoDescricaoForma(frm1.Combo3.Text, frm1.Text4.Text, [Ô]Teste, Jopavi Informática ltda[Ô]) [ô] efetua forma de pagamento

If iResultado = 1 Then
iResultado = Elgin_TerminaFechamentoCupom([Ô]Obrigado, volte sempre !!![Ô]) [ô] fecha o cupom
Else
MsgBox [Ô]erro de execução de função, efetua forma de pagamento[Ô], vbCritical
End If
[ô]iResultado = Elgin_AbreComprovanteNaoFiscalVinculado(frm1.Combo3.Text, frm1.Text4.Text, [Ô][Ô])
iResultado = Elgin_AbreComprovanteNaoFiscalVinculadoMFD(frm1.Combo3.Text, frm1.Text4.Text, [Ô][Ô], [Ô]9.999.999-9[Ô], [Ô]STATUS ECF/TEF[Ô], [Ô]RUA TESTE,51 - RIO DA CANA[Ô])

[ô]
If Dir(App.Path + [Ô]\IMPRIME[Ô] & CStr(iConta) & [Ô].TXT[Ô]) <> [Ô][Ô] Then [ô]\\\\AQUE EU ABRO O ARQUIVO DE TEXTO E ENVIO DE LINHA EM LINHA
DoEvents
[ô] MsgBox [Ô][Ô] & iConta
[ô] Função para bloqueio do teclado e mouse
End If
cLinha = [Ô][Ô]
[ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô]
[ô] INÍCIO DA LEITURA DE ARQUIVO PARA IMPRESSÃO [ô]
[ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô]
For via = 1 To 1 Step 1
[ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô]
[ô]Dim sArquivo As String, sLinha As String
[ô]Dim iARQ As Integer
[ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô]
[ô]Dim DIRET As String
DIRET = App.Path & [Ô]\IMPRIME[Ô] & CStr(iConta) & [Ô].TXT[Ô]
sArquivo = DIRET
[ô]Verificando se o arquivo existe:
If Dir$(sArquivo) = [Ô][Ô] Then
[ô]O arquivo NÃO existe.
MsgBox [Ô]O arquivo não existe![Ô], vbExclamation, _
[Ô]ATENÇÃO!!![Ô]
End If
iARQ = FreeFile
Open sArquivo For Input As iARQ

[ô]Verificando se o arquivo está em branco:
If LOF(iARQ) = 0 Then
[ô]O arquivo está em branco.
MsgBox [Ô]O arquivo está em branco![Ô], vbExclamation, _
[Ô]ATENÇÃO!!![Ô]
[ô]Fecha o arquivo
Close iARQ
End If
[ô]Limpa o ListBox:
Do While Not EOF(iARQ) [ô]Enquanto ñ chegar ao fim do arq...
[ô]Pega a linha atual:
Line Input #iARQ, sLinha
[ô][ô][ô] informar o comando para impressao do tef ELgin[ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô]
iResultado = Elgin_UsaComprovanteNaoFiscalVinculado(sLinha) [ô]\\\ [Ô]sLinha[Ô] é CADA LINHA QUE ENVIO PARA O ECF
Loop
[ô]Fecha o arquivo
Close iARQ
Next via
Close iArquivo
[ô] informar o comando para fechamaento do cupon do tef
[ô]iResultado = Elgin_SegundaViaNaoFiscalVinculadoMFD()
iResultado = Elgin_FechaComprovanteNaoFiscalVinculado()
iResultado = Elgin_SegundaViaNaoFiscalVinculadoMFD()
Sleep (500)

End If