wagner_fix

Tive que fazer para o meu cliente... Acabei de testar e funciona perfeitamente... while (not DM.SqlAux.Eof ) do begin ACBrCTe1.DACTe.NumCopias := StrToInt(txtQtde.Text); PathArquivo := ACBrCTe1.Configuracoes.Arquivos.GetPathCTe(DM.SqlAux.FieldByName('DTEHR1').AsDateTime); Arq := PathArquivo+'\'+Trim(DM.SqlAux.FieldByName('CHAVE').AsString)+'-cte.xml'; ACBrCTe1.Conhecimentos.Clear; ACBrCTe1.Conhecimentos.LoadFromFile(Arq); ACBrCTe1.DACTe.MostrarPreview := False; ACBrCTe1.Conhecimentos.Imprimir; DM.SqlAux.Next; end;

Olá bom dia a todos... Meu cliente está me perguntando se tem como sair a razão social do emitente no canhoto do DACTE... Uso a versão Quickreport... Grato, Wagner

Olá bom dia a todos... Hoje tive problema com o meu cliente para cancelamento de ct-e... E ele não conseguia cancelar... Ao pesquisar na web e o próprio erro dizia: 7 dias (168 horas) pois bem... O que ele estava tentando cancelar era do dia 29/12/2013, só que ele tentou cancelar um do dia 09/01/2014 e hoje é dia 29/01/2014, 20 dias depois e aceitou... Pesquisei no site da fazenda pela chave e lá consta que está cancelado... Alguém poderia me ajudar qual o prazo real do cancelamento? Grato, Wagner

Faz um While do seu select do banco de dados e esse comando dentro... PathArquivo := ACBrCTe1.Configuracoes.Arquivos.GetPathCTe(StrToDate(txtEmissao.Text)); Arq := PathArquivo+'\'+Trim(txtChave.Text)+'-cte.xml'; ACBrCTe1.Conhecimentos.Clear; ACBrCTe1.Conhecimentos.LoadFromFile(Arq); ACBrCTe1.Conhecimentos.Imprimir;

Eu faço isso no meu sistema... {Imprimir com a quantidade de cópia desejada} if (AuxVisu = 1) then begin AuxQtdCopia := InputBox('Impressão','Informe a Quantidade',Trim(AuxQtdCopia)); ACBrCTe1.DACTe.NumCopias := StrToInt(AuxQtdCopia); ACBrCTe1.Enviar(1,True); end;

Agora sim Ítalo perfeito... Grato, Wagner

Italo boa tarde... Obrigado pela resposta... Mas não funcionou... Tentei pegar alguns exemplos na internet e não encontrei nada... Eu estou jogando esse comando aqui veja... Está correto?? if (Application.MessageBox('Deseja Realmente Gerar/Assinar/Validar/Transmitir o CT-e?','Pergunta',MB_YESNO+MB_ICONQUESTION) = IDYES) then begin ACBrCTe1.DACTe.MostrarPreview := False; ACBrCTeDACTeQR1.MostrarPreview := False; ACBrCTeDACTeQR1.Email := '[email protected]'; ToolBar1.Enabled := False; btnGerar.Enabled := False; btnEmail.Enabled := False; btnDacte.Enabled := False; btnStatus.Enabled := False; btnCancelar.Enabled := False; btnErro.Enabled := False; MemoResp.Lines.Clear; MemoResp.Lines.Add('-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------'); MemoResp.Lines.Add('Gerando XML...'); MemoResp.Refresh; NaoEmitidos; // Gera o XML, Assina e Salva o Arquivo memoResp.Lines.Add('Se preparando para Assinar...'); memoResp.Lines.Add('Assinando...'); memoResp.Refresh; ACBrCTe1.Conhecimentos.Assinar; .............................

Olá pessoal bom dia... Estou usando a versão 1.4 do CT-e e tenho uma dúvida. É possível sair impresso no Dacte o e-mail do emitente? Não vi essa propriedade do componente... Grato, Wagner

Pessoal boa noite dei uma boa pesquisada na internet e não achei nada... Estou com uma nova cliente e na sexta dia 04/08/2013 ela emitiu 3 ct-e perfeitamente sem erro algum... Depois de emitir a contadora disse que o campo CST da receita está em branco veja a imagem em anexo... Olha o código que estou usando... case cbxIcmsCod.ItemIndex of 0: begin AuxVal1 := 0; AuxVal2 := 0; AuxVal3 := 0; Imp.ICMS.SituTrib := cst00; Imp.ICMS.ICMS00.CST := cst00; // Tributação Normal ICMS AuxVal1 := StringFloat(txtICMSBC.Text); AuxVal2 := StringFloat(txtICMSAliq.Text); AuxVal3 := StringFloat(txtICMSCred.Text); Imp.ICMS.ICMS00.vBC := RoundTo(AuxVal1, -2); Imp.ICMS.ICMS00.pICMS := RoundTo(AuxVal2, -2); Imp.ICMS.ICMS00.vICMS := RoundTo(AuxVal3, -2); end; 1: begin AuxVal1 := 0; AuxVal2 := 0; AuxVal3 := 0; AuxVal4 := 0; Imp.ICMS.SituTrib := cst20; Imp.ICMS.ICMS20.CST := cst20; // Tributação com BC reduzida do ICMS AuxVal1 := StringFloat(txtICMSPerc.Text); AuxVal2 := StringFloat(txtICMSBC.Text); AuxVal3 := StringFloat(txtICMSAliq.Text); AuxVal4 := StringFloat(txtICMSCred.Text); Imp.ICMS.ICMS20.pRedBC := RoundTo(AuxVal1, -2); Imp.ICMS.ICMS20.vBC := RoundTo(AuxVal2, -2); Imp.ICMS.ICMS20.pICMS := RoundTo(AuxVal3, -2); Imp.ICMS.ICMS20.vICMS := RoundTo(AuxVal4, -2); end; 2: begin Imp.ICMS.SituTrib := cst40; Imp.ICMS.ICMS45.CST := cst40; // ICMS Isento end; 3: begin Imp.ICMS.SituTrib := cst41; Imp.ICMS.ICMS45.CST := cst41; // ICMS não Tributada end; 4: begin Imp.ICMS.SituTrib := cst51; Imp.ICMS.ICMS45.CST := cst51; // ICMS diferido end; 5: begin AuxVal1 := 0; AuxVal2 := 0; AuxVal3 := 0; AuxVal4 := 0; Imp.ICMS.SituTrib := cst60; Imp.ICMS.ICMS60.CST := cst60; // Tributação atribuida ao tomador ou 3. por ST AuxVal1 := StringFloat(txtICMSBC.Text); AuxVal2 := StringFloat(txtICMSAliq.Text); AuxVal3 := StringFloat(txtICMSCred.Text); AuxVal4 := StringFloat(txtICMSOutor.Text); Imp.ICMS.ICMS60.vBCSTRet := RoundTo(AuxVal1, -2); Imp.ICMS.ICMS60.pICMSSTRet := RoundTo(AuxVal2, -2); Imp.ICMS.ICMS60.vICMSSTRet := RoundTo(AuxVal3, -2); Imp.ICMS.ICMS60.vCred := RoundTo(AuxVal4, -2); end; 6: begin AuxVal1 := 0; AuxVal2 := 0; AuxVal3 := 0; AuxVal4 := 0; AuxVal5 := 0; Imp.ICMS.SituTrib := cst90; Imp.ICMS.ICMS90.CST := cst90; // ICMS Outros AuxVal1 := StringFloat(txtICMSPerc.Text); AuxVal2 := StringFloat(txtICMSBC.Text); AuxVal3 := StringFloat(txtICMSAliq.Text); AuxVal4 := StringFloat(txtICMSCred.Text); AuxVal5 := StringFloat(txtICMSOutor.Text); Imp.ICMS.ICMS90.pRedBC := RoundTo(AuxVal1, -2); Imp.ICMS.ICMS90.vBC := RoundTo(AuxVal2, -2); Imp.ICMS.ICMS90.pICMS := RoundTo(AuxVal3, -2); Imp.ICMS.ICMS90.vICMS := RoundTo(AuxVal4, -2); Imp.ICMS.ICMS90.vCred := RoundTo(AuxVal5, -2); end; 7: begin AuxVal1 := 0; AuxVal2 := 0; AuxVal3 := 0; AuxVal4 := 0; Imp.ICMS.SituTrib := cst90; Imp.ICMS.ICMSOutraUF.CST := cst90; // Tributação devido a outra UF AuxVal1 := StringFloat(txtICMSPerc.Text); AuxVal2 := StringFloat(txtICMSBC.Text); AuxVal3 := StringFloat(txtICMSAliq.Text); AuxVal4 := StringFloat(txtICMSCred.Text); Imp.ICMS.ICMSOutraUF.pRedBCOutraUF := RoundTo(AuxVal1, -2); Imp.ICMS.ICMSOutraUF.vBCOutraUF := RoundTo(AuxVal2, -2); Imp.ICMS.ICMSOutraUF.pICMSOutraUF := RoundTo(AuxVal3, -2); Imp.ICMS.ICMSOutraUF.vICMSOutraUF := RoundTo(AuxVal4, -2); end; 8: begin Imp.ICMS.SituTrib := cstICMSSN; Imp.ICMS.ICMSSN.indSN := 1; // Simples Nacional end; end; Já testei com várias versões de shemas e nada até agora... Alguém pode me ajudar? Grato,

Já fiz e não resolveu... Grato

Segue o xml Grato, Wagner 35130867397737000160570010000000201000000200-cte.xml

Acabei de fazer isso e deu certo... Muito obrigado... Se possível só aguardo como formatar o cpf do motorista... Grato Wagner

Ítalo boa tarde... Fiz conforme sua dica e continua não aparecendo veja o meu código abaixo será que fiz algo de errado? Grato with infCarga.InfQ.Add do begin tpMed := 'PESO BASE DE CALCULO'; qCarga := StringFloat(txtPeso.Text); end; with infCarga.InfQ.Add do begin tpMed := 'PESO BRUTO'; qCarga := StringFloat(txtPeso.Text); end;

Olá pessoal boa tarde... Estou com dúvidas quanto ao preenchimento do DACTE vocês podem me ajudar? 1º) Na impressão do cpf do motorista a formatação está saindo incorreto vejam 13.000.000/000- como formato para sair 000.000.000-00??? 2º) Como faço para imprimir os Campos? PESO BRUTO (Kg), PESO BASE CÁLC. (Kg)??? Grato, Wagner

Estou usando o Delphi 2007

Pessoal então como eu instalo esse tal de Rave que eu nunca acho na internet? Qual a versão??? Ele é pago? Grato, Wagner

Olá Pessoal bom dia... Estou com problemas ao imprimir Carta de Correção... Eu estou usando esse comando OpenDialog1.Title := 'Selecione a NFE'; OpenDialog1.DefaultExt := '*.XML'; OpenDialog1.Filter := 'Arquivos XML (*.XML)|*.XML|Todos os Arquivos (*.*)|*.*'; OpenDialog1.InitialDir := ACBrNFe1.Configuracoes.Geral.PathSalvar; if OpenDialog1.Execute then begin ACBrNFe1.NotasFiscais.Clear; ACBrNFe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName); end; OpenDialog1.Title := 'Selecione o Evento'; OpenDialog1.DefaultExt := '*.XML'; OpenDialog1.Filter := 'Arquivos XML (*.XML)|*.XML|Todos os Arquivos (*.*)|*.*'; OpenDialog1.InitialDir := ACBrNFe1.Configuracoes.Geral.PathSalvar; if OpenDialog1.Execute then begin ACBrNFe1.EventoNFe.Evento.Clear; ACBrNFe1.EventoNFe.LerXML(OpenDialog1.FileName) ; ACBrNFe1.ImprimirEvento; end; Obs.: Estou usando o Quick Report para imprimir... Segue a imagem do erro... Alguém pode me ajudar por favor.. Grato, Wagner

Italo quando eu faço desse jeito... CodigoMunicipio := StrToInt(txtRemeCodUf.Text)= 35 * 100000 + StrToInt(txtRemeCodCid.Text)= 09502; Rem.EnderReme.cMun := CodigoMunicipio; Dá o erro que eu te informei.. Tem explicação?? E quando eu faço isso Rem.EnderReme.cMun := 3509502; Funciona.

Vamos lá Italo vou tentar te explicar... e me corrija se eu estiver errado... UF: SP (tabela do IBGE = 35) xMun: Campinas (tabela do IBGE = 3509502) txtRemeCodUf.Text := '35'; txtRemeCodCid.Text := '3509502'; CodigoMunicipio := StrToInt(txtRemeCodUf.Text) * 100000 + StrToInt(txtRemeCodCid.Text); Rem.EnderReme.cMun := CodigoMunicipio; Quando faço isso dá falha... A mesma que descrevi acima... Vi que você tirou o 35 do código da cidade... Também fiz isso e o erro foi o mesmo... mas se agora eu faço isso... Rem.EnderReme.cMun := StrToInt(txtRemeCodCid.Text); Funciona normalmente... O que posso estar fazendo errado? Obrigado, Wagner

Usa o exemplo do TXT... fiz e funcionou de boa... var PathArquivo, NomeArquivo: String; begin ACBrCTe1.DACTe.NumCopias := 1; PageControl2.ActivePageIndex := 0; PathArquivo := ACBrCTe1.Configuracoes.Arquivos.GetPathCTe(StrToDate(txtEmissao.Text)); NomeArquivo := PathArquivo+'\'+Trim(txtChave.Text)+'-cte.xml'; // Carrega no Componente o CTe salvo em Arquivo XML ACBrCTe1.Conhecimentos.Clear; ACBrCTe1.Conhecimentos.LoadFromFile(NomeArquivo); memoLog.Lines.Add('XML:'); memoLog.Lines.Add(' Carregado'); memoLog.Lines.Add(' CT-e: '+Copy(Trim(txtCTe.Text),4,44)); memoLog.Lines.Add(' Aguarde a Impressão...'); // Somente imprime o CTe ACBrCTe1.Conhecimentos.Imprimir;

Olá Italo boa tarde... Fiz conforme o seu script e não funcionou... Só que se eu fizer isso... Rem.EnderReme.cMun := StrToInt(txtRemeCodCid.Text); Funciona... Está incorreto se eu fazer isso?

Pessoal estou com dificuldades ao enviar o XML Está dando o erro... Rejeição: Codigo de Municipio de localizacao remetente: digito invalido Isso quer dizer que não somo somo mais? Tipo: CodigoMunicipio := StrToInt(txtRemeCodUf.Text) * 100000 + StrToInt(txtRemeCodCid.Text); Rem.EnderReme.cMun := CodigoMunicipio; Faço direto? Rem.EnderReme.cMun := StrToInt(txtRemeCodCid.Text); Não quero arriscar sem antes ter a certeza... Obrigado, Wagner

Vejam a soluçaõ... http://acbr.sourceforge.net/drupal/?q=node/38

Pessoal também estava com o mesmo problema e consegui resolver o problema nesse link... http://acbr.sourceforge.net/drupal/?q=node/38

COnseguiram resolver esse problema??? Eu ainda não consigo.. Dizem que podem ser o meu A3 mas eu já testei no emissor gratuito da receita e funciona normalmente.