
edgarbottini
Membros-
Total de ítens
22 -
Registro em
-
Última visita
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Tudo que edgarbottini postou
-
Download xml - Serviço paralisado sem previsão
edgarbottini replied to Márcio Antônio's tópico in ACBrNFe
Boa noite, estou com a mesma dúvida Agradeço pela ajuda -
Boa noite Senhores estou recebendo a mesma mensagem "Provavelmente a senha está errada", porém no Lazarus linux (versão mais nova 2.0.10). O mesmo certificado .pfx em Delphi windows funciona (mesma senha claro). Instalei o Lazarus e ACBr no OpenSuse Leap (64bits), achei que tinha feito algo errado na instalação e por isso o erro, aí instalei tudo de novo num OpenSuse Tumbleweed (32bits) e apareceu a mesma mensagem Se alguém tiver ideia do que pode ser, ou se devo usar versões mais antigas de linux e Lazarus, eu agradeço demais
-
Erro na leitura do Peso Balança Digitron
edgarbottini replied to Marcos De Oliveira Dário's tópico in ACBrSerial
Boa tarde Marcos você conseguiu resolver? Estou com o mesmo problema, não achei nada de futuro no site do fabricante abraço -
Novos Métodos Para Gerar Os Menus Fiscais "arq. Mf" E "arq. Mfd"
edgarbottini replied to Régys Silveira's tópico in PAF-ECF
Ola Cleber, sim eu lí! Mas entendi que ele tinha implementado só não tinha testado, aí testei aki e achei que o feedback poderia ajudar, por isso informei qual meu modelo de daruma. Eu sei que cada modelo é tratado individualmente, inclusive disse que olhei a unit ACBrDaruma que acredito seja a unit que trata individualmente para a Daruma, inclusive tem código meu nessa unit que foi uma pequena correção que fiz a algum tempo atrás, procure meus posts. Inclusive já fiz doações para o projeto por acreditar nele. Então não entendo o motivo de me chamarem atenção por tentar ajudar com feedback. -
Novos Métodos Para Gerar Os Menus Fiscais "arq. Mf" E "arq. Mfd"
edgarbottini replied to Régys Silveira's tópico in PAF-ECF
Ola, tambem estou com problema nessa função PafMF_ArqMFD, tenho uma Daruma FS700H, atualizei o componente hoje pela manhã e instalei pelo ACBrInstall, e o erro retornado é esse: Procedure: ArquivoMFD_DLL não implementada para a Impressora: Daruma Ajude no desenvolvimento do ACBrECF. Acesse nosso Forum em: http://acbr.sf.net/ o que não entendi, porque na unit ACBrECFDaruma tem duas procedures de nome ArquivoMFD_DLL e as duas tem vários parâmetros, como pode não estar implementado? Apenas chamo o metodo ACBrECF.PafMF_ArqMFD passando o caminho de parametro, fiz alguma coisa errado? -
ok, grato
-
Olá a todos, nos site da secretaria de tributação do RN saiu uma notícia informando que a partir do dia 06 de maio de 2013 o ambiente autorizador será alterado de SVAN para SVRS, conforme link a seguir: http://www.set.rn.gov.br/contentProducao/aplicacao/set_v2/noticias/enviados/detalhe.asp?sTipoNoticia=&nCodigoNoticia=2930 é necessário alguma alteração/configuração no componente ACBrNFe2 ? grato pela ajuda
-
estou adequando meu sistema para 01.13, mas procurei um comando para escrever negrito no observação e nao encontrei, tem como?
-
Pessoal, qual versão da ER voces estão utilizando? pergunto porque estou com a versão 01.12 e nao encontro esse requisito VIII-B, apenas o VIII e o VIII-A (que fala sobre minas legal e cupom mania) grato
-
PAF HOMOLOGADO VERSAO 1.8 APLICAVEL 01.12
edgarbottini replied to softcom.wendel's tópico in PAF-ECF
beleza, valeu -
Requisito XXX - Relatório Gerencial de Meios de Pagamento
edgarbottini replied to douglasbatista's tópico in PAF-ECF
Entendi, valeu pela ajuda!! -
PAF HOMOLOGADO VERSAO 1.8 APLICAVEL 01.12
edgarbottini replied to softcom.wendel's tópico in PAF-ECF
Ola, no requisito XXX onde diz "As informações prestadas neste relatório referem-se aos documentos emitidos por todos os equipamentos ECF do estabelecimento usuário e não apenas pelo ECF que emitiu o relatório, podendo se limitar ao movimento do dia imediatamente anterior ao da emissão do relatório" como você fez? puxa as informações da retaguarda para gerar o relatório? E quando o PAF-ECF estiver sem comunicação com a retaguarda?? grato -
Requisito XXX - Relatório Gerencial de Meios de Pagamento
edgarbottini replied to douglasbatista's tópico in PAF-ECF
Olá, nesse requisito XXX eu fiquei na duvida do seguinte: o requisito manda separar o valor de cartão credito e debito, mas no arquivo de resposta do tef RESP\IntPos.001 não vi nenhum campo que indique se o usuario escolheu credito ou debito. Fica inconsistente o usuario informar na aplicação se foi credito ou debito e depois no tef marcar outra coisa. Como voces resolveram isso? Grato pela ajuda -
ACBrECF - Cancela Cupom Daruma com vários CCDs
edgarbottini replied to edgarbottini's tópico in ACBrSerial
Legal ter ajudado, visitarei a Autocom desse ano, voces estarão com um stand lá né? -
Ola, no componente ACBrECF na unit da Daruma tem uma programação para cancelar o CCD (quando necessário) e depois cancelar o cupom fiscal. A programação funciona apenas quando se tem um CCD depois do cupom fiscal, impossibilitando o cancelamento de cupom fiscal quando se tem mais de um CCD (tef com multiplos cartões). Então, o código era assim: procedure TACBrECFDaruma.CancelaCupom; var RetCmd : String ; NumCupCCD : String ; NumCupom: String; begin fsNumCupom := ''; AguardaImpressao := True ; if fpMFD then begin RetCmd := EnviaComando( FS + 'R' + #200 + '046'); // Verifica se precisa cancelar CCD; Autor: Andre Bohn if copy(RetCmd, 6, 1) <> '0' then begin try RetCmd := EnviaComando( FS + 'R' + #200 + '050'); NumCupCCD := GetNumCupom; NumCupom := copy(RetCmd, 6, 6); if NumCupom <> NumCupCCD then begin EnviaComando(FS + 'F' + #214 , 15); // Fecho o CCD caso ainda não esteja fechado EnviaComando(FS + 'F' + #218 + NumCupCCD +#255+#255+#255, 15); // Cancela Conprovante Não Fiscal EnviaComando(FS + 'F' + #214 , 15); // Fecha Comprovante de estorno Cancela Conprovante Não Fiscal end; except end; EnviaComando(FS + 'F' + #211, 15) ; // Cancela Cupom RespostasComando.Clear; RespostasComando.AddField('COO', Copy(fpRespostaComando, 10, 6)); RespostasComando.AddField('CCF', Copy(fpRespostaComando, 16, 6)); RespostasComando.AddField('ValorCancelado', Copy(fpRespostaComando, 22, 12)); end else raise EACBrECFCMDInvalido.Create( ACBrStr('Não existe documento para cancelar.') ); end else if fsNumVersao = '2000' then EnviaComando(ESC + #211, 15) else EnviaComando(ESC + #206, 15) ; ZeraTotalApagar; FechaRelatorio ; { Fecha relatorio se ficou algum aberto (só por garantia)} end; e eu alterei para que faça o cancelamento de vários CCDs, ficando assim: procedure TACBrECFDaruma.CancelaCupom; var RetCmd : String ; NumUltimoCupom : String ; NumCupomCancelavel: String; iNumUltimoCupom, iNumCupomCancelavel: integer; begin fsNumCupom := ''; AguardaImpressao := True ; if fpMFD then begin RetCmd := EnviaComando( FS + 'R' + #200 + '046'); // Verifica se precisa cancelar CCD; if copy(RetCmd, 6, 1) <> '0' then begin try RetCmd := EnviaComando( FS + 'R' + #200 + '050'); // retorna numero do cupom cancelavel NumCupomCancelavel := copy(RetCmd, 6, 6); NumUltimoCupom := GetNumCupom; iNumUltimoCupom := StrToInt(NumUltimoCupom); iNumCupomCancelavel := StrToInt(NumCupomCancelavel); while iNumCupomCancelavel < iNumUltimoCupom do begin NumUltimoCupom := FormatFloat('000000',iNumUltimoCupom); EnviaComando(FS + 'F' + #214 , 15); // Fecho o CCD caso ainda não esteja fechado EnviaComando(FS + 'F' + #218 + NumUltimoCupom +#255+#255+#255, 15); // Cancela Conprovante Não Fiscal EnviaComando(FS + 'F' + #214 , 15); // Fecha Comprovante de estorno Cancela Conprovante Não Fiscal dec(iNumUltimoCupom); end; except end; EnviaComando(FS + 'F' + #211, 15) ; // Cancela Cupom RespostasComando.Clear; RespostasComando.AddField('COO', Copy(fpRespostaComando, 10, 6)); RespostasComando.AddField('CCF', Copy(fpRespostaComando, 16, 6)); RespostasComando.AddField('ValorCancelado', Copy(fpRespostaComando, 22, 12)); end else raise EACBrECFCMDInvalido.Create( ACBrStr('Não existe documento para cancelar.') ); end else if fsNumVersao = '2000' then EnviaComando(ESC + #211, 15) else EnviaComando(ESC + #206, 15) ; ZeraTotalApagar; FechaRelatorio ; { Fecha relatorio se ficou algum aberto (só por garantia)} end; Resolveu aqui pra mim, tenho uma FS-600 e testei com até 3 CCDs depois do cupom. Espero er ajudado
-
Ola, estou fazendo o sped pis/cofins e o validador apresentou erro nos registros C381 e C385. No caso eu estou usando os campos VL_BC_PIS e ALIQ_PIS e não preenchi os campos QUANT_BC_PIS e ALIQ_PIS_QUANT (são excludentes) porém o componente escreveu 0,00 nos campos que não preenchi, aí o validador recusou dizendo que os campos deveriam estar em branco. Como não achei esse problema no forum, então alterei o arquivo ACBrEPCBloco_C_Class no procedimento WriteRegistroC381 e substituí o trecho de codigo Add( LFill('C381') + LFill(strCST_PIS) + LFill(COD_ITEM) + LFill(VL_ITEM,0,2) + LFill(VL_BC_PIS,0,2) + LFill(ALIQ_PIS,8,4) + LFill(QUANT_BC_PIS,0,3) + LFill(ALIQ_PIS_QUANT,0,4) + LFill(VL_PIS,0,2) + LFill(COD_CTA) ) ; por: Add( LFill('C381') + LFill(strCST_PIS) + LFill(COD_ITEM) + LFill(VL_ITEM,0,2) + LFill(VL_BC_PIS,0,2,true) + LFill(ALIQ_PIS,8,4,true) + LFill(QUANT_BC_PIS,0,3,true) + LFill(ALIQ_PIS_QUANT,0,4,true) + LFill(VL_PIS,0,2) + LFill(COD_CTA) ) ; e fiz a mesma coisa no WriteRegistroC385, resolveu aqui, alguem teve algum problema parecido???
-
Marcio, deu certo, muito obrigado, alterei a linha 1232 do pcnNFeW para if (nfe.Det.Imposto.II.vII > 0) or (nfe.Det.Imposto.II.vBc > 0) or (nfe.Det.Imposto.II.vDespAdu > 0) or (nfe.Det.Imposto.II.vIOF > 0) then e resolveu o problema, obrigado mesmo
-
Ola, consegui falar com o pessoal que gera a Declaração de Importação, realmente acontecem casos em que a Aliquota Advalorem (TEC) é zero, gerando valor zero para o imposto de importação em determinadas adições. No meu cliente ainda está tudo funcionando, porque essa tag só passa a ser obrigatória nas notas de importação a partir de 01 de novembro de 2011, mas no ambiente de testes já está obrigatório. Agradeço a ajuda
-
Pois é, também achava isso, mas tenho aqui em mãos uma Declaração de Importação que das adições, apenas uma o imposto de importação é zero, também achei bastante estranho, estou tentando enttrar em contato com a empresa que gera a declaração de importação mas ainda não consegui
-
Olá, não sei se alguém teve algum problema parecido, estou emitindo uma NFe de Importação, e para cada item devo informar os dados da Tag que fica dentro da Tag , são quatro campos, vBC, vDespAdu, vII, vIOF. Até aqui tudo certo, as Tags são geradas no xml tudo certinho. Porém aconteceu um caso em que os campos vBC, vII e vIOF são zero, apenas o vDespAdu é maior que zero. Como o vII é zero a Tag não é escrita no XML, aí acontece a rejeição porque quando o cfop é de importação a Tag II é obrigatória. Se alguém puder ajudar, ou me dizer em qual arquivo dos fontes eu devo alterar, eu agradeço
-
Ola pessoal, procurei aqui no forum mas nao encontrei nada a respeito, então resolvi criar o topico pra saber se mais alguem teve esse problema. Seguinte: tenho um cliente que emite nota de importação, então precisei gerar o bloco C120, porém o PVA acusou problema de estrutura, quando fui ver, o TRegistroC120 não tem o campo NUM_ACDRAW, "Número do Ato Concessório do regime Drawback", então fiz as seguintes mudanças no código e funcionou, arquivo: ACBrEFDBloco_C, a partir da linha: 416 TRegistroC120 = class private fCOD_DOC_IMP: TACBrDoctoImporta; /// Documento de importação: fNUM_DOC__IMP: String; /// Número do documento de Importação. fPIS_IMP: currency; /// Valor pago de PIS na importação fCOFINS_IMP: currency; /// Valor pago de COFINS na importação fNUM_ACDRAW: String; /// Numero do Ato Concessório ro regime Drawback public property COD_DOC_IMP: TACBrDoctoImporta read FCOD_DOC_IMP write FCOD_DOC_IMP; property NUM_DOC__IMP: String read FNUM_DOC__IMP write FNUM_DOC__IMP; property PIS_IMP: currency read FPIS_IMP write FPIS_IMP; property COFINS_IMP: currency read FCOFINS_IMP write FCOFINS_IMP; property NUM_ACDRAW: String read fNUM_ACDRAW write fNUM_ACDRAW; end; arquivo: ACBrEFDBloco_C_Class, a partir da linha 1109 with RegC100.RegistroC120.Items[intFor] do begin Add( LFill('C120') + LFill( Integer(COD_DOC_IMP), 0 ) + LFill( NUM_DOC__IMP ) + LFill( PIS_IMP,0,2 ) + LFill( COFINS_IMP,0,2 ) + LFill( NUM_ACDRAW ) ) ; end; então, pra mim funcionou, mas nao sei como é o processo de sugerir alteração/correção, aí eu postei aki, espero ter ajudado