Ir para conteúdo
  • Cadastre-se

Zildo Sousa

Membros
  • Total de ítens

    7
  • Registro em

  • Última visita

Tudo que Zildo Sousa postou

  1. 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
  2. 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;
  3. Também estou com esse problema, conseguiu resolver? Pode dizer como?
  4. Estou com o mesmo problema, como conseguiu resolver? GERO A NOTA EM CONTIGÊNCIA, MAS NÃO VEM A CHAVE DE ACESSO
  5. 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??
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.