luighi.augusto

Muito obrigado! Esta dando um erro quanto ao modo de identificação se em Produção ou Homologação. [dcc32 Error] uFaturamentosGrid.pas(671): E2003 Undeclared identifier: 'taProducao' Quais as Units que devem ser declaradas?

Perfeito. A forma de identificação entre modo de produção e homologação foi alterada?

Sim, já fiz estes procedimentos, ele gerou estes erros.

Boa noite pessoal. Estou com algumas dificuldade para converter meu projeto de Trunk para Trunk2... Uma das classes esta dando erro de não referenciada... TpcnTipoNFe [dcc32 Error] uNFEletronica.pas(805): E2003 Undeclared identifier: 'TpcnTipoNFe' Erro ocorre nesta declaração: private { Private declarations } ReferenciaNFe: TReferenciaNFe; FTipoMovimento: TpcnTipoNFe; procedure RegistrarLog(Mensagem: String); procedure CreateParams(var Params: TCreateParams); override; procedure PegaAliquotaCFOP(); procedure AtualizaCSOSNitem(); procedure AtualizaICMSitem(); procedure AtualizaValoresNota(); public conta_correto,bConfirma: boolean; property TipoMovimento: TpcnTipoNFe read FTipoMovimento write FTipoMovimento; { Public declarations } end;

Ja havia feito este procedimento, mas acho que não me entendeu, o erro não esta na instalação da ACBr, esta no fonte dos exemplos. Mesmo fazendo o Update pelo tortoise, ele vem errado, com componente no projeto que não é mais utilizado.

Sim, apaguei todas as pastas do Trunk antigo. Não tem mais nenhum fonte, nem exemplo do Trunk.

Bom dia. Fiz a atualização dos meus fontes devido as melhorias do Trunk2 para utilizar o SAT. Consegui compilar e instalar perfeitamente. Porem, quando fui abrir o exemplo do ACBrSAT, ele da erro pedindo o componente TACBrSATExtratoFortes. Apaguei a pasta, refiz o update, porem sempre vem a pasta com o problema no mesmo componente. Por favor me ajudem. Estou desesperado para resolver um problema e preciso do exemplo como referencia para impressão. Observação, realizei a instalação do Fortes CE e funcionou perfeitamente.

Esse é o exemplo que veio junto dos fontes do Trunk 2. Existe alguma outra forma de realizar o download sem ser pelo tortoise?

Reiniciei a maquina. Apaguei todas as pastas do ACBr da Maquina. Ai consegui instalar corretamente. Quanto fui testar o exemplo do SAT, deu erro na compilação: edtPorta.Text := INI.ReadString('Extrato','Porta','COM1'); ACBrSATExtratoESCPOS1.Device.ParamsString := INI.ReadString('Extrato','ParamsString',''); edtEmitCNPJ.Text := INI.ReadString('Emit','CNPJ',''); edtEmitIE.Text := INI.ReadString('Emit','IE',''); edtEmitIM.Text := INI.ReadString('Emit','IM',''); cbxRegTributario.ItemIndex := INI.ReadInteger('Emit','RegTributario',0); cbxRegTribISSQN.ItemIndex := INI.ReadInteger('Emit','RegTribISSQN',0); cbxIndRatISSQN.ItemIndex := INI.ReadInteger('Emit','IndRatISSQN',0); edtSwHCNPJ.Text := INI.ReadString('SwH','CNPJ','11111111111111'); edtSwHAssinatura.Text := INI.ReadString('SwH','Assinatura',cAssinatura); cbUsarFortes.Checked := INI.ReadBool('Fortes','UsarFortes', True) ; cbUsarEscPos.Checked := not cbUsarFortes.Checked; seLargura.Value := INI.ReadInteger('Fortes','Largura',ACBrSATExtratoFortes1.LarguraBobina); seMargemTopo.Value := INI.ReadInteger('Fortes','MargemTopo',ACBrSATExtratoFortes1.Margens.Topo); seMargemFundo.Value := INI.ReadInteger('Fortes','MargemFundo',ACBrSATExtratoFortes1.Margens.Fundo); seMargemEsquerda.Value := INI.ReadInteger('Fortes','MargemEsquerda',ACBrSATExtratoFortes1.Margens.Esquerda); seMargemDireita.Value := INI.ReadInteger('Fortes','MargemDireita',ACBrSATExtratoFortes1.Margens.Direita); cbPreview.Checked := INI.ReadBool('Fortes','Preview',True); [dcc32 Error] unSATCfg.pas(579): E2003 Undeclared identifier: 'Device' [dcc32 Error] unSATCfg.pas(593): E2003 Undeclared identifier: 'ACBrSATExtratoFortes1' [dcc32 Error] unSATCfg.pas(593): E2029 ')' expected but identifier 'LarguraBobina' found

Boa tarde. Nesta segunda obtive o instalador atualizado. Quando fui executar, deu erro. Log: Caminho: C:\Componentes\ACBr\ Versão do delphi: Delphi XE7 (1) Plataforma: Win32(0) ================================================================================ Setando parâmetros de plataforma... Criando diretórios de bibliotecas... Adicionando library paths... Compiling package C:\Componentes\ACBr\Pacotes\Delphi\synapse\ACBr_synapse.dpk "C:\Program Files\Embarcadero\Studio\15.0\bin\dcc32.exe" "C:\Componentes\ACBr\Pac... \Componentes\ACBr\Lib\Delphi\LibD21" -LN"C:\Componentes\ACBr\Lib\Delphi\LibD21" -NS"Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;System;Xml;Data;Datasnap;Web;Soap;Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell" Compilation failure Compiling package C:\Componentes\ACBr\Pacotes\Delphi\ACBrComum\ACBr_Comum.dpk "C:\Program Files\Embarcadero\Studio\15.0\bin\dcc32.exe" "C:\Componentes\ACBr\Pacotes\Delphi\ACBrComum\ACBr_Comum.dpk" --no-config -B -$O- -$W+ -$Y- -M -Q -H- -W- -DRELEASE -U"C:\Program Files\Embarcadero\Studio\15.0\lib\Win32\release" -U"c:\program files\embarcadero\studio\15.0\lib\Win32\release;C:\Users... \LibD21" -N0"C:\Componentes\ACBr\Lib\Delphi\LibD21" -LE"C:\Componentes\ACBr\Lib\Delphi\LibD21" -LN"C:\Componentes\ACBr\Lib\Delphi\LibD21" -NS"Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;System;Xml;Data;Datasnap;Web;Soap;Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell" Compilation failure Compiling package C:\Componentes\ACBr\Pacotes\Delphi\ACBrDiversos\ACBr_Diversos.dpk "C:\Program Files\Embarcadero\Studio\15.0\bin\dcc32.exe" "C:\Componentes\ACBr\Pacotes\Delphi\ACBrDiversos\ACBr_Diversos.dpk" --no-config -B -$O- -$W+ -$Y- -M -Q -H- -W- -DRELEASE -U"C:\Program Files\Embarcadero\Studio\15.0\lib\Win32\release" -U"c:\program files\embarcadero\studio\15.0\lib\Win32\release;C:\Users... \ZLibExGZ\win64;C:\Componentes\ACBr\Fontes\Terceiros\ZLibExGZ\zlib;C:\Componentes\ACBr\Lib\Delphi\LibD21" -N0"C:\Componentes\ACBr\Lib\Delphi\LibD21" -LE"C:\Componentes\ACBr\Lib\Delphi\LibD21" -LN"C:\Componentes\ACBr\Lib\Delphi\LibD21" -NS"Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;System;Xml;Data;Datasnap;Web;Soap;Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell" Compilation failure CAPICOM instalado com sucesso em "C:\Windows\System32" OPENSSL instalado com sucesso em "C:\Windows\System32" Outras DLL´s instaladas com sucesso em "C:\Windows\System32"

Sim. O diretório esta correto.

Sim. Não é a pasta padrão? Fiz a atualização pelo svn://svn.code.sf.net/p/acbr/code/trunk2 O Erro Persiste.

E como resolvo?

O Problema é que sempre que vou instalar o Trunk 2 da esse erro. Já atualizei repositório e não resolve.

Trunk 1. Toda vez que tentei fazer a Instalação pelo Trunk 2 deu erro. Alias, talvez seja problema nos fontes mesmo. Mesmo colocando em modo produção, ele ainda continua imprimindo como TESTE, sem nome da empresa e dados, ou eu que não estou sabendo utilizar.

Sim, tentei pelo exemplo e o erro ocorre tambem.

Muito obrigado Sergio.

Boa tarde Pessoal. Fui realizar o cancelamento de um dos meus cupons emitidos. Cancelou certinho, porem quando foi imprimir, começou a repetir o cabeçalho. Alguém teve este problema?

Sergio, você grava todo o XML no banco?

Como faço para pegar a chave do XML que ACBrSAT gerou? Chave ou ID.

Obrigado.

Bom dia Pessoal. Existe alguma forma de reimprimir o "CUPOM" do SAT?

Resolvido também. Agradeço.

Muitíssimo obrigado. Fiz a verificação do cliente e realmente o problema estava na cadastro do cliente. Apenas para finalizar, como vocês estão tratando os retornos de erro do SAT e enviando ao usuário?

Esta como Simples Nacional Regime de Tributação Nenhum Ind. Rat. ISSQN Não. Fiz um teste forçando o código: while dmSAT.qItensCupom.Eof <> True do begin with Det.Add do begin nItem := A; Prod.cProd := dmSAT.qItensCupomcod_produto.AsString; Prod.cEAN := dmSAT.qItensCupomcodigobarra.AsString; Prod.xProd := dmSAT.qItensCupomdescricao_prod.AsString; prod.NCM := dmSAT.qItensCupomncm.AsString; if (dmSAT.qClienteuf.AsString = 'SP') then Prod.CFOP := dmSAT.qItensCupomcfopdentro.AsString else Prod.CFOP := dmSAT.qItensCupomcfopfora.AsString; Prod.uCom := dmSAT.qItensCupomunidade.AsString; Prod.qCom := dmSAT.qItensCupomvalor.AsFloat; Prod.vUnCom := dmSAT.qItensCupomquantidade.AsFloat; Prod.indRegra := irTruncamento; Prod.vDesc := dmSAT.qItensCupomdesconto.AsFloat; // Totalização e tributação do Item TotalItem := (Prod.qCom * Prod.vUnCom); // Tributação do item. if (dmSAT.qClienteuf.AsString = 'SP') then begin Imposto.vItem12741 := 0.036; Imposto.ICMS.orig := oeNacional; Imposto.ICMS.CST := cst00; Imposto.ICMS.pICMS := 18; end else begin Imposto.vItem12741 := (TotalItem * (dmSAT.qItensCupomicmsfora.AsFloat / 100)); Imposto.ICMS.orig := oeNacional; Imposto.ICMS.CST := cst00; Imposto.ICMS.pICMS := dmSAT.qItensCupomicmsfora.AsCurrency; end; // PIS Imposto.PIS.CST := pis07; Imposto.PIS.vBC := 0.20; Imposto.PIS.pPIS := 0.00; // Cofins Imposto.COFINS.CST := cof07; Imposto.COFINS.vBC := 0.20; Imposto.COFINS.pCOFINS := 0.00; end; A := A+1; dmSAT.qItensCupom.Next; end; Porem o xml continua com as TAGs vazias: <det nItem="1"> <prod> <cProd>1021</cProd> <cEAN>0000000001021</cEAN> <xProd>CABO DVI</xProd> <NCM>85</NCM> <CFOP>5405</CFOP> <uCom>UN</uCom> <qCom>0.2000</qCom> <vUnCom>1.00</vUnCom> <indRegra>A</indRegra> </prod> <imposto> <vItem12741>0.04</vItem12741> <ICMS> </ICMS> <PIS> <PISSN> <CST>07</CST> </PISSN> </PIS> <COFINS> <COFINSSN> <CST>07</CST> </COFINSSN> </COFINS> </imposto> </det>