leandroaoa

faca uma regra pra verificar +/- assim hh := //horas mm := minutos if (mm > 6) and (mm < 15) then begin hh := horas; mm := 15; end; if (mm > 21) and (mm < 30) then begin hh := horas; mm := 30; end; if (mm > 36) and (mm < 45) then begin hh := horas; mm := 45; end; if (mm > 51) and (mm <= 59) then // atencao aqui begin hh := horas + acrescida de 1; mm := 0; os minutos é zero end;

bom dia eu costumo fazer assim : hCre := 50 * 60; transforma horas em minuto mCre := 0; aqui é os minutos TotalCre := hCre + mCre; hDeb := 0 * 60; transforma horas em minuto mDeb := 15; aqui é os minutos TotalDeb := hDeb + mDeb; hh := 0; mm := TotalCre - TotalDeb; while mm > 59 do begin hh := hh + 1; mm := mm - 60; end; showmessage(formatfloat('000', hh) + ':'+ formatfloat('00', mm)); usei como exemplo o seus dados sendo 50:00 credito e 15 minutos de debito;

Obrigado por responder estava tentando dessa forma mas não sei o porque estava dando errado apaguei o drive antigo e instalei o novo drive e tudo funcionou

você tem que usar essa url: svn://svn.code.sf.net/p/acbr/code/trunk2

bom dia tenho uma impressora bematech mp4200 nao fiscal instalada na porta COM virtual de um computador agora estou precisando mandar impressão em rede para esta impressora mas nao consigo configurar ela estou usando o demo do posprinter para testar alguem conseguiu imprimir direto na COM virtual dessa impressora em rede. se alguem puder me ajuda fico no aguardo.

da uma olhada ai http://www.projetoacbr.com.br/forum/topic/30316-instalação-do-acbr-no-berlin/

segundo o manual de orientacao vesao 6.0 pag. 106 diz o seguinte IE do Emitente. Valores válidos: vazio (não contribuinte do ICMS), ISENTO (contribuinte do ICMS ISENTO de Inscrição no Cadastro de Contribuintes) ou IE (Contribuinte do ICMS) entao esse campo deve ser em Branco mesmo. so complementando o post acima pois nao consegui editar o campo deve ser em BRANCO quando não se tem I.E.

obrigado pelo esclarecimento Italo, mas então acho melhor tirar essa opção do danfeescpos como está hoje pois como eu disse eu só acrescentei a informação do valor recebido junto com o troco que ja estava implantado no componente.

Boa noite Regys eu entendo mas eu estava lendo e tinha achado esse link http://portalnfce.sefaz.am.gov.br/forums/topic/danfe-troco/ e segui a resposta do Luiz DiasSefaz AM como pode ver a ultima resposta do post

Boa tarde realizei uma pequena alteração no danfeescpos acrescentei para que quando for informado o valor de troco sai tambem os dizeres Valor Recebido sendo este a soma do total da nota + o valor de troco conforme imagem. se puderem subir pro svn fico agradecido. ACBrNFeDANFeESCPOS.pas

verifica o pacote schemas dele deve estar desatualizado

ja tive esse problema, pois na maquina que eu usa eu tinha o gerenciador financeiro do BB que usa modulo de seguranca da GAS. reiniciei o computador e volta ao normal mas toda vez que eu acessava o gerenciador o problema voltava no meu caso eu formatei e uso um computador somente para o banco.

tente usar o instalador de certificado da valid ja tive um problema assim e funcionou. agora se o certificado for certising voce baixa o instalador deles configura pelo instalador faz os ajuste e depois instala o certificado direto pelo arquivo pfx. pode ser que funcione. Mas se você quiser acabar com essa dor de cabeca passe a utilizar openssl onde você passa o caminho do arquivo pfx é muito mais simples so que ele só funciona com certificados A1.

Russobr verifica a sua pasta schemas se esta atualizada.

bom dia de mais informacoes de como esta fazendo. 1 - qual o tipo de certificado A1 ou A3 ? 2 - usa capicom ou openssl ? no internet explorer tem que ficar desmarcada usar SSL 3.0, usar TLS 1.1, usar TLS 1.2 e Verificar revogacao de certificados do servidor

verifica se os seu schemas estao atualizado.

Entre em contato com a sefaz do seu estado. E verifique com eles aqui no meu estado pode demorar ate 7 dias para sincronizacao mas um mês ja é muito

nao veio o anexo. Mas de uma olhada nos campos CSC e IDCSC verifica os valores que estao sendo passado

poste o arquivo que você esta enviando pro monitor assim fica facil analisar o erro. vou tentar adivinhar aqui. verifica o item se você não esta enviando por exemplo CFOP = 5102 e CSOSN = 500 ou algo nesse tipo pois existe a validacao nesse sentido caso CSOSN não for permitido pelo CFOP da essa rejeicao. mas sem o seu arquivo não tem como falar nada só dei um junte no escuro.

Bom dia o que precisa é o cliente ter acesso ao ARInternet para poder efetuar o pedido de uso do seu sistema e pra solicitar o CSC depois que o cliente faz o pedido você entra na sua ARInternet e reconhece ele só isso....

boa noite pessoal estou vendo muitos relatos aqui que estao instalando o D7 em win10. porque ja não instalam a versão mais recente do delphi ja que o delphi 7 vai ser descontinuado pela equipe do acbr. olha o trabalho que da ficar arumando o D7 pra rodar no win10. Vamos la pessoal vamos migrar para as versões mais nova do delphi. e muito provavelmente esses erros de instalacao do acbr vao acabar...

boa noite você chegou a analisar o componente vou colocar aqui os trecho que você deve analisar /// Versão do Leiaute do arquivo - TRegistro0000 TACBrCodVer = (vlVersao100, // Código 001 - Versão 100 Ato COTEPE 01/01/2008 vlVersao101, // Código 002 - Versão 101 Ato COTEPE 01/01/2009 vlVersao102, // Código 003 - Versão 102 Ato COTEPE 01/01/2010 vlVersao103, // Código 004 - Versão 103 Ato COTEPE 01/01/2011 vlVersao104, // Código 005 - Versão 104 Ato COTEPE 01/07/2012 vlVersao105, // Código 006 - Versão 105 Ato COTEPE 01/07/2012 vlVersao106, // Código 007 vlVersao107, // Código 008 vlVersao108, // Código 009 vlVersao109 // Código 010 da uma olha no codigo ); function StrToCodVer(AValue: string): TACBrCodVer; begin if AValue = '001' then Result := vlVersao100 else if AValue = '002' then Result := vlVersao101 else if AValue = '003' then Result := vlVersao102 else if AValue = '004' then Result := vlVersao103 else if AValue = '005' then Result := vlVersao104 else if AValue = '006' then Result := vlVersao105 else if AValue = '007' then Result := vlVersao106 else if AValue = '008' then Result := vlVersao107 else if AValue = '009' then Result := vlVersao108 else if AValue = '010' then Result := vlVersao109 else raise EACBrSPEDFiscalException.CreateFmt('Versão desconhecida. Versao "%s" não é um valor válido.', [AValue]); end; function CodVerToStr(AValue: TACBrCodVer): string; begin case AValue of vlVersao100: Result := '001'; vlVersao101: Result := '002'; vlVersao102: Result := '003'; vlVersao103: Result := '004'; vlVersao104: Result := '005'; vlVersao105: Result := '006'; vlVersao106: Result := '007'; vlVersao107: Result := '008'; vlVersao108: Result := '009'; vlVersao109: Result := '010'; else Result := EmptyStr; end; end; analisa o que esta em negrito....

anexe a unit alterada assim um dos moderadores poderam avaliar a sua alteração

ja que vai fazer a migracao ja migre para versao mais atual do delphi pois como ja foi dito o suporte ao delphi 7 se encerra em agosto ai tera que migra tudo novamente.

sou do Parana e nos meus clientes esta tudo ok a consulta deve ser realizada atraves do link passado acima