Pesquisar na Comunidade
Showing results for tags 'Anexo IV'.
Encontrado 1 registro
-
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.
