Microtecs
Membros Pro-
Total de ítens
69 -
Registro em
-
Última visita
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Tudo que Microtecs postou
-
ACBR-8684 Provedor: Tinus ( Camaragibe) - Alteração layout NFSe
Microtecs replied to Milton Campanhã's tópico in ACBrNFSe
Mesma coisa aqui @Italo Giurizzato Junior continuar utilizando a procedure TACBrNFSeProviderABRASFv2.TratarRetornoEmitir e gera "access violation" ao ler a tag NumNFSe := ObterConteudoTag(AuxNode.Childrens.FindAnyNs('Numero'), tcStr); Se utilizar o padrão nacional TACBrNFSeProviderPadraoNacional.TratarRetornoEmitir gera "access violation" no parse pois o retorno um xml Com relação ao erro na sequencia do xml de envio "Unexpected tag in XML input: CodigoNbs ", consegui implementado a geração do serviço direto na classe TNFSeW_Tinus203; function TNFSeW_Tinus203.GerarServico: TACBrXmlNode; var Item: string; begin Result := CreateElement('Servico'); Result.AppendChild(GerarValores); Result.AppendChild(AddNode(tcStr, '#20', 'IssRetido', 1, 1, NrOcorrIssRetido, FpAOwner.SituacaoTributariaToStr(NFSe.Servico.valores.IssRetido), DSC_INDISSRET)); Result.AppendChild(AddNode(tcStr, '#21', 'ResponsavelRetencao', 1, 1, NrOcorrRespRetencao, FpAOwner.ResponsavelRetencaoToStr(NFSe.Servico.ResponsavelRetencao), DSC_INDRESPRET)); Item := FormatarItemServico(NFSe.Servico.ItemListaServico, FormatoItemListaServico); Result.AppendChild(AddNode(tcStr, '#29', 'ItemListaServico', 1, 8, NrOcorrItemListaServico, Item, DSC_CLISTSERV)); Result.AppendChild(AddNode(tcStr, '#30', 'CodigoCnae', 1, 9, NrOcorrCodigoCNAE, OnlyNumber(NFSe.Servico.CodigoCnae), DSC_CNAE)); Result.AppendChild(AddNode(tcStr, '#31', 'CodigoTributacaoMunicipio', 1, 20, NrOcorrCodTribMun_1, NFSe.Servico.CodigoTributacaoMunicipio, DSC_CSERVTRIBMUN)); Result.AppendChild(AddNode(tcStr, '#32', 'CodigoNbs', 1, 9, NrOcorrCodigoNBS, NFSe.Servico.CodigoNBS, DSC_CMUN)); Result.AppendChild(AddNode(tcStr, '#33', 'Discriminacao', 1, 2000, NrOcorrDiscriminacao_1, StringReplace(NFSe.Servico.Discriminacao, Opcoes.QuebraLinha, FpAOwner.ConfigGeral.QuebradeLinha, [rfReplaceAll]), DSC_DISCR)); Result.AppendChild(AddNode(tcStr, '#34', 'CodigoMunicipio', 1, 7, NrOcorrCodigoMunic_1, OnlyNumber(NFSe.Servico.CodigoMunicipio), DSC_CMUN)); Result.AppendChild(GerarCodigoPaisServico); Result.AppendChild(AddNode(tcInt, '#36', 'ExigibilidadeISS', NrMinExigISS, NrMaxExigISS, NrOcorrExigibilidadeISS, StrToInt(FpAOwner.ExigibilidadeISSToStr(NFSe.Servico.ExigibilidadeISS)), DSC_INDISS)); Result.AppendChild(AddNode(tcInt, '#38', 'MunicipioIncidencia', 7, 7, NrOcorrMunIncid, NFSe.Servico.MunicipioIncidencia, DSC_MUNINCI)); Result.AppendChild(AddNode(tcStr, '#39', 'NumeroProcesso', 1, 30, NrOcorrNumProcesso, NFSe.Servico.NumeroProcesso, DSC_NPROCESSO)); Result.AppendChild(GerarListaItensServico); end; -
Estou com o mesmo problema no município de Matias Barbosa/MG. Segundo eles, as alterações são poucas. Esse link aqui tem as alterações: https://www.futurizesistemas.com.br/faqwebservice.php a URL de produção está diferente do INI que tenho aqui no AcBrMonitorPlus. A URL correta é: https://matiasbarbosamg.futurize-nfse.com.br/webservice/prod
-
Pessoal bom dia! Só dando um feedback. Depois de várias conversas e testes com o pessoal da PEPS (Roberto) eles afirmaram que a impressão em 48 colunas ocorre somente no formato CONDENSADO... isso eu já sabia! kkkkk Agradeço a todos pela ajuda.
-
Então @Daniel Simoes ninguém está dizendo que é um problema. O que ocorre é que implantamos em um cliente que tem umas 4 desse modelo, e nosso software, por característica do extrato, foi feito para 48 colunas. Se colocarmos em modo condensado resolve o problema, mas o cliente reclama que fica pequeno. Estou em contato com a EPSON, e eles afirmam que o modelo suporta até 56 colunas com bobina de 80mm (segundo o manual), porém a versão do Utilty não permite essa configuração. Estamos interagindo com o PEPS, tão breve tenha novidade informo por aqui. Vlw
-
@Daniel Simoes, a questão é que o fato do AcBR ter homologado somente 42 colunas (conforme LINK DE HOMOLOGAÇÃO) , leva a entender que 48 não está homologado. É justamente essa resposta que estou aguardando do fabricante, pois eles irão testar com o ACBrPosPrinter e conjunto de caracteres que enviei pra eles, assim como foi no meu teste local. Quanto ao utilitário (que vc se referiu ao citar o @lucimauro), sim, eu testei, só que infelizmente o Utility v1.72 (que é bem antigo) não possui parametrização para alterar colunas, somente tipo de bobina. Isso que está intrigante. Já a TM-T20 possui um Utilty com essa parametrização, o que não ocorre no Utilty da TM-T88V Estou aguardando resposta ao protocolo 230523000041 aberto no departamento de PEPS da EPSON. Inicialmente, por telefone, o suporte disse que se a atualização do Driver não resolvesse somente seria possível tentar resolver no depto PEPS. Vou aguardar e atualizo vcs por aqui quanto a solução. Obrigado.
-
@BigWings @Daniel Simoespois então. Em contato com o suporte da Epson me pediram pra atualizar o APD para a versão 5.13 (feito): Porém continua ocorrendo o salto de linhas e não respeita 48 colunas. A imagem abaixo, mostra que a homologação no AcBR ocorreu somente em 42 colunas. Creio que seja isso que está ocorrendo. Em nosso software, é possível imprimir em modo condensado, isso resolve a impressão em 48 colunas, porém fica pequeno. Vamos repassar ao cliente a situação. Muito obrigado amigos. Abs
-
Amigos boa noite! Alguém já passou por isso? Estamos quebrando cabeça aqui na empresa com uma mini impressora EPSON TM-T88V Receipt, está configurado como abaixo: strTextoPOS := TStringList.Create; with dtmPrincipal.ACBrPosPrinter1 do begin modeloImpressora:=dtmPrincipal.cdsConsultaPrintMODELO.AsString; dtmPrincipal.strImpressoraImprimindo:=dtmPrincipal.cdsConsultaPrintIMPRESSORA.AsString; {TACBrPosPrinterModelo = (ppTexto, ppEscPosEpson, ppEscBematech, ppEscDaruma, ppEscVox, ppEscDiebold, ppEscEpsonP2);} if (modeloImpressora='EPSON') then iModeloPrint:=1 else if (modeloImpressora='DARUMA') then iModeloPrint:=3 else if (modeloImpressora='BEMATECH') then iModeloPrint:=2 else if (modeloImpressora='DIEBOLD') then iModeloPrint:=5 else if (modeloImpressora='ELGIN') then iModeloPrint:=4; Modelo := TACBrPosPrinterModelo(iModeloPrint); Porta := 'RAW:EPSON TM-T88V Receipt';//dtmPrincipal.cdsConsultaPrintIMPRESSORA.AsString; TraduzirTags := True; ColunasFonteNormal := 48; if dtmPrincipal.cdsConsultaPrintACIONAR_GUILHOTINA.AsInteger=1 then CortaPapel := True else CortaPapel := False; ConfigBarras.LarguraLinha := 3; configBarras.Altura := 85; LinhasEntreCupons := dtmPrincipal.cdsConsultaPrintLINHAS.AsInteger; espacoentrelinhas := dtmPrincipal.cdsConsultaPrintESPACO_ENTRE_LINHAS.AsInteger; //carrega variáveis de tipo de fonte if dtmPrincipal.cdsConsultaPrintCONDENSADO.AsString='True' then strTextoPOS.Add('<c>'); if dtmPrincipal.cdsConsultaPrintNEGRITO.AsString='True' then strTextoPOS.Add('<n>'); if dtmPrincipal.cdsConsultaPrintITALICO.AsString='True' then strTextoPOS.Add('<i>'); //alinhamento a esquerda strTextoPOS.Add('</ae>'); Ativar; end; A questão é que ela somente imprime 42 colunas, não aceitando nenhuma parametrização de 48 colunas. (SEGUE IMAGEM EM ANEXO). Você pode me dizer se existe alguma limitação nesse sentido para esse dispositivo?
