-
Total de ítens
7 -
Registro em
-
Última visita
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Tudo que Zildo Sousa postou
-
Não encontrei o exemplo de NFC-e em contingência... Configurações passo assim, fui vendo em tópicos. if frmmodulo.qrconfigpdv.fieldbyname('CONTINGENCIA').asinteger = 1 then begin Ide.tpEmis := teOffLine; Ide.dhCont := date; Ide.xJust := 'Problemas técnicos no envio da nota fiscal do consumidor eletrônico'; frmmodulo.ACBRNFCe.Configuracoes.Geral.FormaEmissao :=teOffLine ; frmmodulo.ACBRDANFENFCe.ViaConsumidor := false;//imprime uma via pro estabelecimanto frmmodulo.ACBRDANFENFCe.NumCopias := 2; //imprime duas vias end else begin Ide.tpEmis := teNormal; end; O resto de todas as configurações são iguais ao exemplo para poder emitir NFC-e normal, porém quando ele entra em modo "teOffLine" ele não gera um XML
-
Não consigo gerar o xml, e por fim também não a chave de emissão (vi muitos tópicos, porém os mesmos sem resposta) Obs.: Sem modo de contingência passa normalmente ACBRNFCe.NotasFiscais.GerarNFe; ACBRNFCe.NotasFiscais.Assinar; ACBRNFCe.NotasFiscais.Validar; cStatus := 0; ChaveNFCE := ACBRNFCe.NotasFiscais.Items[0].NFe.infNFe.Id; NumeroNFCe := strtoint(vAux); ACBRDANFENFCe.FastFile := 'C:\SISTEMA\PDV\Schemas\DANFeNFCe.fr3'; if FileExists(frmPrincipal.LerINi(sConfiguracoes, 'PDV', 'CAMINHO_LOGO', '')) then ACBRDANFENFCe.Logo := frmPrincipal.LerINi(sConfiguracoes, 'PDV', 'CAMINHO_LOGO', ''); ACBRDANFENFCe.Detalhado := true; ACBRDANFENFCe.vTroco := ed_troco.value; ACBRDANFENFCe.Impressora := edImpressora; ACBRDANFENFCe.DescricaoViaEstabelec := edDescEsta; ACBRDANFENFCe.EspessuraBorda := edMargem; ACBRDANFENFCe.MargemDireita := edMargDir; ACBRDANFENFCe.MargemEsquerda := edMargEsq; ACBRDANFENFCe.MargemSuperior := edMargSup; ACBRDANFENFCe.MargemInferior := edMarginf; ACBRDANFENFCe.MostrarPreview := edPreview; ACBRNFCe.NotasFiscais.Imprimir; ACBRNFCe.NotasFiscais.clear;
-
Nfc-E Em Contingencia
Zildo Sousa replied to FlavioSaikoo's tópico in NFC-e - Nota Fiscal do Consumidor Eletrônica
Também estou com esse problema, conseguiu resolver? Pode dizer como? -
alguem pode me passar um exemplo para implantar nfce no meu projeto delphi 7 todos que ja peguei nao funcionam! procedure TFrmPadraoPafECf.BematechNFCEClick(Sender: TObject); begin Application.CreateForm(TUBemaNFCe, UBemaNFCe); UBemaNFCe.showmodal; end; end. como e que eu declaro aqui pra imprimir nfce??