Jump to content

Delphi Enterprise 
pela METADE DO PREÇO

botao_delphi.png

 

 

tp_550_logo.png Homologação ACBr Apresenta:
Nova  Impressora
TP-550

botao_saibamais.png

 

 

Curso Dominando o ACBrMonitor
Novo Módulo Soluções de Varejo
Assine o SAC ACBr em qualquer plano e tenha acesso

Saiba Mais

Balança SM100 performance surpreendente

Tecnologia Japonesa   Teclado e Visor resistentes a água
Consumo inteligente de etiquetas   Baixo custo de manutenção
Comunicação Ethernet e WIFI independentes

Saiba Mais

Impressora de Etiquetas ELGIN - L42 PRO

Protocolos PPLA, PPLB, ZPL, EPL (automático)
Porta USB padrão Opcionais: Ethernet, Serial, Paralela
Sensor de Etiquetas Móvel Garantia de 18 meses

Saiba mais

eduardoengcosta

Membros
  • Content Count

    10
  • Joined

  • Last visited

Community Reputation

2 Neutral

About eduardoengcosta

  • Rank
    Novato

Recent Profile Visitors

307 profile views
  1. Bom dia O Registro C185 está faltando a totalização no registro 9900. Está faltando o código na unit ACBrSpedFiscal: if Bloco_C.RegistroC185Count > 0 then begin with New do begin REG_BLC := 'C185'; QTD_REG_BLC := Bloco_C.RegistroC185Count; end; end; ACBrSpedFiscal.pas
  2. Boa Tarde Juliana. Estou anexando os arquivos que foram alterados para análise. Att. ACBrEFDBloco_H.pas ACBrEFDBloco_H_Class.pas ACBrEFDBlocos.pas
  3. Boa Tarde, Alguma solução para o problema citado?
  4. Me desculpe, não foi a minha intenção. Mas alguém poderia me ajudar nesta situação?
  5. BOM DIA. É POSSIVEL COOLOCAR NO DANFE A QTD TRIB E A UNIDADE, MESMO SENDO IGUAIS?
  6. Encontrei um erro em: procedure Tcomb.Assign(Source: TPersistent); begin if Source is Tcomb then begin cProdANP := Tcomb(Source).cProdANP; descANP := Tcomb(Source).descANP; pMixGN := Tcomb(Source).pMixGN; CODIF := Tcomb(Source).CODIF; qTemp := Tcomb(Source).qTemp; UFcons := Tcomb(Source).UFcons; CIDE.Assign(Tcomb(Source).CIDE); ICMS.Assign(Tcomb(Source).ICMS); ICMSInter.Assign(Tcomb(Source).ICMSInter); ICMSCons.Assign(Tcomb(Source).ICMSCons); encerrante.Assign(Tcomb(Source).encerrante); end else inherited; end; não tinha a linha descANP := Tcomb(Source).descANP; Poderiam verificar se já foi corrigido? pcnNFe.pas
  7. Na Unit pcnNfe encontrei um erro na seguinte procedure. procedure TProd.Assign(Source: TPersistent); begin if Source is TProd then begin cProd := TProd(Source).cProd; nItem := TProd(Source).nItem; cEAN := TProd(Source).cEAN; xProd := TProd(Source).xProd; NCM := TProd(Source).NCM; NVE.Assign(TProd(Source).NVE); EXTIPI := TProd(Source).EXTIPI; //genero := TProd(Source).genero; CFOP := TProd(Source).CFOP; uCom := TProd(Source).uCom; qCom := TProd(Source).qCom; vUnCom := TProd(Source).vUnCom; vProd := TProd(Source).vProd; cEANTrib := TProd(Source).cEANTrib; uTrib := TProd(Source).uTrib; qTrib := TProd(Source).qTrib; vUnTrib := TProd(Source).vUnTrib; vFrete := TProd(Source).vFrete; vSeg := TProd(Source).vSeg; vDesc := TProd(Source).vDesc; vOutro := TProd(Source).vOutro; IndTot := TProd(Source).IndTot; DI.Assign(TProd(Source).DI); xPed := TProd(Source).xPed; nItemPed := TProd(Source).nItemPed; detExport.Assign(TProd(Source).detExport); veicProd.Assign(TProd(Source).veicProd); med.Assign(TProd(Source).med); rastro.Assign(TProd(Source).rastro); (Não existia este procedimento). arma.Assign(TProd(Source).arma); comb.Assign(TProd(Source).comb); nRECOPI := TProd(Source).nRECOPI; nFCI := TProd(Source).nFCI; CEST := TProd(Source).CEST; indEscala := TProd(Source).indEscala; CNPJFab := TProd(Source).CNPJFab; cBenef := TProd(Source).cBenef; end else inherited; end; Sem esta linha não estava carregando os dados de rastreabilidade do produto. Alguém poderia me ajudar com essa informação, pois acho que é um erro.
×
×
  • Create New...