Enviar Redução

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

sTextoXML is string = [
	<?xml version="1.0" encoding="utf-8"?><ReducaoZ Versao="1.0"><Mensagem><Estabelecimento><Ie>254895379</Ie></Estabelecimento><PafEcf><NumeroCredenciamento>1506900005991</NumeroCredenciamento></PafEcf><Ecf><NumeroFabricacao>DR0207BR000000108076</NumeroFabricacao><DadosReducaoZ><DataReferencia>2017-12-22</DataReferencia><DataHoraEmissao>2017-12-26T13:45:11-03:00</DataHoraEmissao><CRZ>0410</CRZ><COO>006060</COO><CRO>011</CRO><VendaBrutaDiaria>00000000005910</VendaBrutaDiaria><GT>000000000057524138</GT><TotalizadoresParciais><TotalizadorParcial><Nome>F</Nome><Valor>2,00</Valor><ProdutosServicos><Produto><Descricao>PRODUTO TESTE 2</Descricao><CodigoGTIN></CodigoGTIN><CodigoCEST>1200400</CodigoCEST><CodigoNCMSH>85381000</CodigoNCMSH><CodigoProprio>2</CodigoProprio><Quantidade>1,00</Quantidade><Unidade>CX</Unidade><ValorDesconto>0,00</ValorDesconto><ValorAcrescimo>0,00</ValorAcrescimo><ValorCancelamento>0,00</ValorCancelamento><ValorTotalLiquido>2,00</ValorTotalLiquido></Produto></ProdutosSer
	vicos></TotalizadorParcial><TotalizadorParcial><Nome>N</Nome><Valor>22,10</Valor><ProdutosServicos><Produto><Descricao>PRODUTO TESTE 1</Descricao><CodigoGTIN></CodigoGTIN><CodigoCEST>2804100</CodigoCEST><CodigoNCMSH>94051099</CodigoNCMSH><CodigoProprio>1</CodigoProprio><Quantidade>5,00</Quantidade><Unidade>UN</Unidade><ValorDesconto>0,00</ValorDesconto><ValorAcrescimo>0,00</ValorAcrescimo><ValorCancelamento>0,00</ValorCancelamento><ValorTotalLiquido>5,10</ValorTotalLiquido></Produto><Produto><Descricao>PRODUTO TESTE 3</Descricao><CodigoGTIN></CodigoGTIN><CodigoCEST>1200400</CodigoCEST><CodigoNCMSH>85351000</CodigoNCMSH><CodigoProprio>3</CodigoProprio><Quantidade>1,00</Quantidade><Unidade>PC</Unidade><ValorDesconto>0,00</ValorDesconto><ValorAcrescimo>0,00</ValorAcrescimo><ValorCancelamento>0,00</ValorCancelamento><ValorTotalLiquido>3,00</ValorTotalLiquido></Produto><Produto><Descricao>PRODUTO TESTE 4</Descricao><CodigoGTIN></CodigoGTIN><CodigoCEST>0112900</CodigoCEST><CodigoNCMSH>85381
	000</CodigoNCMSH><CodigoProprio>4</CodigoProprio><Quantidade>1,00</Quantidade><Unidade>KG</Unidade><ValorDesconto>0,00</ValorDesconto><ValorAcrescimo>0,00</ValorAcrescimo><ValorCancelamento>0,00</ValorCancelamento><ValorTotalLiquido>4,00</ValorTotalLiquido></Produto><Produto><Descricao>PRODUTO TESTE 10</Descricao><CodigoGTIN></CodigoGTIN><CodigoCEST>0112900</CodigoCEST><CodigoNCMSH>85381000</CodigoNCMSH><CodigoProprio>10</CodigoProprio><Quantidade>1,00</Quantidade><Unidade>UN</Unidade><ValorDesconto>0,00</ValorDesconto><ValorAcrescimo>0,00</ValorAcrescimo><ValorCancelamento>0,00</ValorCancelamento><ValorTotalLiquido>10,00</ValorTotalLiquido></Produto></ProdutosServicos></TotalizadorParcial><TotalizadorParcial><Nome>I</Nome><Valor>5,00</Valor><ProdutosServicos><Produto><Descricao>PRODUTO TESTE 5</Descricao><CodigoGTIN></CodigoGTIN><CodigoCEST>0112900</CodigoCEST><CodigoNCMSH>85381000</CodigoNCMSH><CodigoProprio>5</CodigoProprio><Quantidade>1,00</Quantidade><Unidade>UN</Unidade><ValorDe
	sconto>0,00</ValorDesconto><ValorAcrescimo>0,00</ValorAcrescimo><ValorCancelamento>0,00</ValorCancelamento><ValorTotalLiquido>5,00</ValorTotalLiquido></Produto></ProdutosServicos></TotalizadorParcial><TotalizadorParcial><Nome>01T2500</Nome><Valor>0,00</Valor><ProdutosServicos></ProdutosServicos></TotalizadorParcial><TotalizadorParcial><Nome>02T1800</Nome><Valor>7,00</Valor><ProdutosServicos><Produto><Descricao>PRODUTO TESTE 7</Descricao><CodigoGTIN></CodigoGTIN><CodigoCEST>0106900</CodigoCEST><CodigoNCMSH>85366990</CodigoNCMSH><CodigoProprio>7</CodigoProprio><Quantidade>1,00</Quantidade><Unidade>UN</Unidade><ValorDesconto>0,00</ValorDesconto><ValorAcrescimo>0,00</ValorAcrescimo><ValorCancelamento>0,00</ValorCancelamento><ValorTotalLiquido>7,00</ValorTotalLiquido></Produto></ProdutosServicos></TotalizadorParcial><TotalizadorParcial><Nome>03T1200</Nome><Valor>6,00</Valor><ProdutosServicos><Produto><Descricao>PRODUTO TESTE 6</Descricao><CodigoGTIN></CodigoGTIN><CodigoCEST>1900300</Codigo
	CEST><CodigoNCMSH>39259090</CodigoNCMSH><CodigoProprio>6</CodigoProprio><Quantidade>1,00</Quantidade><Unidade>UN</Unidade><ValorDesconto>0,00</ValorDesconto><ValorAcrescimo>0,00</ValorAcrescimo><ValorCancelamento>0,00</ValorCancelamento><ValorTotalLiquido>6,00</ValorTotalLiquido></Produto></ProdutosServicos></TotalizadorParcial><TotalizadorParcial><Nome>04T0700</Nome><Valor>9,00</Valor><ProdutosServicos><Produto><Descricao>PRODUTO TESTE 9</Descricao><CodigoGTIN></CodigoGTIN><CodigoCEST>1200400</CodigoCEST><CodigoNCMSH>85351000</CodigoNCMSH><CodigoProprio>9</CodigoProprio><Quantidade>1,00</Quantidade><Unidade>UN</Unidade><ValorDesconto>0,00</ValorDesconto><ValorAcrescimo>0,00</ValorAcrescimo><ValorCancelamento>0,00</ValorCancelamento><ValorTotalLiquido>9,00</ValorTotalLiquido></Produto></ProdutosServicos></TotalizadorParcial><TotalizadorParcial><Nome>05T0500</Nome><Valor>8,00</Valor><ProdutosServicos></ProdutosServicos></TotalizadorParcial><TotalizadorParcial><Nome>06T1800</Nome><Valor
	>0,00</Valor><ProdutosServicos><Produto><Descricao>PRODUTO TESTE 7</Descricao><CodigoGTIN></CodigoGTIN><CodigoCEST>0106900</CodigoCEST><CodigoNCMSH>85366990</CodigoNCMSH><CodigoProprio>7</CodigoProprio><Quantidade>1,00</Quantidade><Unidade>UN</Unidade><ValorDesconto>0,00</ValorDesconto><ValorAcrescimo>0,00</ValorAcrescimo><ValorCancelamento>0,00</ValorCancelamento><ValorTotalLiquido>7,00</ValorTotalLiquido></Produto></ProdutosServicos></TotalizadorParcial><TotalizadorParcial><Nome>07T1700</Nome><Valor>0,00</Valor><ProdutosServicos></ProdutosServicos></TotalizadorParcial><TotalizadorParcial><Nome>08T0400</Nome><Valor>0,00</Valor><ProdutosServicos></ProdutosServicos></TotalizadorParcial><TotalizadorParcial><Nome>09S0500</Nome><Valor>0,00</Valor><ProdutosServicos><Produto><Descricao>PRODUTO TESTE 8</Descricao><CodigoGTIN></CodigoGTIN><CodigoCEST>1200400</CodigoCEST><CodigoNCMSH>85351000</CodigoNCMSH><CodigoProprio>8</CodigoProprio><Quantidade>1,00</Quantidade><Unidade>UN</Unidade><ValorD
	esconto>0,00</ValorDesconto><ValorAcrescimo>0,00</ValorAcrescimo><ValorCancelamento>0,00</ValorCancelamento><ValorTotalLiquido>8,00</ValorTotalLiquido></Produto></ProdutosServicos></TotalizadorParcial><TotalizadorParcial><Nome>10S0300</Nome><Valor>0,00</Valor><ProdutosServicos></ProdutosServicos></TotalizadorParcial><TotalizadorParcial><Nome>11T0000</Nome><Valor>0,00</Valor><ProdutosServicos></ProdutosServicos></TotalizadorParcial><TotalizadorParcial><Nome>12T0000</Nome><Valor>0,00</Valor><ProdutosServicos></ProdutosServicos></TotalizadorParcial><TotalizadorParcial><Nome>13T0000</Nome><Valor>0,00</Valor><ProdutosServicos></ProdutosServicos></TotalizadorParcial><TotalizadorParcial><Nome>14T0000</Nome><Valor>0,00</Valor><ProdutosServicos></ProdutosServicos></TotalizadorParcial><TotalizadorParcial><Nome>15T0000</Nome><Valor>0,00</Valor><ProdutosServicos></ProdutosServicos></TotalizadorParcial><TotalizadorParcial><Nome>16T0000</Nome><Valor>0,00</Valor><ProdutosServicos></ProdutosServicos>
	</TotalizadorParcial></TotalizadoresParciais></DadosReducaoZ></Ecf></Mensagem><Signature xmlns="http://www.w3.org/2000/09/xmldsig#"><SignedInfo><CanonicalizationMethod Algorithm="http://www.w3.org/TR/2001/REC-xml-c14n-20010315" /><SignatureMethod Algorithm="http://www.w3.org/2000/09/xmldsig#rsa-sha1" /><Reference URI=""><Transforms><Transform Algorithm="http://www.w3.org/2000/09/xmldsig#enveloped-signature" /><Transform Algorithm="http://www.w3.org/TR/2001/REC-xml-c14n-20010315" /></Transforms><DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" /><DigestValue>ESN+fLUab31/hJKXIEC+1sEIPeo=</DigestValue></Reference></SignedInfo><SignatureValue>KUdukUWHyR0PVrSbP0ocX0NTqSS+fQBKcNBlsASvydbTm9sKE9hkfXyCHvBkRiaogkmpqqnI2px0FxFwmRTDoLIDLKK4rWtpwX0NUX4BkQTXGgBmopYsj891velSIloyPzLteoiC1S8gRc6nospXuoHs8OfbSyFKvVV1ZnaNr8u5MuuaBXKIMU0uNwze/ETemL+xh0zcNSDsDAZGzrVhDcE3Aioo1CpC33Ns5ml4tmM5t3kLV7EO7cvt6Df5+FOXmLO022TWVjKZSJAZMFrYDBvtoPcJCMfRcC8xJFjyq05GacWLjiOKWFvuBFPlgl+rppUSi4lWhc+klx2ym
	zFVZA==</SignatureValue><KeyInfo><X509Data><X509Certificate>MIIICDCCBfCgAwIBAgIIYFK+MJf5FCkwDQYJKoZIhvcNAQELBQAwczELMAkGA1UEBhMCQlIxEzARBgNVBAoTCklDUC1CcmFzaWwxNjA0BgNVBAsTLVNlY3JldGFyaWEgZGEgUmVjZWl0YSBGZWRlcmFsIGRvIEJyYXNpbCAtIFJGQjEXMBUGA1UEAxMOQUMgU0FGRVdFQiBSRkIwHhcNMTcxMTAzMTYxNjA3WhcNMTgxMTAzMTYxNjA3WjCB8DELMAkGA1UEBhMCQlIxEzARBgNVBAoTCklDUC1CcmFzaWwxCzAJBgNVBAgTAlNDMRQwEgYDVQQHEwtQT1JUTyBVTklBTzE2MDQGA1UECxMtU2VjcmV0YXJpYSBkYSBSZWNlaXRhIEZlZGVyYWwgZG8gQnJhc2lsIC0gUkZCMRYwFAYDVQQLEw1SRkIgZS1DTlBKIEExMRIwEAYDVQQLEwlBUiBGVVRVUkExRTBDBgNVBAMTPFdFQkVSIENPTUVSQ0lPIERFIE1BVEVSSUFJUyBFTEVUUklDT1MgTFREQSBNRTowNjk3OTU5ODAwMDE5OTCCASIwDQYJKoZIhvcNAQEBBQADggEPADCCAQoCggEBAPDdwDavVpE/SLzVFce7rMDLAcPOxhrbtN4imWpN7o0tAK/OVd7ai7A8quZsQpHVypaO3DvrGo/AxrNy3nLA3IMwBSPthEfa4X4A0mp+sJhLCYZeTB/nZ37ZoWorhtF1pY0pUJp8L0fpg8tEXt/illTo4P6JyWTUMAeSIWnemHFRPYUaCIHRWowjDjFhmR+mr0hxhHfNdqoSX+TtlTTcCIfIvQyT4dfYQnB2quXdBNBqAL7mLZsMNtdjFtjcG3GF12eOkbA4vNhmm+3gM8jxChX1i7uYj7qQeLNTtKZcu9HKHtv4MHfpGaY1oLnY8MQ8uJ9
foSSsrhvJ3O1tnkaVz38CAwEAAaOCAyAwggMcMB8GA1UdIwQYMBaAFN9FT0/H4dw4zEoMIOf46VmtH15hMA4GA1UdDwEB/wQEAwIF4DBtBgNVHSAEZjBkMGIGBmBMAQIBMzBYMFYGCCsGAQUFBwIBFkpodHRwOi8vcmVwb3NpdG9yaW8uYWNzYWZld2ViLmNvbS5ici9hYy1zYWZld2VicmZiL2FjLXNhZmV3ZWItcmZiLXBjLWExLnBkZjCB/wYDVR0fBIH3MIH0ME+gTaBLhklodHRwOi8vcmVwb3NpdG9yaW8uYWNzYWZld2ViLmNvbS5ici9hYy1zYWZld2VicmZiL2xjci1hYy1zYWZld2VicmZidjIuY3JsMFCgTqBMhkpodHRwOi8vcmVwb3NpdG9yaW8yLmFjc2FmZXdlYi5jb20uYnIvYWMtc2FmZXdlYnJmYi9sY3ItYWMtc2FmZXdlYnJmYnYyLmNybDBPoE2gS4ZJaHR0cDovL2FjcmVwb3NpdG9yaW8uaWNwYnJhc2lsLmdvdi5ici9sY3IvU0FGRVdFQi9sY3ItYWMtc2FmZXdlYnJmYnYyLmNybDCBiwYIKwYBBQUHAQEEfzB9MFEGCCsGAQUFBzAChkVodHRwOi8vcmVwb3NpdG9yaW8uYWNzYWZld2ViLmNvbS5ici9hYy1zYWZld2VicmZiL2FjLXNhZmV3ZWJyZmJ2Mi5wN2IwKAYIKwYBBQUHMAGGHGh0dHA6Ly9vY3NwLmFjc2FmZXdlYi5jb20uYnIwgb8GA1UdEQSBtzCBtIEmQVRFTkRJTUVOVE9AU0NISUNLQ09OVEFCSUxJREFERS5DT00uQlKgHAYFYEwBAwKgExMRRUxJTyBNSUdVRUwgV0VCRVKgGQYFYEwBAwOgEBMOMDY5Nzk1OTgwMDAxOTmgOAYFYEwBAwSgLxMtMjYxMjE5NjIzODM1NjM0MTk0OTAwMDAwMDAwMDAwMDAwMDAwMD
	AwMDAwMDAwoBcGBWBMAQMHoA4TDDAwMDAwMDAwMDAwMDAdBgNVHSUEFjAUBggrBgEFBQcDAgYIKwYBBQUHAwQwCQYDVR0TBAIwADANBgkqhkiG9w0BAQsFAAOCAgEACa8Cm7eos2q+T4OWW0Krw0nrx8mYuV4WIawZRnRH9DdHMz7NMVOAMLrtEPCe7Rg2un5AQHjVQwstyCU/Q7kIxjy5KW7/21Y7twOpGy5gLjvyq6i6jCn7x7CeWUI7SUHD0X5b14Zi+XcwsAp0G9lOPX+WwKrc7NkMY0sib+DFgyMpqklVAvAnDP+gecZLcHzvwSWOvD/idDlUYR2llourHF8knaAjpo2E+Mw9WjJnGusJVFHjBdotBidLXphTom/7LvqaiM83IXJUoU/NIXc9OxrjOBJOCMg+4rNRkiYm2T+LW9d+KDqjtko0ViPI00zbR4cDq/IKMydywabTypgJZOS4L5KR9fwzRCEkyHLar6pq+bFHGfvD/679hbLfNcXufUu4vuoR+dph2cUhQd5Xr5WPX0WNTt1KqsLRyyEMN/uQERGVkqCIKSsqIhly+Hi0kNGW2vWWXk60CnuD69zTiYZl8iP3bBX8Qnsb2Ow6J8DCWcXxYdYyZflO82b7pdVL1HwofLxEwt0xRFqWKLQRbkWyiohxTkTjieGbNFDHgzu8HcmWtOGsotIdT+5yj65OEGeaMdvW9nUJLoOGRvmrzpMV8t+NEma6R1Ieg64SUD+85rgwLAbzf1Irpy66zn9W8J1DZBp0R9TRb2xe5Rd4Ws46E5o/k+65FJ7yj6yG10Q=</X509Certificate></X509Data></KeyInfo></Signature></ReducaoZ>
]
sTextoXML = Crypt(Compress(sTextoXML,compressGZIP),"",cryptNone,encodeBASE64)
envEnvio is a Enviar
envEnvio.pXmlZipado = sTextoXML
sResult is string = Enviar(envEnvio)
ToClipboard(sResult)
Info(sResult)