TEF Discado VB6

[jerere 0]

Olá à todos!

 

Gostaria de imprimir quantos cupons forem necessários de acordo com o número de cartões que a pessoa passar no TEF Discado. Não estou conseguindo utilizando o código a seguir:

 

Dim strRetorno As String
Dim strCodigoCampo As String
Dim strRetornoResposta As String
Dim booPodeVender As Boolean
Dim booPodeCancelar As Boolean
Dim booImprimeADM As Boolean
Dim Caracter
Dim ilinhas As Integer
Dim strTexto As String
Dim lngRet  As Long
Const MaxBuf = 2000
Dim strBufRet As String * MaxBuf
Dim iDuasVias As Integer
Dim Identificacao As String
Dim booImprimiuTranquilo As Boolean
Dim booTerminaTransacao As Boolean
Dim strCodigoFinalizacao As String
Dim booStatusAdm As Boolean
Dim strParametros As String
Dim iParametros As Integer
Dim BooCredit As Boolean
Dim iFor As Integer
Dim sExisteArquivo As String
Dim NewName
Dim str_Informacao As String
Dim strOperacaoAtual As String
Dim booChecarOperacao  As Boolean
Dim sTexto As String
Dim booApaga As Boolean
Dim booCancela As Boolean
Dim bCancelaUmaVez As Boolean

FORMA_CARTAO = VAZIO

iBooCredit = False

booTerminaTransacao = False
STATUS_RESPOSTA_TEF = VAZIO
booImprimiuTranquilo = False
booPodeVender = False
booPodeCancelar = False
booImprimeADM = False

DoEvents

strOperacaoAtual = gOper(True)
MENSAGEM_CAMPO_TRINTA = VAZIO
ULTIMA_TRANSACAO = VAZIO
strCodigoFinalizacao = VAZIO

strRetorno = dir(TEF_PASTA_RESP & "\IntPos.001")
If strRetorno <> VAZIO Then
    ''Bloqueando o Mouse
    Screen.MousePointer = vbHourglass
    ''Bloqueando o Teclado
    BlockInput True
    
    ''Criando Copia da Solicitacao Corrente
    Set oArquivo1 = CreateObject("Scripting.FileSystemObject")
    oArquivo1.Copyfile TEF_PASTA_RESP & "\Intpos.001", "C:\TEF_DIAL\IntPos.bak"
    'jeremias faz copia
    oArquivo1.Copyfile TEF_PASTA_RESP & "\Intpos.001", "C:\Tefinho\Teste4.001"
    booDarthVader = False
comecaimprimir:
'    If booDarthVader = True Then
    ''Pegando os Dados da Solicitação Corrente
    Open TEF_PASTA_RESP & "\intpos.001" For Input As #2   ''Abre o arquivo para leitura
    Do While Not EOF(2)
        Line Input #2, Caracter
        strCodigoCampo = Left(Caracter, 7)
        strRetornoResposta = Trim(Right(Caracter, (Len(Caracter) - InStr(Caracter, " = ")) - 1))
        
        If strCodigoCampo = TEF_CODIGO_HEADER Then ''tipo de operação
            If strRetornoResposta = TEF_CRT_VENDA_OPER Or strRetornoResposta = TEF_CHQ_OPER Then
                booPodeVender = True
            ElseIf strRetornoResposta = TEF_CNC_OPER Or InStr(UCase(strRetornoResposta), "CANCELAMENTO") > 0 Then
                ''Operação de cancelamento esta sendo efetuado pelo
                ''Os modulos da Rede
                ''booPodeCancelar = True
                ''fnCancelaVenda
            ElseIf strRetornoResposta = TEF_ADM_OPER Then
                booImprimeADM = True
            End If
            ULTIMA_TRANSACAO = strRetornoResposta
        ElseIf strRetornoResposta = TEF_CNC_OPER Or InStr(UCase(strRetornoResposta), "CANCELAMENTO") > 0 Then
            If Not bCancelaUmaVez Then
                BOO_VENDAAPRAZO = True
                fnCancelaVenda
                bCancelaUmaVez = True
                
            End If
            
        ElseIf strCodigoCampo = TEF_CODIGO_NSU Then  ''NSU (NUMERO DA TRANSAÇÃO)
            NSU_ATUAL = strRetornoResposta
        ElseIf strCodigoCampo = TEF_CODIGO_VALOR_TOTAL Then  ''NSU (NUMERO DA TRANSAÇÃO)
            VALOR_ATUAL = strRetornoResposta
        ElseIf strCodigoCampo = TEF_CODIGO_REDE Then ''REDE (REDECARD,VISANET,AMEX)
            REDE_ATUAL = strRetornoResposta
        ElseIf strCodigoCampo = TEF_CODIGO_STATUS_TRANSACAO Then '' 0 = ok
            STATUS_RESPOSTA_TEF = strRetornoResposta
        ElseIf strCodigoCampo = TEF_CODIGO_IDENTIFICACAO Then  '' 0 = ok
            Identificacao = strRetornoResposta
        ElseIf strCodigoCampo = TEF_CODIGO_QTDE_LINHAS Then  ''se for = 0 mostrar mensagem com botão se for > 0 esperar 5 segundos
            QTDE_LINHAS = strRetornoResposta
            If QTDE_LINHAS > 0 Then
                ReDim LINHAS_IMPRESSAS(1 To QTDE_LINHAS)
            End If
            ilinhas = 0
        ElseIf strCodigoCampo = TEF_CODIGO_CAMPO_TRINTA Then  ''guardar mensagem para ser exibida
            MENSAGEM_CAMPO_TRINTA = strRetornoResposta
            If booPodeVender = True Then
                If Val(Identificacao) <> (Val(strOperacaoAtual) - 1) Then
                    booApaga = True
                End If
            End If
            
        ElseIf strCodigoCampo = TEF_CODIGO_FINALIZACAO Then
            strCodigoFinalizacao = strRetornoResposta
        End If
                
        If Left(strCodigoCampo, 3) = TEF_CODIGO_DADOS_IMPRESSAO Then ''guardar na matriz dados da impressaao
            If BooCredit = False Then
                For iFor = 1 To Len(strRetornoResposta)
                    If InStr(UCase(strRetornoResposta), CREDITO) > 1 Then
                        FORMA_CARTAO = CREDITO
                        BooCredit = True
                    ElseIf InStr(UCase(strRetornoResposta), DEBITO) > 1 Then
                        FORMA_CARTAO = DEBITO
                        BooCredit = True
                    End If
                Next
            End If
            
            ''GUARDAR NUMA MATRIZ OS DADOS
            If QTDE_LINHAS > 0 Then
                ilinhas = ilinhas + 1
                strRetornoResposta = Trim(Right(Caracter, (Len(Caracter) - InStr(Caracter, " = ")) - 1))
                strRetornoResposta = Left(strRetornoResposta, Len(strRetornoResposta) - 1)
                strRetornoResposta = Right(strRetornoResposta, Len(strRetornoResposta) - 1)
                LINHAS_IMPRESSAS(ilinhas) = strRetornoResposta
            End If
        End If
    
    Loop
    
    Close
    
'    End If 'darthvader
    
     If booApaga = True Then
        strRetorno = dir(TEF_PASTA_RESP & "\IntPos.001")
        If strRetorno <> VAZIO Then
            Kill TEF_PASTA_RESP & "\IntPos.001"
        End If
        MENSAGEM_CAMPO_TRINTA = VAZIO
        ULTIMA_TRANSACAO = VAZIO
        strCodigoFinalizacao = VAZIO
        booPodeVender = False
        booImprimeADM = False
        BOO_ATIVA_RELOGIO = True
    End If
   
    
    ''' Mostra Mensagem no campo Trinta
    BlockInput False
    If MENSAGEM_CAMPO_TRINTA <> VAZIO Then
        If InStr(UCase(MENSAGEM_CAMPO_TRINTA), "CANCEL") > 0 And booPodeVender = True Then
            Screen.MousePointer = vbDefault
            strRetorno = dir(TEF_PASTA_RESP & "\IntPos.001")
            If strRetorno <> VAZIO Then
                Kill TEF_PASTA_RESP & "\intpos.001"
                strRetorno = dir(TEF_PASTA_REQ & "\IntPos.001")
                If strRetorno <> VAZIO Then
                    Kill TEF_PASTA_REQ & "\IntPos.001"
                End If
                
            End If
            AbreCampoTrinta MENSAGEM_CAMPO_TRINTA, True, False, True
            If InStr(UCase(MENSAGEM_CAMPO_TRINTA), "CRT") > 0 Then
                BOO_ABERTO_VOLTA_FORMA = True
            End If
            booPodeVender = False
            booImprimeADM = False
            
            
'        ElseIf InStr(UCase(MENSAGEM_CAMPO_TRINTA), "CANCEL") > 0 Then
'            Screen.MousePointer = vbDefault
'            BlockInput False
'            booImprimeADM = False
'            AbreCampoTrinta MENSAGEM_CAMPO_TRINTA, True, False, True
            
            
        ElseIf QTDE_LINHAS = 0 Then
            Screen.MousePointer = vbDefault
            AbreCampoTrinta MENSAGEM_CAMPO_TRINTA, True, False, True
        Else
            AbreCampoTrinta MENSAGEM_CAMPO_TRINTA, False, True, False
            Sleep 5000
        End If
    End If
    
    
    
    
    ''--------------------------------------------------------------------------------------
    '' INICIO DA  VENDA COM CARTÃO DE DEBITO/CREDITO
    ''--------------------------------------------------------------------------------------
    
    Dim dblValorCompra As Double
    Dim dblValorAtual As Double
    
    dblValorCompra = frmFrente.lblFrente(11).Caption
    dblValorPagamento = VALOR_PAGTO
        
        
    VALOR_ATUAL = dblValorPagamento
    VALOR_ATUAL = Format(VALOR_ATUAL, "#,##0.00")
    dblValorAtual = VALOR_ATUAL
    dblValorRec = frmFrente.txtFrente(4).Text
    
'    dblValorRec = (dblValorRec + CDbl(VALOR_ATUAL))
    dblValorRec = (CDbl(Format(dblValorRec, "#,##0.00")) + CDbl(Format(VALOR_ATUAL, "#,##0.00")))
    
    frmFrente.txtFrente(7).Text = dblValorRec - VALOR_ATUAL
    frmFrente.txtFrente(7).Text = Format(frmFrente.txtFrente(7).Text, "#,##0.00")
    
    frmFrente.txtFrente(4).Text = Format(dblValorRec, "#,##0.00")
'    frmFrente.txtFrente(3).Text = Format(dblValorRec, "#,##0.00")

    If booPodeVender = True Then
      BlockInput True
      If QTDE_LINHAS > 0 Or InStr(MENSAGEM_CAMPO_TRINTA, "AUTORIZACAO") > 0 Then
            ''
            AbreCampoTrinta "Aguarde Imprimindo!!!!", False, True, False
            dblValorPagamento = VALOR_PAGTO
        
            VALOR_ATUAL = dblValorPagamento
            VALOR_ATUAL = Format(VALOR_ATUAL, "#,##0.00")
            ''
            ''jeremias
            lngRet = gImp_Pagamento(FORMA_RECEBIMENTO_TEF, VALOR_ATUAL, Asc("0"), FORMA_PAGTO_NOME)

        
            lngRet = gImp_FechaCupom("S008", "Obrigado", FORMA_PAGTO_NOME, VALOR_ATUAL)
        
            ''
            Do While lngRet < CIF_OK
                BlockInput False
                If MsgBox("Impressora Não Responde. Tentar Imprimir Novamente ?", vbInformation + vbYesNo, "Frente Caixa - FECHANDO-PGTO ") = vbYes Then
                    BlockInput True
                    AbreCampoTrinta "Aguarde Imprimindo!!!!", False, True, False
                    BlockInput True
                    lngRet = gImp_Pagamento(FORMA_PAGTO, VALOR_ATUAL, Asc("0"), FORMA_PAGTO_NOME)
                    BlockInput True
                    lngRet = gImp_FechaCupom("S008", "Obrigado", FORMA_PAGTO_NOME, VALOR_ATUAL)
                    booTerminaTransacao = False
                    BlockInput True
                Else
                    BOO_ABERTO_VOLTA_FORMA = False
                    gTef_Ver_Intpos_para_NCN_Cupom_Aberto
                    booTerminaTransacao = True
                    ''BOO_ABERTO_VOLTA_FORMA = True
                    lngRet = CIF_OK
                End If
            Loop

            If InStr(MENSAGEM_CAMPO_TRINTA, "AUTORIZACAO") > 0 Then
                booTerminaTransacao = True
            End If
        
            'jeremias
            If Round(dblValorRec, 2) >= Round(dblValorCompra, 2) Then
                booTerminaTransacao = False
                
                strRetorno = dir(TEF_PASTA_RESP & "\IntPos.001")
                If strRetorno <> VAZIO Then
                    Kill TEF_PASTA_RESP & "\IntPos.001"
                End If
                MENSAGEM_CAMPO_TRINTA = VAZIO
                ULTIMA_TRANSACAO = VAZIO
                strCodigoFinalizacao = VAZIO
                booPodeVender = False
                booImprimeADM = False
                BOO_ATIVA_RELOGIO = True
        
'                GoTo comecaimprimir
            End If
        
            If booTerminaTransacao = False Then
                ''---------------------------------------------
                ''ABRINDO O CUPOM VINCULADO
                ''---------------------------------------------
                BlockInput True
                FORMA_PAGTO = FORMA_PAGTO_NOME
                lngRet = gImp_AbreComprovanteNaoFiscalVinculado(FORMA_PAGTO, VALOR_ATUAL)
                Do While lngRet < CIF_OK
                    BlockInput False
                    If MsgBox("Impressora Não Responde. Tentar Imprimir Novamente ?", vbInformation + vbYesNo + vbDefaultButton1, "Frente Caixa CRT-1") = vbYes Then
                        BlockInput True
                        lngRet = gImp_AbreComprovanteNaoFiscalVinculado(FORMA_PAGTO, VALOR_ATUAL)
                        AbreCampoTrinta "Aguarde Imprimindo!!!!", False, True, False
                    Else
                        ilinhas = QTDE_LINHAS
                        BOO_ABERTO_VOLTA_FORMA = False
                        gTef_Ver_Intpos_para_NCN_Cupom_Aberto
                        lngRet = CIF_OK
                        booImprimiuTranquilo = False
                        booTerminaTransacao = True
                        Exit Do
                    End If
                Loop
            
                ''-----------------------------------------
                '' Fazendo as duas vias do comprovante TEF
                ''-----------------------------------------
                
                If lngRet >= CIF_OK Then
                    For iDuasVias = 1 To 2
                        ''Espaço Entre os Recibos do Cartao
                        BlockInput True
                        strTexto = ""
                        strTexto = FormataCampoTexto(strTexto, 48)
                        lngRet = gImp_ImprimeLinhaNaoFiscal(strTexto)
'                        lngRet = gImp_ImprimeLinhaNaoFiscal(strTexto)
                    
                        For ilinhas = 1 To QTDE_LINHAS
                        
                            BlockInput True
'                            boo_confirma = False
                            strTexto = LINHAS_IMPRESSAS(ilinhas)
                            strTexto = FormataCampoTexto(strTexto, 48)
                            lngRet = gImp_ImprimeLinhaNaoFiscal(strTexto)
                            booImprimiuTranquilo = True
                            
                            If ilinhas = 6 Then
                                BlockInput False
                                ilinhas = 6
                            End If
                            
                            
                            Do While lngRet < CIF_OK
                                BlockInput False
                                If MsgBox("Impressora Não Responde. Tentar Imprimir Novamente ?", vbInformation + vbYesNo + vbDefaultButton1, "Frente Caixa - CRT-2") = vbYes Then
                                    AbreCampoTrinta "Aguarde Imprimindo!!!!", False, True, False
                                    BlockInput True
                                    lngRet = gf_StatusDasImpressoras()
                                    If lngRet >= 0 Then
                                        BlockInput True
                                        lngRet = gImp_EncerraCupomNaoFiscal
                                        lngRet = gImp_LeituraXComGerencial
                                        lngRet = gImp_AbreComprovanteNaoFiscalVinculado(FORMA_PAGTO, VALOR_ATUAL)
                                        If lngRet >= CIF_OK Then
                                            iDuasVias = 0
                                            ilinhas = 0
                                            Exit For
                                        End If
                                    End If
                                Else
                                    ''Cupom esta Fechado Cancela
                                    BlockInput False
                                    BOO_ABERTO_VOLTA_FORMA = False
                                    ilinhas = QTDE_LINHAS
                                    gTef_Ver_Intpos_para_NCN_Cupom_Aberto
                                    lngRet = CIF_OK
                                    booImprimiuTranquilo = False
                                    booTerminaTransacao = True
                                    '' Saindo dos dois FOR
                                    iDuasVias = 3
                                    Exit For
                                End If
                            Loop
                        Next
                    
                        If booTerminaTransacao = True Then
                            Exit For
                        End If
                        
                    Next
                End If
                
            End If
'                End If 'alcançou valor

            If InStr(MENSAGEM_CAMPO_TRINTA, "AUTORIZACAO") > 0 Then
                booTerminaTransacao = False
            End If
        
            If booTerminaTransacao = False Then
                'jeremias
                If InStr(MENSAGEM_CAMPO_TRINTA, "AUTORIZACAO") > 0 Then
                    booTerminaTransacao = True
                Else
                    If Round(dblValorRec, 2) >= Round(dblValorCompra, 2) Then
                        lngRet = gImp_EncerraCupomNaoFiscal
                    Else
                        GoTo darthvader
                    End If
                End If

                gpFechaVendaBancoDados (CODIGO_VENDA)
                Call gpPagamentoBancoDados(CDbl(VALOR_ATUAL), ITEM_REC, FORMA_PAGTO, 0, CDbl(VALOR_ATUAL))
                ''frmFrente.txtFrente(0).Enabled = True
                gpAtualizaStatusVenda (4)
                gpCarregaFoto ("")
            
                BOO_CAIXA_ABERTO = False
                
                gpNovaVendaTela
                gpFormataTodosTextos
                gpAparecelblTopo
                gpApagaNotaToda
                gpEntraCaixa
                gpSomelblTopo
                BOO_CAIXA_ABERTO = False
                ITEM_VENDA = 0
            
                booImprimiuTranquilo = True
                ''
                strParametros = "Select * From Parametros"
                iParametros = gfNovoRs
                gRsDados(iParametros).Open strParametros, CnDados, adOpenDynamic, adLockOptimistic
                If gRsDados(iParametros).Fields("TransacaoOKTEF").Value <> VAZIO Then
                    gRsDados(iParametros).Fields("TransacaoOKTEF").Value = VAZIO
                    gRsDados(iParametros).Update
                End If
                gpFechaRs iParametros
            End If
      Else
            If InStr(MENSAGEM_CAMPO_TRINTA, "AUTORIZACAO") = 0 Then
                ''lngRet = gImp_EncerraCupomNaoFiscal
            End If
      End If
    End If
    ''--------------------------------------------------------------------------------------
    '' FIM DA VENDA COM CARTÃO DE DEBITO/CREDITO
    ''--------------------------------------------------------------------------------------
darthvader:
    
    ''--------------------------------------------------------------------------------------
    '' INICIO DA FUNCOES ADM DOS CARTOES
    ''--------------------------------------------------------------------------------------
    booStatusAdm = True
    If booImprimeADM = True Then
        BlockInput True
        If QTDE_LINHAS > 0 Then
            lngRet = gFecha_LeituraXComGerencial
            lngRet = gImp_LeituraXComGerencial
            lngRet = gf_StatusDasImpressoras
            Do While lngRet < CIF_OK
                BlockInput False
                If MsgBox("Impressora Não Responde. Tentar Imprimir Novamente ?", vbInformation + vbYesNo + vbDefaultButton1, "Frente Caixa ADM-1") = vbYes Then
                    BlockInput True
                    ''lngRet = gImp_EncerraCupomNaoFiscal
                    lngRet = gFecha_LeituraXComGerencial
                    lngRet = gImp_LeituraXComGerencial
                    lngRet = gf_StatusDasImpressoras
                    If lngRet >= CIF_OK Then
                        lngRet = CIF_OK
                    End If
                Else
                    booStatusAdm = False
                    Exit Do
                End If
            Loop
        End If
        
        ''IMPRIME OS DADOS DA FUNCOES ADMINISTRATIVAS
        If booStatusAdm = True Then
            If QTDE_LINHAS > 0 Then
                AbreCampoTrinta "Aguarde Imprimindo!!!!", False, True, False
                If lngRet >= CIF_OK Then
                
                    ''Abrir alguma coisa aqui pra fazer a impressão
                    ''como comprovante nao fiscal nao vinculado
                    
                
                    For iDuasVias = 1 To 2
                        ''Espaço Entre os Recibos do Cartao
                                       
                        BlockInput True
                        strTexto = ""
                        strTexto = FormataCampoTexto(strTexto, 48)
                        lngRet = gImp_ImprimeLinhaNaoFiscal(strTexto)
                        lngRet = gImp_ImprimeLinhaNaoFiscal(strTexto)
                    
                        For ilinhas = 1 To QTDE_LINHAS
                            BlockInput True
                            boo_confirma = False
                            strTexto = LINHAS_IMPRESSAS(ilinhas)
                            strTexto = FormataCampoTexto(strTexto, 48)
                            lngRet = gImp_ImprimeLinhaNaoFiscal(strTexto)
                        
                            booImprimiuTranquilo = True
                        
                            If lngRet < CIF_OK Then
                                Do While lngRet < CIF_OK
                                    BlockInput False
                                    If MsgBox("Impressora Não Responde. Tentar Imprimir Novamente ?", vbInformation + vbYesNo + vbDefaultButton1, "Frente Caixa - ADM-2") = vbYes Then
                                        ''
                                        ''Encerra cupom nao fiscal e faz um relatorio gerencial
                                        ''
                                        AbreCampoTrinta "Aguarde Imprimindo!!!!", False, True, False
                                        BlockInput True
                                        lngRet = gf_StatusDasImpressoras()
                                        If lngRet >= 0 Then
                                            BlockInput True
                                            lngRet = gImp_EncerraCupomNaoFiscal
                                            lngRet = gFecha_LeituraXComGerencial
                                            lngRet = gImp_LeituraXComGerencial
                                            If FORMA_PAGTO <> VAZIO Then
                                                lngRet = gImp_AbreComprovanteNaoFiscalVinculado(FORMA_PAGTO, VALOR_ATUAL)
                                            End If
                                            lngRet = gf_StatusDasImpressoras
                                            If lngRet = CIF_OK Then
                                                iDuasVias = 0
                                                ilinhas = 0
                                                Exit For
                                            End If
                                        End If
                                    Else
                                        BlockInput False
                                        ilinhas = 26
                                        lngRet = CIF_OK
                                        BOO_ABERTO_VOLTA_FORMA = False
                                        gTef_Ver_Intpos_para_NCN_Cupom_Aberto
                                        booImprimiuTranquilo = False
                                        booTerminaTransacao = True
                                        iDuasVias = 2
                                    End If
                                Loop
                            End If
                        Next
                    Next
                End If
            End If
            
            If booTerminaTransacao = False Then
                If QTDE_LINHAS > 0 Then
                    ''encerrar não fiscal
                    lngRet = gImp_EncerraCupomNaoFiscal
                    gpAtualizaCOO
                End If
            End If
        Else
            BOO_ABERTO_VOLTA_FORMA = False
            gTef_Ver_Intpos_para_NCN_Cupom_Aberto
        End If
        
    End If
    
    If booImprimiuTranquilo = True Or Not Round(dblValorRec, 2) >= Round(dblValorCompra, 2) Then
        Call gTef_Envia_Confirmacao_OK(CODIGO_VENDA, Val(Identificacao), REDE_ATUAL, NSU_ATUAL, strCodigoFinalizacao)
    End If
    
    sExisteArquivo = dir(TEF_PASTA_RESP & "\IntPos.001")
    If sExisteArquivo <> VAZIO Then
        Kill (TEF_PASTA_RESP & "\IntPos.001")
        BOO_ATIVA_RELOGIO = False
    End If

    If booApaga = False Then
        sExisteArquivo = dir("C:\TEF_DIAL\IntPos.bak")
        If sExisteArquivo <> VAZIO Then
            Kill ("C:\TEF_DIAL\IntPos.bak")
            BOO_ATIVA_RELOGIO = False
        End If
    End If
  
If Round(dblValorRec, 2) >= Round(dblValorCompra, 2) Then
   
    BOO_CAIXA_ABERTO = False
    frmFrente.lblOpcoes(6).Caption = "F8 - Cancelar Venda Anterior"
    frmFrente.lblOpcoes(6).Refresh
    
    ''Desbloqueando o Mouse/Teclado
    BlockInput False
    
End If

    Screen.MousePointer = vbNormal
    ''BOO_ATIVA_RELOGIO = False
    ''BOO_ATIVA_RELOGIO = True
End If

Sei que é um código grande, mas se alguém conhecer TEF Discado peço ajuda por favor.

 

Sucesso à todos!

[Claudio Neto 3]

você pelo jeito pegou um código pronto, copiou, colou e tentou executar né? Assim fica difícil.

 

Não sabe dizer o porque não está funcionando? Se dá erro, qual o trecho?

[jerere 0]

você pelo jeito pegou um código pronto, copiou, colou e tentou executar né? Assim fica difícil.

 

Não sabe dizer o porque não está funcionando? Se dá erro, qual o trecho?

 

Na verdade é um codigo feito por um ex-programador da empresa. O problema é na hora de imprimir as vias dos comprovantes dos cartões. Ele só imprime as duas vias do ultimo cartão. Os anteriores ele ignora.

Existe a linha para imprimir o próximo comprovante: lngRet = gImp_AbreComprovanteNaoFiscalVinculado(FORMA_PAGTO, VALOR_ATUAL)

Porém depois de imprimir um ele não imprime nenhum.

[Claudio Neto 3]

O ideal seria você executar o programa apertando F8 até chegar no ponto que ele pára de responder da forma que devia. Aí nos informar qual é o método que está falhando e o trecho do código que ele deixa de responder da forma que devia.

 

As vezes pode ser uma variável que deveria ser esvaziada e não está sendo. Mas da forma que está é muito difícil te dizer. Teria que fazer um teste de mesa, e seu código é imenso para isso, sem falar que eu não sei como ele deveria reagir para saber se está certo ou não.