Fabiano-Objetiva
-
Total de ítens
4 -
Registro em
-
Última visita
Fabiano-Objetiva's Achievements
-
Casas decimais da quantidade impressora FiscNet
um tópico no fórum postou Fabiano-Objetiva ACBrSerial
Boa tarde. Fiz uma alteração no pacote da impressora Termica Elgin (FiscNET), alterando as casas decimais da quantidade de 3 para 4. { FiscNET sempre aceita até 3 decimais na QTD e PrecoUnit } fpDecimaisQtd := 4 ; fpDecimaisPreco := 3 ; Em outro local do fonte já dizia: ADouble := RoundTo(ADouble,-4) ; // FiscNet aceita no máximo 4 casas decimais ACBrECFFiscNET.pas -
Alteracao Pcnnfertxt E Pcnlayouttxt
Fabiano-Objetiva replied to Fabiano-Objetiva's tópico in ACBrNFe
ok. Obrigado -
Alteracao Pcnnfertxt E Pcnlayouttxt
Fabiano-Objetiva replied to Fabiano-Objetiva's tópico in ACBrNFe
Boa tarde. As Alterações acima serão comitadas ? Aguardo retorno Fabiano Hoffmann -
pcnNFeRTXT.pas: Troca do tipo do campo na versao 3.10 de tcDat para tcDatHor. if (nfe.infNFe.Versao < 3.10) then begin (*B09*)NFe.ide.dEmi := LerCampo(tcDat, 'dEmi'); (*B10*)NFe.ide.dSaiEnt := LerCampo(tcDat, 'dSaiEnt'); (*B10a*)NFe.ide.hSaiEnt := LerCampo(tcHor, 'hSaiEnt'); end else begin (*B09*)NFe.ide.dEmi := LerCampo(tcDatHor, 'dhEmi'); NFe.Ide.dSaiEnt := LerCampo(tcDatHor, 'dhSaiEnt'); end; pcnLayoutTXT.pas: Incluído indFinal e indPres. LoadLayout('<B01> B|cUF¨|cNF¨|NatOp¨|indPag¨|mod¨|serie¨|nNF¨|dhEmi¨|dhSaiEnt¨|tpNF¨|idDest¨|cMunFG¨|tpImp¨|tpEmis¨|CDV¨|tpAmb¨|finNFe¨|indFinal¨|indPres¨|procEmi¨|verProc¨|dhCont¨|xJust¨'); pcnLayoutTXT.pas pcnNFeRTXT.pas