softcom.wendel

Terminei os testes de Inclusão e exclusão e tirei algumas conclusões. No ER ele diz que o registro excluido ( Um DAV por exemplo ) o mesmo deve aparecer no arquivo de Dav Emitidos...e com a técnica de fazer um COUNT dos registro isso não seria possível, da forma que eu fiz com o LOG foi possível fazer isso. Alguém que já fez sua homologação poderia dar mais detalhes de como foram os testes destes requisitos? Se possível mais de uma pessoa em órgãos diferentes, pois já percebi que cada Homologador define o que tem que ser feito em casos mais complexos como estes. Obrigado pela atenção de todos.

Então...eu imaginei que poderia ser isso também, mas olhei nos parâmetros do Windows e esta tudo normal. E ainda esta saindo incorreto no meu sistema estes arquivos onde tem valores...como por exemplo o DAVs por Período. Estou executando passo a passo para dar uma verificada onde ele(Meu sistema) pode estar interferindo na formatação correta. Mas obrigado pela ajuda.

as chaves estão declaradas assim: ChavePublica = 'E'+'5A011D42F5BAB1B7D4BEDF48D8EA0D2A70EA747DB57C28F75282202EB599DDADF6AD6A0380989EE3A698884E3C14C37786A4A58FEAF831D10D5C298F89045120F32D136F785119F3650F21643A69854874E1B05BA08E5CE26421BCB35D0026B3550232322A1154F5EF5D9ABFB9068D8E9985D592C053DCF0A080CC9D99BA737'; ChavePrivada = 'F'+'55F0B07A983DC8130D44450EF5E50323E9B6952F58BA20A2A347446192B2094D52442B32C835C948D9B5428F6FB9EB155156EA42C5185CA23E9F86D4992DD7FEF926AC27609F5D3FBF73B1D11DAC084C6AAAC0D126DB3127CB8DFECA6372F638E57BAA6626659C8B547867DB6F91A7C261691EA4FCDF78776D3686E55C08249'; A Tela com o erro vou colocar em anexo. Obrigado pela atenção pessoal.

Bom Dia a todos. Eu estou utilizando o Acbrpaf Setando a Propriedade AAC para o ACBrAAC e a propriedade EAD para o ACBREAD. Nos eventos Abaixo estou passando minhas chaves procedure TDMECF.ACBrEADGetChavePrivada(var Chave: AnsiString); begin Chave := ChavePrivada; end; procedure TDMECF.ACBrEADGetChavePublica(var Chave: AnsiString); begin Chave := ChavePublica; end; As chaves estão no formato abaixo ChavePublica = 'E'+'XXX..'; ChavePrivada = F'+'XXX..'; mas no ACBRPAF EM TACBrPAF.SaveFileTXT_N que salva o arquivo com os exes e dlls passados, esta dando erro em if FPAF_N.RegistroN3.Count > 0 then Write(txtFile, FPAF_N.WriteRegistroN3); Pois neste momento ele gera o MD5 de cada arquivo...no meu caso esta dando erro de acesso de memória na função TACBrEAD.CalcularHashArquivo O que poderia ser, pois dei uma olhada e nao achei o erro. Obrigado pela atenção

Apaguei os meus arquivos do ACBR e mandei gerar novamente...deu o mesmo problema. Nas Linhas D2 No campo VLT_DAV ele esta colocando Alinhado a esquerda sem o tamanho correto que seria 8 Caracteres Na Linha D9 Ele esta gerando com 2 casas decimais ..e deveria ser um inteiro com 6 Caracteres. function TPAF_D.WriteRegistroD9: String; begin if Assigned(FRegistroD9) then begin with FRegistroD9 do begin Check(funChecaCNPJ(FRegistroD1.CNPJ), '(D9) TOTALIZAÇÃO: O CNPJ "%s" digitado é inválido!', [FRegistroD1.CNPJ]); Check(funChecaIE(FRegistroD1.IE, FRegistroD1.UF), '(D9) TOTALIZAÇÃO: A Inscrição Estadual "%s" digitada é inválida!', [FRegistroD1.IE]); /// Result := LFill('D9') + LFill(FRegistroD1.CNPJ, 14) + RFill(FRegistroD1.IE, 14) + LFill(TOT_REG_D2, 6) + // Aqui era assim LFill(TOT_REG_D2, 6, 0) LFill(TOT_REG_D3, 6) + sLineBreak; end; end; end; Mas na função do WriteRegistroD2 eu nao consegui corrigir sem fazer a formatação....o que poderia ser?

Qual é o local correto para se colocar a função que o Regys passou?

Ok..Segue em anexo o Arquivo... Obrigado pela atenção ACBrPAF_D_Class.pas

Achei os erros...peço ao Pessoal do ACBR Para dar uma olhada pfv Na Unit ACBrPAF_D_Class. function TPAF_D.WriteRegistroD9: String; begin if Assigned(FRegistroD9) then begin with FRegistroD9 do begin Check(funChecaCNPJ(FRegistroD1.CNPJ), '(D9) TOTALIZAÇÃO: O CNPJ "%s" digitado é inválido!', [FRegistroD1.CNPJ]); Check(funChecaIE(FRegistroD1.IE, FRegistroD1.UF), '(D9) TOTALIZAÇÃO: A Inscrição Estadual "%s" digitada é inválida!', [FRegistroD1.IE]); /// Result := LFill('D9') + LFill(FRegistroD1.CNPJ, 14) + RFill(FRegistroD1.IE, 14) + LFill(TOT_REG_D2, 6) + AQUI ESTAVA LFill(TOT_REG_D2, 6, 0) LFill(TOT_REG_D3, 6) + AQUI ESTAVA LFill(TOT_REG_D2, 6, 0) sLineBreak; end; end; end; Passando AQUI ESTAVA LFill(TOT_REG_D2, 6, 0) ele entra no LFill para Numeric. E na Função abaixo ja deixei como eu coloquei function TPAF_D.WriteRegistroD2: String; var intFor: integer; strRegistroD2: String; strRegistroD3: String; begin strRegistroD2 := ''; strRegistroD3 := ''; if Assigned(FRegistroD2) then begin FRegistroD2.Sort(@OrdenarD2); for intFor := 0 to FRegistroD2.Count - 1 do begin with FRegistroD2.Items[intFor] do begin Check(funChecaCNPJ(FRegistroD1.CNPJ), '(D2) DAV EMITIDOS: O CNPJ "%s" digitado é inválido!', [FRegistroD1.CNPJ]); strRegistroD2 := strRegistroD2 + LFill('D2') + LFill(FRegistroD1.CNPJ, 14) + RFill(NUM_FAB, 20) + RFill(MF_ADICIONAL, 1) + RFill(TIPO_ECF, 7) + RFill(MARCA_ECF, 20) + RFill(MODELO_ECF, 20, ifThen(RegistroValido, ' ', '?')) + LFill(COO, 6) + RFill(NUM_DAV, 13) + LFill(DT_DAV, 'yyyymmdd') + RFill(TIT_DAV, 30) + LFill( FormatCurr('###,##0.00', VLT_DAV), 8, '0') + //LFill(VLT_DAV, 8, 2) + LFill(COO_DFV, 6) + LFill(NUMERO_ECF, 3) + RFill(NOME_CLIENTE, 40) + LFill(CPF_CNPJ, 14) + sLineBreak; end; // Registro FILHOS strRegistroD3 := strRegistroD3 + WriteRegistroD3( FRegistroD2.Items[intFor] ); FRegistroD9.TOT_REG_D2 := FRegistroD9.TOT_REG_D2 + 1; FRegistroD9.TOT_REG := FRegistroD9.TOT_REG + 1; end; Result := strRegistroD2 + strRegistroD3; end; end; Acho que assim fica correto...ou não?

Rsss...cara..se pensarmos por esse lado...poderíamos criptografar os dados na tabela de Log..para ninguém saber o que tem la..mas sempre tem uns que podem sair apagando tudo e todos nas tabelas...e isso eu creio que não tem como controlar...na realidade acho que o governo esta tentando cercar uma coisa que não tem como, mas fazer o que. Mas vcs acham que da forma que fiz não daria certo?

Pessoal Encontrei o problema mas não entendi como poderei resolver, pois olhando o código do ACBR me parece que esta tudo OK. O problema me parece que esta sendo gerado na coluna "D2.VLT_DAV" que esta sendo gerada sem o tamanho correto que seria de 8 Caracteres, ou seja, nao esta completando com espaços a esquerda. Alguém passou pelo mesmo problema?

Pessoal, estou com um problema estranho...vejam o meu código procedure DAVEmitidos(DtInicial, DtFinal: TDateTime; Arquivo, Abrir: Boolean); Var slArquivo: TStringList; ListaDAV: TObjectList; i, Cod_Rel_Paf:integer; R06: TR06VO; D2: TRegistroD2; Impressora: TImpressoraVO; ArqNom: String; begin // Try // ListaDAV := TDAVController.ListarDAVPeriodo(DtInicial, DtFinal); // If Assigned(ListaDAV) Then Begin // If (Arquivo) Then Begin // registro D1 // preencher header do arquivo PreencherHeader(DMEcf.ACBrPAF.PAF_D.RegistroD1); // registro D2 DMEcf.ACBrPAF.AssinarArquivo := False; DMEcf.ACBrPAF.PAF_D.RegistroD2.Clear; //dados da impressora Impressora := TImpressoraController.CarregarImpressora(1); // For i := 0 To ListaDAV.Count - 1 Do Begin // D2 := DMEcf.ACBrPAF.PAF_D.RegistroD2.New; // D2.RegistroValido := TDAVController.VerificarHASH(TDAVVO(ListaDAV.Items)); // D2.NUM_FAB := Impressora.Serie; D2.MF_ADICIONAL := Impressora.MFD; D2.TIPO_ECF := Impressora.Tipo; D2.MARCA_ECF := Impressora.Marca; D2.MODELO_ECF := Impressora.Modelo; D2.NUMERO_ECF := Impressora.NUMERO_ECF; D2.COO := IntToStr(TDAVVO(ListaDAV.Items).COO); D2.NUM_DAV := Format('%.13d', [TDAVVO(ListaDAV.Items).Id]); D2.DT_DAV := TDAVVO(ListaDAV.Items).DT_EMISSAO; // Verificar D2.TIT_DAV := Impressora.DAV_NOME; D2.VLT_DAV := TDAVVO(ListaDAV.Items).VLR_TOTAL; // End; // ArqNom := ExtractFilePath(Application.ExeName) + 'Arquivos\DAVEmitidos.txt'; DMEcf.ACBrPAF.SaveFileTXT_D('DAVEmitidos.txt'); DMEcf.Assinar(ArqNom, true); if Abrir then Abrir_Arq( ArqNom ); // End Else Begin // Try // slArquivo := TStringList.Create; // slArquivo.Add(Replicate('=', DMEcf.ECF.Colunas)); slArquivo.Add(Centraliza('DAV EMITIDOS', DMEcf.ECF.Colunas)); slArquivo.Add(Centraliza('PERIODO: ' + DateToStr(DtInicial) + ' A ' + DateToStr(DtFinal), DMEcf.ECF.Colunas)); slArquivo.Add(Replicate('=', DMEcf.ECF.Colunas)); // ...05...10...15...20...25...30...35...40...45... slArquivo.Add('NUMERO DT EMIS TITULO IMP COO VLR'); // 0000000001 01/01/01 ORCAMENTO 0001 slArquivo.Add(Replicate('=', DMEcf.ECF.Colunas)); // For i := 0 To ListaDAV.Count - 1 Do slArquivo.Add(Format('%.10d %8s %-7s %5s %5s %7s', [TDAVVO(ListaDAV.Items).ID, FormatDateTime('dd/mm/yy', TDAVVO(ListaDAV.Items).DT_EMISSAO), 'ORÇAMENT', FormatFloat('###0', TDAVVO(ListaDAV.Items).COO_IMP), FormatFloat('###0', TDAVVO(ListaDAV.Items).COO), FormatFloat('#,##0.00', TDAVVO(ListaDAV.Items).VLR_TOTAL)])); // slArquivo.Add(Replicate('=', DMEcf.ECF.Colunas)); if DMECF.VCODIGO_REL_GER_PAF <> '' then Cod_Rel_Paf := Strtoint(Trim(DMECF.VCODIGO_REL_GER_PAF)) else Cod_Rel_Paf := 2; DMEcf.ECF.RelatorioGerencial(slArquivo, 1, Cod_Rel_Paf); { TODO : Está correta essa implementação para gravação do registro R06? } Try // R06 := TR06VO.Create; // R06.USUARIO := 1; R06.COO := StrToInt(DMEcf.ECF.NumCOO); R06.GNF := StrToInt(DMEcf.ECF.NumGNF); R06.GRG := StrToInt(DMEcf.ECF.NumGRG); R06.CDC := StrToInt(DMEcf.ECF.NumCDC); R06.NUM_FABRICACAO := DMEcf.ECF.NumSerie; R06.MF_ADICIONAL := DMEcf.ECF.MFAdicional; R06.MODELO := DMEcf.ModeloECF; R06.NUM_ECF := DMEcf.NumeroECF; R06.DATA := DMEcf.ECF.DataHora; R06.Denominacao := 'RG'; R06.DataEmissao := FormatDateTime('yyyy-mm-dd', DMEcf.ECF.DataHora); R06.HoraEmissao := FormatDateTime('hh:nn:ss', DMEcf.ECF.DataHora); // TRegistroRController.GravaR06(R06); Except // On E:Exception Do MessageDlg(E.Message, mtError, [mbOk], 0); // End; // Finally // slArquivo.Free; slArquivo := Nil; // End; // End; // End // Else Application.MessageBox('Não existem DAV para o período informado.', 'Informação do Sistema', MB_OK + MB_ICONINFORMATION); // Finally // ListaDAV.Free; ListaDAV := Nil; // End; // end; */*/*/*/*/*/*/*/*/*/ Vejam que para o DAVs por arquivo esta aparentemente tudo certo...mas o arquivo esta sendo gerado faltando dados...vejam a tela do Validador..esta me dizendo que esta faltando dados...percebi que o valor esta meio fora de lugar..mas não achei o pq disso

Pessoal eu fiz da seguinte forma. Criei uma tabela de LOGS, como mencionado nos outros Posts CREATE TABLE LOG_DADOS ( ORIGEM DORIGEM NOT NULL /* DORIGEM = VARCHAR(10) */, CODIGO DCODIGO NOT NULL /* DCODIGO = INTEGER */, DATA DDATA NOT NULL /* DDATA = TIMESTAMP */, "HASH" DMD5 NOT NULL /* DMD5 = VARCHAR(32) */ ); Então a cada Inclusão eu altero o LOG de dados com o HASH, a Origem(DAV, R... e etc)...mas na hora de ler os dados eu faço a seguinte consulta Exemplo para os DAVS. ConsultaSQL := ' select L.CODIGO, D.CODIGO_AGRUP, D.DT_EMISSAO, ' + ' D.CLIENTE, D.NOME, D.ENDERECO, D.CIDADE, ' + ' D.UF, D.CPF_CNPJ, D.RG_IE, D.BAIRRO, ' + ' D.CEP , D.VLR_ITENS, D.VLR_DESCONTO, D.VLR_TOTAL, ' + ' D.VENDEDOR, D.CCF, D.CANCELADO, D.COO, D.NUMECF, ' + ' D.VENDA, D.VLR_ACRESCIMO, D.NOME_VENDEDOR, D.SELECIONADO, ' + ' D.HASH, D.SITUACAO, D.COO_IMPRESSAO, L."HASH" AS HASH_LOG, L.DATA ' + ' from DAVS D ' + ' right join VER_LOG_DADOS ('+ QuotedStr('DAV') + ') L ON ( D.codigo = L.codigo ) ' + ' where CAST(L.DATA AS DATE) >= :DT_INICIAL AND CAST(L.DATA AS DATE) <= :DT_FINAL ' + ' ORDER BY D.CODIGO '; Query.sql.Text := ConsultaSQL; Query.Open; Query.First; // While Not(Query.Eof) Do Begin // DAV := TDAVVO.Create; // DAV.ID := Query.FieldByName('CODIGO').AsInteger; if Query.FieldByName('DT_EMISSAO').IsNull then DAV.DT_EMISSAO := Query.FieldByName('DATA').AsDateTime else DAV.DT_EMISSAO := Query.FieldByName('DT_EMISSAO').AsDateTime; DAV.VLR_TOTAL := Query.FieldByName('VLR_TOTAL').AsFloat; DAV.COO := Query.FieldByName('COO').AsInteger; DAV.COO_IMP := Query.FieldByName('COO_IMPRESSAO').AsInteger; DAV.Id_Agrup := Query.FieldByName('CODIGO_AGRUP').AsInteger; DAV.Cliente := Query.FieldByName('CLIENTE').AsInteger; DAV.Nome := Query.FieldByName('NOME').AsString; DAV.Endereco := Query.FieldByName('ENDERECO').AsString; DAV.Bairro := Query.FieldByName('BAIRRO').AsString; DAV.Cidade := Query.FieldByName('CIDADE').AsString; DAV.UF := Query.FieldByName('UF').AsString; DAV.CEP := Query.FieldByName('CEP').AsString; DAV.CPF_CNPJ := Query.FieldByName('CPF_CNPJ').AsString; DAV.RG_IE := Query.FieldByName('RG_IE').AsString; DAV.CCF := Query.FieldByName('CCF').AsInteger; DAV.VLR_ITENS := Query.FieldByName('VLR_ITENS').AsFloat; DAV.VLR_DESCONTO := Query.FieldByName('VLR_DESCONTO').AsFloat; DAV.HASH := Query.FieldByName('HASH').AsString; DAV.HASH_LOG := Query.FieldByName('HASH_LOG').AsString; // ListaDAV.Add(DAV); // Query.next; // End; // Result := ListaDAV; Essa consulta me retorna os registros de DAVS e seus respectivos LOGS...qdo um DAV é excluído a Consulta é retornada sem os dados do DAV, mas com os dados necessários para criar a Linha...que são as colunas, L.CODIGO e HASH_LOG...os outros virão em branco, assim como o HASH não bate com o Log do HASH do LOG eu sei que foi apagada. Creio que resolve todas assituações...concordam comigo? Abaixo o Código da função completo: procedure DAVEmitidos(DtInicial, DtFinal: TDateTime; Arquivo, Abrir: Boolean); Var slArquivo: TStringList; ListaDAV: TObjectList; i, Cod_Rel_Paf:integer; R06: TR06VO; D2: TRegistroD2; Impressora: TImpressoraVO; ArqNom: String; begin // Try // ListaDAV := TDAVController.ListarDAVPeriodo(DtInicial, DtFinal); // If Assigned(ListaDAV) Then Begin // If (Arquivo) Then Begin // registro D1 // preencher header do arquivo PreencherHeader(DMEcf.ACBrPAF.PAF_D.RegistroD1); // registro D2 DMEcf.ACBrPAF.AssinarArquivo := False; DMEcf.ACBrPAF.PAF_D.RegistroD2.Clear; //dados da impressora Impressora := TImpressoraController.CarregarImpressora(1); // For i := 0 To ListaDAV.Count - 1 Do Begin // D2 := DMEcf.ACBrPAF.PAF_D.RegistroD2.New; // D2.RegistroValido := TDAVController.VerificarHASH(TDAVVO(ListaDAV.Items[i])); // D2.NUM_FAB := Impressora.Serie; D2.MF_ADICIONAL := Impressora.MFD; D2.TIPO_ECF := Impressora.Tipo; D2.MARCA_ECF := Impressora.Marca; D2.MODELO_ECF := Impressora.Modelo; D2.NUMERO_ECF := Impressora.NUMERO_ECF; D2.COO := IntToStr(TDAVVO(ListaDAV.Items[i]).COO); D2.NUM_DAV := Format('%.13d', [TDAVVO(ListaDAV.Items[i]).Id]); D2.DT_DAV := TDAVVO(ListaDAV.Items[i]).DT_EMISSAO; // Verificar D2.TIT_DAV := Impressora.DAV_NOME; D2.VLT_DAV := TDAVVO(ListaDAV.Items[i]).VLR_TOTAL; // End; // ArqNom := ExtractFilePath(Application.ExeName) + 'Arquivos\DAVEmitidos.txt'; DMEcf.ACBrPAF.SaveFileTXT_D('DAVEmitidos.txt'); DMEcf.Assinar(ArqNom, true); if Abrir then Abrir_Arq( ArqNom ); // End Else Begin // Try // slArquivo := TStringList.Create; // slArquivo.Add(Replicate('=', DMEcf.ECF.Colunas)); slArquivo.Add(Centraliza('DAV EMITIDOS', DMEcf.ECF.Colunas)); slArquivo.Add(Centraliza('PERIODO: ' + DateToStr(DtInicial) + ' A ' + DateToStr(DtFinal), DMEcf.ECF.Colunas)); slArquivo.Add(Replicate('=', DMEcf.ECF.Colunas)); // ...05...10...15...20...25...30...35...40...45... slArquivo.Add('NUMERO DT EMIS TITULO IMP COO VLR'); // 0000000001 01/01/01 ORCAMENTO 0001 slArquivo.Add(Replicate('=', DMEcf.ECF.Colunas)); // For i := 0 To ListaDAV.Count - 1 Do slArquivo.Add(Format('%.10d %8s %-7s %5s %5s %7s', [TDAVVO(ListaDAV.Items[i]).ID, FormatDateTime('dd/mm/yy', TDAVVO(ListaDAV.Items[i]).DT_EMISSAO), 'ORÇAMENT', FormatFloat('###0', TDAVVO(ListaDAV.Items[i]).COO_IMP), FormatFloat('###0', TDAVVO(ListaDAV.Items[i]).COO), FormatFloat('#,##0.00', TDAVVO(ListaDAV.Items[i]).VLR_TOTAL)])); // slArquivo.Add(Replicate('=', DMEcf.ECF.Colunas)); if DMECF.VCODIGO_REL_GER_PAF <> '' then Cod_Rel_Paf := Strtoint(Trim(DMECF.VCODIGO_REL_GER_PAF)) else Cod_Rel_Paf := 2; DMEcf.ECF.RelatorioGerencial(slArquivo, 1, Cod_Rel_Paf); { TODO : Está correta essa implementação para gravação do registro R06? } Try // R06 := TR06VO.Create; // R06.USUARIO := 1; R06.COO := StrToInt(DMEcf.ECF.NumCOO); R06.GNF := StrToInt(DMEcf.ECF.NumGNF); R06.GRG := StrToInt(DMEcf.ECF.NumGRG); R06.CDC := StrToInt(DMEcf.ECF.NumCDC); R06.NUM_FABRICACAO := DMEcf.ECF.NumSerie; R06.MF_ADICIONAL := DMEcf.ECF.MFAdicional; R06.MODELO := DMEcf.ModeloECF; R06.NUM_ECF := DMEcf.NumeroECF; R06.DATA := DMEcf.ECF.DataHora; R06.Denominacao := 'RG'; R06.DataEmissao := FormatDateTime('yyyy-mm-dd', DMEcf.ECF.DataHora); R06.HoraEmissao := FormatDateTime('hh:nn:ss', DMEcf.ECF.DataHora); // TRegistroRController.GravaR06(R06); { TODO : Precisamos fazer alguma coisa em relacao ao registro R07? } Except // On E:Exception Do MessageDlg(E.Message, mtError, [mbOk], 0); // End; // Finally // slArquivo.Free; slArquivo := Nil; // End; // End; // End // Else Application.MessageBox('Não existem DAV para o período informado.', 'Informação do Sistema', MB_OK + MB_ICONINFORMATION); // Finally // ListaDAV.Free; ListaDAV := Nil; // End; // end;

Ok..Obrigado pela ajuda Régys.

Bom Dia Pessoal. Eu utilizava uma função interna para o radapé do cupom onde eram colocados MD5, DAV, PRÉVENDA E ETC Agora comecei a utilizar as funções do ACBR ECF.InfoRodapeCupom.Dav := ''; ECF.InfoRodapeCupom.DavOs := ''; ECF.InfoRodapeCupom.PreVenda := ''; if DMECF.Ecf_MFD then DMECF.ECF.IdentificaPAF('SOFTPDV 2.0', DMECF.MD5_Laudo) ELSE DMECF.ECF.InfoRodapeCupom.MD5 := FormataString( DMECF.MD5_Laudo, 48) + #13 + #10; IF VendasNUM_PREVENDA.VALUE > 0 THEN begin DMECF.ECF.InfoRodapeCupom.PreVenda := FormataNumero( VendasNUM_PREVENDA.AsString, 10); end else IF VendasNUM_DAV.VALUE > 0 THEN Begin DMECF.ECF.InfoRodapeCupom.Dav := FormataString( FormataNumero( VendasNUM_DAV.AsString, 10 ), 48) ; NumDav := VendasNUM_DAV.Value; End else if VendasMESA.VALUE > 0 THEN begin Obs := Obs + 'ECF ' + FormataNumero( VendasECF_CONFERENCIA.AsString, 3) + '-CONFERENCIA DE MESA-CER ' + FormataNumero( VendasCER_CONFERENCIA.AsString, 4) + '-COO ' + FormataNumero( VendasCOO_CONFERENCIA.AsString, 6) ; end; Mas esta saindo tudo truncando no rodape Esta saido Assim=> MD-5: XXXXXXXXXXDAV0000000020 Ou seja...nao esta pulando a linha para cada informação. O que posso estar fazendo errado?

Boa tarde, estou criando A CCe dentro de meu Software e o componente esta devolvendo o erro "URL não disponível para o estado solicitado.", mas o emissor é de MS ( Código 50 ) e me parece que o MS já estaria correta a URL, alguem saberia me responder o por que do erro? Olhei o Forum todo e não consegui achar nada sobre este erro. Agradeço a atenção Wendel Wagner

Bom Dia a Todos. No meu paf eu Implementei uma função para iniciar o Dia Fiscal, é uma espécie de caixa que server também para atender alguns requisitos do paf, como por exemplo a posição do estoque e o requisito que tem que gravar a data e hora do primeiro documento emitido. Mas nas ecfs daruma o comando "DataMovimento" retorna 01/01/00, e só fica correto quando emito um cupom. Vejam as duas funções Funcao Confere DIA */*/*/*/*/*/*/*/*/*/*/*/*/*/ Decodedate (DMECF.DataMovimento, Ano, Mes, Dia ); Data := EncodeDate(Ano, Mes, Dia); Sql := ' SELECT COO_LX FROM DIA_FISCAL D ' + ' WHERE CAST(D.data AS DATE) = :DATA' ; With DMDia_Fiscal do begin Confere.Close; Confere.SQL.Clear; Confere.SQL.Add( Sql ); Confere.ParamByName('DATA').AsDate := Data; Confere.Open; if Confere.Fields[0].IsNull then Result := true else begin Result := False; MessageDlg('Já existe um dia Fiscal aberto para o Movimento Atual = ' + DatetoStr(Data), mtError, [mbOK], 0); end; Confere.Close; end; /*/*/*/*/*/*/*/*/*/*/*/*/*/* if (Conferedia) then Begin //Chamando a Leitura X DMECF.LeituraX(False); // dsEditar.DataSet.Open; dsEditar.DataSet.Append; Decodedate (DMECF.DataMovimento, Ano, Mes, Dia ); dsEditar.DataSet.FieldByName('DATA').AsDateTime := EncodeDate(Ano, Mes, Dia); dsEditar.DataSet.Post; dsEditar.DataSet.Close; //Grava o Estoque Atual Grava_Estoque; DsSelecionar.DataSet.Refresh; MessageDlg('Dia Fiscal Aberto com sucesso, Bom trabalho!', mtError, [mbOK], 0); End; */*/*/*/*/*/*/*/*/* Alguem sabe como resolver isso na daruma sem ter que abrir um cupom Fiscal? Ou tem outra solução para este caso. Agradeço a Atenção Wendel Wagner

Existe a possibilidade no ACBRTEFD de fazer a seguinte operação? RECEBIMENTO COM CARTAO, Ou seja, não há um cupom fiscal aberto, pois o cupom foi emitido no ato da venda. O Cliente pede para pagar uma parcela com o cartao de crédito, como fazer este recebimento no ACBRTEFD? Agradeço a Atenção

Obrigado..baixei e vou testar agora

Como configurar o Acbr para funcionar pela USB? Obrigado pela atenção

Ok... Fiz algumas análises e a classe poderá servir tanto para o cálculo correto para o preenchimento da Nota de saida como para calcular o custo correto de uma nota de entrada e validar os dados da mesma. Para a saida é simples, são cálculos normais, mas para a entrada eu tenho rotinas que calculam o custo correto da mercadoria: Icm de Credito Icm de Débito Ipi Frete e etc Destes dados montamos o PMZ (Preço margem Zero) e o custo de compra, então montamos o Preço de venda com base em uma determinada fórmula. Vou utilizar como base uma Unit que encontrei na Clube Delphi que ja contem algumas rotinas prontas e esta bem organizada (No meu entendimento é claro..rsss). Ai vou postando no Forum?...ou como faço?

Pessoal boa tarde. Possuo uma rotina que faz o cálculo de impostos de uma nfe, mas estou pensando em gerar uma classe que faça isso automaticamente passando como parametros os dados necessários, mas antes de começar isso gostaria de verificar se ja nao existe algo assim no ACBR. Agradeço a atenção

Perfeito, funcionou corretamente. Segue código, pois pode ajudar alguem e se eu tiver feito errado por favor me corrijam. function TDMECF.NumCER: Integer; var vRel : TACBrECFRelatorioGerencial; I, Resp: INTEGER; begin Resp := 0; ecf.CarregaRelatoriosGerenciais; for I := 0 to ecf.RelatoriosGerenciais.Count - 1 do Begin vRel := ecf.RelatoriosGerenciais.Objects[I]; if Uppercase(vRel.Descricao)='PAF-ECF' then Resp := vRel.Contador; End; Result := Resp; end;

Bom dia Pessoal Como obter o numero do CER para a conferencia de Mesa? Obrigado pela atenção

Deu certo....obrigado pela ajuda.

Bom Dia Kiko...era isso mesmo... Tinha este código logo acima with Ide.NFref.Add do begin e nos dados estava assim if ReferenciadaTipoNFe then // TAG - Informação das NF/NF-e referenciadas - - Ocorrência 0-N ******** begin // Se a nota referenciada for um NFe preencher o campo abaixo: Ano := Copy(IntToStr(YearOf(BuscaNFeDATA_NF.AsDateTime)), 3, 2); Mes := FormatFloat('00', MonthOf(BuscaNFEDATA_NF.AsDateTime)); ChaveRef := BuscaNFeCHAVE_NFE.AsString; Ide.NFref.Add; Ide.NFref[0].refNFe := ChaveRef; // B13 - Chave de acesso das NF-e referenciadas end; Ou seja, estava dando dois ADD..retirei a linha e deu tudo certo.....obrigado pela ajuda....t+