João Carlos Almeida Prado

Gente, já resolvi este tmbém. Mudei a máscara de impressão para tres casas. Logo no meu form_shown. vlw

Gente, desculpe, já achei o problema Meu sistema estava truncando valor unitário da hora de calcular... desculpe...

Bom dia... Estou com um problema que não consigo resolver. Procurei aqui nos foruns do ACBr, mas não encontrei especificamente esta solução. Uso o componente do QCBr, em DELPHI7, para gerar e emitir a NFCe e funciona perfeitamente, mas.... não consigo vender quantidade menos que 0,100. EXPLICANDO: Meu prato quilo custa 72,90, se eu vendo 0,100, tudo bem, sai no cupom a quantidade 0,100 (mudei a mascara para tres casas decimais) o valor unitario 72,90 e o valor a pagar de 7,29... Porém, se eu vendo 0,001, e forneço o valor unitário de 72,90 e o valor a pagar de 0,07, no cupom sai a quantidade de 0,001, O VALOR UNITÁRIO ELE MUDA SOZINHO PARA 70,00 e o valor a pagar fica 0,07. O valor unitário TEM QUE SAIR 72,90 e não 70,00 como está sozinho. Como resolvo isso? Segue o trecho de codigo...: qCom := aqddf_sds.FieldByName('QUADDF').AsFloat; // forneço 0,001 vUnCom := aqddf_sds.FieldByName('VALDDF').AsFloat; // forneço 72,90 vProd := funcs_var.F_strtoreal(funcs_var.F_formata_numero_simples( floattostr(aqddf_sds.FieldByName('VALDDF').AsFloat * aqddf_sds.FieldByName('QUADDF').AsFloat), 6, '', 2, '', '0', false)); // FORNEÇO 0,07 qTrib := aqddf_sds.FieldByName('QUADDF').AsFloat; // 0,001 vUnTrib := aqddf_sds.FieldByName('VALDDF').AsFloat; // 72,90

Pessoal, também deparei com este erro, mas ele parece ser mais comum do que se espera... tenho percebido em VARIOS clientes que a cada 1000 comunicações com o SAT, uma gera erro e não grava o XML, porém o cupom foi enviado com sucesso para o SEFAZ. Como proceder neste caso? tem como através da minha aplicação solicitar o cancelamento do ultimo cupom CFe mesmo sem saber a sua chave? Porque ai eu resolvo meu problema: se eu não tive retorno por algum motivo, cancelo o anterior e faço ele de novo, mesmo que o erro tenha sido de porta, comunicação ou similar.

Daniel, Obrigado pela resposta. Já estou convertendo meu sistema desde agosto do ano passado. O problema é que eu fiz usando CLX e todas as telas (minha aplicação tem mais de 150 telas) e seus componente tenho que remontar e depois repassar a programação. Pior que surgiu a necessidade de eu re-homologar meu sistema, então a minha versão em delphi 7 AINDA vai durar mais um ano pelo menos. Como voces escreveram que o suporte terminaria em janeiro, eu atualizei todo meu ACBr do Delphi 7 em dezembro. Só quero saber se esta atualização AINDA pode ser feita, pois janeiro ainda não terminou. Se voce disser que é melhor não atualizar, pois ja pode ter coisas incompatíveis, tudo bem, não vou atualizar e se precisar, altero eu mesmo o que precisar durante a homologação. Espero finalizar a minha versão em Delphi 10 até julho e voltar a contribuir com o projeto ACBr.

mas posso atualizar para o DELPHI 7? ou ja tem coisas que não foram refeitas para o DELPHI 7? a minha ultima atualização é de 27 de dezembro.

Olá... uso o DELPHI 7 e estou convertendo a minha aplicação para DELPHI 10 mas não terminei. Até que dia de janeiro posso atualizar meu ACBr sem perigo de ter problemas com o DELPHI 7? posso atualizar uma ultima vez ainda até dia 31 de janeiro? Desde já agradeço.

Não tenho não... Só tenho delphi 7 nessa maquina.

Eu rodei aquele apaga acbr. O que eu fiz e agora passou foi pegar uma DCU mais recente teste arquivo. Como ele não teve que recompilar, não deu mais o erro.. mas vou tentar usando essa opção tb. teste = deste. Baixei do link: https://github.com/Gleyber/SIGAC/blob/master/DCU/JwaWinNT.dcu Bom, usar a opção de limpeza geral não resolveu. O que resolveu foi baixar essa DCU. Se voces puderem colocar uma DCU o já compilada junto com os pacotes NO TRUNK2 acho que seria de grande valia. vlw

DELPHI 7

Eu também estou tendo problemas com isso... mas não é em todas as maquinas. Tem uma que agora começou a dar, mas não dava.

Pessoal, tem um erro mesmo.. quando compila da este erro: C:\Program Files (x86)\Embarcadero\ACBr\Fontes\ACBrTCP\ACBrMTer.pas(233) Error: E2033 Types of actual and formal var parameters must be identical Entrei nessa UNIT a na definição das variaveis desta função, WIP e WREGISTRO estavam como STRING, mudei para ANSISTRING e COMPILOU!!! No Delphi 7 compila, no Delphi 10 que dá o erro..

Pessoal, é isso mesmo.... o problema é a data... só que a condição é 2016, e não 2011, como descrito acima, no fonte está: if DT_INI >= EncodeDate(2016,01,01) then

Pessoal, será que não tem a ver com o layout? eu estou informando corretamente e também não está gerando... PERFIL A e layout 010 O registro K tem mais alguma condição para ser gerado? ai não gera....

Ola... primeiro: existe uma MkSe.dll de teste? segundo: achei um pouco extensa a sua função... não da pra fazer assim? ///// pegar dados do PIN PAD -- declaração type TTEFD_SISTEF = class // funcoes para SITEF DEDICADO da minha aplicação public function F_CapturarCpfCnpjPinPad(DigitoCPF: Boolean; Identificador, ChavePersonalizada: AnsiString): string; end; /// declaração de acesso a função externa function xObtemDadoPinPadDiretoEx(ChaveAcesso: PAnsiChar; Identificador: PAnsiChar; Entrada: PAnsiChar; var Saida: array of Byte): Integer; stdcall; external 'MkSe.dll'; //////////////////////// pegar cpf/cnpj pelo pin pad ///////////////////////////// --- ESSA FUNÇÃO É DO ACBrTEF, peguei igual.... function TTEFD_SISTEF.F_CapturarCpfCnpjPinPad(DigitoCPF: Boolean; Identificador, ChavePersonalizada: AnsiString): string; const EntradaCPF = '011111 INFORME CPF CONFIRME O CPF |xxx.xxx.xxx-xx '; EntradaCNPJ = '020808INFORME CNPJ P1 CONFIRME P1 |xx.xxx.xxx ' + '0606INFORME CNPJ P2 CONFIRME P2 |xxxx-xx '; var retorno: Integer; Saida: array of Byte; Caracter: Char; sSaida: string; I: Integer; begin Result := ''; SetLength(Saida, 15); if DigitoCPF then begin retorno := xObtemDadoPinPadDiretoEx(PAnsiChar(ChavePersonalizada), PAnsiChar(Identificador), PAnsiChar(EntradaCPF), Saida); end else begin retorno := xObtemDadoPinPadDiretoEx(PAnsiChar(ChavePersonalizada), PAnsiChar(Identificador), PAnsiChar(EntradaCNPJ), Saida); end; if retorno = 0 then begin sSaida := ''; if DigitoCPF then begin for I := 4 to 14 do begin Caracter := Chr(Saida); sSaida := sSaida + Caracter; end; end else begin for I := 4 to 19 do begin Caracter := Chr(Saida); sSaida := sSaida + Caracter; end; sSaida := Copy(sSaida, 1, 8) + Copy(sSaida, 11, 6); end; Result := sSaida; end; Saida := nil; end; obrigado...

Gente, Esse bloco X é uma palhaçada.... nem os homologadores nem o secretário, nem os Sefaz ainda sabem como vão enviar, receber ou usar isso. Na minha homologação fiz as alterações de formato que pediram e pronto... nem fiquei discutindo. To torcendo pra essa palhaçada de homologação acabar.

Regys. Obrigado pelas respostas e pela ajuda.. concordo plenamente com tudo que voce disse. A tecnologia fiscal nesse pais é uma bandalheira, precisamos ficar fazendo um monte de arquivos e compatibilizações COM FINALIDADE ZERO. Tudo isso não serve pra nada, só serve para dificultar e encarecer nossos serviços e arrumar motivo para autuação. Basta dizer que se eu fosse manter o MD5 atualizado de todos os meus clientes, eu teria que homologar TODO MES. Tenho que manter versões em cientes as vezes desatualizada, por conta da homologação e do MD5. Fora que, SINTEGRA, SPED e REGISTROS DO PAF ECF possuem as mesmas informações, mas apresentadas de forma diferente, o que traz muita confusão. Por exemplo: se voce pegar o SINTEGRA ele não possui a mesma forma de apresentação de cancelamentos e descontos, assim, não dá para identificar o correlação em 100%, ou seja, de um, para tirar o outro, só fazendo gambiarra. Me desculpe pelo meu desabafo e se em algum momento fui rude. A equipe do ACBr SEMPRE me ajudou muito, e só tenho a agradecer a voces, por isso que contribuo como assinante, e se pudesse contribuiria com 10 vezes mais. um abraço.

Regys, Obrigado pelo posicionamento. Estou homologando na POLIMIG escritorio de são paulo, E eles passaram um modelo que não bate com o gerado pelo ACBr. 243_Arquivo com Informações da Redução Z do PAF-ECF.xml Neste XML que passei, existem as seguintes diferenças com o gerado pelo ACBr: 1- Possui o campo COO nas informações da redução. ACBr não tem 2- Os valores possuem ponto decimal, no ACBr nenhum campo numerico possui 3- Os campos quantidade são INTEIROS, estou homologando RESTAURANTE, e preciso de quantidade real pois vendo por quilo, e as gramas são fracionarias. Regys, Desculpe se voce achou que estou cobrando algo, apenas apresentei a minha posição. Estou disposto a participar do desenvolvimento, inclusive sou assinante e pago a mensalidade como colaboração. Obrigado pela ajuda, mas verifique, pois o COO da redução Z realmente não foi implemente não foi implementado. vou apresentar a documentação na homologadora e contestar o modelo que me passaram. Obrigado pela ajuda.

Pessoal, estou homologando meu sistema e o bloco X está cheio de erros: todas as formatações numericas estão erradas: GT, e totalizações parciais precisam ser FLOAT, com duas casas decimais, inficadas por ponto ou virgula, e não está fazendo. A quantidade de produtos precisa ser FLOAT, e não integer, pois posso ter quantidades fracionarias, como quilo cliente. vou retomar minha homologação dia 16 e preciso do componente funcionando. Se ninguem está mexendo, eu mesmo vou arromar e posso disponibilizar as correções. por exemplo: unit ACBrBlocoX_ReducaoZ; linha 189 FGerador.wCampo(tcStr, '', 'ValorUnitario', 0, 0, 1, Floattointstr(Produtos[X].ValorUnitario,ffcurrency,6,2)); // mudei para FGerador.wCampo(tcStr, '', 'ValorUnitario', 0, 0, 1, FloatToStrF(Produtos[X].ValorUnitario,ffcurrency,6,2)); // Floattointstr o valor que estava saindo 450 agora apresenta R$ 4,50 precisa ter casas decimais. O erros que achei até agora foram: valor unitario (corração acima) sem casas decimais. GT sem casas decimaisé inteira, tem que ser float. não existe o campo COO que recisa ser informado na redução Z ( é o COO final da redução) por enquanto é isso... por favor, aguardo um resposta até amanha (14/02/2016) caso contrario, eu mesmo vou corrigir e disponibilixar a UNIT corrigida. falow quantidades dos produtos QUANTIDADES DE PRODUTOS é inteiro e precisa ser float

Pessoal, isto não funcionou comigo: GerarRodape; // aqui nesse ponto poderia ficar assim: GerarRodape(FPosPrinter.CortaPapel); coloquei, no final do procedure: procedure TACBrSATExtratoESCPOS.GerarRodape(CortaPapel: Boolean = True; Cancelamento: Boolean = False); . . . if CortaPapel then begin { if FPosPrinter.CortaPapel then FPosPrinter.Buffer.Add('</corte_total>') else FPosPrinter.Buffer.Add('</pular_linhas>'); } // - deixei assim para forçar o corte FPosPrinter.Buffer.Add('</pular_linhas>'); FPosPrinter.Buffer.Add('</corte_total>'); end; e do cancelamento: procedure TACBrSATExtratoESCPOS.GerarDadosCancelamento; . . . { if FPosPrinter.CortaPapel then FPosPrinter.Buffer.Add('</corte_total>') else FPosPrinter.Buffer.Add('</pular_linhas>'); } // assim força o corte FPosPrinter.Buffer.Add('</pular_linhas>'); FPosPrinter.Buffer.Add('</corte_total>') end; falow

Daniel, Obrigado, resolveu... precisei atualizar de novo o trunk2.... Inclusive agora sai a mensagem de consumidor não identificado. Aproveitando, uma sugestão.. colocar no apagarAcbr.bat uma mensagem no final: ECHO. Acesse o DELPHI e remover os pacotes antigos da IDE do delphi ECHO. (PROJECT - OPTIONS - PACKAGES) ECHO. apagar TODO conteudo do ACBr ECHO. Fazer um novo update via SVN: svn://svn.code.sf.net/p/acbr/code/trunk ECHO. Rodar o ACBrInstall PAUSE

Estou com o mesmo problema.. O XML está sendo gerado assim, A TAG destinatário, quando ponho sem CPF: . . <dest> <CNPJ/> </dest> . . ( não estou colocando nada no campo, tentei até dar um Dest.Clear antes... Só um detalhe.... antes de eu atualizar meu ACBr para o TRUNK2 estava funcionando.... Se eu digito CPF ou CNPJ vai de boa...

Obrigado!

Legal... Já consegui fazer funcionar aqui. Por via das duvidas vou instalar novamente o Fortes CE.. Obrigado.

Geral.Token não existe mais... onde e como configuro o token agora?