[File Not Open - Registros Paf-Ecf]

Boa Tarde Pessoal,

 

Deixei este erro de lado e montei as tabelas pra gerar todo o arquivo de "Registros do PAF-ECF" e queria saber se já existe algum exemplo no Demo do ACBr Framework e se este requisito esta integralmente implementado porque não achei no demo do ACBr Framework.

 

Obrigado.

[File Not Open - Registros Paf-Ecf]

Boa Tarde Pessoal,

 

Sou novo no fórum e recente utilizador do ACBr, e gostaria de ajuda de vocês.

 

Quando vou gerar o arquivo "Registros do PAF-ECF" Estoque pelo componente ACBr, tenho o erro "File Not Open"

 

Mas já tentei criar o arquivo txt na mão, deixar a função criar o arquivo txt e o erro não muda, segue abaixo trecho do meu código:

 

            Dim PAF_ECF As New ACBrPAF
            Dim pEstoque As New List(Of ACBrPAFRegistroE2)


            '//////***Bloco E01***


            PAF_ECF.PAF_E.RegistroE1.CNPJ = ecf.CNPJ
            PAF_ECF.PAF_E.RegistroE1.IE = ecf.IE
            PAF_ECF.PAF_E.RegistroE1.IM = ecf.IM
            PAF_ECF.PAF_E.RegistroE1.RazaoSocial = ecf.Cliche
            PAF_ECF.PAF_E.RegistroE1.NUM_FAB = ecf.NumSerie
            PAF_ECF.PAF_E.RegistroE1.MF_ADICIONAL = ecf.MFAdicional
            PAF_ECF.PAF_E.RegistroE1.TIPO_ECF = ecf.SubModeloECF
            PAF_ECF.PAF_E.RegistroE1.MARCA_ECF = ecf.ModeloStr
            PAF_ECF.PAF_E.RegistroE1.MODELO_ECF = ecf.SubModeloECF
            PAF_ECF.PAF_E.RegistroE1.DT_EST = ecf.DataMovimento 
            PAF_ECF.PAF_E.RegistroE1.UF = "SP"
            PAF_ECF.PAF_E.RegistroE1.RegistroValido = True
            Dim qtd_registros As Integer = 0


            '//***BLOCO E02 ***  
         
            Dim pRegPAF As New ACBrPAFRegistroE2
            pRegPAF.COD_MERC = "345678"
            pRegPAF.DESC_MERC = "descricao "
            pRegPAF.UN_MED = "UND"
            pRegPAF.QTDE_EST = Convert.ToDecimal(8)
            pRegPAF.RegistroValido = True
            PAF_ECF.PAF_E.RegistroE2.Add(pRegPAF)


'//***SALVA ARQUIVO TXT


            PAF_ECF.SaveFileTXT_E(Caminho_Relatorios + "Estoque.txt")

 

Utilizo VS 2010.

 

Alguem tem alguma dica?

 

Obrigado.