Elton Mamede

da uma olhada nesses posts:

vc ja tentou debugar para ver em qual linha mostra o acess violation

Não sei se resolvido essa questão, pois faz um tempo. Mas, verifique se as Dll's estão atualizadas tbm.

bom dia, da uma olhada nesse post ou esse acho q lhe sera d ajuda!

Bom dia, posta como esta o seu codigo do Dav2

Bom dia, gostaria de saber sobre esse Registro, é por data - 17. "Registros do PAF-ECF": para gerar arquivo eletrônico contendo as informações previstas no leiaute estabelecido no Anexo IV, devendo o programa aplicativo informar o local da gravação e assiná-lo digitalmente por meio do Registro tipo EAD especificado no requisito XXXI, com possibilidade de seleção: a) para as informações relativas ao estoque: "ESTOQUE TOTAL" para gerar registros relativos a todas as mercadorias cadastradas na Tabela de Mercadorias e Serviços prevista no Requisito XIII e "ESTOQUE PARCIAL" para gerar registros relativos somente a uma ou mais mercadorias informadas pelo código ou pela descrição. para as demais informações: por período de data. é isso mesmo?

Bom dia Rafa, pelo que vi o no seu registro, o Dav3 nao esta de acordo com o seu Dav2, ele esta utilizando somente o primeiro do Dav2. eu fiz assim no meu: QrDavD2.Open; while not QrDavD2.Eof do begin with PAF_D.RegistroD2.New do begin Try NUM_FAB := QrDavD2NumFab.AsString; MF_ADICIONAL := QrDavD2MFAdicional.AsString; TIPO_ECF := QrDavD2TipoECF.AsString; MARCA_ECF := QrDavD2MarcaECF.AsString; COO := QrDavD2COOImp.AsString; NUM_DAV := QrDavD2NumDAV.AsString; DT_DAV := QrDavD2DtLcto.AsDateTime; TIT_DAV := QrDavD2TituloDAV.AsString; VLT_DAV := QrDavD2VlrTotal.AsFloat; COO := QrDavD2COO.AsString; NUMERO_ECF := QrDavD2NumSequencial.AsString; NOME_CLIENTE := QrDavD2NomeCliente.AsString; CPF_CNPJ := QrDavD2CNPJCPFCliente.AsString; RegistroValido := True; except raise; end; // Registro D3 - Item do DAV QrDavD3.Close; QrDavD3.ParamByName('NumDAV').AsInteger := QrDavD2NumDAV.AsInteger; QrDavD3.Open; while not QrDavD3.Eof do begin with RegistroD3.New do begin NUM_ITEM := QrDavD3NumDAV.AsInteger; COD_ITEM := QrDavD3CodigoItem.AsString; DESC_ITEM := QrDavD3DescricaoItem.AsString; QTDE_ITEM := QrDavD3Quantidade.AsFloat; UNI_ITEM := QrDavD3Unidade.AsString; VL_UNIT := QrDavD3VlrUnitario.AsFloat; VL_DESCTO := QrDavD3DescontoItem.AsFloat; VL_ACRES := QrDavD3AcrescimoItem.AsFloat; VL_TOTAL := QrDavD3VlrTotal.AsFloat; SIT_TRIB := QrDavD3CodigoTrib.AsString; ALIQ := QrDavD3Aliquota.AsFloat IND_CANC := QrDavD3Cancelado.AsString; DEC_QTDE_ITEM := QrDavD3CasaDecimalQtde.AsInteger; DEC_VL_UNIT := QrDavD3CasaDecimalVlrUnitario.AsInteger; RegistroValido := True; end; QrDavD3.Next; end; QrDavD2.Next; end;

O Registro 50 é pai do Registro 54, tem que ter o mesmo número.

Boa tarde, gostaria de saber sobre as Notas de devolução (Cliente ou Fornecedor), se enquadra nesse Registro 50?

Passando por aqui, para dar o parabens a Equipe do Acbr, fiz update na base de dados e ja esta com o novo EcfTeste Vlw.

Obrigado Régys, fiquei com dúvidas, pois estava olhando o exemplo do AcbrEcf, tem esses no menu, pesquisei aqui no forum, mas não encontrei a respeito, achei melhor perguntar. E aproveitar e lhe dar parabens pelo projeto Acbr e pelo seu Site, é muito rico em informações la.

Bom dia Roberio, gostaria de saber qual o comando você utilizou para fazer a parte do menu LMF, por que antes estava separado por LMFC, LMFS. Att: Elton