Aurino

Boa Tarde Estou estudando o demo, e ao envia, apresenta o erro abaixo: 1 - Código da UF do Emitente diverge da UF autorizadora. Alguém sabe informar o que pode ser!? Ide.procEmi := peAplicativoContribuinte; Ide.verProc := '1.0'; Ide.UFIni := 'MA'; Ide.UFFim := 'MA'; with Ide.infMunCarrega.Add do begin cMunCarrega := 2111300; xMunCarrega := 'SAO LUIS'; end;

Nem eles querem fazer os ajustes que lançaram....

GalvaoSistemas Tente Assim: procedure ATUALIZAR; var F TextFile; bufer: string; begin AssignFile(F, 'c:\seu_script.sql'); Reset(F); Readln(F, buffer); while not eof(F) do begin with query1 do begin Active := False; SQL.Clear; SQL.Add(buffer); grava; end; Readln(F, buffer); end; CloseFile(F); end; procedure SALVAR; begin Try Database.StartTansaction; query1.ExecSQL; Database.Commit; except showmessage('Scritp instalado com sucesso.'); Database.Rollback; end; end;

Ver se isso resolve... Nesta edição do Flash Tip iremos demonstrar como efetuar a atualização ou instalação do novo Driver USB 3.3.0, para as impressoras MP-4200 TH, MP-4200 TH FI e MP-4200 TH FI II. Reforçamos que este procedimento e artefato se aplicam ao SO Windows, contemplando arquiteturas 32 e 64 bits. Como exemplo, utilizaremos a impressora MP-4200 TH, contudo, reforçarmos que o processo permanece o mesmo também para as impressoras MP-4200 TH FI e MP-4200 TH FI II. Logo após a impressora ser conectada ao computador e ligada, será possível reconhece-la no gerenciador de dispositivos do Windows, geralmente identificada como “Bematech MP-4200 TH (COMXX)”, conforme a imagem abaixo: Caso algum driver de Spooler, Serial Driver ou o Bematech User Software estejam instalados na máquina, neste momento eles devem ser removidos para evitar conflito de versões e uso de portas (Passo 01). Tratando-se de uma instalação nova, pode-se seguir o procedimento a partir do segundo passo. 01 – Desinstalação dos drivers antigos Para simplificar e agilizar a remoção dos artefatos antigos, orientamos o uso do aplicativo BemaGhost neste processo. A interface de uso lista os equipamentos compatíveis e permite a remoção dos drivers através da seleção de uma determinada opção no menu de exibição. Em nosso cenário específico, iremos utilizar a opção “13 – Remover drivers não fiscais” que irá afetar os drivers das opções 8 à 10, mas caso você esteja utilizando a MP-4200 TH FI ou MP-4200 TH FI II, deverá utilizar a opção “12 – Remover drivers Fiscais” Caso ainda não tenha baixado o driver, ele pode ser encontrado neste link. Além de desinstalar o driver, este aplicativo automatiza a remoção do dispositivo e a liberação da porta de comunicação, passos importantes para evitar o mal funcionamento e perdas de comunicação posteriormente. Após a conclusão do processo é essencial reiniciar o computador. 02 – Instalação do driver USB Após conectar e ligar a impressora, o gerenciador de dispositivos do Windows irá reconhecer o novo hardware conforme a imagem abaixo, geralmente atribuindo a identificação “MP-4200 TH Miniprinter”: Caso o Windows solicite confirmação para instalar algum driver genérico, essa operação pode ser interrompida. Após identificado que o Windows reconheceu a impressora, clique com o botão direito no dispositivo e selecione a opção“Atualizar Driver”: Será exibida uma caixa de diálogo sobre a pesquisa do driver a ser instalado. Selecionar a opção “Procurar software de driver no computador”: Em seguida, deve-se selecionar a pasta onde foi descompactado o driver da impressora. Caso ainda não tenha baixado o driver, ele pode ser encontrado neste link. Após clicar em “Avançar”, o Windows irá reconhecer o driver e exibirá uma caixa de diálogo solicitando confirmação para a instalação do software. Neste passo, o nome e o editor do driver devem ser iguais aos mencionados na imagem abaixo: Em caso positivo, deve-se selecionar a checkbox “Sempre confiar em software da BEMATECH S.A” e clicar em“Instalar”. O Windows exibirá uma caixa de diálogo informando que a instalação do driver está em curso: Ao final do processo, será exibida uma caixa de diálogo com a informação de que a instalação da impressora foi concluída com sucesso: A alteração poderá ser confirmada nas propriedades da impressora, dentro do gerenciador de dispositivos do Windows: Fonte: http://partners.bematech.com.br/

Boa Tarde Cavali25. Instala primeiro o Forte direto pelo próprio instalador deles: http://fortesreport.com.br/?page_id=25 Depois instala o trunk sem marcar os componentes do fortes. Qualquer coisa só chamar.

Apesar da prorrogação, a tabela CEST tem problemas, pois não possui todos os NCM disponível pelo IBPT.

Estou gerando a TAG CEST descrito como está no exemplo no Trunk2. CEST = 1111111 ou informado pelo usuario conforme descrito em tabela CEST. Ou seja se o usuario nao informar, o cest ficará 1111111.

E2063 CLOUD NOT COMPILE USER UNIT 'AJBarcode.pass' Alem do erro mencionado acima E2003 undeclared identifier: ' TpcnIndicadorNFe ' E2005 ' TpcnIndicadorNFe ' is not a type identifier Esta gerando tambem o erro abaixo:

Boa Noite Pessoal Estou realizando a migração.Fiz os procedimentos de migração. Porém ao compilar minha aplicação, apresentou o seguinte erro: E2003 undeclared identifier: ' TpcnIndicadorNFe ' E2005 ' TpcnIndicadorNFe ' is not a type identifier O erro chamou o arquivo chamado USincronizaManifestacao. Alguem sabe resolver!?

Reinaldohc Estou trabalhando ainda na Partilha de ICMS. Tambem estou sem tempo para mudar a novo trunk. Muitas mudancas e altrações de codigo que será necessário para rodar legal.

Juliomar Marchetti, valeu amigo.

Juliomar Marchetti, opa, desculpa! Na próxima vou hospedar fora e compartilhar apenas o link, apesar do tamanho enviado (205kb) Obrigado pela informação.

Respondi também com essa alteração e em mais arquivos no link Minha aplicação gerou a tac CEST usando no Trunk1 ainda.

3Soft Sistemas, isso é bem verdade. Fiz tal alteração pois ainda não tenho tempo para realizar a migração para o Trunk2. Mas compreendo as novas mudanças e melhorias para o Trunk2. Mudança apenas para o CEST.

A quem possa interessar, segue o PCN2 atualizado contendo apenas os arquivos que realizei as devidas as alterações para gerar a tac CEST no XML no Trunk1. Substituir e após compilar. *Antes de efetuar a substituição dos originais, faça uma cópia de segurança da sua pasta completa, e após substitua os arquivos pelos os arquivos atualizados. PCN2.rar

A quem possa interessar, PCN2 conforme imagem abaixo: Minha aplicação gerou a tac CEST normalmente. *Antes de fazer transferir o PCN2 atualizado, realize o backup da pasta PCN2 do ACBr para outro diretorio ou apenas renomei para PCN2_Original. PCN2.rar

Acrescentei manualmente nos arquivos dos fontes do ACBr no Trunk1, a TAG CEST e esta funcionando por aqui. Vou postar os arquivos atualizados em instante.

Ainda estou no Trunk1 e tive que realizar as alterações direto nos fontes do ACBR baixado. Conseguir gerar a tag CEST no Trunk1 normalmente e autorizou. Agora estou passando para o Partilha de ICMS e as tags previstas pela NT 2015/002 e 003.

Coloca o XML para analisarmos.

Efetue a instalação sem o report. E faça a instalação própria: http://fortesreport.com.br/?page_id=25

Endereco: svn://svn.code.sf.net/p/acbr/code/trunk2

Boa Tarde As notas referencias estão sendo autorizada agora porém no modo normal, venda 5102, apresenta o erro abaixo.Coloco o codigo também para ajuda. O que poderia esta faltando ou de errado?! Codigo da referencia da nota após {referenciando nota fiscal de devolucacao} Erro ao gerar nota fiscal com Ide.finNFe := fnNormal NRref cannot be empty according the DTD/Schema ### Procedimento Chamando campo para informar o numero da chave refenciada begin TEdit(Sender).Color := clwindow; if Finalidade_nfe.text = '4' then begin Nota_Referenciada.showmodal; end; end; ### funcao gerando XML function Tfrmnotafiscal.Gerar_XML(): string; ... with ACBrNFe1.NotasFiscais.add.NFe do begin infNFe.ID := qrnota.fieldbyname('numero').asstring; Ide.natOp := qrnota.fieldbyname('natureza').asstring; Ide.nNF := StrToInt(qrnota.fieldbyname('numero').asstring); Ide.cNF := StrToInt(qrnota.fieldbyname('numero').asstring); Ide.modelo := 55; Ide.serie := StrToInt(qrnota.fieldbyname('serie_nf').asstring); Ide.dEmi := qrnota.fieldbyname('data').AsDateTime; Ide.dSaiEnt := qrnota.fieldbyname('data_saida').AsDateTime; Ide.hSaiEnt := StrToTime(qrnota.fieldbyname('hora').asstring);; Ide.hSaiEnt := Time; if qrnota.fieldbyname('MOVIMENTO').asstring = 'S' then Ide.tpNF := tnSaida else Ide.tpNF := tnEntrada; {referenciando nota fiscal de devolucacao} if qrnota.fieldbyname('finalidade_nfe').asstring = '1' then Ide.finNFe := fnNormal else if qrnota.fieldbyname('finalidade_nfe').asstring = '2' then Ide.finNFe := fnComplementar Else If qrnota.fieldbyname('finalidade_nfe').asstring = '3' then Ide.finNFe := fnAjuste else if qrnota.fieldbyname('finalidade_nfe').asstring = '4' then Ide.finNFe := fnDevolucao ; with Ide.NFref.Add do begin refNFe := qrnota.fieldbyname('ChaveReferenciada').asString; end;

Rodrigo coloque o XML da Nota para analisarmos. Eu usei assim: with IPI do begin CST := ipi99 ; clEnq := '999'; CNPJProd := ''; cSelo := ''; qSelo := 0; cEnq := '999'; end;

Qual componente você está utilizando!?

Disponibiliza do AcbrNfeUtil.pas Rogério Ricardo. Ou o endereço do trunk1.