Ir para conteúdo
  • Cadastre-se

jrpiresfs

Membros
  • Total de ítens

    16
  • Registro em

  • Última visita

Últimos Visitantes

O bloco dos últimos visitantes está desativado e não está sendo visualizado por outros usuários.

jrpiresfs's Achievements

Apprentice

Apprentice (3/14)

  • First Post
  • Collaborator Rare
  • Week One Done
  • One Month Later
  • One Year In

Recent Badges

6

Reputação

  1. Boa tarde. O ACBr Boleto já integra com webservice Bradesco ? Grato.
  2. Realmente era apenas isso ! Atualizei o ACBr e foi. Obrigado !
  3. Boa tarde, pessoal! Tudo bem ? Onde será que tô errando ai ? Ele gera tudo certinho, só não tá gerando o k235. Se eu debugo, vejo percorrendo os dados certinho da tabela, mas a bagaça não grava no arquivo. with SPEDFiscal.Bloco_K do begin with RegistroK001New do begin IND_MOV := imComDados; with RegistroK100New do begin DT_INI := edtDataInicial.Date; DT_FIN := edtDataFinal.Date; Q0200.First; while not Q0200.Eof do begin QK200.Close; QK200.SQL.Clear; QK200.SQL.Add('SELECT * FROM C000100 WHERE CODPRODUTO = :CODPRODUTO'); QK200.ParamByName('CODPRODUTO').AsString := Q0200.FieldByName('COD_ITEM').AsString; QK200.Open; // QK200.First; with RegistroK200New do begin COD_ITEM := QK200.FieldByName('CODPRODUTO').AsString; QTD := QK200.FieldByName('ESTOQUE_ATUAL').AsFloat; IND_EST := estPropInformantePoder; COD_PART := ''; DT_EST := edtDataFinal.Date; end; Q0200.Next; end; QK230.Close; QK230.SQL.Clear; QK230.SQL.Add('SELECT * FROM PRODUTO_PRODUCAO '); QK230.SQL.Add('WHERE DATA BETWEEN :DATAI AND :DATAF '); QK230.ParamByName('DATAI').AsDate := edtDataInicial.Date; QK230.ParamByName('DATAF').AsDate := edtDataFinal.Date; QK230.Open; QK230.First; while not QK230.Eof do begin with RegistroK230New do begin DT_INI_OP := QK230.FieldByName('DATA').AsDateTime; DT_FIN_OP := QK230.FieldByName('DATA').AsDateTime; COD_DOC_OP := IntToStr(QK230.FieldByName('IDPK').AsInteger); COD_ITEM := QK230.FieldByName('PRODUTO_FINAL').AsString; QTD_ENC := QK230.FieldByName('QTDE_PRODUZIDA').AsFloat; end; QK235.Close; QK235.SQL.Clear; QK235.SQL.Add('SELECT * FROM PRODUTO_PRODUCAO_INSUMO WHERE IDPRODUCAO = :IDPROD'); QK235.ParamByName('IDPROD').AsInteger := QK230.FieldByName('IDPK').AsInteger; QK235.Open; QK235.First; while not QK235.Eof do begin with RegistroK235New do begin DT_SAIDA := QK230.FieldByName('DATA').AsDateTime; COD_ITEM := QK235.FieldByName('IDINSUMO').AsString; QTD := QK235.FieldByName('QUANTIDADE').AsFloat; QK235.Next end; end; QK230.Next; end; end; end; end;
  4. Boa tarde, pessoal! Em um cliente, tem 2 pcs, amos com windows 10 pro, com a mesma versão do sistema, schemas atualizados, etc... só que um deles não consegue emitir NFe, fica dando esse erro: Erro ao criar/imprimir NFe! Mensagem: Nota(s) não confirmadas: 887->0- Esse erro acontece no retorno da sefaz, e 887 no caso, é o numero da nota.
  5. Desculpem a demora para responder, foi a falta de tempo. Coloquei os schemas da pasta acbr e de fato resolveu! Obrigado à todos!
  6. Boa noite, pessoal! Depois que atualizei o ACBr, estou com o seguinte erro quando tento emitir uma NFe: Erro 1824 - Element(http://www.portalfical.inf.br/nfe}uTrib:"UN" is not a valid value of the local atomic type. '#SA Alguém tem noção do que seja ? Grato.
  7. jrpiresfs

    Dúvida NCM

    Bom dia! Estou buscando o NCM de água de côco natural para colocar num produto de um cliente para envio de NFCe, mas não estou encontrando o correto na internet. Alguém por ai tem uma dica ? Grato.
  8. De fato, Daniel, ficou beeeem melhor! Obrigado pela ajuda! Como marca aqui como resolvido ? rs
  9. Perceba na image, à esquerda, é uma impressão do sistema antigo do cliente e à direita, feito pelo ABCrPosPrinter. Eu preciso colocar uma fonte do tamanho daquele nome MESA ali. Meu código está assim: ACBrPosPrinter1.ImprimirLinha('<a><e><n><c>'+ qrProdutosPRODUTO.AsString + '</c></n></e></a>');
  10. Eu tô olhando o demo aqui, mas não tô achando nada de aumento de fonte. Vei de altura dupla, condensado, expandido, etc... mas nada de tamanho de fonte.
  11. Consegui imprimir pelo ACBrPosPrinter, porém preciso aumentar a fonte de alguns campos. Como faço isso ?
  12. Trabalho com Delphi Seattle e estou enfrentando essa dificuldade. Teria algum exemplo de como fazer esse trambolho(a impressora) funcionar corretamente ? Rs
×
×
  • 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.