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
-
jrpiresfs started following Erro ao gerar bloco K235 e Remessa via webservice Bradesco.
-
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.
-
Impressão de comanda em impressora não fiscal.
jrpiresfs replied to jrpiresfs's tópico in ACBrMonitorPLUS
De fato, Daniel, ficou beeeem melhor! Obrigado pela ajuda! Como marca aqui como resolvido ? rs -
Impressão de comanda em impressora não fiscal.
jrpiresfs replied to jrpiresfs's tópico in ACBrMonitorPLUS
Vou testar aqui e já dou um retorno. -
Impressão de comanda em impressora não fiscal.
jrpiresfs replied to jrpiresfs's tópico in ACBrMonitorPLUS
Vou analisar direitinho amanhã. Obrigado. -
Impressão de comanda em impressora não fiscal.
jrpiresfs replied to jrpiresfs's tópico in ACBrMonitorPLUS
Alterei e saiu do mesmo jeito... rs. -
Impressão de comanda em impressora não fiscal.
jrpiresfs replied to jrpiresfs's tópico in ACBrMonitorPLUS
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>'); -
Impressão de comanda em impressora não fiscal.
jrpiresfs replied to jrpiresfs's tópico in ACBrMonitorPLUS
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. -
Impressão de comanda em impressora não fiscal.
jrpiresfs replied to jrpiresfs's tópico in ACBrMonitorPLUS
Consegui imprimir pelo ACBrPosPrinter, porém preciso aumentar a fonte de alguns campos. Como faço isso ? -
Impressão de comanda em impressora não fiscal.
jrpiresfs replied to jrpiresfs's tópico in ACBrMonitorPLUS
Trabalho com Delphi Seattle e estou enfrentando essa dificuldade. Teria algum exemplo de como fazer esse trambolho(a impressora) funcionar corretamente ? Rs