26 Jul 2019 17:48
FUNCTION XmlTag( cTag, xValue, nDecimals, lConvert )
LOCAL cXml
hb_Default( @nDecimals, 2 )
hb_Default( lConvert, .T. )
IF lConvert
IF ValType( xValue ) == "D"
xValue := DateXml( xValue )
ENDIF
IF ValType( xValue ) == "N"
xValue := NumberXml( xValue, nDecimals )
ENDIF
xValue := AllTrim( xValue )
DO WHILE Space(2) $ xValue
xValue := StrTran( xValue, Space(2), Space(1) )
ENDDO
ENDIF
IF Len( xValue ) == 0
cXml := [<]+ cTag + [/>]
ELSE
cXml := [<] + cTag + [>] + xValue + [</] + cTag + [>]
ENDIF
RETURN cXml
cXml += XmlTag( "qTrib", NumberXml( jpitped->ipQtde, 4 ) )
cXml += XmlTag( "vUnTrib", NumberXml( iif( lSomenteIcms, 0, jpitped->ipPreNot ), 5 ) )
IF jpitped->ipValFre != 0
cXml += XmlTag( "vFrete", NumberXml( jpitped->ipValFre, 2 ) )
ENDIF
IF jpitped->ipValSeg != 0
cXml += XmlTag( "vSeg", NumberXml( jpitped->ipValSeg, 2 ) )
ENDIF
IF jpitped->ipValDes != 0
cXml += XmlTag( "vDesc", NumberXml( jpitped->ipValDes, 2 ) )
ENDIF
IF jpitped->ipValOut != 0
IF jpitped->ipValOut != 0
cXml += XmlTag( "vOutro", NumberXml( jpitped->ipValOut, 2 ) )
ENDIF
ENDIF
cXml += XmlTag( "indTot", "1" ) // Indica se soma produto
cXml += XmlTag( "qTrib", jpitped->ipQtde, 4 )
cXml += XmlTag( "vUnTrib", iif( lSomenteIcms, 0, jpitped->ipPreNot, 5 ) )
IF jpitped->ipValFre != 0
cXml += XmlTag( "vFrete", jpitped->ipValFre )
ENDIF
IF jpitped->ipValSeg != 0
cXml += XmlTag( "vSeg", jpitped->ipValSeg )
ENDIF
IF jpitped->ipValDes != 0
cXml += XmlTag( "vDesc", jpitped->ipValDes )
ENDIF
IF jpitped->ipValOut != 0
cXml += XmlTag( "vOutro", jpitped->ipValOut )
ENDIF
cXml += XmlTag( "indTot", "1" ) // Indica se soma produto
26 Jul 2019 18:14
STATIC FUNCTION NfeBlocoProdutoIcms900( cXml )
IF SubStr( jpitped->ipIcmCst, 2, 3 ) != "900"
RETURN NIL
ENDIF
cXml += [<ICMSSN900>]
cXml += XmlTag( "orig", SubStr( jpitped->ipIcmCst, 1, 1 ) )
cXml += XmlTag( "CSOSN", SubStr( jpitped->ipIcmCst, 2, 3 ) )
IF jpitped->ipIcmVal != 0
cXml += XmlTag( "modBC", "3" )
IF jpitped->ipIcmBas != 0
cXml += XmlTag( "vBC", NumberXml( jpitped->ipIcmBas, 2 ) )
ENDIF
IF jpitped->ipIcmRed != 0
cXml += XmlTag( "pRedBC", NumberXml( jpitped->ipIcmRed, 2 ) )
ENDIF
IF jpitped->ipIcmAli != 0
cXml += XmlTag( "pICMS", NumberXml( jpitped->ipIcmAli, 2 ) )
ENDIF
cXml += XmlTag( "vICMS", NumberXml( jpitped->ipIcmVal, 2 ) )
ENDIF
IF jpitped->ipSubVal != 0
cXml += XmlTag( "modBCST", "4" )
IF jpitped->ipSubIva != 0
cXml += XmlTag( "pMVAST", NumberXml( jpitped->ipSubIva, 2 ) )
ENDIF
IF jpitped->ipSubRed != 0
cXml += XmlTag( "pRedBCST", NumberXml( jpitped->ipSubRed, 2 ) )
ENDIF
IF jpitped->ipSubBas != 0
cXml += XmlTag( "vBCST", NumberXml( jpitped->ipSubBas, 2 ) )
ENDIF
IF jpitped->ipSubAli != 0
cXml += XmlTag( "pICMSST", NumberXml( jpitped->ipSubAli, 2 ) )
ENDIF
cXml += XmlTag( "vICMSST", NumberXml( jpitped->ipSubVal, 2 ) )
ENDIF
IF jpitped->ipIcsVal != 0
cXml += XmlTag( "pCredSN", NumberXml( jpitped->ipIcsAli, 2 ) )
cXml += XmlTag( "vCredICMSSN", NumberXml( jpitped->ipIcsVal, 2 ) )
ENDIF
cXml += [</ICMSSN900>]
RETURN NIL
STATIC FUNCTION NfeBlocoProdutoIcms900( cXml )
IF SubStr( jpitped->ipIcmCst, 2, 3 ) != "900"
RETURN NIL
ENDIF
cXml += [<ICMSSN900>]
cXml += XmlTag( "orig", SubStr( jpitped->ipIcmCst, 1, 1 ) )
cXml += XmlTag( "CSOSN", SubStr( jpitped->ipIcmCst, 2, 3 ) )
IF jpitped->ipIcmVal != 0
cXml += XmlTag( "modBC", "3" )
IF jpitped->ipIcmBas != 0
cXml += XmlTag( "vBC", jpitped->ipIcmBas )
ENDIF
IF jpitped->ipIcmRed != 0
cXml += XmlTag( "pRedBC", jpitped->ipIcmRed )
ENDIF
IF jpitped->ipIcmAli != 0
cXml += XmlTag( "pICMS", jpitped->ipIcmAli )
ENDIF
cXml += XmlTag( "vICMS", jpitped->ipIcmVal )
ENDIF
IF jpitped->ipSubVal != 0
cXml += XmlTag( "modBCST", "4" )
IF jpitped->ipSubIva != 0
cXml += XmlTag( "pMVAST", jpitped->ipSubIva )
ENDIF
IF jpitped->ipSubRed != 0
cXml += XmlTag( "pRedBCST", jpitped->ipSubRed )
ENDIF
IF jpitped->ipSubBas != 0
cXml += XmlTag( "vBCST", jpitped->ipSubBas )
ENDIF
IF jpitped->ipSubAli != 0
cXml += XmlTag( "pICMSST", jpitped->ipSubAli )
ENDIF
cXml += XmlTag( "vICMSST", jpitped->ipSubVal )
ENDIF
IF jpitped->ipIcsVal != 0
cXml += XmlTag( "pCredSN", jpitped->ipIcsAli )
cXml += XmlTag( "vCredICMSSN", jpitped->ipIcsVal )
ENDIF
cXml += [</ICMSSN900>]
RETURN NIL
26 Jul 2019 18:33
22 Ago 2019 19:35
19 Set 2019 20:34
20 Set 2019 19:17
20 Set 2019 19:55
25 Set 2019 22:56
-olib/sefazclass
-hblib
-hbx=sefazclass
$hb_pkg_install.hbm
d:\harbour\addons\sefazclass\include
d:\harbour\addons\sefazclass\lib
d:\harbour\addons\sefazclass\README.md
d:\harbour\addons\sefazclass\sefazclass.hbc
d:\harbour\addons\sefazclass\sefazclass.hbx
d:\harbour\addons\sefazclass\tests
d:\harbour\addons\sefazclass\include\hb2xhb.ch
d:\harbour\addons\sefazclass\include\sefazclass.ch
d:\harbour\addons\sefazclass\include\sefaz_anpprod.ch
d:\harbour\addons\sefazclass\include\sefaz_capicom.ch
d:\harbour\addons\sefazclass\include\sefaz_cepuf.ch
d:\harbour\addons\sefazclass\include\sefaz_cest.ch
d:\harbour\addons\sefazclass\include\sefaz_cfop.ch
d:\harbour\addons\sefazclass\include\sefaz_cidade.ch
d:\harbour\addons\sefazclass\include\sefaz_cnae.ch
d:\harbour\addons\sefazclass\include\sefaz_icmcst.ch
d:\harbour\addons\sefazclass\include\sefaz_ipicst.ch
d:\harbour\addons\sefazclass\include\sefaz_modfis.ch
d:\harbour\addons\sefazclass\include\sefaz_ncm.ch
d:\harbour\addons\sefazclass\include\sefaz_origem.ch
d:\harbour\addons\sefazclass\include\sefaz_piscst.ch
d:\harbour\addons\sefazclass\include\sefaz_pisenq.ch
d:\harbour\addons\sefazclass\include\sefaz_uf.ch
d:\harbour\addons\sefazclass\include\sefaz_unidade.ch
d:\harbour\addons\sefazclass\lib\win
d:\harbour\addons\sefazclass\lib\win\mingw
d:\harbour\addons\sefazclass\lib\win\mingw\libsefazclass.a
d:\harbour\addons\sefazclass\tests\jpatecnologia.jpg
d:\harbour\addons\sefazclass\tests\test.hbp
d:\harbour\addons\sefazclass\tests\test.prg
sefazclass.hbc (instalado):
atmseguroclass()
calculadigito()
capicomassinaxml()
capicomcertificado()
capicomescolhecertificado()
capicominstalapfx()
capicomremovecertificado()
chksignature()
datetimexml()
datexml()
dfeemitente()
dfemodfis()
dfenumero()
dfeserie()
domingodepascoa()
extenso()
extensodolar()
formatcnpj()
formatnumber()
hbnfedacte()
hbnfedaevento()
hbnfedageral()
hbnfedamdfe()
hbnfedanfce()
hbnfedanfe()
horarioveraoinicio()
horarioveraotermino()
multiplenodetoarray()
nfepagamentosclass()
nomemes()
nomesemana()
numberxml()
picnfe()
procfecha()
sefazclass()
sonumeros()
stringtoxml()
tercadecarnaval()
trimxml()
validcartao()
validcnhantiga()
validcnhatual()
validcnhimpresso()
validcnpjcpf()
validgtin()
validie()
validpis()
validrenavam()
xmldate()
xmlelement()
xmlnode()
xmltag()
xmltodoc()
xmltohash()
xmltostring()
xmltransform()
ze_extensodinheiro()
ze_feriado()
__HBEXTERN__SEFAZCLASS__()
25 Set 2019 23:08
29 Set 2019 12:13
29 Set 2019 14:35