Vilmardiogo

Sim, chequei propriedades da impressora tudo esta configurado como retrato, um detalhe que observei é que na janela de setup aparece paisagem, papel como A5, e mesmo alterando para o que retrato e A4, sai paisagem.

Sim, já tinha conferido isso, esta retrato, mas só imprime em paisagem.

Peterson, ao imprimir o Evento como você sugeriu acima, mesmo setando as propriedades da impressora para que imprima no modo RETRATO, só imprime no modo PAISAGEM, fiz os testes aqui pelo DEMO e só sai PAISAGEM ! Isso procede ?

Boa tarde peterson161, o arquivo XML que você se refere é que termina como "-procEventoNFe", que deva ser enviado ao e-mail ?

Seguinte antes da mudança do cancelamento por evento eu utilizava assim: para imprimir o danfe do cancelamento: ACBrNFe1.NotasFiscais.Clear; ACBrNFe1.NotasFiscais.LoadFromFile( Arq_XML+'-nfe.xml' ); ACBrNFe1.NotasFiscais.Imprimir; ACBrNFe1.NotasFiscais.Clear; ao imprimir aparecia a msg em diagonal NF-e Cancelada. Agora após o cancelamento por evento, qual o procedimento para imprimir o DANFE do cancelamento da NF ? a propriedade AtualizarXMLCancelado do ACBrNFe1 este TRUE.

Olá, pessoal, dúvidas para imprimir o cancelamento do XML. Como proceder, utilizo o codeBase.

Olá pessoal, com estas mudanças do cancelamento, qual a maneira correta de pegar os retornos do cancelamento ? Antes eu pegava assim: sProtocolo := ACBrNFe1.WebServices.Cancelamento.Protocolo; DataCancNFe := ACBrNFe1.WebServices.Cancelamento.DhRecbto; Status_Ret := ACBrNFe1.WebServices.Cancelamento.cStat; xChaveNFe := ACBrNFe1.WebServices.Cancelamento.NFeChave; Com as mudanças posso fazer assim: sProtocolo := ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.nProt; DataCancNFe := ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.dhRegEvento; Status_Ret := ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.cStat; xChaveNFe := ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.chNFe; Se alguém tiver alguma dica, obrigado.

Vilmar, li os posts anteriores, e a melhor alternativa ainda é criar as funções de conversão como ex: StrToSituacaoTribICMS, o que temos que fazer é criar para todos os tipos, vou fazer uma busca nos posts anteriores e ir implementando os código doados. Se todos puder ir contribuindo, rapidamente implementaremos as funções de conversão, aguardo... Bom dia Isaque..., estas funções serão implementadas em qual UNIT ?

Bom dia Isaque, também acho que possa ser melhorado, mas não tenho muita experiencia no desenvolvimento de componentes, mas por hora vou me virando desta forma, quem sabe logo logo os demais colegas compartilhem suas opiniões conosco.

Boa tarde, Isaque... fiz algumas mudanças no componente como já conversamos em post anteriores; As mudanças que fiz foi como você sugeriu, mantendo a compatibilidade do que já tem, criei uma nova propriedade para este fim. A propriedade é CAMPOENUM do tipo Boolean, por padrão é FALSE para manter a compatibilidade do componente com os campos TIPADOS, quando esta propriedade recebe TRUE, é possível passar de forma direta os valores para estes campos. Eu por enquanto fiz os testes nos seguintes campos: IND_PGTO, CST_ICMS, CST_IPI, CST_PIS E CST_COFINS. TRegistroC100 = class fIND_PGTO : TACBrTipoPagamento; /// Indicador do tipo de pagamento: //Vilmar Diogo em 02/10/2012 fIND_PGTO_2 : String; /// Indicador do tipo de pagamento: property IND_PGTO : TACBrTipoPagamento read FIND_PGTO write FIND_PGTO; //Alterado por Vilmar Diogo em 02/10/2012 property IND_PGTO_2 : String read FIND_PGTO_2 write FIND_PGTO_2; TRegistroC170 = class fCST_ICMS : TACBrSituacaoTribICMS; //Vilmar Diogo em 03/10/2012 fCST_ICMS_2 : String; fCST_IPI : TACBrSituacaoTribIPI; //Vilmar Diogo em 03/10/2012 fCST_IPI_2 : String; fCST_PIS : TACBrSituacaoTribPIS; //Vilmar Digoo em 03/10/2012 fCST_PIS_2 : String; fCST_COFINS : TACBrSituacaoTribCOFINS; //Vilmar Diogo em 03/10/2012 fCST_COFINS_2 : String; property CST_ICMS : TACBrSituacaoTribICMS read FCST_ICMS write FCST_ICMS; //Vilmar Diogo em 03/10/2012 property CST_ICMS_2 : String read FCST_ICMS_2 write FCST_ICMS_2; fCST_PIS : TACBrSituacaoTribPIS; /// Código da Situação Tributária referente ao PIS. //Vilmar Digoo em 03/10/2012 fCST_PIS_2 : String; /// Código da Situação Tributária referente ao PIS. fCST_COFINS : TACBrSituacaoTribCOFINS; /// Código da Situação Tributária referente ao COFINS. //Vilmar Diogo em 03/10/2012 fCST_COFINS_2 : String; /// Código da Situação Tributária referente ao COFINS. como podem perceber criei mais uma propriedade para cada campo com final "_2" e do tipo String, esta foi a forma que eu fiz com o objetivo de facilitar o trabalho ao passar as informações nos campos. O exemplo abaixo mostra esta facilidade. with RegistroC100New do begin // da forma TIPADO temos que seguir como abaixo { case dmPisCof.cdsC100IND_PAGTO.Value of 0: IND_PGTO := tpVista; 1: IND_PGTO := tpPrazo; 2: IND_PGTO := tpNenhum; //Ver isso conforme 01/07/2012 manual EFD end; } // da forma DIRETA passo como abaixo bem mais simples IND_PGTO_2 := dmPisCof.cdsC100IND_PAGTO.AsString; end; with RegistroC170New do //Inicio Adicionar os Itens: begin //da forma TIPADO { Case dmPisCof.cdsC170CST_ICMS.AsString of '000': CST_ICMS := sticmsTributadaIntegralmente; '???': CST_ICMS := ???? //Aqui temos que tratar todas as variações da CST em fim, bem trabalhoso end; } //da forma DIRETA CST_ICMS_2 := dmPisCof.cdsC170CST_ICMS.AsString; end; Fiz as alterações somente nos registros RegistroC100 e RegistroC170 para testar Segue em anexo as uints que fiz estas alterações para que os colegas possam compartilhar da ideia se é válida ou não, apos baixar e salvando nas devidas pastas é só recompilar a BPL ACBr_SPED.bpl. ACBrSpedPisCofins.pas ACBrEPCBloco_C.pas ACBrEPCBloco_C_Class.pas

Na minha opinião, não só os campos CSTs, mas todos os que tiverem valores definidos por tabelas que o governo disponibiliza.

Então Isaque..., além da CST_ICMS tem as do PIS, COFINS, IPI e muitos outros casos semelhantes, quanto aos que já utilizam do jeito que esta, minha ideia seria criar uma propriedade no componente onde cada desenvolvedor escolha o que quer usar. Tipo criar a propriedade TIPOCONVERSAO := [tipado,direto], algo deste tipo. Onde [tipado] mantém o que esta e [direto] passando de forma direta o conteúdo. Q que você e os demais colegas acham, será que é possível ?

Olá bom dia Isaque... na minha opinião estes campos deveriam ser informativos, com apenas uma função para validar o seu conteúdo, da maneira que esta é muito complexa pra dar manutenção no código. Minha sugestão é, vou tomar como exemplo o campo IND_PGTO. Atualmente temos que informar assim: IND_PGTO := tpVista; IND_PGTO := tpPrazo; IND_PGTO := tpNenhum; isso se resume no final na instrução abaixo; case IND_PGTO of tpVista : strIND_PGTO := '0'; tpPrazo : strIND_PGTO := '1'; tpSemPagamento : begin if DT_INI >= EncodeDate(2012,07,01) then strIND_PGTO := '2' else strIND_PGTO := '9'; end; tpNenhum : strIND_PGTO := ''; end; Minha ideia é que IND_PGTO receba diretamente os valores '0', '1', '2' ou '9', bastando apenas um função para validar o conteúdo pertinente a este campo. Isso vai diminuir muito o código do componente.

Boa noite pessoal, estas funções de conversão já foram adicionadas em alguma unit do projeto ACBr ?

Opa, Angelo Gomes agora sim funcionou após a dica de Validar antes, embora o Sidnei havia dito isso, mas não compreendi... mas agora esta ok. ACBrNFe1.NotasFiscais.Valida; sChave:= Copy(ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID, 4, 44); Muito obrigado, sucesso a todos.

Olá, regys.silveira, sim perfeitamente, após enviar tranquilo 100% consigo pegar a chave através do componente. O problema é que preciso pegar a chave antes de enviar !

Sidnei_Alves1 ModACBr é um data module ou uma UNIT ? pois com este comando: sChave := ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID; Retorno apenas o número da nota, e eu preciso da Chave !

Boa tarde Angelo... O problema foi resolvido após nova atualização da revisão 3835. Obrigado.

Olá pessoal, acabei de atualizar o componente ACBr via SVN, e após a atualização, ao tentar compilar da o seguinte erro. [DCC Error] ACBrNFeWebServices.pas(1273): E2035 Not enough actual parameters [DCC Fatal Error] ACBrNFeWebServices.pas(62): F2063 Could not compile used unit 'ACBrNFeWebServices' Se comentar a linha 1273 da Unit ACBrNFeWebServices //FDownloadNFe := TNFeDownloadNFe.Create(AFNotaFiscalEletronica); compila normalmente, algum procedimento a fazer ou é um bug mesmo desta revisão ?

Oi, Sidnei... mas você o usa antes do comando enviar ? Testei aqui antes dele mas ele retorna vazio.

Oi, anfm... Uso os comandos padrões para se gerar uma Nota.

Olá pessoal, é possível pegar a chave da NF-e através do componente antes de enviar ? Após enviar pego assim: ACBrNFe1.Enviar(0, False); sChave := ACBrNFe1.NotasFiscais.Items[0].NFe.procNFe.chNFe; Preciso pegar antes do ACBrNFe1.Enviar(0, False);

Ola, anfm... Consegui usando o TMemo, mas após sua sugestão tb funcionou com o TStrings. Muito obrigado a todos, sucesso...

Olá Angelo, sim perfeitamente... a estrutura esta assim Var EmailTrans: TStrings; begin EmailTrans := TStringList.Create; EmailTrans.Add(SQLNFeEMAILTRAN.Value); no parâmetro sCC estou passando assim EmailTrans.Strings[0] ou EmailTrans[0] ambos da erro de incompatibilidade end

Pessoal obrigado pela colaboração, mas ao passar o conteúdo no parâmetro sCC da erro de incompatibilidade. [DCC Error] DANFE_NFe_Saida.pas(170): E2010 Incompatible types: 'TStrings' and 'string'