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.