gutopmc

Bom dia! Estou fazendo testes na api usando o delphi 7 e esta levando em torno de 4 segundos para retornar os dados. Esta correta essa velocidade?

Achei aonde esta a impressão: Fontes/ACBrDFe/ACBrNFe/DANFE/ACBrNFeDANFEClass.pas. Vou alterar no fonte! for i := 0 to med.Count - 1 do begin if (aNFE.infNFe.Versao >= 4) then Result := Result + 'C.P. ANVISA ' + med.Items[i].cProdANVISA + sQuebraLinha else begin if (dm_nLote in FDetMedicamentos) then Result := Result + 'LOTE: ' + med.Items[i].nLote + sQuebraLinha; if (dm_qLote in FDetMedicamentos) then Result := Result + 'QTD: ' + FormatFloatBr(med.Items[i].qLote, FloatMask(3)) + sQuebraLinha; if (dm_dFab in FDetMedicamentos) then Result := Result + 'FAB: ' + DateToStr(med.Items[i].dFab) + sQuebraLinha; if (dm_dVal in FDetMedicamentos) then Result := Result + 'VAL: ' + DateToStr(med.Items[i].dVal) + sQuebraLinha; end; if (dm_vPMC in FDetMedicamentos) then if (med.Items[i].vPMC > 0) then Result := Result + 'PMC: R$' + FormatFloatBr(med.Items[i].vPMC) + sQuebraLinha; end;

Boa tarde! Cliente quer que troque o 'C.P. ANVISA ' por 'REGISTRO ANVISA ' na impressão do danfe. Tem como fazer isso? Esse texto é previsto , ou seja, tem uma nota que peça seu uso para que eu possa demostrar para o cliente que tem que ser assim?

Isso seria no tpag, que estou enviando 17

Resolvido! Preenchi a tags tband com 99 e a cnpj com o cnpj do banco e transmitiu!

Gerou as tags conforme enviei no post anterior ao seu, só que continua rejeitando o envio

Agora gerou as tags porem da rejeição no envio de que esta faltando informações <pag> - <detPag> <tPag>17</tPag> <vPag>18.67</vPag> - <card> <tpIntegra>1</tpIntegra> <cAut>a6c5046179264a58a0863d9914436080</cAut> <CNPJReceb>00000000000000</CNPJReceb> {tirei o cnpj} <idTermPag>caixa</idTermPag> </card> </detPag> </pag>

Tentei da forma abaixo e não gerou as tags caut,idTermPag,CNPJReceb with DMNFe.ACBrNFe1.NotasFiscais.Items[dmnfe.ACBrNFe1.NotasFiscais.Count-1].NFe.pag.Add do //PAGAMENTOS apenas para NFC-e begin tPag := fpPagamentoInstantaneo; vPag := cdFatura.FieldByName('VLRTICKET').AsFloat; cAut:= cdpix.FieldByName('ID').AsString; CNPJReceb:=DMNFe.cdEmitente.FieldByName('CNPJ').AsString; idTermPag:='caixa'; end;

Bom dia! Esse campo caut é informado aonde?

Estou preenchendo conforme exemplo abaixo, mas no xml só sai o xtexto e da a mensagem falta de informação na transmissão. Alguma dica? with DMNFe.ACBrNFe1.NotasFiscais.Items[dmnfe.ACBrNFe1.NotasFiscais.Count-1].NFe.pag.Add do //PAGAMENTOS apenas para NFC-e begin tPag := fpPagamentoInstantaneo; vPag := cdFatura.FieldByName('VLRTICKET').AsFloat; end; with DMNFe.ACBrNFe1.NotasFiscais.Items[dmnfe.ACBrNFe1.NotasFiscais.Count-1].NFe.InfAdic.obsCont.Add do begin xCampo := 'tPix'; xTexto := '0'; end; with DMNFe.ACBrNFe1.NotasFiscais.Items[dmnfe.ACBrNFe1.NotasFiscais.Count-1].NFe.InfAdic.obsCont.Add do begin xCampo := 'idPIX'; xTexto := cdpix.FieldByName('ID').AsString; end;

Obrigado pela orientação, mudei para ACBrMDFe1.Enviar(NextValue('SEQ_LOTE'),False,true) e funcionou!

Boa tarde, estou enviando no modo síncrono mas esta retornando a mensagem de recepção desativada. Migrar para recepção sincrona Estou usando o comando : ACBrMDFe1.Enviar(NextValue('SEQ_LOTE'),False) Pelo que sei, o false já indica síncrono

Bom dia! Programa vinha funcionando normalmente há meses, de repente, aleatoriamente, começou a dar o erro da consulta. O pix é efetivado mas parece que ocorre um erro ao ler o retorno! Será que aumentar o tempo de aguardar resposta ou algo assim resolve?

qual o nome do arquivo e a pasta aonde a informação do veiculo no fortes report fica localizada?

Na minha opinião não é um "Erro" , os caras querem inverter a ordem de impressão somente. Os veiculos são emplacados normalmente. Não vejo razão para isso, mas estão insistindo. Estou usando a impressão no fortes.