dionatan

Daniel eu nunca configurei a "altura" onde configuro isso?

Regis fiz um teste pelo ECFTeste.exe (Menu Relatorios/Relatorio Gerencial/ Relatorio Gerencial com Formatação) da impressora Bematech MP-4000 e veja o que saiu... Resumindo esta impressora não suporta sera nenhum tipo de codigo de barra? Olha a imagem....

Alguem?

Pessoal estou tentando conectar uma balança URANO modelo POP Z conforme imagem em anexo... Quando eu clico em conectar ela conecta Beleza.... Porem ao Ler o Peso, so da o valor -9,000 ... Ja atualizei meus fontes mas nada... tem alguma outra configuração que preciso fazer? Att Dionatan

Na verdade seri isso *00025/1* (aqui uma linha bem fininha de codigo de barra) Pois se trata do Numero do Documento... Pior que na Daruma funciona perfeitamente... ate ja coloquei o cod128 mas da o mesmo problema....

Pessoal estou emitindo um Relatorio Gerencial com codigo de barra em uma impressora Bematech MP 4000 com a tag <code39>00025/1</code39> comando: ACBrECF1.RelatorioGerencial Imprime o Relatorio Correto porém o Codigo de Barra não esta saindo.... Onde era para sair o codigo de barra esta saindo o seguinte: *00025/* (aqui uma linha bem fininha de codigo de barra) O que poderia ser? Esse modelo nao tem suporte para codigo de barra?

Pessoal foi enviado para homologacao 10 boletos do banrisul de um cliente meu e para surpresa verifiquei que a maneira com que e calculado o numero do controle em alguns casos e diferente... ou sej nao e em todos os boletos que da problema. Verificando no layout do banrisul e nos fonts deparei onde esta o problema... Veja os numeros que deu problema pra mim do banrisul: Nosso Numero: 00000034 04192.12204 85893.100009 00034.041202 4 57990000000882 O numero de Controle neste caso deveria ser 38 e nao 20 Nosso Numero: 00000037 04192.12204 85893.100009 00037.041910 3 57090000000882 O numero de Controle neste caso deveria ser 90 e nao 91 Observando vi que o problema esta na procedure ACBrCalcDigito.Calcular da Unit ACBRValidador no modulo 10 frModulo10 : begin fsModuloFinal := (fsSomaDigitos mod 10); fsDigitoFinal := 10 - fsModuloFinal; if (fsDigitoFinal >= 10) then fsDigitoFinal := 0; end ; So nao sei se posso alterar pois nao sei o que pode influenciar posteriormente Vejam o que eles me responderam sobre este calculo: 4.1 MÓDULOS 10 E 11 FÓRMULA DE CÁLCULO DO "NC" DO NOSSO NÚMERO NOSSO NÚMERO - Caso haja interesse de parte do cedente em numerar antecipadamente os títulos, deverá adotar um critério a ser combinado na fase de testes, podendo, inclusive ser o número da fatura e NC. Formato do campo ''Nosso Número'': 99999999.NC - onde: 99999999 é o número seqüencial atribuído pelo Cedente e o NC será calculado pelo seguinte critério: 4.2 MÓDULO ''10'' CÁLCULO DO PRIMEIRO DÍGITO VERIFICADOR Obter somatório, atribuindo-se os pesos 2 e 1, respectivamente, sempre da direita para a esquerda. (N1*1-9) + (N2*2-9) + (N3*1-9) + (N4*2-9) + (N5*1-9) + (N6*2-9) + (N7*1-9)+(N8*2-9) OBSERVAÇÕES: a) a subtração do ''9'' somente será feita se o produto obtido da multiplicação individual for maior do que ''9''. Quociente = somatório dividido por ''10'' Primeiro DV = ''10'' - RESTO. quando o somatório for menor que ''10'', o ''resto'' da divisão por ''10'' será o próprio somatório. c) quando o resto for ''0'', o primeiro DV é igual a ''0''. Exemplo: Tomemos por base o Nosso Número = ''00009274'': Somatório, atribuindo-se os pesos 2 e 1, respectivamente, sempre da direita para a esquerda. (0*1-9)+(0*2-9)+(0*1-9)+(0*2-9)+(9*1-9)+(2*2-9)+(7*1-9)+(4*2-9) 0 0 0 0 9 2 7 4 X 1 2 1 2 1 2 1 2 0 + 0 + 0 + 0 + 9 + 4 + 7 + 8 = 28 Somatório = 28 Quociente = 28 / 10 = 2 e RESTO = 8 Primeiro DV = 10 - 8 ou Primeiro DV = ''2''. A partir do cálculo, o primeiro DV é agregado ao Nosso Número original (atrás), ou seja: ''000092742'' 4.3 MÓDULO ''11'' CÁLCULO DO SEGUNDO DÍGITO VERIFICADOR Obter somatório (peso de 2 a 7), sempre da direita para a esquerda (N1*4)+(N2*3)+(N3*2)+(N4*7)+(N5*6)+(N6*5)+(N7*4)+(N8*3)+(N9*2), Exemplo: 0 0 0 0 9 2 7 4 2 X 4 3 2 7 6 5 4 3 2 0 + 0 + 0 + 0 + 54 + 10 + 28 + 12 + 4 = 108 Somatório = 108 Efetuar a divisão da somatório pelo módulo "11". Obtemos: Somatório = 108 / 11 = 9 e RESTO = 9 Segundo DV = 11 - 9 = ''2'' Portanto, o número de controle procurado é ''22''. NOTAS: Caso o somatório obtido seja menor que “11”, considerar como resto da divisão o próprio somatório. Caso o ''resto'' obtido no cálculo do módulo ''11'' seja igual a ''1'', considera-se o DV inválido. Soma-se, então, "1" ao DV obtido do módulo "10" e refaz-se o cálculo do módulo “11” . Se o dígito obtido pelo módulo “10” era igual a "9", considera-se então (9+1=10) DV inválido. Neste caso, o DV do módulo "10" automaticamente será igual a "0" e procede-se assim novo cálculo pelo módulo "11". Caso o ''resto'' obtido no cálculo do módulo ''11'' seja ''0'', o segundo ''NC'' será igual ao próprio ''resto''. EXEMPLO: Tomemos o Nosso Número “00009194”: O somatório do primeiro cálculo (módulo 10) é igual a “28” e o Resto é igual a “8”. Portanto, o primeiro DV é igual a 10 - 8 ou DV=2. O somatório do segundo cálculo (módulo 11) é igual a “111” e o Resto é, neste caso, igual a “1”. Portanto, o segundo DV é 11-1=10 ou DV inválido. Neste caso, soma-se “1” ao DV obtido do primeiro cálculo (módulo 10) e efetua-se novo cálculo do módulo 11, agora com o novo Nosso Número, ou “000091943”. O somatório do segundo cálculo é igual a “113” e o RESTO igual a “3”. Portanto, o segundo DV é igual a 11 - 3 ou seja DV = 8. Neste exemplo, o “NC” procurado é “38”. Aguardo

Pq voce nao usa o PafMF_MFD_Cotepe1704?

Tambem estou sofrendo com esse problema nas configuracoes do acbr codigo orgao = 43 (RS) so que esta dando o mesmo erro: Chave: 43130490710583000137550010000237781000237780 Não foi possível Efetuar o Vínculo Ambiente: 2 Versão: AN_1.0.0 Cod. Orgão: 91 Status: 657 Rejeicao: Codigo do Orgao diverge do orgao autorizador NFE: 43130490710583000137550010000237781000237780 Tipo Evento: 210200 Sequência: 1 Data/Hora: 23/04/2013 17:07:29 alguem conseguiu resolver sem tem que trocar para 91? Obs: estou com todos os fontes atualizados

Alguem sabe me informar como e a tarifa das operadoras referente aos envios do SMS pelo PEN Modem? por exemplo eu tenho plano de Internet e pago 69.90 por mes da CLARO.. posso enviar qts sms eu quiser pelo aplicativo? Valeu

Pessoal consegui verificar o problema.... A Razão Social esta muito Grande então ele cortava o nome.... Abreviei a Razão Social e deu certo... Valeu

Pessoal queria tirar uma duvida com voces ..... Meu cliente questionou que as vezes na impressão da DANFE aparece a descrição de um tipo no cabeçalho... e depois não sei em que momento aparece o ouro tipo.. conforme anexo... Uso RaveCB *********************************************************************************************************************** CERTO Recebemos de xxxxxxxxxxxxxx os produtos constantes da Nota Fiscal indicada ao lado Emissão: 15/01/2013 Dest/Reme: xxxxxxxxxxxxxxxx Valor Total: 310,00 *********************************************************************************************************************** ERRADO Recebemos de NOME DA EMPRESA os produtos / serviços constantes da Nota Fiscal indicada ao lado Obs: este nome da empresa e diferente do nome do cliente...... aguardo....

E isso mesmo Daniel, Valeuuuuu...

Daniel ontem fiz os passos como voce me disse... ate gerou os arquivos mas no final da geracao deu erro dizendo "impressora daruma nao respondendo" bom reiniciei a aplicação, desliguei a impressora e simplesmente ela nao conecta mais.... fui no site da daruma e baixei o exemplo em delphi7 o rodei o exemplo deles dae a impressora conecta e consigo fazer tudo .... bom deletei todos os arquivos do ecfteste do acbr e baixei de novo achando que poderia ter alterado alguma configuracao coloquei para procurar a porta no exemplo e simplesmente da o erro dizendo que a impressora daruma requer uma porta com... estou anexando o log para observar... ate ele fica ali na barra "Processando...." mas depois ja da o erro Impressora Não Respondendo... Muito estranho acbrlog.txt

e se eu excluir esta linha if AnsiUpperCase(PathDest) <> AnsiUpperCase(NomeArquivo) then DeleteFile(PathDest); e depois modificar Self.AssinaArquivoComEAD(PathArquivo); como eu poderia pegar o caminho do arquivo gerado?

Esta correto nao mudei nao veja no debug: NomeArq :='ATO_MFD_DATA.TXT' DirDest :='D:\' PathDest := 'D:\ATO_MFD_DATA.TXT' NomeArquivo := 'D:\'; Obs: Segue o procedimento... procedure TACBrECFDaruma.ArquivoMFD_DLL(DataInicial, DataFinal: TDateTime; NomeArquivo: AnsiString; Documentos: TACBrECFTipoDocumentoSet; Finalidade: TACBrECFFinalizaArqMFD); var Resp: Integer ; NomeArq, Relatorio, Tipo, DtInicial, DtFinal, DirDest, PathDest: AnsiString ; OldAtivo: Boolean ; begin OldAtivo := Ativo; try case Finalidade of finMF: Relatorio := 'MF'; finMFD: Relatorio := 'MFD'; finTDM: Relatorio := 'TDM'; finNFP: Relatorio := 'NFP'; finNFPTDM: Relatorio := 'NFPTDM'; finSintegra: Relatorio := 'SINTEGRA'; finSPED: Relatorio := 'SPED'; else raise EACBrECFERRO.Create(ACBrStr('Finalidade não reconhecida, finalidades válidas: MF, MFD, TDM, NFP, NFPTDM, SINTEGRA, SPED')); end; NomeArq := 'ATO_' + Relatorio + '_DATA.TXT'; DirDest := IncludeTrailingPathDelimiter(ExtractFilePath(NomeArquivo)); PathDest := DirDest + NomeArq; LoadDLLFunctions; ConfigurarDLL(DirDest); Ativo := False; Tipo := 'DATAM'; DtInicial := FormatDateTime('ddmmyyyy', DataInicial); DtFinal := FormatDateTime('ddmmyyyy', DataFinal); // utilizar o modo on-line quando a impressora estiver ativa e o off-line quando não estiver if OldAtivo then begin Resp := xrGerarRelatorio_ECF_Daruma(Relatorio, Tipo, DtInicial, DtFinal); if (Resp <> 1) then raise EACBrECFERRO.Create( ACBrStr( 'Erro ao executar xrGerarRelatorio_ECF_Daruma.'+sLineBreak+ 'Cod.: '+IntToStr(Resp)+' '+GetDescricaoErroDLL(Resp) )) ; end else begin Resp := xrGerarRelatorioOffline_ECF_Daruma(Relatorio, Tipo, DtInicial, DtFinal, DirDest + 'Daruma.mf', DirDest + 'Daruma.mfd', DirDest + 'Daruma.inf'); if (Resp <> 1) then raise EACBrECFERRO.Create( ACBrStr( 'Erro ao executar rGerarRelatorioOffline_ECF_Daruma.'+sLineBreak+ 'Cod.: '+IntToStr(Resp)+' '+GetDescricaoErroDLL(Resp) )) ; end; // tratar por a NFP gera os arquivos com nome no formato conforme a legislação if not(Finalidade in [finNFP, finNFPTDM]) then begin if not FileExists( PathDest ) then raise EACBrECFERRO.Create( ACBrStr( 'Erro na execução de xrGerarRelatorio_ECF_Daruma.'+sLineBreak+ 'Cod: '+ IntToStr(Resp) + ' ' + GetDescricaoErroDLL(Resp) + sLineBreak + 'Modo: ' + IfThen(OldAtivo, 'On-Line', 'Off-Line') + sLineBreak + 'Arquivo: "'+ NomeArq +'" não gerado' )) ; if AnsiUpperCase(PathDest) <> AnsiUpperCase(NomeArquivo) then CopyFileTo(PathDest, NomeArquivo) ; end; finally UnloadDLLFunctions; Ativo := OldAtivo; if AnsiUpperCase(PathDest) <> AnsiUpperCase(NomeArquivo) then DeleteFile(PathDest); end; end; dai o erro acontece em ACBREcf.pas na linha Self.AssinaArquivoComEAD(PathArquivo) pois o PathArquivo e apenas D:\ procedure TACBrECF.PafMF_MFD_Cotepe1704(const DataInicial, DataFinal: TDateTime; const PathArquivo: String); begin fsNumSerieCache := '' ; // Isso força a Leitura do Numero de Série DoVerificaValorGT ; Self.ArquivoMFD_DLL(DataInicial, DataFinal, PathArquivo, [docTodos], finMFD); Self.AssinaArquivoComEAD(PathArquivo); end;

Cara verifiquei num post do Daniel que tenho que usar a funcao ACBrECF1.PafMF_MFD_Cotepe1704(DateEdit1.Date, DateEdit2.Date, 'D:\'); porem ao executar essa funcao tambem da erro ja peguei todas as dll e debugando verifiquei onde esta o erro: if AnsiUpperCase(PathDest) <> AnsiUpperCase(NomeArquivo) then CopyFileTo(PathDest, NomeArquivo) ; PathDest = D:\ATO_MFD_DATA.TXT NomeArquivo = 'D:\' so que depois tem a seguinte instrucao: if AnsiUpperCase(PathDest) <> AnsiUpperCase(NomeArquivo) then DeleteFile(PathDest); deletando o arquivo e depois Self.AssinaArquivoComEAD(PathArquivo); PathArquivo='D:' por isso ta DANDO O ERRO --------------------------- Informação --------------------------- Erro: Cannot open file "D:\". O sistema não pode encontrar o caminho especificado --------------------------- OK --------------------------- Como posso corrigir isso? Obs: Unit ACBrECFDaruma

Pessoal Bom dia... Tenho que Gerar o Arquivo da Nota Fiscal Gaucha... Estou Gerando através desta função: try ACBrECF1.PafMF_GerarCAT52(DateEdit1.Date,DateEdit2.Date,'D:\'); except on e: Exception do MessageDlg('Erro: '+e.Message, mtInformation, [mbok],0); end; So que sempre esta me retornando erro 103 - Erro Desconhecido.... O que poderia ser? Essa função para a Nota Gaucha e a correta ou existe outra? Em anexo o Log.. Obs: Impressora Daruma FS600 acbrlog.txt

Bom dia pessoal agora fiquei com duvia... queria saber se para a geração do arquivo na Nota Fiscal Gaucha (Cupom Fiscal) eu gero atraves deste procedimento PafMF_MFD_Cotepe1704 ou atraves deste do regis: ACBrECF.AbreCupom('CPF', 'Nome do Cliente', 'Endereço'); Para gerar o arquivo também já existe um método simples chamado “PafMF_GerarCAT52″, este método possui 3 parâmetros: A data inicial, a data final e o caminho para o arquivo a ser gerado: ACBrECF.PafMF_GerarCAT52(data inicial, data final, 'caminho do arquivo'); Att

Pior que quando nao consulta e sim so envia e posterior consulta a rps e 10x mais rapido faz isso pois na minha app deu certo... do jeito que tava nao deu ... os clientes reclamaram um monte....

Valeu Italo, Recompilei o pacote PCN2 e deu certo...... Valeu pela dica.....

Italo baixei tudo novamente e atualizei todos os pacotes mas continua o mesmo erro.... recompilei como você tinha dito mas aconteceu a mesma

Pessoal fui instalar o pacote do CTE... porém esta dando erro... primeiro na Unit pctEventoCTe.pas function TInfEvento.getDescEvento: string; begin case fTpEvento of teCCe : Result := 'Carta de Correcao'; teCancelamento: Result := 'Cancelamento'; teEPEC : Result := 'EPEC'; else raise EventoException.Create('Descrição do Evento não Implementado!'); end; end; erro: teEPEC não foi identificado dai comente essa linha mas continou dando erro... function TEventoCTe.GerarXML: boolean; Gerador.wGrupo('eventoCTe ' + NAME_SPACE_CTE + ' versao="' + CTeEventoCTe + '"'); Erro: CTeEventoCTe nao identificado... Alguem sabe como posso resolver isso... Ja atualizei os fontes...

Leandro, agora fiquei um pouco confuso quando nao e possivel fazer a consulta o que voce quiz dizer com: "eu exibia uma mensagem para o usuario tentar novamente em alguns instantes." pois se eu enviar novamento vai dar erro dizendo que ja foi informado aquela RPS... como voce trata isso?

Pois é cara ... Pior que os clientes começaram a reclamar... Ate estava dando uma olhada nos fontes... Na unit AcbrNFSeWebServices.pas functio Processando tem o seguinte codigo: TACBrNFSe( FACBrNFSe ).SetStatus( stNFSeConsulta ); Sleep(TACBrNFSe( FACBrNFSe ).Configuracoes.WebServices.AguardarConsultaRet); vCont := 10000; while Processando do // Enquanto FSituacao = 2 (Não Processado) tenta mais uma vez begin if TACBrNFSe( FACBrNFSe ).Configuracoes.WebServices.IntervaloTentativas > 0 then sleep(TACBrNFSe( FACBrNFSe ).Configuracoes.WebServices.IntervaloTentativas) else sleep(vCont); if vCont > (TACBrNFSe( FACBrNFSe ).Configuracoes.WebServices.Tentativas * 10000) then break; vCont := vCont + 10000; end; TACBrNFSe( FACBrNFSe ).SetStatus( stNFSeIdle ); Result := (FSituacao = '3') or (FSituacao = '4'); // FSituacao: 1 = Não Recebido // 2 = Não Processado // 3 = Processado com Erro // 4 = Processado com Sucesso tentei diminuir a propriedade IntervaloTentativas para 10 mas da erro pior que no retorno do erro nao aparece nada... teria alguma forma de otimizar pois debugando vi que o problema esta ai....