dionatan
-
Total de ítens
233 -
Registro em
-
Última visita
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Posts postados por dionatan
-
-
Se na Daruma funciona então é o que lhe disse, a Bematech não suporta, nem todas as impressoras suportam todos os padrões.
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
-
Talvez não tenha suporte para esse modelo de código de barras ou você está passando o numero de forma errada, veja que ai tem uma barra (/), remova ela e tente novamente, se mesmo assim não funcionar tente mudar o modelo do código de barras.
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 :beginfsModuloFinal := (fsSomaDigitos mod 10);fsDigitoFinal := 10 - fsModuloFinal;if (fsDigitoFinal >= 10) thenfsDigitoFinal := 0;end ;So nao sei se posso alterar pois nao sei o que pode influenciar posteriormenteVejam 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ÚMERONOSSO 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 VERIFICADORObter 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 4X 1 2 1 2 1 2 1 20 + 0 + 0 + 0 + 9 + 4 + 7 + 8 = 28Somatório = 28Quociente = 28 / 10 = 2 e RESTO = 8Primeiro DV = 10 - 8 ouPrimeiro 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 VERIFICADORObter 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 2X 4 3 2 7 6 5 4 3 20 + 0 + 0 + 0 + 54 + 10 + 28 + 12 + 4 = 108Somatório = 108Efetuar a divisão da somatório pelo módulo "11". Obtemos:Somatório = 108 / 11 = 9 e RESTO = 9Segundo 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álculopelo 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
-
Olá eu estou gerando os arquivos para a Nota Fiscal Gaucha mas na hora de validar da erro no campo 6 Ie do estabelecimento. O arquivo gerado fica com a IE assim: 148/0050069 e deveria ser assim: 1480050069 sem a "/". O que estou fazendo de errado.
Estou usando o comando: Ecf.PafMF_GerarCAT52(StrToDateTime(dtini.Text),StrToDateTime(dtfim.Text),'c:\comercio\NFGaucha');
Pq voce nao usa o PafMF_MFD_Cotepe1704?
-
Lendo alguns tópicos passados achei isso, que foi alterado...
Pessoal, consegui realizar o cancelamento comentando o que tinha sido feito anteriormente na linha 167 da Unit pcnEventoNFe
function TInfEvento.getcOrgao: integer;
na parte em que está eu comentei e passou normalmente:
{Estados que utilizam a SVAN: ES, MA, PA, PI, RN => Devem utilizar 91}// if Result in [32,21,15,22,24] then// Result := 91;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ínculoAmbiente: 2Versão: AN_1.0.0Cod. Orgão: 91Status: 657Rejeicao: Codigo do Orgao diverge do orgao autorizadorNFE: 43130490710583000137550010000237781000237780Tipo Evento: 210200Sequência: 1Data/Hora: 23/04/2013 17:07:29alguem 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 ladoEmissão: 15/01/2013 Dest/Reme: xxxxxxxxxxxxxxxx Valor Total: 310,00***********************************************************************************************************************
ERRADO
Recebemos de NOME DA EMPRESAos produtos / serviços constantes da Nota Fiscal indicada ao ladoObs: este nome da empresa e diferente do nome do cliente......aguardo.... -
A DLL da Daruma muda a velocidade do ECF para 115.200... você deve fazer o mesmo no ACBrECF.Device.Baud
Porque a DLL muda a velocidade sem avisar ninguém só o fabricante pode esclarecer..
E isso mesmo Daniel, Valeuuuuu...
-
Não há nada que precise ser ajustado nos fontes do ACBr.. muitos usam essa rotina com sucesso... Tente você mesmo usando o Demo ECFTeste.exe
Os seus problemas parecem ser relacionados ao Path e nome de arquivo escolhido...
Tente o C: ou invez de D:
Evite o uso do diretório Raiz, use uma subpasta Ex: C:\ARQS\
Evite o uso de nomes longos espaços ou pontos no nome dos diretórios ou arquivos
Não há nada que precise ser ajustado nos fontes do ACBr.. muitos usam essa rotina com sucesso... Tente você mesmo usando o Demo ECFTeste.exe
Os seus problemas parecem ser relacionados ao Path e nome de arquivo escolhido...
Tente o C: ou invez de D:
Evite o uso do diretório Raiz, use uma subpasta Ex: C:\ARQS\
Evite o uso de nomes longos espaços ou pontos no nome dos diretórios ou arquivos
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
-
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? -
Vi que no seu post você menciona que no NomeArquivo está o path e no PathDest está o arquivo
será que não seria ao contrario?
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);varResp: Integer ;NomeArq, Relatorio, Tipo, DtInicial, DtFinal, DirDest, PathDest: AnsiString ;OldAtivo: Boolean ;beginOldAtivo := Ativo;trycase Finalidade offinMF: Relatorio := 'MF';finMFD: Relatorio := 'MFD';finTDM: Relatorio := 'TDM';finNFP: Relatorio := 'NFP';finNFPTDM: Relatorio := 'NFPTDM';finSintegra: Relatorio := 'SINTEGRA';finSPED: Relatorio := 'SPED';elseraise 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 estiverif OldAtivo thenbeginResp := xrGerarRelatorio_ECF_Daruma(Relatorio, Tipo, DtInicial, DtFinal);if (Resp <> 1) thenraise EACBrECFERRO.Create( ACBrStr( 'Erro ao executar xrGerarRelatorio_ECF_Daruma.'+sLineBreak+'Cod.: '+IntToStr(Resp)+' '+GetDescricaoErroDLL(Resp) )) ;endelsebeginResp := xrGerarRelatorioOffline_ECF_Daruma(Relatorio, Tipo, DtInicial, DtFinal,DirDest + 'Daruma.mf',DirDest + 'Daruma.mfd',DirDest + 'Daruma.inf');if (Resp <> 1) thenraise 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çãoif not(Finalidade in [finNFP, finNFPTDM]) thenbeginif not FileExists( PathDest ) thenraise 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) thenCopyFileTo(PathDest, NomeArquivo) ;end;finallyUnloadDLLFunctions;Ativo := OldAtivo;if AnsiUpperCase(PathDest) <> AnsiUpperCase(NomeArquivo) thenDeleteFile(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);beginfsNumSerieCache := '' ; // Isso força a Leitura do Numero de SérieDoVerificaValorGT ;Self.ArquivoMFD_DLL(DataInicial, DataFinal, PathArquivo, [docTodos], finMFD);Self.AssinaArquivoComEAD(PathArquivo);end; -
As dll estão ok ?
é a do SVN?
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) thenCopyFileTo(PathDest, NomeArquivo) ;PathDest = D:\ATO_MFD_DATA.TXTNomeArquivo = 'D:\'so que depois tem a seguinte instrucao:if AnsiUpperCase(PathDest) <> AnsiUpperCase(NomeArquivo) thenDeleteFile(PathDest);deletando o arquivoe depoisSelf.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:
tryACBrECF1.PafMF_GerarCAT52(DateEdit1.Date,DateEdit2.Date,'D:\');excepton e: Exception doMessageDlg('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 -
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
-
tb to com problemas no WebISS de Sinop-MT
envia a nota e recebe o protocolo, mas demora pra processar a nota (leva mais de 1 min, so depois desse tempo q devo consultar o processamento)
preciso configurar alguma forma de nao consultar apos o envio, pq trava toda a aplicacao
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....
-
Dionatan,
Você atualizou os fontes da pasta PCN2?
Se sim, verifique se o icone do fonte pcnConversao.pas contem a bolinha verde, se estiver vermelha ou amarelo, delete o arquivo e baixe novamente e depois abra o pacote PCN2 que encontra-se em ...\Pacotes\Delphi\ACBrNFe2 e compile.
Depois abra a aplicação e compile com a opção Build.
Valeu Italo,
Recompilei o pacote PCN2 e deu certo...... Valeu pela dica.....
-
Bom dia Dionatan,
Não é comentado uma linha no fonte do componente que você vai resolver o problema.
Você resolve o problema da seguinte forma:
Primeiro, atualizando todos os fontes de todos os componentes, periodicamente.
Segundo, compile a sua aplicação ou o programa exemplo usando a opção build.
Pelo jeito faz tempo que você não atualiza seus fontes, pois a rotina de envio de eventos no componente ACBrCTe foi implementada por mim em novembro do ano passado.
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;begincase fTpEvento ofteCCe : Result := 'Carta de Correcao';teCancelamento: Result := 'Cancelamento';teEPEC : Result := 'EPEC';elseraise EventoException.Create('Descrição do Evento não Implementado!');end;end;erro: teEPEC não foi identificadodai 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... -
Eu ainda nao estou com a versao atualizada do ACBRNfse em pleno funcionamento.
Mas com a versão antiga eu deixava "Numero de Tentativas" = 3, se nao tivesse processado o lote eu exibia uma mensagem para o usuario tentar novamente em alguns instantes.
Como lhe disse o problema é o provedor que demora para processar os RPS, imagino que deve ser tipo uma "fila" de processos, quanto mais gente fazendo mais demorado fica.
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?
-
Dionatan, a demora é normal para alguns provedores, tenho o mesmo problema com provedor WebISS da prefeitura de Coronel Fabriciano/MG, demora quase 5 minutos para processar um lote, nao importando se tem 1 ou 30 rps.
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 vezbeginif TACBrNFSe( FACBrNFSe ).Configuracoes.WebServices.IntervaloTentativas > 0 thensleep(TACBrNFSe( FACBrNFSe ).Configuracoes.WebServices.IntervaloTentativas)elsesleep(vCont);if vCont > (TACBrNFSe( FACBrNFSe ).Configuracoes.WebServices.Tentativas * 10000) thenbreak;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 Sucessotentei 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....
Codigo Barra
em ACBrSerial
Postado
Daniel eu nunca configurei a "altura" onde configuro isso?