Claudio Stein Junior

Apaguei sim.

Olá estou tentando atualizar as dlls do ACBR para enviar e-mails e quero trocar a libeay32.dl pelas dlls libcrypto-1_1.dll e libssl-1_1.dll. Porém quando apago o arquivo libeay32.dl tenho erro ao abrir meu sistema. Diz que a dll libeay32.dl não foi encontrada. De alguma forma estou dependente dela e não sei como resolver. Estou em uma máquina com delphi 7 e windows 7 64 bits.

Olá tem como sair o PIS e o COFINS no Danfe NF-e do Fortes? Procurei nas propriedades a exibição mas não encontrei.

Deu certo aqui, estava mudando o código da NF-e e não da NFC-e. Quando coloquei não integrado passou!

Olá fui validar a forma de pagamento PIX em produção para SP e está dando erro pois nào gera as tags de cartões. Meu código: if (DmContasReceber.CdsFaturasFORMAPGTO.AsString = 'DINHEIRO') and (DmContasReceber.CdsFaturasPIX.AsString = 'S') then begin tPag := fpPagamentoInstantaneo; //fpPagamentoInstantaneo; //fpPagamentoInstantaneoEstatico; tpIntegra := tiPagNaoIntegrado ; // tiNaoInformado; vista:= 'S'; indPag:= Ipvista; end; Meu XML fica apenas com essas Tags: <pag> <detPag> <tPag>17</tPag> <vPag>200.00</vPag> </detPag> </pag> Se alguém puder me ajudar porque não está gerando o grupo, O pix não é integrado com o sistema. Obrigado

Na verdade ainda não deu certo alguns enumeradores. O 4 e 5 não estão indo if DmTabelas.CdsVendasFINALIDADENFE.AsString = '5' then begin Ide.finNFe:= fnCredito; Ide.tpNFCredito:= tcNenhum; if DmTabelas.CdsVendasTIPONOTACREDITO.AsString = '01' then Ide.tpNFCredito:= tcMultaJuros; if DmTabelas.CdsVendasTIPONOTACREDITO.AsString = '02' then Ide.tpNFCredito:= tcApropriacaoCreditoPresumido; if DmTabelas.CdsVendasTIPONOTACREDITO.AsString = '03' then Ide.tpNFCredito:= tcRetorno; //StrTotpNFCredito('03'); if DmTabelas.CdsVendasTIPONOTACREDITO.AsString = '04' then Ide.tpNFCredito:= StrTotpNFCredito('04'); if DmTabelas.CdsVendasTIPONOTACREDITO.AsString = '05' then Ide.tpNFCredito:= StrTotpNFCredito('05'); end;

Consegui descobrir. Obrigado a todos. Segue o código para quem precisar. if DmValores.CdsValoresREFORMATRIBUTARIA.AsString = 'S' then begin if (DmTabelas.CdsVendasFINALIDADENFE.AsString = '6') and (DmTabelas.CdsVendasTIPONOTADEBITO.AsString = '03') then begin Ide.NFref.Clear; DFeReferenciado.chaveAcesso := DmTabelas.CdsVendasCHAVENFECOMPLEMENTAR.AsString; end; if (DmTabelas.CdsVendasFINALIDADENFE.AsString = '6') and (DmTabelas.CdsVendasTIPONOTADEBITO.AsString = '04') then begin Ide.NFref.Clear; DFeReferenciado.chaveAcesso := DmTabelas.CdsVendasCHAVENFECOMPLEMENTAR.AsString; DFeReferenciado.nItem := DmTabelas.CdsItensVendaITEMREF.AsInteger; end; end;

Então não consigo gerar esta tag pois não consigo descobrir o código certo no ACBR para isso: <DFeReferenciado> <chaveAcesso>35251246400996000123550330000001411333141000</chaveAcesso> </DFeReferenciado>

Estou tentando algo assim: IBSCBS.refnItem:= 1; mas fala que identificador não foi declarado.

Estou com esse mesmo problema, alguém tem algum exemplo do XML ou código ACBR para resolver este problema "dfereferenciado nao informado"

Dessa forma não preciso dos enumeradores? Mas os outros enumeradores existem?

Olá não estou conseguindo localizar alguns enumeradores para tipo de nota de crédito e débito. Segue código como está: //tcNenhum, tcMultaJuros, tcApropriacaoCreditoPresumido if DmTabelas.CdsVendasFINALIDADENFE.AsString = '5' then begin Ide.finNFe:= fnCredito; Ide.tpNFCredito:= tcNenhum; if DmTabelas.CdsVendasTIPONOTACREDITO.AsString = '01' then Ide.tpNFCredito:= tcMultaJuros; if DmTabelas.CdsVendasTIPONOTACREDITO.AsString = '02' then Ide.tpNFCredito:= tcApropriacaoCreditoPresumido; if DmTabelas.CdsVendasTIPONOTACREDITO.AsString = '03' then Ide.tpNFCredito:= ; if DmTabelas.CdsVendasTIPONOTACREDITO.AsString = '04' then Ide.tpNFCredito:= ; if DmTabelas.CdsVendasTIPONOTACREDITO.AsString = '05' then Ide.tpNFCredito:=; end; //tdNenhum, tdTransferenciaCreditoCooperativa, tdAnulacao, tdDebitosNaoProcessadas, //tdMultaJuros, tdTransferenciaCreditoSucessao, tdPagamentoAntecipado, tdPerdaEmEstoque if DmTabelas.CdsVendasFINALIDADENFE.AsString = '6' then begin Ide.finNFe:= fnDebito; Ide.tpNFDebito:= tdNenhum; if DmTabelas.CdsVendasTIPONOTADEBITO.AsString = '01' then Ide.tpNFDebito:= tdTransferenciaCreditoCooperativa; if DmTabelas.CdsVendasTIPONOTADEBITO.AsString = '02' then Ide.tpNFDebito:= tdAnulacao; if DmTabelas.CdsVendasTIPONOTADEBITO.AsString = '03' then Ide.tpNFDebito:= tdDebitosNaoProcessadas; if DmTabelas.CdsVendasTIPONOTADEBITO.AsString = '04' then Ide.tpNFDebito:= tdMultaJuros; if DmTabelas.CdsVendasTIPONOTADEBITO.AsString = '05' then Ide.tpNFDebito:= tdTransferenciaCreditoSucessao; if DmTabelas.CdsVendasTIPONOTADEBITO.AsString = '06' then Ide.tpNFDebito:= tdPagamentoAntecipado; if DmTabelas.CdsVendasTIPONOTADEBITO.AsString = '07' then Ide.tpNFDebito:= tdPerdaEmEstoque; if DmTabelas.CdsVendasTIPONOTADEBITO.AsString = '08' then Ide.tpNFDebito:= ; end; Falta localizar o enumerador de débito 08 e os enumeradores 03, 04 e 04 de crédito. Se alguém puder me ajudar agradeço.

Valeu obrigado!

Olá, um cliente foi enviar um CTE em produção usando o SEFAZ de SP e gerou a mensagem de erro: "Classificação tributária inexistente". Estou usando o código: 100200 pois lembro que vi em algum lugar que era um código para transporte. Porém não funciona? Qual código devemos usar para Transporte? o 000001? Já posso mandar para o SEFAZ de SP em produção? Obrigado

Funcionou apenas trocando para o schemas mais atual. Obrigado a todos