jrpiresfs

Boa tarde. O ACBr Boleto já integra com webservice Bradesco ? Grato.

Realmente era apenas isso ! Atualizei o ACBr e foi. Obrigado !

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;

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.

Desculpem a demora para responder, foi a falta de tempo. Coloquei os schemas da pasta acbr e de fato resolveu! Obrigado à todos!

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.

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.

De fato, Daniel, ficou beeeem melhor! Obrigado pela ajuda! Como marca aqui como resolvido ? rs

Vou testar aqui e já dou um retorno.

Vou analisar direitinho amanhã. Obrigado.

Alterei e saiu do mesmo jeito... rs.

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>');

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.

Consegui imprimir pelo ACBrPosPrinter, porém preciso aumentar a fonte de alguns campos. Como faço isso ?

Trabalho com Delphi Seattle e estou enfrentando essa dificuldade. Teria algum exemplo de como fazer esse trambolho(a impressora) funcionar corretamente ? Rs