Claudio Stein Junior

Pessoal, olá, uma dúvida. Qual a melhor impressora para imprimir cupons de NFC-e utilizando o componente da ACBR? Um cliente me perguntou mas eu não soube responder. Aguardo as opiniões Obrigado

Resolvido, consegui configurando algumas propriedades do Componente.ACBrNFSe Configurações - Arquivos - Salvar - False (antes estava true) Configurações - Arquivos - TabServicosExt - False (antes estava true) Obrigado

Não estou anexando, na verdade não mudei nada. Vou tentar atualizar o componente para ver se muda algo e reporto aqui. Obrigado.

Olá, ao enviar e-mail pelo componente 3 arquivos estão sendo anexados 260-nfse.xml 260-nfse.xml (outro com o mesmo nome mas conteúdo em branco) 260.pdf Não mudei uma linha de código do demo. O que posso fazer para remover este anexo em branco? Att Claudio Stein Junior

Obrigado Italo, deu certo Resolvido.

Olá gerei o RPS do Provedor Ginfes da Cidade de Votuporanga - SP apesar de ainda não ter validado. Tenho o arquivo XML em mãos, qual seria o próximo passo, tentei gerar e enviar NFS-e mas não funcionou para meu provedor. A outra dúvida é que no Demo tem uma caixa de texto Prefeitura, o que digito ali? Prefeitura de Votuporanga, Município de Votuporanga Obrigado Att Claudio Stein Junior

Obrigado Ítalo ficou bem mais claro agora, obrigado.

Olá tenho uma dúvida relacionado ao número do lote até mesmo porque não trabalho com lotes. Emito cada CTE de maneira individual. Por exemplo imaginem que vou emitir o CTE nr. 10, quando eu envio este CTE, passo 10 como nr. do lote o 10 também. Os 2 usando a mesma numeração. Está certo fazer desta forma? Ou eu poderia deixar sempre o nr. do lote como 1 e enviar tipo: lote 1 - cte 10 lote 1 - cte 11 e assim por diante? Ou devo gerenciar tanto o lote como o cte com numerações diferenciadas? Obrigado Att Claudio Stein Junior

Como faço a operação para pegar o protocolo e chave no retorno por duplicidade e consequentemente imprimir a NF-e? Obrigado

Olá, minha NF-e funciona perfeitamente, mas em alguns clientes muitas vezes ocorre um atraso para pegar o retorno do protocolo de autorização. Consequentemente o cliente tenta emitir a mesma nota novamente quando obtém a mensagem de "NOTA EM DUPLICIDADE". Quando ele tenta imprimir a NF-e a partir do XML gerado sai com a tarja de NF-e não autorizada pelo SEFAZ. Para resolver este problema peço para consultar a nota e em seguida imprimir novamente que dá certo. Mas como faço para minimizar estes problemas? Obrigado

Consegui com o código abaixo: procedure TfrmDemo_ACBrCTe.Button1Click(Sender: TObject); var vAux, idLote, cte: String; begin vAux:= 'CTE Cancelado por desacordo comercial'; if not(InputQuery('WebServices Eventos: Cancelamento', 'Digite o nr. do CTE: ', cte)) then exit; DmTabelas.CdsVendas.Close; DmTabelas.CdsVendas.Params[0].AsInteger:= StrToInt(cte); DmTabelas.CdsVendas.Open; idLote := FormatDateTime('yymmddhhmm', now); if not(InputQuery('WebServices Eventos: Cancelamento', 'Identificador de controle do Lote de envio do Evento', idLote)) then exit; if not(InputQuery('WebServices Eventos: Cancelamento', 'Justificativa (Digite mais de 15 caracteres)', vAux)) then exit; with ACBrCTe1.EventoCTe.Evento.Add do begin InfEvento.tpAmb := taProducao; ACBrCTe1.Eventocte.idLote := StrToInt(idLote); infevento.chCTe := DmTabelas.CdsVendasCHAVENFE.AsString; infEvento.CNPJ := edtEmitCNPJ.Text; infEvento.dhEvento := Now; infEvento.tpEvento := teCancelamento; InfEvento.nSeqEvento := 1; infEvento.detEvento.xJust := vAux; infEvento.detEvento.nProt := DmTabelas.CdsVendasPROTOCOLO.AsString; infEvento.cOrgao := 35; InfEvento.detEvento.xCondUso := ''; end; DmTabelas.CdsVendas.Close; ACBrCTe1.EnviarEventoCTe(StrToInt(idLote)); MemoResp.Lines.Text := UTF8Encode(ACBrCTe1.WebServices.EnvEvento.RetWS); LoadXML(MemoResp, WBResposta); ShowMessage(IntToStr(ACBrCTe1.WebServices.EnvEvento.cStat)); ShowMessage(ACBrCTe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.nProt); end;

Fiz assim: procedure TfrmDemo_ACBrCTe.Button1Click(Sender: TObject); var vAux, idLote, cte: String; begin if not(InputQuery('WebServices Eventos: Cancelamento', 'Digite o nr. do CTE: ', cte)) then exit; DmTabelas.CdsVendas.Close; DmTabelas.CdsVendas.Params[0].AsInteger:= StrToInt(cte); DmTabelas.CdsVendas.Open; ACBrCTe1.Conhecimentos.Clear; idLote := '1'; if not(InputQuery('WebServices Eventos: Cancelamento', 'Identificador de controle do Lote de envio do Evento', idLote)) then exit; if not(InputQuery('WebServices Eventos: Cancelamento', 'Justificativa (Digite mais de 15 caracteres)', vAux)) then exit; with ACBrCTe1.EventoCTe.Evento.Add do begin infevento.chCTe := DmTabelas.CdsVendasCHAVENFE.AsString; infEvento.CNPJ := edtEmitCNPJ.Text; infEvento.dhEvento := Now; infEvento.tpEvento := teCancelamento; infEvento.cOrgao := 35; infEvento.detEvento.xJust := vAux; infEvento.detEvento.nProt := DmTabelas.CdsVendasPROTOCOLO.AsString; end; DmTabelas.CdsVendas.Close; ACBrCTe1.EnviarEventoCTe(StrToInt(idLote)); MemoResp.Lines.Text := UTF8Encode(ACBrCTe1.WebServices.EnvEvento.RetWS); LoadXML(MemoResp, WBResposta); ShowMessage(IntToStr(ACBrCTe1.WebServices.EnvEvento.cStat)); ShowMessage(ACBrCTe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.nProt); end; Mas está dando o erro conforme imagem em anexo, o que pode ser? Obrigado

Olá boa tarde o código de cancelamento abaixo é compatível com a versão 2.0? procedure TfrmDemo_ACBrCTe.btnCancCTeClick(Sender: TObject); var vAux : String; begin OpenDialog1.Title := 'Selecione o CTe'; OpenDialog1.DefaultExt := '*-cte.xml'; OpenDialog1.Filter := 'Arquivos CTe (*-cte.xml)|*-cte.xml|Arquivos XML (*.xml)|*.xml|Todos os Arquivos (*.*)|*.*'; OpenDialog1.InitialDir := ACBrCTe1.Configuracoes.Geral.PathSalvar; if OpenDialog1.Execute then begin ACBrCTe1.Conhecimentos.Clear; ACBrCTe1.Conhecimentos.LoadFromFile(OpenDialog1.FileName); if not(InputQuery('WebServices Cancelamento', 'Justificativa', vAux)) then exit; ACBrCTe1.Cancelamento(vAux); MemoResp.Lines.Text := UTF8Encode(ACBrCTe1.WebServices.Cancelamento.RetWS); memoRespWS.Lines.Text := UTF8Encode(ACBrCTe1.WebServices.Cancelamento.RetWS); LoadXML(MemoResp, WBResposta); ShowMessage(IntToStr(ACBrCTe1.WebServices.Cancelamento.cStat)); ShowMessage(ACBrCTe1.WebServices.Cancelamento.Protocolo); end; end; Se não for como faço? Obrigado

No demo não foi implementado a carta de correção. Para eu utilizar devo usar o código abaixo? É isso mesmo? Sobre os schemas da versão 2.0 tem vários compactados, qual devo usar? Antes de descompactar é melhor apagar os schemas 1.04? Ou posso deixar junto? PL_CTe_200_NT2013_010.zip PL_CTe_200_NT2013_012.zip PL_CTe_200a_NT2013_013.zip PL_CTe_200pre.zip ACBrCTe.EventoCTe.Evento.Clear; with ACBrCTe.EventoCTe.Evento.Add do begin infevento.chCTe := Chave; infEvento.CNPJ := sCNPJ; infEvento.dhEvento := now; infEvento.tpEvento := teCCe; with ACBrCTe.EventoCTe.Evento.Items[0].InfEvento.detEvento.infCorrecao.Add do begin grupoAlterado := sGrupo; campoAlterado := sCampo; valorAlterado := sValor; nroItemAlterado := iNumItem; end; end; ACBrCTe.EnviarEventoCTe(iNumLote); Obrigado

Valeu deu certo, esta mudança é da versão 2.0? Obrigado

Olá meu cliente acabou de mudar de lucro simples para presumido e preciso destacar o ICMS, mas estou com problemas. Estou simplificando para testar com o seguinte código: Imp.ICMS.SituTrib := cst00; Imp.ICMS.CST00.CST := cst00; // erro nessa linha Imp.ICMS.CST00.vBC := 10000 Imp.ICMS.CST00.pICMS := 7; Imp.ICMS.CST00.vICMS := 700; Mas estou com erro na segunda linha, qual seria o problema? Obrigado

Olá Juliomar eu tenho duas pastas do QuickReport que são: quickrpt (Aqui está o Quick 4) QR4RunD7.dpk Quickrep5 ((Aqui está o Quick 5) - aqui tem o arquivo QR5RunD7.dpk O arquivo QR5RunD7.bpl está nas pastas C:\Program Files\Borland\Delphi7\Bin e C:\Program Files\Borland\Delphi7\Projects\Bpl Será que está com algum conflito, o que posso fazer para arrumar isso e deixar o Quick 5 como oficial? Obrigado

Segue as informações abaixo. Nome do Pacote: QuickReport5 Components Caminho: C:\Program Files\Borland\Delphi 7\Bin\QR5DesignD7.bpl Obrigado

Obrigado Juliomar aquele erro foi solucionado. Em seguida deu alguns erros relacionados ao QuickReport 5.02. Então segui as dicas do arquivo Property_Does Not Exist.txt e resolvi o problema. Agora eu não entendo é que possuo o QuickReport 5.02 instalado com o Delphi 7, mas mesmo assim precisei remover as propriedades? Porque isso acontece?

Boa tarde precisei reinstalar o ACBR e obtive a mensagem de erro "ancestor for frmdacteqr not found" Abri os arquivos correspondentes ao relatório e foi solicitado para remover o componente do canhoto. Removi e em seguida precisei subtrair o código abaixo para o DACTE aparecer if (FResumoCanhoto) then qrlResumoCanhotoCTe2.Caption := getTextoResumoCanhoto else qrlResumoCanhotoCTe2.Caption := ''; Em seguida funcionou. Minha dúvida é este código vai fazer falta? Porque eu tive este erro? Tem alguma outra maneira de sanar este erro sem remover o componente? Obrigado

Obrigado Italo, funcionou.

Olá amigos tenho uma situação que está me incomodando. Uma transportadora de São Paulo vai realizar um frete para um tomador também de São Paulo com frete "A PAGAR", o destinatário é o próprio tomador e o remetente é de Cuiabá - Mato Grosso do Sul. Estou utilizando o CFOP 5353 - transporte para comércio estadual Cidade Origem - Cuiabá - MT Cidade Destino - São José do Rio Preto - SP Está dando erro de "CFOP Inválido", mas se o tomador é de SP, a operação não deve ser estadual? O que devo fazer para corrigir? Obrigado

Ok obrigado pela dica, pelo visto vamos conviver com esse erro quando estivermos depurando o programa.

Valeu obrigado, mas bem que isto poderia ser mais fácil com uma tabela pré-definida do próprio governo.

Como assim, o que tem a ver o internet explorer na jogada, pois eu uso o 8 e dá erro.