Emerson Luis
Membros-
Total de ítens
30 -
Registro em
-
Última visita
Últimos Visitantes
O bloco dos últimos visitantes está desativado e não está sendo visualizado por outros usuários.
Emerson Luis's Achievements
-
Erro Impressão Do Vlr.unitário Ecf Daruma Fs700M
Emerson Luis replied to Pedro E. Braga's tópico in ACBrSerial
para cada passo da emissão do cupom, aparecem estes erros, por isso coloquei a função seguida do erro ... ex: funcão: Abrir Cupom aparecem as mensagens ((Resposta COO nao encontrada e Resposta CCF nao encontrada) e assim por diante -
Erro Impressão Do Vlr.unitário Ecf Daruma Fs700M
Emerson Luis replied to Pedro E. Braga's tópico in ACBrSerial
Olá daniel para o erro acontecer basta abrir o ecfteste e fazer os seguintes passos. ex: passo (erro) abrir cupom (Resposta COO nao encontrada, Resposta CCF nao encontrada), vender item (Resposta numero item nao encontrada, Resposta valorliquido nao encontrada), subtotalizar (Resposta subtotal nao encontrada), efetuar pagamento (Resposta saldo nao encontrada) e fechar cupom (Resposta COO nao encontrada, Resposta Total liquido nao encontrada). lembre-se teste feito com: SubModeloECF=FS-700M NumVersao=010100 ModeloECF=ecfDaruma Porta=COM1 espero ter ajudado Obrigado -
Devolução De Simples Nacional Para Regime Normal.
Emerson Luis replied to raosistemas's tópico in ACBrNFe
Olá Isaque. Mesmo a empresa sendo simples nacional deverá usar o CST? Ou utilizar o CSOSN 900 e informar os impostos nas devidas tags?? Obrigado -
Inativo ou Inoperante tente novamente - Produção e homologaç
Emerson Luis replied to jom's tópico in ACBrNFe
verifique se o internet explorer está em modo off-line -
Caro jocimar, olha o arquivo ACBR.INC . // Definições para o Quick Report // Descomente a linha abaixo caso o Quick Report tenha suporte a PDF //------------------------------------------------------------------------------ // {$DEFINE QReport_PDF} é só descomentar e pronto
-
Campo Aliquotaservicos Informado Incorretamente. (4 Decimais)
Emerson Luis replied to flavioti's tópico in ACBrNFSe
tbm estou com este problema para o ginfes - Votuporanga -SP. -
Olá EmBarbosa. É esse mesmo o problema... Postei aqui pois havia enviado alteracoes neste topico, me desculpe nao tive intenção de quebras as regras do forum Abraços e Obrigado
-
nao daria pra exportar no formato da ibpt?????
-
Olá Regys. Já fiz a alteração do repositorio, estou usando a revision 5541 do dia 4/7/13 abraços
-
Boa Tarde Regys Ao tentar abrir o arquivo da tabela ibpt já gravado no disco, o componente apresenta erro na conversão de string para float. o erro dá na função popular itens. imagino que seja a ordem de passar o stringlist, pois esta passando a descrição para a aliquota. obs: quando faz o download do arquivo funciona corretamente.. Att
-
Olá Regys. Alterei a função procurar para retornar a descrição do ncm, se achar interessante coloque nos fontes... com a mudança do svn o link da tabela tbm mudou: svn://svn.code.sf.net/p/acbr/code/trunk/Exemplos/ACBrIBPTax/tabela/AcspDeOlhoNoImpostoIbptV.0.0.2.csv tem que alterar o exemplo.. Segue Codigo Alterado. função botao pesquisar: procedure TForm1.btnPesquisarClick(Sender: TObject); var ex, Descricao: String; tabela: Integer; aliqNac, aliqImp: Double; begin if ACBrIBPTax1.Procurar(edNCM.Text, ex, Descricao, tabela, aliqNac, aliqImp, ckbBuscaNCMParcial.Checked) then begin ShowMessage( 'Código: ' + edNCM.Text + sLineBreak + 'Descricao: ' + Descricao + sLineBreak + 'Exceção: ' + ex + sLineBreak + 'Tabela: ' + IntToStr(tabela) + sLineBreak + 'Aliq Nac: ' + FloatToStr(aliqNac) + sLineBreak + 'Aliq Imp: ' + FloatToStr(aliqImp) ); end else showmessage('Código não encontrado!'); end; e função procurar function TACBrIBPTax.Procurar(const ACodigo: String; var ex, Descricao: String; var tabela: Integer; var aliqNac, aliqImp: Double; const BuscaParcial: Boolean): Boolean; var I: Integer; Igual: Boolean; begin if Itens.Count <= 0 then EACBrIBPTax.Create('Tabela de itens ainda não foi aberta!'); Result := False; for I := 0 to Itens.Count - 1 do begin if BuscaParcial then Igual := Pos(Trim(ACodigo), Trim(Itens.NCM)) > 0 //CompareText(Trim(ACodigo), Trim(Itens.NCM)) < 0 else Igual := SameText(Trim(ACodigo), Trim(Itens.NCM)); if Igual Then begin ex := Itens.Excecao ; tabela := Integer(Itens.Tabela) ; aliqNac := Itens.AliqNacional ; aliqImp := Itens.AliqImportado ; Descricao := Itens.Descricao; Result := True; Exit; end; end; end; att Obrigado
-
Alterações Na Unit Acbrcaixaeconomicasicob.pas
Emerson Luis replied to Emerson Luis's tópico in ACBrBoleto
Bom dia Obrigado Juliana.. -
Erro No Metodo Acbrnfse1.enviar Nao Consulta E Nao Gera Xml
Emerson Luis replied to Emerson Luis's tópico in ACBrNFSe
Boa tarde Italo.. Problema resolvido, obrigado.. -
Erro No Metodo Acbrnfse1.enviar Nao Consulta E Nao Gera Xml
Emerson Luis replied to Emerson Luis's tópico in ACBrNFSe
Boa tarde Italo.. Problema resolvido, obrigado.. -
Alterações Na Unit Acbrcaixaeconomicasicob.pas
Emerson Luis replied to Emerson Luis's tópico in ACBrBoleto
Bom dia Juliana Em primeiro lugar coloquei o fpTamanhoAgencia := 4, pois ao calcular o codigo do cedente na função TACBrCaixaEconomicaSICOB.CalcularDVAgCD a agencia ficava com um 0 a mais. na funçao function TACBrCaixaEconomicaSICOB.CalcularDVAgCD, coloquei um parametro pois quando é chamada pelo reader gera um digito e quanto chamada pelo trailer tem que gerar outro. tbm fiz alterações na GerarRegistroHeader240, pois a variavel Aconvenio deve receber o codigo do cedente com o digito. ao { GERAR REGISTRO-HEADER DO ARQUIVO } na posicao 33 a 48 estava passando padL(ACodConvenio, 16, '0'){+ACodCedenteDVAg} coloquei padL(ACodConvenio, 15, '0'){+ACodCedenteDVAg}. no registro Q na posição 154/154 é obrigatorio passar o tipo de inscrição mesmo que nao tenha avalista. no {REGISTRO TRAILER DO LOTE} troque zeros por brancos onde era necessário... OBs: dessa forma o arquivo de remessa foi homologado pela caixa... Obrigado...