Às vezes, observo minha mãe utilizando o celular. Para ela é muito simples, basta escrever e enviar, ou clicar no “microfonezinho”, falar, enviar, e depois aguardar a resposta. Às vezes, só fica rolando a página do Facebook, para ver as novidades, ou assistindo a um vídeo de receitas no Youtube.

É tudo tão simples, fácil de usar, e todo mundo já está acostumado com a tecnologia. Até minha mãe! Quem diria, não é mesmo?

O que me pergunto, é se todo mundo parou para pensar, de verdade, quanta informação tem nas mãos. Não digo isso tentando justificar nenhuma teoria da conspiração nem nada disso. Apenas gostaria que, você que está lendo, fizesse esse pequeno exercício de parar para pensar no que é preciso para que tudo isso funcione. 

E agora chegamos a um ponto interessante. O Facebook, e qualquer outra rede social hoje em dia, tem algoritmos muito avançados para as sugestões de quais posts irá mostrar para você. E temos vários serviços que podemos incluir nessa lista, Instagram, Youtube, Spotify, Linkedin, Pinterest, Twitter, o próprio Google e todas as formas de publicidade via internet que te rodeiam. Todos conhecem as suas preferências, e sugerem coisas para você.

Isso é só a pontinha do iceberg. Você sabe, por acaso, quantos vídeos tem no youtube? Nem eu. Mas tem bastante, isso eu posso garantir. Vou pegar como base um vídeo que eu mesmo enviei para o Youtube esses dias atrás, de uns 10 minutos mais ou menos. Ele tem cerca de 1,3 GB. O Youtube, depois que enviamos um vídeo, ainda cria mais algumas versões do mesmo vídeo, em diferentes qualidades (480p, 720p, 1080p, 4K, etc). Não sei se ficou claro, mas tem que ter muito espaço em disco para armazenar isso tudo.

E ainda não dei alguns exemplos de invasões que acontecem diariamente, onde uns perdem dados, outros têm dados sensíveis que são vazados publicamente, e assim por diante. Acho que você já entendeu. Haja backup e firewall para segurar as pontas.

E então parou para pensar? O desafio é grande. Lidar com uma infinidade de informações, entendendo o que fazer com cada parte dela, em uma estrutura de servidores e de softwares que suporte toda a demanda necessária, e ainda de uma forma que fique totalmente segura. Parece fácil para você?

Não esqueça que o software tem que ficar bonito, e ainda tem que ser auto explicativo. Inclui aí mais um trabalho de Design e UX. Só pra não deixar de citar isso também.

Era pra ser um texto pequeno. Mas tive que montar uma narrativa, para que no final eu pudesse embasar, ao menos um pouquinho, o que eu queria dizer. No fim, depois de tudo isso dito, meu ponto de vista é tão simples quanto enviar uma mensagem no Whatsapp, depois do whatsapp ter sido criado, claro.

“Fazer o complexo se tornar simples”.

Escrevi esse texto todo apenas para falar isso. É tão simples, mas talvez eu quisesse demonstrar, na prática, o quanto é complexo fazer isso.

E sim, ser um profissional de TI, ao menos do meu ponto de vista, sempre foi isso. Automatizar processos, armazenar, proteger e gerenciar a informação, seja apenas organizando-a de uma forma clara ou até mesmo sugerindo outras informações baseadas nos dados armazenados. E para as empresas, hoje em dia não é mais diferencial, isso é necessidade.

Participei de muitos projetos de TI, quase todos mirando o mesmo objetivo. No final, era preciso informação para tomada de decisão. Hoje, vejo que isso está tomando proporções inimagináveis. Informação está se tornando parte de nosso dia a dia, e de uma maneira nunca antes vista. Para o profissional de TI, a responsabilidade em alguns casos é imensa!

Para mim, hoje é bastante claro que informação é poder. E para ter isso, não tem como escapar da tecnologia. 

Viu como ficou claro o termo Tecnologia da Informação?

Cansei de procurar inversores na china. Mas todos eles, os mais baratos pelo menos, vinham com 50hz de frequência de saída.

Não sei por que raios não padronizam tudo. Mesmo no Brasil, temos 110v e 220v. Dependendo da região, se você se mudar, tem que jogar fora a geladeira ou secador de cabelo pois não dá pra ligar mais (estou só brincando, temos algumas outras opções).

Enfim, esses dias vi alguns vídeos sobre o inversor Mensela pelo youtube. O mais legal desse carinha, é que ele tem várias opções de compra, 12v ou 24v por exemplo, saída 110v ou 220v e principalmente a facilidade que ele dá para a troca de frequência!

No vídeo abaixo, eu mostro como se faz, mas em resumo, você abre a tampa, liga o inversor (isso mesmo, tem que ligar ele aberto), e aperta o botão e pronto, terás um inversor na frequência desejada!

Vou deixar aqui também o Unboxing desse inversor e também, pra você ver como ele vem e o que acompanha no pacote. Aproveita e curte as dicas que estou passando no vídeo, caso você queira comprar o seu com segurança!

Se quiser comprar esse inversor, eu achei ele já em 60hz na banggood também.

Dessa forma não precisa fazer isso.

Link para compra do Inversor já em 60hz: https://genilto.com/3h9i

Link para compra do multímetro que utilizei (MT8208): https://genilto.com/link/mt8208

Controlador de carga que falo no vídeo: https://genilto.com/link/balanceador-de-carga

Até a próxima!

Pra quem não me conhece, eu sou Genilto, dono desse blog aqui, e também tenho um canal no youtube onde eu tento compartilhar com a galera alguns dos vários hobbies que eu tenho.

Bem, pelo menos a ideia é essa né, já que estou basicamente começando agora e os vídeos anteriores, se quiser dar uma olhada, tem um pouco dessa ideia, mas são bem aleatórios.

E outra coisa, não se assusta aí se daqui pra frente você ver aqui no canal um vídeo sobre programação, drones, eletrônica, ou música, vai ser isso mesmo, uma salada com quase tudo o que eu gosto de fazer.

Só pra explicar um pouquinho, estou começando uma série de vídeos sobre meu sistema de energia solar off grid.

Eu sei, eu sei, tem bastante gente falando nesse assunto por aí e eu vou ser só mais um maluco falando sobre isso.

No entanto, eu tenho um diferencial, já que eu não sou especialista nessa parada, eu não vou explicar exatamente as melhores práticas e passo a passo disso e daquilo. 

Se bem que o meu sistema vai ser tipo, o melhor sistema de energia solar já visto pela humanidade né?

Mas vamos lá, o que eu quero dizer é que só vou mostrar o projeto que estou montando, dizer se funciona ou não, mostrar os problemas que vou enfrentando, tirando as maiores cagadas é claro, que é pra não passar vergonha, e é isso.

E Por quê?

Só por que eu acho divertido fazer isso. E pronto.

E tem mais, eu não vou ficar vendendo cursos desse assunto pra vocês, ok?

Por que ter um sistema solar off grid?

Eu vou responder essa pergunta apenas explicando o porquê eu quis fazer dessa forma. E vou adiantar que off-grid não é um bom negócio pra todo mundo.

Só pra clarear bem rapidinho:

ON-GRID quer dizer um sistema de energia solar que gera energia, através da luz solar, e injeta essa energia na rede da sua casa diretamente, alimentando os equipamentos da casa, e a sobra enviando para a rede da concessionária.

Já o OFF-GRID, também gera energia através da luz solar, mas diferente do ON-GRID, ele não injeta essa energia na rede, ele armazena em baterias e usa em uma rede separada da rede da concessionária.

Resumindo, ON-GRID é NA REDE e OFF GRID é FORA DA REDE. Sacaram?

Então, voltando a pergunta de porquê OFF-GRID, no meu caso eu não foquei apenas na economia de dinheiro. Como imagino seria o objetivo principal de um sistema on grid, e acho que o objetivo principal da maioria esmagadora das pessoas.

Logo a resposta da pergunta é obviamente: depende.

Mas é isso mesmo, depende da necessidade que você tem.

Então vou falar um pouco da minha necessidade, e responder logo essa pergunta.

Em resumo, eu trabalho em casa na maior parte do tempo, e não é legal ficar sem energia elétrica para trabalhar, já que dependo exclusivamente de um computador e de acesso a internet!

Então, se você precisa de energia quando não tem energia, você precisa de baterias, o que é uma das características, além das que citei antes, que diferenciam o sistema solar off grid do on grid.

E, falando do on grid aqui de novo, para instalar um, primeiro você precisa de projeto, homologação da concessionária, se você não souber os paranauê de montar um projeto dentro de todas as especificações que eles exigem, precisa contratar uma empresa pra fazer isso tudo e por aí vai. Tem pouco espaço pra ficar brincando, testando, queimando as coisas…

Então, cadê toda a graça e o desafio de criar você mesmo essa parada?

E eu sei, no on grid, depois você tira o investimento, começa a ganhar créditos, dependendo do tamanho do seu projeto, começa a pagar só a taxa básica da concessionária, blá blá blá

Beleza, faz sentido, é tudo muito bom, mas me diz uma coisa, e se acabar a energia da concessionária?

Vou te dizer, pode estar o maior dia ensolarado lá fora, mas você vai estar sem nenhum volt se quer na sua tomada!

Isso mesmo, o sistema on grid só funciona quando tem energia da rede. Pelo que entendi funciona dessa forma por questões de segurança, ou seja, se não tem energia na rede, eu da minha casa, não posso injetar energia lá, ou eu posso eletrocutar o possível técnico da concessionária que tá lá pendurado no poste dando manutenção em alguma coisa e que acha que não tem energia, entendeu?

E também, eu acho que esses inversores on-grid aí precisam da onda senoidal de referência da rede para poder funcionar. E ainda pensando bem, é necessário ter a rede para manter os picos de energia da casa quando estiver um tempo mais nublado e tudo isso. Faz sentido ter que ter rede né?

Enfim, vou tentar finalizar, dizendo que o sistema off-grid tem baterias, coisa que já falei antes, mas vou complementar dizendo ainda que isso adiciona um monte de complexidade no sistema, e aumenta o custo final pra montar ele, afinal, você precisa comprar essas baterias, e elas não são muito baratas não!!

Eu pretendo fazer um vídeo futuro detalhando exatamente quais são, quanto paguei e onde comprei todos os equipamentos que tenho. 

Aliás, vocês gostariam de saber essas coisas? Quais são meus equipamentos, quanto paguei e tal? Senão nem faço. Comenta aí em baixo.

Voltando pra falar da complexidade das baterias, saiba que elas não podem descarregar demais, ou seja, quanto mais descarregar todo dia, menos elas vão durar. Então, eu acho que um bom parâmetro é nunca usar mais do que 50% da capacidade nominal da bateria. Se for uma bateria de 220Ah, usar só 110Ah no dia, se usar no máximo 20% seria perfeito.

Só essa questão, pede um gerenciamento manual de troca, ou seja, enquanto as baterias estão carregadas posso manter a casa com o sistema off-grid, quando as baterias estão baixas, eu trocaria pra rede. Ou poderia adicionar um sistema automatizado para fazer isso. Mais complexidade na parada!

E ainda, falando das baterias, se você fizer um sistema que não seja 12v, por exemplo, se usar em 24, 36 ou 48v, vai ter que garantir que essas baterias se mantenham balanceadas. 

Dá pra usar um balanceador de baterias pra isso, não é o fim do mundo. Desde que suas baterias sejam de mesma capacidade e tenham mesma saúde, por assim dizer.

Em geral, baterias têm uma duração de uns 5 anos, pelo que vi na especificação das minhas da moura. Imagino que possam durar mais ou menos, dependendo do uso.

Para painéis que duram mais de 25 anos, no meio do caminho teremos várias trocas de baterias.

Outra coisa que talvez não ficou claro e quero lembrar é que no sistema off-grid também tem economia!

(Aplausos)

Pois a energia que estou captando da luz solar, e usando para ligar meus equipamentos, como lâmpadas, computadores, TV, Som, quem sabe geladeira, eu não estarei usando da concessionária, logo, não preciso pagar!

(Mais aplausos)

Enfim, isso é o que eu queria dizer hoje, dos motivos que me levaram a montar o meu sistema off-grid. Espero que tenham entendido meus pontos.

Só queria terminar deixando uma reflexão:

Pense comigo, se amanhã acontecer um apocalipse zumbi, e de uma hora pra outra todas as redes de energia globais pararem de funcionar, quem é que ainda vai ter energia, hein?

Se não quiser ler, tem um vídeo que falo essas coisas todas aí em cima.

Tem outros motivos para ter um sistema de energia solar também, eu falo um pouquinho nesse vídeo esquisito que fiz aí embaixo.

Valeu, grande abraço!

A câmera deixou de funcionar depois da tentativa de atualização do firmware a partir do aplicativo ICSee. A atualização travou e depois disso, não ligou mais. Não adiantava tentar o reset, nem nada.

Pesquisando na internet, descobri que esse tipo de câmera possui uma interface de comunicação serial, porém não facilmente acessível. A partir daí seria possível realizar alguns procedimentos para tentar reinstalar o firmware e reestabelecer o funcionamento normal da câmera.

Faça esse procedimento por sua conta e risco. Não é um processo simples e muita coisa pode dar errado.

Se você tem interesse em comprar uma câmera igual a essa, pode comprar no aliexpress, é mais barato do que comprar no mercado livre por exemplo, embora demore um pouco mais. A Besder, que é o vendedor onde comprei essa câmera até então é de confiança, todos os produtos que comprei com eles vieram certinho e o suporte é bom também. Se tiver interesse, abaixo coloquei alguns links com câmeras que já comprei e são boas. Algumas inclusive você pode rotacionar remotamente, segue o link da câmeras, é só clicar na câmera desejada:

Identificando os pinos UART (GND, TX, RX)

Primeiro de tudo é necessário identificar quais são os pinos UART na placa da câmera. Para isso segui alguns passos, conforme alguns posts que li, dá uma olhada mais abaixo nas referências para ver os links.

Em resumo, abri a câmera e procurei por uma seção de 4 pinos padrão que parececem ser os pinos que eu queria. No meu caso, estava relativamente fácil de identificar, uma vez que estava bem claro 4 pinos, sendo que um deles estava demarcado com um “1”.

Geralmente são 4 pinos, pois o VCC também eu acho que sempre está junto. O pino demarcado com o “1”, no meu caso é o VCC mesmo, com saída de 3.3v.

GND. Mas vamos lá, para descobrir isso, utilizei um multímetro e o primeiro pino que tentei descobrir foi o GND que teoricamente é o mais fácil. Coloquei o multímetro em modo de continuidade, para testar continuidade (óbvio), e testei nos quatro pinos se um deles estava conectado ao ground da placa, geralmente o GND está ligado nas carcaças metálicas. E foi isso mesmo, pino 3 dando continuidade com um parafuso da placa, indicando realmente ser o GND.

VCC. Agora, em modo de medir tensão, conectei a ponta de prova preta ao GND que descobri (pino 3) e a vermelha no pino 1. Marcou 3.34v me indicando que provavelmente aquele era o VCC mesmo. Não dava pra ter certeza, mas a marcação da placa no meu caso, isolando um pouco mais esse pino e demarcando com “1”, já me dava certa confiança. Esse pino só é importante encontrar, para que não seja confundido com um TX ou RX, já que não vamos utilizar o VCC.

TX e RX. Aqui a coisa começa a ficar complicada. Se você tiver um osciloscópio acho que facilitaria, pois seria possível medir as oscilações desses pinos, já que é uma comunicação serial, esses pinos ficam ligando e desligando muito rapidamente, enviando os bits da comunicação. Como não tinha nenhuma ferramente ideal para medição, fui no multimetro barato mesmo. Ao medir identifiquei que os dois pinos ficavam em 3.3v ao ligar a câmera (ponta preta no GND e vermelha no pino que eu queria medir).

Pois bem isso poderia indicar duas coisas, ou é o pino TX ou RX e o meu multímetro por ser mais lento não consegue medir as variações de tensão causadas pela taxa de comunicação ser alta, ou um dos dois pode ainda ser o VCC, já que eu não tinha ainda certeza.

Fiz um teste desligando a câmera enquanto media os pinos. Ao desligar com o multimetro conectado, tanto ao pino 2, quanto ao pino 4, a tensão ia a zero imediamente, indicando, pra mim, fim de comunicação.

Ao fazer o mesmo teste com o multimetro no pino 1 (VCC) a tensão não ia a zero imediatamente, mas ainda permaneciam alguns milivolts por alguns segundos antes de ir a zero. Pra mim, indicando algum capacitor ainda em descarga e me dando mais certeza de que aquele era mesmo o VCC, logo sobravam os pinos 2 e 4 como TX e RX, ainda não sabendo qual era qual.

Fim da história, soldei 3 fios, preto no pino 3 (GND), verde no pino 2 e laranja no pino 4. Como ainda não tinha certeza qual era o RX e qual era o TX, resolvi ligar e testar assim mesmo.

USB to TTL (usando um NodeMCU queimado!)

Vocês devem saber que para fazer uma comunicação serial com o computador é necessário um conversor USB-TTL, que é bem fácil de achar pra comprar e bem barato.

Por exemplo: https://s.click.aliexpress.com/e/_A88LJ0

Mas eu não estava com paciência de esperar.

Na internet encontrei alguns posts falando que é possível utilizar o arduino como USB-TTL. E isso me deu umas idéias.

Como tinha aqui em casa arduino uno, esp32 e esp8266, os últimos dois embarcados nas famosas placas nodemcu, que já possuem embutidos os chips conversores para comunicação serial com o USB do computador, de forma que você consegue facilmente espetar seu ESP diretamente no USB e sair programando pra ele sem se incomodar com conversores (Olha só!)

Caso queira comprar um nodemcu desse, vou deixar o link de onde você pode comprar. Compro sempre no aliexpress, demora um pouco pra chegar, entre 20 a 30 dias, mas vem certinho.

Nodemcu: https://s.click.aliexpress.com/e/_AkN0OS

Detalhe importante: como o esp8266 embarcado no meu nodemcu estava queimado e não funcionava mais, resolvi fazer umas experiências com ele.

Como ao conectar o nodemcu no usb ele ainda reconhecia, isso indicava pra mim que o conversor USB-Serial dele ainda estava funcionando. Apenas o esp8266 é que tinha morrido, então se eu tentasse, por exemplo, enviar algum código pra ele, ele não respondia.

Logo, a idéia foi remover completamente o esp8266 do nodemcu e utilizar o conversor de lá, ligando os fios correspondentes ao GND, TX e RX deiretamente. Para remover, utilizei o estanhador mesmo, não é o indicado, mas não tinha outro meio. Alguns pinos foram arrancados, mas os que eu precisava ficaram instactos, ainda bem.

ESP8266 removido (veja que na foto já tem os fios ligados, Verde: TX, Laranja: RX, Preto: GND):

Abaixo a ligação dos fios nos pinos correspondentes. Essa imagem demonstra como encontrei os pinos no nodemcu. Isso foi muito fácil pois embaixo do esp8266 tinha já a marcação de cada pino, então, foi só olhar onde estava ligado e soldar. Bem fácil.

Ligação do USB-TTL com o UART da Câmera

IMPORTANTE: Um ponto importante é sempre se atentar a tensão dos equipamento que você está conectando. Por exemplo, se você for utilizar um arduíno como conversor USB-Serial nessa câmera, eu recomendaria utilizar um conversor de nível lógico bidirecional de 5v para 3.3v (ou um divisor de tensão), uma vez que o arquino trabalha com 5v, e a câmera, a gente viu que trabalha a 3.3v. Ligar 5v ali poderia danificar a câmera.

No caso do nodemcu, ele já trabalha com 3.3v, pois o esp8266 também trabalha nessa tensão, então tudo perfeito, não precisei fazer nenhuma conversão.

Continuando, a primeira vez que liguei a câmera no nodemcu e liguei no computador, nada aconteceu. Isso porque o RX e o TX estava ligados no mesmo ou seja, RX com RX e TX com TX. O Correto é ligar ao contrário, RX com TX e TX com RX.

GND deve ser ligado com GND. Não esqueça dele.

Mascomo vimos, eu nem sabia quem era o TX e o RX da câmera. Descobri quando não funcionou e ao inverter funcionou. rsrsrs Não sei se pode ocorrer algum problema ao ligar isso invertido, mas no meu caso nada foi danificado.

Então ficou assim:

• Fio preto da camera(GND) ligado ao preto do nodemcu
• Fio Verde da camera (TX) ligado ao laranja do nodemcu (RX)
• Fio Laranja da camera (RX) ligado ao verde do nodemcu (TX)

Lendo a comunicação Serial

Uma das dúvidas que eu tinha era como ler essa comunicação no computador. Primeiro fui no velho conhecido arduino IDE, selecionei a porta onde o nodemcu modificado estava conectado, e abri o serial monitor. Se conhece o arduino sabe do que estou falando.

Incrível ver como aquilo não tinha funcionado. Primeiro, por que nada aconteceu, então resolvi inverter o fios do tx e rx, como mencionando acima. Depois disso, vualá, um monte de caracteres estranhos começaram a aparecer na tela:

Isso me indicava uma coisa,o tal do BAUD RATE estava errado.

Descobrindo o BAUD RATE

Não vou explicar exatamente o que é isso, mas em resumo, é a velocidade de comunicação que está sendo utilizada naquela comunicação. Se você programa arduino já viu que é possível definir a taxa desejada que você quer utilizar na comunicação. Logo, fui testando outras ali no monitor serial do arduino até aparecer alguma coisa legível.

Existem outras formas de descobrir o baud rate, inclusive tem algumas formas nos links que coloquei ali em baixo nas referências. Mas eu achei mais fácil do jeito que fiz.

Em resumo, e pelo que vi a grande maioria das câmeras utilizam baud rate de 115200.

Um detalhe importante, esse print da imagem acima, eu fiz depois de a câmera já estar funcionando corretamente. Antes, a mensagem que ocorria na parte do “Uncompressing Linux… done, booting the kernel.” era um erro mais ou menos assim:

Uncompressing Linux…undefined instruction

Por isso a câmera não ligava mais, pois tinha alguma coisa corrompida no firmware atual.

Usando o Minicom

Para que fosse possível acessar o serial como se fosse um terminal e executar comandos na câmera foi necessário utilizar um outro software, no meu caso utilizei o minicom, como estou utilizando o Ubuntu acabei achando mais fácil. A instalação é trivial, com um simples sudo apt install minicom e está tudo certo.

Se você estiver no mac, pode usar o minicom também e instalar via homebrew. Se estiver no windows, não sei dizer ao certo, mas acho que não tem minicom. Então vai ter que achar alternativas como o putty, senão estou enganado.

Como vimos, nossa comunicação está funcionando a partir do dispositivo /dev/ttyUSB0 que é onde plugamos o usb com o nodemcu. sabendo disso podemos acessar o minicom digitando no terminal:

minicom -D /dev/ttyUSB0

Não esqueça de fechar o serial monitor do arduino, senão pode ter um erro como abaixo:

minicom: cannot open /dev/ttyUSB0: Device or resource busy

Enfim, você deve conectar o USB-TTL e iniciar o minicom sem ligar a câmera. O Minicom irá conectar na interface USB e aguardar comunicação. Ao ligar a câmera, verá os dados que a câmera envia diretamente no seu terminal:

Agora, preste atenção onde eu marquei com essa linda seta. Esta dizendo para pressionar CTRL + C para interromper o autoboot.

Isso quer dizer que se der ctrl+c antes do boot começar, ele interrompe o boot e te dá acesso ao prompt da câmera. E ISSO É FANTÁSTICO!

Uma dica é ficar apertando CTRL+C antes de ligar e enquanto liga a camera na energia, senão é difícil de conseguir antes do autoboot.

Ao entrar no prompt alguns comandos ficam disponíveis, no exemplo da imagem, digitei help e pressionei enter. O resultado é uma lista de comandos disponíveis no sistema da câmera.

Vou falar sobre alguns importantes:

setenv – set environment variables

Utilizaremos para alterar algumas variáveis de ambiente, como por exemplo, o serverip, que será o ip do servidor tftp que iremos configurar.

run – run commands in an environment variable

É um comando interessante, afinal, nos diz que roda comandos que estão armazenados em variáveis de ambiente. Isso significa que existem variáveis de ambiente que possuem comandos a serem executados!

printenv – print environment variables

Exibe pra nós a lista das variáveis de ambiente, você verá como isso é importante, pois teremos que alterar algumas variáveis mais tarde, para que nosso processo funcione corretamente, e também veremos as variáveis com os comandos que devemos executar.

Sobre as variáveis de ambiente, notamos algumas como ipaddr, que contém o ip atual da camera, serverip, que seria o servidor de tftp que ela irá utilizar na horas de buscar os arquivos para fazer o update, e também existem algumas muito interessantes como é o caso dos da, dc, dr, etc.

Se você perceber, o conteúdo delas é uma série de comandos específicos. Por exemplo, vamos analisar o conteúdo da variável da:

da=mw.b 0x81000000 ff 800000;tftp 0x81000000 u-boot.bin.img;sf probe 0;flwrite

Parece estar dizendo para fazer um memory write (mw.b) começando em 0x81000000 do ‘ff’ até os próximos 800000 bits, e então executar um tftp (conectando no servidor definido na variável serverip) buscando o arquivo u-boot.bin.img começando a escrever em 0x81000000 e então verifica o dispositivo no bus 0 e finalmente grava na flash com o flwrite.

Vendo isso, percebemos que será necessário ter os arquivos .img para serem gravados, e também precisamos de um servidor tftp para deixar esses arquivos disponíveis e, só então executar esses comandos utilizando o comando run (run commands in an environment variable).

Baixando os arquivos do firmware

Aqui vai depender da sua câmera, você terá que identificar qual fabricante, modelo e tudo isso, e tentar encontrar os arquivos no site da fabricante.

No meu caso, a Besder, que é a marca onde comprei a câmera, possui como fabricante a xiongmaitech, que também tem várias outras marcas vendendo os mesmo produtos, só que com marca diferente, bem típico, rsrs.

Então, se tiver com uma câmera da xiongmaitech, os passos serão bem parecidos, senão vai ter que ver como encontrar por você mesmo. Se não for, eu nem sei se esses passos todos funcionarão.

Se você quiser saber se sua câmera é uma xiongmai, talvez esse post possa ajudar:

https://sec-consult.com/en/blog/2018/10/millions-of-xiongmai-video-surveillance-devices-can-be-hacked-via-cloud-feature-xmeye-p2p-cloud/#BlogPostXiongmai(XMeyeP2PCloud)-HowtoidentifyaXiongmaidevice

Identificando o modelo do seu dispositivo

Identifique o modelo exato da sua câmera. No meu caso, eu tenho duas câmeras idênticas, logo, consegui entrar nas informações do dispositivo da que funciona e pegar essas informações conforme a imagem, se você não tem outra que funciona pra ver isso, pra ser sincero, eu não sei como fazer.

Bem entrando nas configurações da câmera no ICSee consigo ver essas informações conforme abaixo:

Veja onde sublinhei, são a versão do dispositivo e a versão do software. Essas informações sublinhadas você vai precisar para encontrar seu firmware corretamente.

Então no meu caso:

Versão do dispositivo: 50X20-WG

Versão do software: Aqui precisamos apenas do 000309c1

Encontrando o firmware correto do seu dispositivo

Eu encontrei no site da xiongmaitech a página de download de drivers. Porém, tem que ser na versão em chinês, já que a versão em inglês do site não tem nada pra download.

Dessa forma, ativei a tradução para inglês no chrome mesmo, e fui procurando pelo drive que eu queria.

Link para download: http://www.xiongmaitech.com/service/down_detail1/13/2/5

No meu caso, estava na página 5. Então tente identificar o correto para o seu modelo. Não tente se não for exatamente a do seu modelo!

Perceba que está exatamente a versão do dispositivo e a versão do software que encontramos anteriormente no nome do arquivo a ser baixado.

Será baixado um arquivo como este:

000309C1.1IPC_XM530_50X20-WG_WIFIXM711.711.Nat.dss.OnvifS_V5.00.R02.zip

É um arquivo compactado que se descompactado ficará assim:

General_IPC_XM530_50X20-WG_WIFIXM711.711.Nat.dss.OnvifS_V5.00.R02.20200917_all.bin

Um arquivo bin é como um arquivo compactado, nesse caso, caso sua câmera estiver funcionando, você pode atualizar ela diretamente pela interface web dela ou pelo próprio app como o ICSee, informando esse arquivo .bin.

Porém, no meu caso, não está funcionando, se tivesse eu não estaria passando por todo esse trabalho, não é mesmo?

Dessa forma, para que possamos gravar o firmware, teremos que fazer isso por partes. Como falei, o arquivo .bin nada mais é do que um arquivo compactado, no mac e no linux, é possível descompactar normalmente, no windows, não tenho certeza, mas se renomear a extensão para .zip será possível descompactar também.

Os arquivos descompactados ficarão assim:

Perceba que temos vários arquivos .img que iremos gravar na nossa câmera.

O Arquivo InstallDesc possui os passos a serem seguidos para a atualização. Imagino que a atualização via interface web utilize esse arquivo como configuração de execução do update.

Instalando o servidor TFTP para servir os arquivos da atualização

Como comentei, para atualizar a câmera, é necessário que ela possua uma maneira de baixar facilmente esses arquivos para atualizar. A forma que essas câmeras utilizam é a transferência dos arquivos via TFTP.

TFTP é uma forma de transferência de arquivos geralmente utilizada em redes, e tem um conceito de simplicidade, não necessitando sequer um usuário e senha para ter acesso aos arquivos.

Para instalar o servidor no linux utilizei o passo a passo deste post: https://linuxhint.com/install_tftp_server_ubuntu/

Para outros SOs como Mac ou Windows também devem existir servidores TFTP facilmente configuráveis.

O requisito principal é que os arquivos de firmware extraídos estejam disponíveis através do TFTP. Então coloque todos eles na raiz do seu servidor TFTP, por exemplo, se a pasta a qual seu servidor TFTP serve é /usr/tftp, como no meu caso, então coloque os arquivos diretamente lá dentro, sem subdiretórios.

Para testar se está funcionando, você pode tentar acessar o tftp e baixar algum dos arquivos, por exemplo, usando o client TFTP no ubuntu (192.168.2.144 é o IP do computador onde eu instalei o servidor do TFTP, no caso o meu próprio computador):

genilto@ubuntu-1525:~$ tftp 192.168.2.144
tftp> get u-boot.bin.img
Received 196756 bytes in 0.1 seconds
tftp> q
genilto@ubuntu-1525:~$ ls
Desktop Documents Downloads Music Pictures Public snap Templates u-boot.bin.img Videos

É interessante você verificar se o firewall do seu computador não está bloqueando o acesso a partir de outra máquina na rede.

Se deu certo pra você e conseguiu baixar o arquivo como no exemplo, podemos seguir para o próximo passo!

Aplicando a atualização

Lá em cima, onde falei das variáveis de ambiente já dei um spoiler do que deve ser feito. Mas vamos ver com calma passo a passo agora.

Primeiro, temos que garantir que a câmera está conectada na rede e que consegue acessar o serviço do tftp.

Primeiro, conecte sua câmera no cabo ethernet.

Depois, configure as variáveis de ambiente ipaddr com o ip que será atribuído para a câmera e o serverip com o ip onde instalamos e configuramos nosso servidor tftp que servirá os arquivos para atualização. Para definir as variáveis de ambiente utilize o setenv.

setenv ipaddr 192.168.2.999

setenv serverip 192.168.2.144

No meu caso deixei a câmera com o IP fixo 192.168.2.999, de forma que não de conflito com outros dispositivos, e configurei o serverip com o IP 192.168.2.144 que é o IP do meu computador onde está instalado e configurado o servidor de TFTP.

Agora basta salvar as alterações com saveenv.

saveenv

Agora você deve digitar o comando reset, que irá reiniciar a câmera. Não esqueça do CTRL + C para entrar novamente no U-Boot.

reset

É interessante também verificar se o nosso servidor está acessível pela câmera. Pra isso podemos usar o ping! Verifique se o resultado diz que o host que você digitou “is alive”!

ping 192.168.2.144

Agora, vamos avaliar o arquivo InstallDesc que descompactamos junto com os arquivos do firmware:

{
	"UpgradeCommand":	[{
			"Command":	"Burn",
			"FileName":	"u-boot.bin.img"
		}, {
			"Command":	"Burn",
			"FileName":	"u-boot.env.img"
		}, {
			"Command":	"Burn",
			"FileName":	"custom-x.cramfs.img"
		}, {
			"Command":	"Burn",
			"FileName":	"uImage.img"
		}, {
			"Command":	"Burn",
			"FileName":	"romfs-x.cramfs.img"
		}, {
			"Command":	"Burn",
			"FileName":	"user-x.cramfs.img"
		}],
	"Hardware":	"XM530_50X20-WG_8M",
	"DevID":	"000309C11001000000600000",
	"WifiDriverType":	"xm711",
	"CompatibleVersion":	3,
	"Vendor":	"General",
	"CRC":	"802001675000",
	"Mx8Q":	"vS8ufwq7xiPTLLQoLObf+qMAcyr7M3GevHMxdFYPHJk4z4DLsle1330VhYxCMpPMqBqZYVVt+zm9NZ10FlH2p/YuDkCcYM0GsRPq0nWOP7DlS13Owwa+G/7vxIwTYD9m4gJNXNclaTIzHln1K1GRarwE9qMIJiV9r1pbwwba887TWv4="
}

Nesse arquivo podemos ver o passo a passo a ser seguido para aplicar a atualização. Cada Command Burn, indica um arquivo .img que deve ser gravado. Perceba que todos esses arquivos estão presentes no mesmo arquivo que baixamos do firmware.

Imagino que seja muito interessante seguir exatamente essa ordem definida nesse arquivo ao atualizarmos

Vamos entrar novamente no minicom e acessar a câmera. Novamente, vamos analisar as variáveis de ambiente que temos no sistema da câmera, utilizando o comando printenv:

Acho que agora ficou bem mais claro o que expliquei lá em cima sobre as variáveis de ambiente “da”, “dc”, “dr”, “du”, certo?

Muito bem, o que precisamos fazer agora, é avaliar o seguinte, baseado no arquivo InstallDesc:

• O primeiro arquivo que devemos gravar é: u-boot.bin.img, então nesse caso podemos rodar os comandos da variável “da”, que vai baixar esse arquivo.

run da

• O Segundo arquivo é u-boot.env.img. Neste caso, e no meu caso pelo menos, nenhuma variável de ambiente referencia esse arquivo. Logo, o que eu fiz foi criar um baseado nos outros comandos, seguindo exatamente o mesmo padrão. Lendo o resultado, percebi um erro de can`t write to protected Flash sectors. Porém mesmo assim segui em frente. O comando ficou assim:

mw.b 0x81000000 ff 800000;tftp 0x81000000 u-boot.env.img;sf probe 0;flwrite

• O terceiro arquivo é o custom-x.cramfs.img. Este está referenciado na variável de ambiente “dc”. Então basta rodar diretamente a variável com o comando:

run dc

• O quarto arquivo uImage.img, também não está presente em nenhuma das variáveis de ambiente. Importante, esqueça a variável “tk” mesmo ela tendo uma referência a uImage, ela não grava nada, só dá boot no sistema utilizando uma imagem existente, pelo que entendi. Então criei novamente um comando para gravação dessa imagem, que foi executado com sucesso:

mw.b 0x81000000 ff 800000;tftp 0x81000000 uImage.img;sf probe 0;flwrite

• O quinto arquivo, romfs-x.cramfs.img, é referenciado na variável “dr”, então:

run dr

• E o sexto e último arquivo, user-x.cramfs.img, é referenciado na varíavel “du”. Mais um simples:

run du

Se tudo deu certo, você pode simplesmente dar um reset novamente, e deixar a câmera ligar normalmente. No meu caso o erro “Uncompressing Linux…undefined instruction” desapareceu e a câmera voltou a vida.

Sucesso rapazeada!

Referências

Alguns posts que encontrei e foram muito úteis:

• Estes posts abaixo me ajudaram a entender como encontrar os pinos UART na placa da minha câmera:
  • http://www.devttys0.com/2012/11/reverse-engineering-serial-ports/
  • https://jcjc-dev.com/2016/04/08/reversing-huawei-router-1-find-uart/
  • https://medium.com/@shubhamgolam10/reverse-engineering-uart-to-gain-shell-de9019ae427a
• Nesse tópico do site IPCAMTALK.COM, é discutido um problema igual a este, grande parte do que fiz foi por causa dessa discussão:
  • https://ipcamtalk.com/threads/ooops-looks-like-i-bricked-my-cam.47767/
• Passo a passo que segui para instalar o servidor TFTP no Linux
  • https://linuxhint.com/install_tftp_server_ubuntu/

Mas assim, são projetos mais antigos, da época da faculdade ainda. Então, use sob sua conta e risco, se quiser colaborar e melhorar o código, fique a vontade!!!

Este é um criptografador bem simples desenvolvido apenas com HTML e JS.

Com a chave certa, você poderá criptografar textos que só poderão ser descriptografados tendo o mesmo algoritmo e a mesma chave.

Faz tempo, mas usei bastante para enviar e-mails para minha namorada enquanto ela estava no trabalho. Ela tinha um e-mail compartilhado com outras pessoas lá, então, só ela conseguia ler minhas mensagens.

Mas ninguém pode saber disso.

Projeto do GitHub:

https://github.com/genilto/criptografador-js

O que a intrigava era o fato de que ela, e apenas ela, conseguia se aproximar. Os cães paravam pelo caminho, e nenhum outro animal parecia existir por lá.

Mas ela tinha que fazer isso, afinal promessas não podem ser quebradas.

Ainda quer tentar entender essa história?
Descubra no próximo episódio…

PS: Assista esta série sob sua própria conta e risco.

Era uma terrível noite gelada. Ventos cortantes e a escuridão tomavam conta do lugar. Poucos eram os que se arriscavam a sair de suas casas.

Todos buscavam um refúgio e algo quente para saciar sua sede de vingan.. digo, sede de algo para esquentar o corpo.

– Corpo? Que corpo? Não matamos ninguém ainda. Não é?
– E nem vamos matar, você quiz dizer, não é mesmo? E vê se me deixa continuar, por favor…

Como eu estava dizendo, é impossível descrever o que ocorreu naquela noite fatídica. Era possível apenas ouvir os passos horríveis do crime que viria a acontecer.

– Aháa, um corpo, eu sabia!
– Esquece o corpo, não tem corpo! Mas sim, um crime…

Quer saber o que o café tem a ver com essa história?
Descubra no próximo episódio…

PS: Assista esta série sob sua própria conta e risco.

Hoje resolvi fazer um resumo dos passos que segui para instalar o LineageOS no Galaxy J7 (SM-j700M).

Em resumo, o celular já não respondia muito bem, estava travando demais, e a bateria durava no máximo 7 horas, sem uso, e já era necessário carregar.

A experiência que tive com o LineageOS, foi uma utilização muuuito mais fluida e a bateria durando uns dois dias, e isso com um uso moderado, com wifi desligado apenas a noite.

Quero deixar os créditos aqui, então, basicamente eu segui esses passos aqui:
https://www.cyanogenmods.org/lineage-os-17-1-galaxy-j7
E mais alguns também, que são citados abaixo.
Vou colocar os links que usei, mas lembre-se que esses arquivos são para exatamente o modelo SM-J700M ou j7elte.

Se não for esse o seu modelo, não use esses arquivos, procure os que são exatamente para o seu modelo!!

Utilizei o windows em alguns pontos e o Mac em outros, mas acredito que dê para fazer tudo no windows sem problemas. Abaixo os passos que segui.

Instalar uma Custom ROM irá fazer com que você perca a garantia do seu aparelho, além de ser um processo perigoso podendo inclusive danificá-lo caso feito de forma errada. Então, faça o processo por SUA CONTA E RISCO.

Intalar o TWRP

Passo 1. Caso não tenha, baixar os drivers samsung para o windows e instalar.
Pode usar este link na samsung mesmo:
https://developer.samsung.com/mobile/android-usb-driver.html
Ou esse do blog na cyanogenmods, antecessora da lineageos:
https://www.cyanogenmods.org/downloads/download-samsung-mobile-phone-usb-driver-v1-5-51-0-for-windows/

Passo 2. Baixar o Odin:
https://www.cyanogenmods.org/forums/topic/free-odin-download-link-installation-guide/

Passo 3. Baixar a TWRP
Baixar a versão .tar para ser usada com o Odin
https://dl.twrp.me/j7elte/twrp-3.4.0-0-j7elte.img.tar.html

Passo 4. Instalar a custom recovery TWRP
Não vou descrever os passos aqui, pois segui os passos conforme o link a seguir, então é mais fácil você seguir também.

ANTES DESSE PASSO LEMBRE-SE (IMPORTANTE):
a) Os arquivos que o post abaixo pede para baixar, você já baixou, caso tenha seguido os passos até aqui.
b) Desabilitar o OEM Unlock. Nos passos do post abaixo ele fala como fazer.
c) Habilitar também o USB Debugging.
–> Open Settings, and select “About”.
–> Tap on “Build number” seven times.
–> Go back, and select “Developer options”.
–> Scroll down, and check the “Android debugging” or “USB debugging” entry under “Debugging”.
d) Ao usar o Odin, desmarque a opção “Auto Reboot” para que o celular não reinicie sozinho ao termino. Senão ao iniciar novamente, a stock rom da samsung repõe a recovery original.
e) Após finalizar a instalação da recovery via Odin, você pode desconectar o celular, e no meu caso, eu removi a bateria para desligar.
f) É Interessante ir até o Passo 8, Baixar o Gapps e já deixar prontinho no Cartão SD nesse momento, para que seja mais fácil usar depois.

https://www.cyanogenmods.org/forums/topic/install-twrp-recovery-samsung-android-using-odin/

Passo 5. Acessar a recovery TWRP
Com o celular desligado, pressione Volume Up + Home + Power

Passo 5. (Opcional mas MUITO IMPORTANTE) Faça um backup do sistema.
É o chamado NANDROID Backup. Que nada mais é do que o backup completo da NAND Flash Storage, o armazenamento interno do seu telefone. O TWRP tem opção para fazer isso. Aconselho fazer o backup e salvar no cartão SD, e depois salvar no computador. Faça compactado, demora mais mas economiza espaço.
https://www.cyanogenmods.org/forums/topic/take-nandroid-backup-twrp-recovery/

Passo 6. Faça o Wipe da data partition, Cache partition, e system partition.
Pode seguir os passos conforme o post abaixo. Pode ignorar a parte do NANDROID Backup, caso já tenha feito acima. Ok?
https://www.cyanogenmods.org/forums/topic/clean-wipe-data-partitions-using-twrp/

Passo 7. Instalar o adb no computador. ( Android Debug Bridge )
A principio é simples e rápido, tem dois links abaixo, pode escolher qualquer um deles. Recomendo o primeiro mesmo:
https://www.cyanogenmods.org/minimal-adb-and-fastboot-windows/
ou
https://wiki.lineageos.org/adb_fastboot_guide.html

Passo 8. Baixar o LineageOS e o GAPPS (Google Apps)

LineageOS:
Link abaixo com a versão específica para o J7 (SM-J700M)
Baixar o arquivo mais recente (por exemplo: lineage-17.1-20200702-nightly-j7elte-signed.zip)
https://download.lineageos.org/j7elte

GAPPS
O pacote Gapps inclui as funcionalidades do Google no Android, como a Play Store por exemplo. Dependendo do pacote escolhido, vem com mais ou menos aplicativos por padrão. Gosto da opção Pico, que vem com o mínimo necessário para funcionar a Play Store. A partir daí eu instalo depois, o que eu quiser, gmail, youtube, etc… Dessa forma, só instalo o que eu realmente precisar.

Sugiro baixar e colocar no cartão SD. De forma a instalar usando o cartão SD através do TWRP.

Na página de download, selecione ARM, Android 10, Pico

Link para download: https://opengapps.org/

Passo 8. Instalar o LineageOS via ADB Sideload.
Resumindo, o ADB sideload é uma opção para você instalar arquivos no android a partir do computador. No TWRP você tem opção para habilitar essa funcionalidade.
Abaixo o link com o passo a passo. Utilize a versão que você baixou

IMPORTANTE:
– Após instalar não reinicie o sistema. Apenas volte para a pagina inicial do TWRP.

https://www.cyanogenmods.org/adb-sideload-twrp/

Passo 9. Instalar GAPPS
Para instalar o Gapps usando a TWRP recovery, siga as instruções do link seguir.

https://www.cyanogenmods.org/forums/topic/flashinstall-google-apps-gapps-using-twrp-recovery/

Completando esses passos todos, é só dar reboot e iniciar o celular normalmente e aproveitar o Android 10!

Pra mim, a experiência foi sensacional.

Não tenho muito conhecimento nesses processos todos, só estou compartilhando a experiência que tive com meu aparelho, então receio que talvez não possa ajudar muito caso você tenha algum aparelho de outro modelo diferente do meu. Nesse caso, tem bastante material pela internet, dá uma pesquisada!

Grande abraço!

Este é o vídeo que montei do encontro do pessoal que estudou comigo na Faculdade.

Carinhosamente chamamos o grupo de INF21, que era o código da turma, acho que do primeiro semestre ainda, rsrsrs

Foi um churrasco no Bela Vista Country & Club em Gaxxxpar / SC.

Foi todo gravado com um Mavic PRO, meio mal configurado, podemos notar nos granulados das imagens, mas mesmo assim, valeu o vídeo rsrsrs

Reparem nos murmúrio da galera no início do vídeo haha

Grande abraço pra essa galera aí!!

Este foi um momento um pouco filosófico. O Contraste foi de uma percepção minha dos diferentes gostos, diferentes ambientes, diferentes climas, cada qual com seus pontos positivos e negativos.

Praia e campo são muito diferentes na minha opinião, e não é concorrência, mas acho que apenas um contraste de duas coisas que se complementam.

Grande abraço!!

Voltando aqui para contar pra vocês sobre minha compra na Lightinthebox. Pra quem não sabe, é uma loja chinesa, não tão conhecida como outras do tipo banggood e gearbest, mas que também tem grande participação nas vendas de produtos chineses para nós aqui no Brasil.

Vou ser sincero e dizer que só comprei lá, pois no momento que fiz a compra, eles estavam oferecendo o tal do Seguro Alfandegário, e de forma gratuita ainda por cima.

Nem pestanejei e já resolvi testar isso aí. Estava mesmo querendo muito comprar um celular novo, e estava de olho nos top da Xiaomi, como por exemplo o Mi 8 (top de linha) e também o Mi A2 (com android one), que são muuito interessantes.

Quando vi e li sobre o Pocophone, fiquei impressionado e optei por ele (e não me arrependi, até agora!).

Muito bem. Fiz um vídeo, que mostra rapidamente a compra, e depois explico um pouco do que aconteceu e então faço o unboxing do produto. Confira abaixo:

Resumindo:

• 30/08/2018 – Fiz a compra
  • Me pediram confirmação do cartão de crédito utilizado através de um ticket no próprio site.
• 04/09/2018 – Me enviaram
• 19/09/2018 – Apareceu detalhes de rastreamento nos Correios
•  27/09/2018 – Fiscalização aduaneira Finalizada. Necessário pagar a taxa.
  • Preço declarado do produto: R$ 1501,97 * 60% (imposto alfandegário) = R$ 901,18
    • Mais a mordida dos correios: R$ 15,00
  • Valor final a pagar: R$ 916,18. Percebam que o imposto foi calculado corretamente pela receita.
  • Antes de pagar entrei em contato com a Lightinthebox, enviando o DIT (Demonstrativo de imposto) perguntando se caso eu pagasse eles me reembolsariam:
    • Resposta deles: “Nós queremos reembolsar para você 100% dos Impostos e Taxas, uma vez que você adquiriu o Seguro para Impostos e Taxas para este pedido.. Por favor, nos informe os valores das Taxas e Impostos e faça o upload da imagem do comprovante de pagamento destas taxas no seu próximo email. Ficaremos felizes em reembolsar este valor assim que recebermos a cópia do comprovante. “
• 29/09/2018 – Fiz o pagamento das taxas e enviei o comprovante através do ticket no site.
• 01/10/2018 – Responderam o ticket me dando duas opções:
  • “Como você tem seguro de impostos gratuitos no Brasil, nós forneceremos 2 soluções:
    1. Nós oferecemos-lhe recompensas no valor de BRL R$ 1099.42 (taxa de imposto de 120%)
    2. Nós Podemos reembolsar para você BRL R$ 916.18 (100% as taxas e impostos alfandegários).
    Por favor escolha uma das opções acima apresentadas.“
  • Respondi que preferia os 100% de reembolso mesmo.
• 02/10/2018 – Resposta deles: “Nós iremos reembolsar para você [ 916.18 BRL] (100% dos Impostos e Taxas) uma vez que você adquiriu o Seguro para Impostos e Taxas para este pedido.
  O reembolso vai ser enviado à sua conta de recompensas e créditos. Normalmente o processo de reembolso demora de 1-2 dias úteis para se completar”
  • Já no mesmo dia estava o valor disponível na minha conta de recompensas e créditos. Imediatamente solicitei a retirada que seria creditada no meu cartão de crédito, já que a compra foi realizada por meio dele.
• 04/10/2018 – Objeto entregue ao destinatário!
• 06/10/2018 – Crédito recebido no cartão de crédito referente ao reembolso do imposto.

E é isso aí, o Pocophone F1 é um excelente smartphone!

É uma pena que essa opção de seguro alfandegário não está mais disponível. Mas fiquemos de olho, de vez em quando eles abrem isso novamente.

Grande abraço, espero ter tirado algumas dúvidas de quem por ventura deseja comprar na lightinthebox.

Também conhecida por Green-headed tanager (Em inglês).
Existem “variações” como a Red-necked tanager, essa estou tentando filmar ainda.
Fica para um próximo vídeo.

Grande abraço!

Faz já um tempo que não tenho postado nada por aqui. Dessa vez estou fazendo um post para ajudar quem está tentando comprar baterias para seu drone Mavic Pro.

Fiquei um tempo pesquisando e, realmente no Brasil, essa bateria inteligente está com um preço bem salgado!

O que sempre fiquei de olho foi para importar essa bateria, da china mesmo, uma vez que os preços por lá são muito menores, geralmente, 50% do valor daqui…

O problema é que desde 2016 existe uma lei proibindo o transporte de baterias de íon lítio como carga em aeronaves de passageiros em todo o território nacional, conforme informou a Anac. (Veja mais detalhes aqui: http://www.valor.com.br/empresas/4506354/anac-proibe-transporte-de-baterias-de-ion-litio-como-carga-em-avioes).

Por isso, é extremamente difícil importar esse tipo de bateria.

Porém… Não sei de que forma, ainda existem lojas que conseguem enviar esses produtos. O problema, é que, por exemplo no aliexpress, você consegue comprar essa bateria e receber no Brasil, pagando um frete de quase $60,00 dólares. Fica inviável. Melhor comprar aqui.

A dica de hoje, é ficar de olho em lojas como a banggood, uma loja extremamente confiável da China. Digo isso pois comprei várias coisas de lá e sempre chegaram direitinho, mesmo as vezes demorando um tempo considerável.

Atualmente, e não sei por quando tempo vai durar, ela está vendendo baterias do mavic pro por um preço muito bom (hoje 20/02/2018 está em torno de R$ 320,00 com frete e seguro).

Inclusive, aconselho que marque sempre o envio com seguro. Mesmo pagando uma pequena taxa a mais. Isso garante que, se por ventura seu produto não chegar, eles irão reenviar pra você!

Enfim, o link direto para compra da bateria está aí: http://bit.ly/2olkRjF

E ainda, se usar o cupom lucky8, ganha mais um descontinho…

E antes que pergunte, sim, a bateria é original mesmo.

Eu já comprei a minha, e já estou pensando em comprar mais…

Grande abraço e até mais!!

Nosso amigo Eduardo Schurtz resolveu reabrir as inscrições para uma segunda turma do curso!!! Começa amanhã!!

Está para ser lançado um curso de personalização totalmente novo, para isso foi criada uma lista de interessados no curso.

Quem estiver na lista, além de receber novidades sobre o curso, terá prioridade no momento do lançamento do curso!

Por isso, se você tem interesse em aprender mais sobre personalizações no Oracle EBS, não pode perder essa chance!!!

Quer saber mais sobre Personalization?

Primeiro, leia isso:
http://eduardoschurtz.com/…/2015/12/oracle-form-personaliz…/
E isso:
http://eduardoschurtz.com/oracle/2016/05/oracle-ebs-persona…/

Segundo: Agradeçam ao meu amigo Eduardo Schurtz por essa!

E por último, demonstre interesse pelo curso, aqui:

http://eduardoschurtz.com/oracle/interessados-curso-ebs-personalization/?goal=0_9b932d6c6d-77d53fa8cf-148886341

Fácil, não é mesmo?

Faz um tempo que não posto nada no blog.
Dizem que o tempo é curto em meio a tantas responsabilidades que temos no dia a dia.

De certa forma eu concordo com isso.

De certa forma, não.

A verdade é que não sabemos quanto tempo realmente temos.

Levantamos, corremos ao trabalho, almoçamos, jantamos, vemos televisão, olhamos o facebook, rimos com uma tirinha no whats up do grupo, mais duas ou três coisas, e vamos dormir. Então tudo recomeça.

Nem lembro qual foi a última música que aprendi na guitarra.

Talvez precise tirar um tempo para isso. Aprender uma música nova de vez em quando.
Ou estudar uma tecnologia nova, gosto bastante disso (e sim, sou profissional de informática).

Eu consigo tirar um tempo pra isso.

Descubro então, somos nós quem gerenciamos o tempo, afinal. Somos nós os donos do tempo! Não acha?
Exceto quando decidimos dormir só mais 5 minutinhos, com o despertador desligado.

Bem, tomamos as nossas próprias decisões. E receberemos um retorno delas, algum dia.

Pode ser que leve apenas breves minutos. Ou longos anos.

O fato é, ele virá.

As batatas do tempo

Sabemos que se plantarmos batatas e cuidarmos delas direitinho, as chances de termos batatas para colher são muito maiores do que se não fizéssemos nada.

Mas de que droga estou falando afinal? Bem, não estou perdido em marte pra saber que sem batatas eu não sobrevivo.

Bem, é por isso que vamos ao trabalho todos os dias.

Então podemos ler mais uma tirinha no facebook, e esperar as batatas crescerem. É isso o que fazemos.

É uma analogia esdrúxula, eu sei mas, se plantarmos somente batatas, só teremos batatas na próxima colheita.

E lá, na próxima colheita, nem lembraremos o que fizemos nesse meio tempo. E eu que gosto tanto de batatas com molho de tomates. Por que não plantamos tomates também?

Ah certo, lembrei! Aquela tirinha era tão engraçada não é? Era sobre o que mesmo?

Um livro sobre batatas!

Eu gosto de ouvir e compor músicas boas. Ouvir eu consigo, compor nem tanto. Mas eu gosto.

Descobri agora que gosto de escrever também. Não preciso fazer rimas, e nem pensar em uma melodia. O que não torna a atividade mais fácil, porém.

Talvez um dia eu escreva um livro. Ainda não sei quando, mas eu tenho vontade. Vou fazer aos poucos. Posso escrever todo dia, uma linha, um parágrafo, o que for.

Daqui a pouco só irá faltar o título. Acredito  que será o mais difícil. Algo que faça tanto sentido e, que represente de forma precisa, todo o conteúdo.

Pensando assim, quanta coisa eu posso ser, e posso fazer, não é?

Uma galinha de papo cheio

São tantas coisas que queremos todos os dias. As coisas pequenas são boas, podemos conseguir de imediato.

Compramos um celular novo, estamos contentes. Podemos ver o facebook mais vezes ao dia!

Se eu economizar R$ 100,00 todo mês vou levar um ano, só pra comprar um celular.

Compro e vivo o agora. Pago a prestação. Nunca vou conseguir aquele milhão de reais economizando, não é mesmo?

Se não plantar batatas, não vai colher batatas.

Bem isso já sabemos. O que não sabemos é  quanto tempo ainda temos.

Vários anos pela frente eu suponho. Vinte, trinta, cinquenta anos.

Se for jovem, e tiver mais uns cinquenta anos pela frente, por que não pensar para pelo menos vinte? Já fez as contas? Mais o juros compostos? E se não for só cem reais?

Talvez cada real a mais todo mês, em vinte anos pode dar uma boa diferença. Sem fazer você deixar de ser feliz durante esse tempo. Apenas pense sobre isso.

Mais uma coisa, você acha mesmo que precisa de um milhão?

Too much things we wish

Bem, voltando para aquele assunto, depois de escrever o parágrafo diário do meu livro, posso dar uma olhada em como tocar a música que ouvi hoje, muito boa!

Quero tocar ela com minha banda. Sim quero ter uma banda também. Para tocar as músicas que estou compondo.

Depois gravar, eu mesmo, com minha placa de som no meu computador. Posso aprender a gravar, mixar e masterizar!

Depois disponibilizo na internet para o mundo. Talvez até com um vídeo clip! Legal não é?

Tudo pode ser um hobby. Me mantém vivo. Disposto. Com objetivos.

Gosto disso. É bom a gente gostar do que faz. Eu gosto muito do que eu faço. E olha que eu trabalho com informática.

Vamos lá então. Um pouco por dia. Pensar e trabalhar em algo que nos faz crescer! Quem sabe não criamos algo novo nesse mundo tão igual?

No máximo não vai dar certo.

Tem batata que não vinga. Mas aí percebemos que esquecemos de regar. E fazemos de novo. Do jeito certo. Pronto.

Um belo purê de batatas

Tanta coisa para fazer e eu falando em fazer mais e mais. Só posso estar louco.

Somos donos do tempo. Esqueceu?

Loucos estamos quando deixamos de fazer o que vale a pena, o que realmente gostamos e queremos fazer, o que realmente vai fazer sermos melhor amanhã.

Enquanto temos objetivos na vida, nos mantemos firmes. Sonhos são importantes, quando podemos trabalhar neles.

Sonhos de verdade nos fazem ser melhores amanhã.

Para sermos melhores amanhã, precisamos amar. Sermos amados.

E chegamos, enfim, ao assunto. Família.

Chegamos no ponto chave. Esse texto começou por um motivo. E não foi por que gosto de batatas.

Investimento em felicidade de verdade. Isso sim é importante. Não sei você, mas família é tudo pra mim. É o que faz valer a pena.

Para concluir, falando desse assunto, sobre investimentos, batatas, planejamento pessoal e tudo mais, eu queria fazer uma pequena observação, inclua sua família. Falo por mim, por vezes parecemos esquecê-la ou, parecemos não nos importar. Mesmo sabendo da importância que tem para nós.

Quer investir de verdade? Invista em felicidade, mas já sendo feliz. Essa é a dica de hoje. Sem mais.

Depois de muito, muito tempo, me perguntaram sobre meu projeto do Chat RMI. Fiz ele na época da faculdade.

Nem sabia se ainda funcionava ou não, então resolvi testá-lo novamente. E acreditem, ainda funciona.

O que fiz foi fazer o download do projeto daqui: http://sourceforge.net/projects/chatrmi

Abri o projeto no Netbeans, ajustei algumas referências que estavam faltando, fiz o Build, e pronto. É só rodar!!

O código fonte está todo lá! Pra quem quiser.

Grande abraço galera!

Esse é mais um dos meus clássicos posts sobre APIs do Oracle. Chamei de clássicos pois não é o primeiro, hahá! Acho que é o segundo sobre APIs. Um clássico.

Enfim, hoje vamos ver uma API que já utilizei em muitos lugares onde trabalhei, pois sempre existe a necessidade de aplicar e/ou remover alguma retenção em alguns pedidos, de forma automática e através de customização.

Neste post vou abordar apenas como remover a retenção, usando a API abaixo:

-- Faz a chamada da API para liberação das retenções
OE_HOLDS_PUB.Release_Holds(p_api_version       => 1.0
                         , p_init_msg_list     => FND_API.G_TRUE
                         , p_commit            => FND_API.G_FALSE
                         , p_validation_level  => FND_API.G_VALID_LEVEL_NONE
                         , p_hold_source_rec   => r_hold_source_rec
                         , p_hold_release_rec  => r_hold_release_rec
                         , x_return_status     => w_return_status
                         , x_msg_count         => w_msg_count
                         , x_msg_data          => w_msg_data);

A Api é bem simples de usar. Para ficar ainda mais fácil, criei um script pronto para rodar, bastando apenas informar qual é o pedido. O programa irá buscar todas as retenções que o pedido possui e irá liberar uma por uma.

No exemplo, foi necessário setar o contexto para que funcione corretamente ao rodar fora do ambiente do EBS, inclusive tendo que setar, além da organização, também a responsabilidade e usuário logado. Conforme abaixo:

fnd_global.apps_initialize(15992, 50663, 660);
mo_global.set_policy_context(p_access_mode => 'S', p_org_id => 81);

Porém quando rodando dentro do EBS, não precisa nada disso acima.

Segue abaixo o código fonte do exemplo:

DECLARE
  
  w_return_status VARCHAR2(1);
  w_message_error VARCHAR2(4000);

  -------------------------------------------------------------------
  -- Gera um log no concorrente 
  -------------------------------------------------------------------
  PROCEDURE gera_log(p_log IN VARCHAR2) IS
  BEGIN
    --Fnd_File.Put_Line(Fnd_File.Output, to_char(SYSDATE, 'DD/MM/RRRR HH24:MI:SS')||': '||p_log);
    dbms_output.put_line(to_char(SYSDATE, 'DD/MM/RRRR HH24:MI:SS')||': '||p_log);
  END gera_log;

  -------------------------------------------------------------------
  -- Libera todas as retenções de uma Ordem, caso a ordem possua
  -- origem como SALDO OP
  -------------------------------------------------------------------
  PROCEDURE Libera_Retencoes_Pedido(p_header_id      IN NUMBER
                                  , x_return_status OUT VARCHAR2
                                  , x_message_error OUT VARCHAR2) IS
    
    -- Busca informações do pedido
    CURSOR c_header IS
    SELECT oeoh.order_number
         , oeos.name order_source_name
      FROM oe_order_headers_all oeoh
         , oe_order_sources     oeos
     WHERE oeoh.order_source_id = oeos.order_source_id
       AND oeoh.header_id       = p_header_id;
    
    -- Busca todas as retenções do pedido
    CURSOR c_holds IS
    SELECT hd.hold_id
         , hs.hold_entity_code
         , oh.header_id
         , hs.hold_source_id
         , hd.name hold_name
      FROM oe_order_holds_all  oh
         , oe_hold_sources_all hs
         , oe_hold_definitions hd
     WHERE oh.hold_source_id = hs.hold_source_id
       AND hs.hold_id        = hd.hold_id
       AND oh.released_flag  = 'N'
       AND oh.line_id        IS NULL
       AND oh.header_id      = p_header_id;
    
    r_header            c_header%ROWTYPE;
    r_hold_source_rec   OE_HOLDS_PVT.HOLD_SOURCE_REC_TYPE;
    r_hold_release_rec  OE_HOLDS_PVT.HOLD_RELEASE_REC_TYPE;
    w_count             NUMBER;
    
    w_return_status     VARCHAR2(1);
    w_msg_count         NUMBER;
    w_msg_data          VARCHAR2(32767);
    w_index             BINARY_INTEGER;
    
    E_ERROR             EXCEPTION;
    
  BEGIN
    
    x_return_status := 'S';
    x_message_error := NULL;
  
    -- Busca informações do pedido
    OPEN c_header;
    FETCH c_header INTO r_header;
    CLOSE c_header;
    
    -- Verifica se o pedido foi encontrado
    IF r_header.order_number IS NULL THEN
      x_return_status := 'E';
      x_message_error := 'Pedido com #ID '||p_header_id||' não foi encontrado';
      RETURN;
    END IF;
  
    -- Verifica se o pedido é elegível para o processo
    IF r_header.order_source_name != 'SALDO OP' THEN
      x_return_status := 'E';
      x_message_error := 'Pedido deve possuir origem "SALDO OP". O pedido informado ('||r_header.order_number||') possui origem "'||r_header.order_source_name||'"';
      RETURN;
    END IF;
    
    gera_log(RPAD('-', 100, '-'));
    gera_log('Iniciando processo de liberação de retenções para o pedido '||r_header.order_number);
    gera_log(RPAD('-', 100, '-'));
    
    w_count := 0;
    -- Percorre todas as retenções do pedido e libera todas elas
    FOR r_hold IN c_holds LOOP

      w_count := w_count + 1;
      
      BEGIN
        
        r_hold_source_rec := NULL;
        r_hold_source_rec.hold_id              := r_hold.hold_id;
        r_hold_source_rec.hold_entity_code     := r_hold.hold_entity_code;
        r_hold_source_rec.hold_entity_id       := r_hold.header_id;
        --
        r_hold_release_rec := NULL;
        r_hold_release_rec.hold_source_id      := r_hold.hold_source_id;
        r_hold_release_rec.release_reason_code := 'VALID_CONFIG'; -- FIXO
        r_hold_release_rec.release_comment     := 'Liberado pois SALDO OP não deve ter retenções aplicadas';
        
        gera_log('Liberando Retenção "'||r_hold.hold_name||'"');
        
        OE_MSG_PUB.Initialize ();
        
        -- Faz a chamada da API para liberação das retenções
        OE_HOLDS_PUB.Release_Holds(p_api_version       => 1.0
                                 , p_init_msg_list     => FND_API.G_TRUE
                                 , p_commit            => FND_API.G_FALSE
                                 , p_validation_level  => FND_API.G_VALID_LEVEL_NONE
                                 , p_hold_source_rec   => r_hold_source_rec
                                 , p_hold_release_rec  => r_hold_release_rec
                                 , x_return_status     => w_return_status
                                 , x_msg_count         => w_msg_count
                                 , x_msg_data          => w_msg_data);

        -- Verifica se a retencao foi liberada
        IF w_return_status = FND_API.G_RET_STS_SUCCESS THEN
          gera_log('  -> Retenção "'||r_hold.hold_name||'" liberada com sucesso');
        ELSE
          
          x_return_status := 'E';
          x_message_error := 'Erro ao liberar retenção "'||r_hold.hold_name||'" do Pedido "'||r_header.order_number||'". Erro ('||w_msg_count||'): ';
          
          gera_log('  -> '||x_message_error);
          
          -- Busca mensagens de erro
          IF w_msg_count > 0 THEN
            FOR w_index IN 1..w_msg_count LOOP
              w_msg_data := OE_MSG_PUB.get(p_msg_index => w_index
                                         , p_encoded   => 'F');
              
              gera_log('  -> '||w_index||' - '||w_msg_data);
              
              -- Valida para nao estourar o campo
              IF Length(x_message_error||w_msg_data) <= 4000 THEN
                x_message_error := x_message_error || w_msg_data;
              END IF;

            END LOOP;
          END IF;
          
          RAISE E_ERROR;
        END IF;
        
      EXCEPTION
        WHEN E_ERROR THEN
          RAISE E_ERROR;
        WHEN OTHERS THEN
          x_return_status := 'E';
          x_message_error := 'Erro ao liberar retenção "'||r_hold.hold_name||'" do Pedido "'||r_header.order_number||'". Erro: '||SQLERRM;
          gera_log(x_message_error);
          RAISE E_ERROR;
      END;
    
    END LOOP;
    
    gera_log(RPAD('-', 100, '-'));
    IF w_count > 0 THEN
      COMMIT;
      gera_log('Liberadas '||w_count||' retenções para o pedido "'||r_header.order_number||'"');
    ELSE
      gera_log('Nenhuma retenção encontrada para o pedido "'||r_header.order_number||'"');
    END IF;
    
  EXCEPTION
    WHEN E_ERROR THEN
      ROLLBACK;
    WHEN OTHERS THEN
      x_return_status := 'E';
      x_message_error := 'Erro ao liberar retenções do Pedido com #ID '||p_header_id||'. Erro: '||SQLERRM;
  END Libera_Retencoes_Pedido;
  
BEGIN
  
  -- IMPORTANTE APENAS QUANDO RODANDO FORA DO EBS
  fnd_global.apps_initialize(15992, 50663, 660);
  mo_global.set_policy_context(p_access_mode => 'S', p_org_id => 81);
  --
 
  -- Libera todas as retenções do pedido
  Libera_Retencoes_Pedido(p_header_id     => 2748543 -- HEADER_ID do Pedido
                        , x_return_status => w_return_status
                        , x_message_error => w_message_error);
  
  IF w_return_status != 'S' THEN
    gera_log(RPAD('-', 100, '-'));
    gera_log('FINALIZADO COM ERRO: '||w_message_error);
  END IF;
  
END;

Se foi útil, ou se você apenas gostou, peço que compartilhe com seus contatos, poderá ser muito útil para eles.
Qualquer dúvida comenta aqui no blog.

Grande Abraço

Hoje vou fazer um post mais rápido porém muito, muito útil.

Existem casos em que precisamos fazer, e saber antecipadamente, em alguma customização, quais serão os impostos que serão aplicados em algum determinado item que será vendido.

Vi essa questão resolvida de duas maneiras.

A primeira maneira de chegar nos impostos, é desenvolvendo uma solução customizada para cálculo de impostos. Sim, na minha opinião isso é loucura. Simplesmente não dá pra considerar todas as regras e exceções desses cálculos de uma maneira prática e rápida.

Inclusive, eu já vi essa solução em funcionamento. E sim, não funcionava direito. Sempre faltava considerar alguma regra, seja de regras de Uso e Consumo, seja se Cesta Básica, ou qualquer outra regra de imposto que não atendia a regra básica.

ICMS por exemplo. Algo que tivesse alguma alíquota fora da padrão de Estado Origem e Destino, já trazia a alíquota errada. E por mais que tentássemos cercar, sempre faltava alguma coisa.

Desta forma procurei outras maneiras de resolver esse problema. Foi então que caiu a fixa. Atualmente, o EBS atende, senão todas (não sei), mas a grande maioria das regras de impostos, pois a nota fiscal tem que sair corretamente, certo?

A partir daí cheguei na Segunda Maneira de Calcular os Impostos, de forma customizada, que no caso, foi apenas utilizar a roda que já foi inventada, ou seja, utilizar uma API nativa do Oracle, que já faz esse cálculo, e considere todas as regras configuradas pelo Fiscal.

A API que utilizei, encontrei dentro da tela de Ordens de Venda (OEXOEORD). Esta tela calcula uma prévia dos impostos quando fazemos o registro da mesma. Para ver, basta consultar uma ordem previamente registrada, navegar até uma das linhas, e ir no botão Ações e depois em Verificar detalhes do imposto.

Será exibida uma tela com as informações dos impostos.

Dessa forma, abrindo a tela, encontrei a API:

zx_api_pub.calculate_tax

Esta é a API responsável pelo cálculo dos impostos da Ordem de Venda e, provavelmente, seja ela também que faça os cálculos para a Nota Fiscal.

Dessa forma encontrei todos os dados e parâmetros necessários e montei uma procedure que recebe alguns parâmetros obrigatórios e faz a complexa chamada da API de cálculo de impostos.

Para testar, é necessário alterar as informações que estão sendo passadas nos parâmetros, conforme as informações da sua empresa em questão e demais informações, como item, vendedor, endereços, e demais informações.

-- Chama a rotina para carregar informações do imposto
  Calculate_Tax(p_org_id             => 81
              , p_order_type_id      => 1370
              , p_sold_to_org_id     => 3592570
              , p_organization_id    => 115
              , p_inventory_item_id  => 11734850
              , p_ship_from_org_id   => 115
              , p_ship_to_org_id     => 112975
              , p_invoice_to_org_id  => 112974
              , p_ordered_quantity   => 5000
              , p_unit_selling_price => 4.26
              , p_fob_point_code     => 'CIF'
              , p_salesrep_id        => 100011117
              , px_return_status     => w_return_status
              , px_message_error     => w_message_error);

No exemplo, foi necessário setar o contexto para que funcione corretamente ao rodar fora do ambiente do EBS, conforme abaixo:

MO_GLOBAL.SET_POLICY_CONTEXT(p_access_mode  => 'S', p_org_id => 81);

O que essa rotina faz é carregar uma tabela temporária(zx_detail_tax_lines_gt), então, depois de rodar o bloco PL/SQL, é possível visualizar as informações do imposto a partir da Query abaixo:

SELECT a.tax_id
     , a.tax
     , a.tax_rate_code
     , a.tax_rate
     , a.unit_price
     , a.trx_line_quantity
     , a.line_amt
     , a.taxable_amt
     , a.tax_amt
     , a.tax_amt_included_flag
     , a.tax_regime_id
     , a.tax_regime_code
     , a.tax_status_id
     , a.tax_status_code
     , a.tax_rate_id
     , a.legal_justification_text1
     , a.legal_justification_text2
     , a.legal_justification_text3
  FROM zx_detail_tax_lines_gt a
     , zx_rates_b             b
 WHERE a.tax_rate_id = b.tax_rate_id
--   AND a.tax LIKE '%C' -- Trazer apenas o que for Crédito
 ORDER BY a.tax_line_number;

O Resultado será assim:

O código completo está abaixo, já possível testá-lo, porém antes é necessário configurar os parâmetros, conforme comentei acima.

Se foi útil, ou se você apenas gostou, peço que compartilhe com seus contatos, poderá ser muito útil para eles.

DECLARE

  C_ERROR   CONSTANT VARCHAR2(1) := 'E';
  C_SUCCESS CONSTANT VARCHAR2(1) := 'S';
  
  w_return_status VARCHAR2(1);
  w_message_error VARCHAR2(4000);
  
  PROCEDURE l (t IN VARCHAR2) IS
  BEGIN
    dbms_output.put_line (t);
  END l;
  
  --------------------------------------------------------------------------
  FUNCTION Get_le_id(p_order_type_id NUMBER
                   , p_sold_to_customer_id NUMBER
                   , p_bill_to_customer_id NUMBER
                   , p_org_id NUMBER
                   , px_message_error OUT VARCHAR2) RETURN NUMBER IS

    l_invoice_source_id  NUMBER;
    l_invoice_source     VARCHAR2(50);
    l_order_type_rec     OE_ORDER_CACHE.ORDER_TYPE_REC_TYPE;
    l_customer_type      VARCHAR2(30);
    l_customer_id        NUMBER;
    l_cust_trx_type_id   NUMBER;
    l_return_status      VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
    l_legal_entity_id    NUMBER;
    l_msg_data           VARCHAR2(1000);
    
  BEGIN

    IF p_sold_to_customer_id IS NOT NULL THEN
      l_customer_type := 'SOLD_TO';
      l_customer_id := p_sold_to_customer_id;
    ELSIF p_bill_to_customer_id IS NOT NULL THEN
      l_customer_type := 'BILL_TO';
      l_customer_id := p_bill_to_customer_id;
    END IF;

    l_order_type_rec    := OE_ORDER_CACHE.Load_Order_Type(p_order_type_id);
    l_invoice_source_id := l_order_type_rec.invoice_source_id;
    l_cust_trx_type_id  := l_order_type_rec.cust_trx_type_id;

    IF l_invoice_source_id IS NULL THEN
      l_invoice_source := oe_sys_parameters.value('INVOICE_SOURCE', p_org_id);

      IF (l_invoice_source IS NOT NULL) THEN
        SELECT batch_source_id
          INTO l_invoice_source_id
          FROM ra_batch_sources
         WHERE name = l_invoice_source;
      
      END IF;
    END IF;

    IF l_cust_trx_type_id IS NULL THEN
      l_cust_trx_type_id := oe_sys_parameters.value('OE_INVOICE_TRANSACTION_TYPE_ID',p_org_id);
    END IF;

    l_legal_entity_id := XLE_BUSINESSINFO_GRP.Get_OrdertoCash_Info (
                               x_return_status       => l_return_status,    -- OUT
                               x_msg_data            => l_msg_data,         -- OUT
                               p_customer_type       => l_customer_type,    -- IN  P_customer_type
                               p_customer_id         => l_customer_id,      -- IN  P_customer_id (sold_to/bill_to customer_id)
                               p_transaction_type_id => l_cust_trx_type_id, -- IN  P_transaction_type_id
                               p_batch_source_id     => l_invoice_source_id,-- IN  P_batch_source_id
                               p_operating_unit_id   => p_org_id            -- IN  P_operating_unit_id (org_id)
                               );

    IF l_return_status <> FND_API.G_RET_STS_SUCCESS OR l_legal_entity_id = -1 THEN

      IF l_msg_data IS NOT NULL THEN
        px_message_error := 'Erro: '||l_msg_data;
      ELSE
        px_message_error := 'Erro na chamada de XLE_BUSINESSINFO_GRP.Get_OrdertoCash_Info';
      END IF;
      
      RETURN -1;
    END IF;

    RETURN l_legal_entity_id;
  EXCEPTION
    WHEN OTHERS THEN
      px_message_error := 'Erro: '||SQLERRM;
      RETURN -1;
  END Get_le_id;
  
  --------------------------------------------------------------------------
  PROCEDURE Calculate_Tax(p_org_id             IN oe_order_headers_all.org_id%TYPE
                        , p_order_type_id      IN oe_order_headers_all.order_type_id%TYPE
                        , p_sold_to_org_id     IN oe_order_headers_all.sold_to_org_id%TYPE
                        , p_organization_id    IN mtl_system_items_b.organization_id%TYPE
                        , p_inventory_item_id  IN oe_order_lines_all.inventory_item_id%TYPE
                        , p_ship_from_org_id   IN oe_order_lines_all.ship_from_org_id%TYPE
                        , p_ship_to_org_id     IN oe_order_lines_all.ship_to_org_id%TYPE
                        , p_invoice_to_org_id  IN oe_order_lines_all.invoice_to_org_id%TYPE
                        , p_ordered_quantity   IN oe_order_lines_all.ordered_quantity%TYPE
                        , p_unit_selling_price IN oe_order_lines_all.unit_selling_price%TYPE
                        , p_fob_point_code     IN oe_order_lines_all.fob_point_code%TYPE
                        , p_salesrep_id        IN oe_order_lines_all.salesrep_id%TYPE
                        , px_return_status    OUT VARCHAR2
                        , px_message_error    OUT VARCHAR2) AS
  
    -- Busca informações básicas do Item
    CURSOR c_item IS
    SELECT a.organization_id
         , a.inventory_item_id
         , a.primary_uom_code
         , a.description
         , a.segment1
         , a.global_attribute2 trx_business_category
      FROM mtl_system_items_vl a
     WHERE a.inventory_item_id = p_inventory_item_id
       AND a.organization_id = p_organization_id;
    
    -- Busca informações fiscais do Tipo de Transação
    CURSOR c_order_type IS
    SELECT otta.transaction_type_id order_type_id
         , ottt.name
         , NVL(otta.cust_trx_type_id, 0) cust_trx_type_id
         , rct.global_attribute4        tax_code
         , otta.currency_code            currency_code
      FROM oe_transaction_types_all otta
         , oe_transaction_types_tl  ottt
         , ra_cust_trx_types_all    rct
     WHERE otta.transaction_type_id = ottt.transaction_type_id
       AND ottt.language = USERENV('LANG')
       AND otta.cust_trx_type_id = rct.cust_trx_type_id (+)
       AND otta.org_id           = rct.org_id           (+)
       AND otta.transaction_type_id = p_order_type_id;
    
    -- Busca a moeda
    CURSOR c_currency(p_currency_code IN fnd_currencies.currency_code%TYPE) IS
    SELECT c.currency_code
         , c.minimum_accountable_unit
         , c.precision
      FROM fnd_currencies c
     WHERE c.currency_code = p_currency_code;

    -- Busca informações do cliente e entrega
    CURSOR getlocinfo(p_site_org_id hz_cust_site_uses_all.site_use_id%TYPE) IS
    SELECT /* MOAC_SQL_CHANGE */ 
           s_ship.site_use_id
         , s_ship.cust_acct_site_id
         , acct_site_ship.cust_account_id
         , party.party_id
         , party_site_ship.party_site_id
         , loc_ship.location_id
      FROM hz_cust_site_uses      s_ship 
         , hz_cust_acct_sites_all acct_site_ship
         , hz_party_sites         party_site_ship
         , hz_locations           loc_ship
         , hz_parties             party
         , hz_cust_accounts_all   cust_acct
     WHERE s_ship.site_use_id       = p_site_org_id
       AND s_ship.cust_acct_site_id = acct_site_ship.cust_acct_site_id
       AND acct_site_ship.cust_account_id = cust_acct.cust_account_id
       AND cust_acct.party_id = party.party_id
       AND acct_site_ship.party_site_id = party_site_ship.party_site_id
       AND party_site_ship.location_id  = loc_ship.location_id;
    
    -- Busca o local da organização
    CURSOR get_internal_loc(p_organization_id number) IS
    SELECT location_id
      FROM hr_organization_units
     WHERE organization_id = p_organization_id;
    
    r_item         c_item%ROWTYPE;
    r_order_type   c_order_type%ROWTYPE;
    r_currency     c_currency%ROWTYPE;
    r_ship_locinfo getlocinfo%ROWTYPE;
    r_bill_locinfo getlocinfo%ROWTYPE;
    --
    l_return_status                VARCHAR2(1);
    l_msg_count                    NUMBER;
    l_msg_data                     VARCHAR2(2000);
    l_product_fisc_classification  VARCHAR2(240);
    l_trx_line_number              NUMBER;
    i                              NUMBER;
    l_internal_org_location_id     NUMBER;
    l_header_id                    oe_order_headers.header_id%type;
    l_tax_date                     oe_order_lines.tax_date%type;
    l_ship_from_location_id        NUMBER;
    l_application_id               NUMBER;
    l_entity_code_crsr             zx_detail_tax_lines_gt.entity_code%TYPE;
    l_event_class_code_crsr        zx_detail_tax_lines_gt.event_class_code%TYPE ;
    l_trx_level_type_crsr          zx_detail_tax_lines_gt.trx_level_type%TYPE;
    l_line_id                      NUMBER;
    l_inventory_org_id             NUMBER;
    l_order_number                 oe_order_headers_all.order_number%TYPE;
    l_ar_sys_param_rec             ar_system_parameters_all%ROWTYPE;
    l_legal_entity_id              NUMBER(15);
    l_bill_from_location_id        NUMBER;
    --
    l_transaction_rec       zx_api_pub.transaction_rec_type;
    l_doc_level_recalc_flag VARCHAR2(30);
    l_poo_party_id          NUMBER;
    l_poo_location_id       NUMBER;
    
    exit_excp EXCEPTION;
    
    PROCEDURE Add(p_field IN OUT VARCHAR2
                , p_text IN VARCHAR2) IS
    BEGIN
      IF p_text IS NULL THEN
        RETURN;
      END IF;
      
      IF p_field IS NULL THEN
        p_field := p_text;
      ELSE
        p_field := p_field || ' - ' || p_text;
      END IF;
    END Add;
  
  BEGIN
    
    -- O cálculo deverá ser feito exatamente como a Ordem de Venda Faz
    -- Por esse motivo esta sendo passado o mesmo evento como sendo a partir da Ordem
    px_return_status        := C_SUCCESS;
    l_entity_code_crsr      := 'OE_ORDER_HEADERS';
    l_event_class_code_crsr := 'SALES_TRANSACTION_TAX_QUOTE';
    l_trx_level_type_crsr   := 'LINE';
    
    -- Como Não temos Ordem de Venda por se tratar de uma simulação, passamos zero para os IDs
    l_header_id             := 0;
    l_order_number          := 0;
    l_line_id               := 0;
    l_trx_line_number       := 0;
    -- 
    l_tax_date              := SYSDATE;
    l_application_id        := 660;
    --
    l_inventory_org_id := oe_sys_parameters.value('MASTER_ORGANIZATION_ID', p_org_id);
    
    -- Busca informações básicas do Item
    r_item := NULL;
    OPEN c_item;
    FETCH c_item INTO r_item;
    CLOSE c_item;
    
    -- Verifica se encontrou o item
    IF r_item.organization_id IS NULL THEN
      px_return_status := C_ERROR;
      px_message_error := 'Item com ID '||p_inventory_item_id
                       || ' não encontrado na Organização com ID '||p_organization_id;
      RETURN;
    END IF;
    
    --l('trx business:'||r_item.trx_business_category);
    
    -- Busca a classificação fiscal do Item
    BEGIN
      SELECT category_concat_segs
        INTO l_product_fisc_classification
        FROM mtl_item_categories_v a
       WHERE a.inventory_item_id = p_inventory_item_id
         AND a.organization_id   = p_organization_id
         AND a.category_set_name = 'FISCAL_CLASSIFICATION'
         AND a.enabled_flag      = 'Y'
         AND rownum = 1;
    EXCEPTION
      WHEN no_Data_Found THEN
        px_return_status := C_ERROR;
        px_message_error := 'Classificação fiscal (FISCAL_CLASSIFICATION) não encontrada para o Item '||r_item.segment1
                       || ' da Organização com ID '||p_organization_id;
        RETURN;
      WHEN OTHERS THEN
        px_return_status := C_ERROR;
        px_message_error := 'Erro ao buscar Classificação fiscal (FISCAL_CLASSIFICATION) para o Item '||r_item.segment1
                       || ' da Organização com ID '||p_organization_id||'. Erro: '||SQLERRM;
        RETURN;
    END;
    
    --l('l_product_fisc_classification: '||l_product_fisc_classification);
        
    -- Busca informações do AR
    l_AR_Sys_Param_Rec := OE_Sys_Parameters_Pvt.Get_AR_Sys_Params;
    
    -- Busca informações
    r_order_type := NULL;
    OPEN c_order_type;
    FETCH c_order_type INTO r_order_type;
    CLOSE c_order_type;
    
    -- Verifica se encontrou o tipo de transação
    IF r_order_type.order_type_id IS NULL THEN
      px_return_status := C_ERROR;
      px_message_error := 'Tipo de transação com ID '||p_order_type_id
                       || ' não encontrado.';
      RETURN;
    END IF;
    
    --l('Customer trx type id is:'||r_order_type.cust_trx_type_id);
    --l('l_tax_code is:'||r_order_type.tax_code);
    --l('l_currency_code: '||r_order_type.currency_code);
    
    -- Verifica se encontrou tipo de transação do AR associado com o Tipo de Ordem
    -- Caso não encontre o tipo de transação no tipo de ordem do OM
    IF r_order_type.cust_trx_type_id = 0 THEN
      SELECT NVL(oe_sys_parameters.value('OE_INVOICE_TRANSACTION_TYPE_ID', p_org_id), 0) --moac
        INTO r_order_type.cust_trx_type_id
        FROM DUAL;
        --l(  'CUSTOMER TRANSACTION TYPE ID FROM PROFILE : '||r_order_type.cust_trx_type_id);
    END IF;
     
    --code changes made for bug 1883552  end
    --l('Customer trx type id is:'||r_order_type.cust_trx_type_id);
    
    -- Busca informações da Moeda
    r_currency := NULL;
    OPEN c_currency(r_order_type.currency_code);
    FETCH c_currency INTO r_currency;
    CLOSE c_currency;
    
    -- Verifica se encontrou informações da Moeda
    IF r_currency.currency_code IS NULL THEN
      l('Moeda '||r_order_type.currency_code||' não encontrada');
    END IF;
    
    r_ship_locinfo := NULL;
    IF p_ship_to_org_id IS NOT NULL THEN
      
      OPEN getlocinfo(p_ship_to_org_id);
      FETCH getlocinfo INTO r_ship_locinfo;
      CLOSE getlocinfo;
      
      -- Verifica se encontrou informações de entrega
      IF r_ship_locinfo.site_use_id IS NULL THEN
        l('Não encontrada informações para ship_to_org_id: '||p_ship_to_org_id);
      END IF;
      
    END IF;

    r_bill_locinfo := NULL;
    IF p_invoice_to_org_id IS NOT NULL THEN
    
      OPEN getlocinfo(p_invoice_to_org_id);
      FETCH getlocinfo INTO r_bill_locinfo;
      CLOSE getlocinfo;
      
      -- Verifica se encontrou informações de entrega
      IF r_bill_locinfo.site_use_id IS NULL THEN
        l('Não encontrada informações para invoice_to_org_id: '||p_invoice_to_org_id);
      END IF;
    END IF;
    
    -- Busca informações da Organização
    OPEN get_internal_loc(p_org_id);
    FETCH get_internal_loc INTO l_internal_org_location_id;
    CLOSE get_internal_loc;

    -- bug 4622791
    IF p_ship_from_org_id IS NOT NULL THEN
      BEGIN
        SELECT location_id
          INTO l_ship_from_location_id
          FROM hr_all_organization_units hu
         WHERE hu.organization_id = p_ship_from_org_id;
      EXCEPTION
        WHEN OTHERS THEN
          px_return_status := C_ERROR;
          px_message_error := 'Organização ID '||p_ship_from_org_id||' não encontrado em hr_all_organization_units.';
          RETURN;
      END;
    ELSE
      px_return_status := C_ERROR;
      px_message_error := 'Organização Depósito deve ser informada.';
      RETURN;
    END IF;

    --l('l_ship_from_location_id: '||l_ship_from_location_id);

    -- bug 5061910: pass l_poo_party_id poa_party_id
    IF p_salesrep_id IS NOT NULL THEN
      
      BEGIN
        SELECT asgn.organization_id
             , hou.location_id
          INTO l_poo_party_id
             , l_poo_location_id
          FROM ra_salesreps_all sales
             , per_all_assignments_f asgn
             , hr_organization_units hou
         WHERE asgn.person_id = sales.person_id
           AND sales.salesrep_id = p_salesrep_id
           AND sales.org_id = p_org_id
           AND NVL(asgn.primary_flag, 'Y') = 'Y'
           AND hou.organization_id = asgn.organization_id
           AND l_tax_date BETWEEN NVL(asgn.effective_start_date,TO_DATE( '01011900', 'DDMMYYYY'))
           AND NVL(asgn.effective_end_date,TO_DATE( '31122199', 'DDMMYYYY'))
           AND assignment_type = 'E';
           
           --l('l_poo_party_id: '||l_poo_party_id);
           --l('l_poo_location_id: '||l_poo_location_id);
      EXCEPTION
        WHEN OTHERS THEN
          l_poo_party_id := NULL;
          l_poo_location_id := NULL;
          --l('Informações não encontradas para p_salesrep_id: '||p_salesrep_id
                            --||' e p_org_id: '||p_org_id);
      END;
    END IF;

    --bug6995051
    BEGIN
      SELECT location_id
        INTO l_bill_from_location_id
        FROM hr_all_organization_units
       WHERE organization_id = p_org_id;
    EXCEPTION
      WHEN OTHERS THEN
        l_bill_from_location_id := NULL;
    END;
    
    --l('l_bill_from_location_id: '||l_bill_from_location_id);
    --l('l_poo_party_id: '|| l_poo_party_id);

    l_legal_entity_id := get_le_id(p_order_type_id       => p_order_type_id
                                 , p_sold_to_customer_id => p_sold_to_org_id
                                 , p_bill_to_customer_id => r_bill_locinfo.cust_account_id
                                 , p_org_id              => p_org_id
                                 , px_message_error      => l_msg_data);
    
    --l('l_legal_entity_id: '||l_legal_entity_id);
    IF l_msg_data IS NOT NULL THEN
      px_return_status := C_ERROR;
      px_message_error := 'Erro ao chamar get_le_id. Erro: '||l_msg_data;
      RETURN;
    END IF;

    i := 1;
    zx_global_structures_pkg.init_trx_line_dist_tbl(i);
    zx_global_structures_pkg.trx_line_dist_tbl.APPLICATION_ID(i)   := l_application_id;
    zx_global_structures_pkg.trx_line_dist_tbl.ENTITY_CODE(i)      := l_entity_code_crsr;
    zx_global_structures_pkg.trx_line_dist_tbl.EVENT_CLASS_CODE(i) := l_event_class_code_crsr;
    zx_global_structures_pkg.trx_line_dist_tbl.TRX_ID(i)           := l_header_id;
    zx_global_structures_pkg.trx_line_dist_tbl.TRX_LEVEL_TYPE(i)   := l_trx_level_type_crsr;

    zx_global_structures_pkg.trx_line_dist_tbl.INTERNAL_ORGANIZATION_ID(i)          := p_org_id;--p_header_rec.org_id;
    zx_global_structures_pkg.trx_line_dist_tbl.EVENT_TYPE_CODE(i)                   := 'CREATE';
    
    zx_global_structures_pkg.trx_line_dist_tbl.TRX_DATE(i)                          := SYSDATE;
    zx_global_structures_pkg.trx_line_dist_tbl.TRX_DOC_REVISION(i)                  := NULL; --   VARCHAR2_150_tbl_type  ,
    zx_global_structures_pkg.trx_line_dist_tbl.LEDGER_ID(i)                         := l_AR_Sys_Param_Rec.set_of_books_id;
    zx_global_structures_pkg.trx_line_dist_tbl.TRX_CURRENCY_CODE(i)                 := r_order_type.currency_code;--p_header_rec.TRANSACTIONAL_CURR_CODE;
    zx_global_structures_pkg.trx_line_dist_tbl.CURRENCY_CONVERSION_DATE(i)          := NULL;--p_header_rec.CONVERSION_RATE_DATE;
    zx_global_structures_pkg.trx_line_dist_tbl.CURRENCY_CONVERSION_RATE(i)          := NULL;--p_header_rec.CONVERSION_RATE;
    zx_global_structures_pkg.trx_line_dist_tbl.CURRENCY_CONVERSION_TYPE(i)          := NULL;--p_header_rec.CONVERSION_TYPE_CODE;
    zx_global_structures_pkg.trx_line_dist_tbl.MINIMUM_ACCOUNTABLE_UNIT(i)          := r_currency.minimum_accountable_unit;
    zx_global_structures_pkg.trx_line_dist_tbl.PRECISION(i)                         := r_currency.precision;
    -- revisit the logic to derive legal_entity_id later when legal_entity_id approach is clarified.
    zx_global_structures_pkg.trx_line_dist_tbl.LEGAL_ENTITY_ID(i)                   := l_legal_entity_id; --   NUMBER_tbl_type        ,
    zx_global_structures_pkg.trx_line_dist_tbl.ESTABLISHMENT_ID(i)                  := NULL; --   NUMBER_tbl_type        ,
    zx_global_structures_pkg.trx_line_dist_tbl.APPLIED_FROM_TRX_NUMBER(i)           := NULL; --   VARCHAR2_150_tbl_type  ,
    zx_global_structures_pkg.trx_line_dist_tbl.TRX_NUMBER(i)                        := l_order_number;--p_header_Rec.order_number;
    zx_global_structures_pkg.trx_line_dist_tbl.TRX_DESCRIPTION(i)                   := NULL; --   VARCHAR2_240_tbl_type  ,
    zx_global_structures_pkg.trx_line_dist_tbl.TRX_COMMUNICATED_DATE(i)             := NULL; --   DATE_tbl_type          ,
    zx_global_structures_pkg.trx_line_dist_tbl.BATCH_SOURCE_ID(i)                   := NULL; --   NUMBER_tbl_type        ,
    zx_global_structures_pkg.trx_line_dist_tbl.BATCH_SOURCE_NAME(i)                 := NULL; --   VARCHAR2_150_tbl_type  ,
    zx_global_structures_pkg.trx_line_dist_tbl.DOC_SEQ_ID(i)                        := NULL; --   NUMBER_tbl_type        ,
    zx_global_structures_pkg.trx_line_dist_tbl.DOC_SEQ_NAME(i)                      := NULL; --   VARCHAR2_150_tbl_type  ,
    zx_global_structures_pkg.trx_line_dist_tbl.DOC_SEQ_VALUE(i)                     := NULL; --   VARCHAR2_240_tbl_type  ,
    zx_global_structures_pkg.trx_line_dist_tbl.TRX_DUE_DATE(i)                      := NULL; --   DATE_tbl_type          ,
    zx_global_structures_pkg.trx_line_dist_tbl.TRX_TYPE_DESCRIPTION(i)              := NULL; --   VARCHAR2_240_tbl_type  ,
    zx_global_structures_pkg.trx_line_dist_tbl.FIRST_PTY_ORG_ID(i)                  := NULL; --   NUMBER_tbl_type        ,
    zx_global_structures_pkg.trx_line_dist_tbl.RECEIVABLES_TRX_TYPE_ID(i)           := r_order_type.cust_trx_type_id;
    zx_global_structures_pkg.trx_line_dist_tbl.TAX_EVENT_CLASS_CODE(i)              := NULL; --   VARCHAR2_30_tbl_type   ,
    zx_global_structures_pkg.trx_line_dist_tbl.TAX_EVENT_TYPE_CODE(i)               := NULL; --   VARCHAR2_30_tbl_type   ,
    zx_global_structures_pkg.trx_line_dist_tbl.DOC_EVENT_STATUS(i)                  := NULL; --   VARCHAR2_30_tbl_type   ,
    zx_global_structures_pkg.trx_line_dist_tbl.DOCUMENT_SUB_TYPE(i)                 := NULL; --   VARCHAR2_240_tbl_type  ,
    zx_global_structures_pkg.trx_line_dist_tbl.SUPPLIER_TAX_INVOICE_NUMBER(i)       := NULL; --   VARCHAR2_150_tbl_type  ,
    zx_global_structures_pkg.trx_line_dist_tbl.SUPPLIER_TAX_INVOICE_DATE(i)         := NULL; --   DATE_tbl_type          ,
    zx_global_structures_pkg.trx_line_dist_tbl.SUPPLIER_EXCHANGE_RATE(i)            := NULL; --   NUMBER_tbl_type        ,
    zx_global_structures_pkg.trx_line_dist_tbl.TAX_INVOICE_DATE(i)                  := NULL; --   DATE_tbl_type          ,
    zx_global_structures_pkg.trx_line_dist_tbl.TAX_INVOICE_NUMBER(i)                := NULL; --   VARCHAR2_150_tbl_type  ,
    zx_global_structures_pkg.trx_line_dist_tbl.QUOTE_FLAG(i)                        := 'Y'; --   VARCHAR2_1_tbl_type   ,
    zx_global_structures_pkg.trx_line_dist_tbl.DEFAULT_TAXATION_COUNTRY(i)          := NULL; --   VARCHAR2_2_tbl_type   ,
    zx_global_structures_pkg.trx_line_dist_tbl.CTRL_HDR_TX_APPL_FLAG(i)             := NULL; --   VARCHAR2_1_tbl_type    ,
    zx_global_structures_pkg.trx_line_dist_tbl.CTRL_TOTAL_HDR_TX_AMT(i)             := NULL; --   NUMBER_tbl_type        ,
    zx_global_structures_pkg.trx_line_dist_tbl.PORT_OF_ENTRY_CODE(i)                := NULL; --   VARCHAR2_30_tbl_type,
    zx_global_structures_pkg.trx_line_dist_tbl.TAX_REPORTING_FLAG(i)                := 'N'; --   VARCHAR2_1_tbl_type,
    zx_global_structures_pkg.trx_line_dist_tbl.TAX_AMT_INCLUDED_FLAG(i)             := NULL; --   VARCHAR2_1_tbl_type ,
    zx_global_structures_pkg.trx_line_dist_tbl.COMPOUNDING_TAX_FLAG(i)              := NULL; --   VARCHAR2_1_tbl_type,
    zx_global_structures_pkg.trx_line_dist_tbl.PROVNL_TAX_DETERMINATION_DATE(i)     := NULL; --   DATE_tbl_type,
    zx_global_structures_pkg.trx_line_dist_tbl.INSERT_UPDATE_FLAG(i)                := NULL; --   VARCHAR2_1_tbl_type,
    zx_global_structures_pkg.trx_line_dist_tbl.APPLIED_TO_TRX_NUMBER(i)             := NULL; --   VARCHAR2_150_tbl_type,
    zx_global_structures_pkg.trx_line_dist_tbl.START_EXPENSE_DATE(i)                := NULL; --   DATE_tbl_type,
    zx_global_structures_pkg.trx_line_dist_tbl.TRX_BATCH_ID(i)                      := NULL; --   NUMBER_tbl_type,
    zx_global_structures_pkg.trx_line_dist_tbl.RECORD_TYPE_CODE(i)                  := NULL; --   VARCHAR2_30_tbl_type,
    zx_global_structures_pkg.trx_line_dist_tbl.TAX_PROCESSING_COMPLETED_FLAG(i)     := NULL; --   VARCHAR2_1_tbl_type,
    zx_global_structures_pkg.trx_line_dist_tbl.APPLICATION_DOC_STATUS(i)            := NULL; --   VARCHAR2_30_tbl_type,
    zx_global_structures_pkg.trx_line_dist_tbl.OVERRIDING_RECOVERY_RATE(i)          := NULL; --   NUMBER_tbl_type,
    zx_global_structures_pkg.trx_line_dist_tbl.TAX_CALCULATION_DONE_FLAG(i)         := NULL; --   VARCHAR2_1_tbl_type,
    zx_global_structures_pkg.trx_line_dist_tbl.USER_UPD_DET_FACTORS_FLAG(i)         := NULL; --   VARCHAR2_1_tbl_type,
    zx_global_structures_pkg.trx_line_dist_tbl.ICX_SESSION_ID(i)                    := NULL; --   NUMBER_tbl_type
    -- line level columns
    --zx_global_structures_pkg.trx_line_dist_tbl.TRX_LINE_CURRENCY_CODE(i)            := NULL; --   VARCHAR2_15_tbl_type   ,
    --zx_global_structures_pkg.trx_line_dist_tbl.TRX_LINE_CURRENCY_CONV_DATE(i)       := NULL; --   DATE_tbl_type          ,
    --zx_global_structures_pkg.trx_line_dist_tbl.TRX_LINE_CURRENCY_CONV_RATE(i)       := NULL; --   NUMBER_tbl_type        ,
    --zx_global_structures_pkg.trx_line_dist_tbl.TRX_LINE_CURRENCY_CONV_TYPE(i)       := NULL; --   VARCHAR2_30_tbl_type   ,
    --zx_global_structures_pkg.trx_line_dist_tbl.TRX_LINE_MAU(i)                      := NULL; --   NUMBER_tbl_type        ,
    --zx_global_structures_pkg.trx_line_dist_tbl.TRX_LINE_PRECISION(i)                := NULL; --   NUMBER_tbl_type        ,
    zx_global_structures_pkg.trx_line_dist_tbl.LINE_INTENDED_USE(i)                 := NULL; --   VARCHAR2_240_tbl_type   ,
    zx_global_structures_pkg.trx_line_dist_tbl.INPUT_TAX_CLASSIFICATION_CODE(i)     := NULL; --   VARCHAR2_30_tbl_type   ,
    zx_global_structures_pkg.trx_line_dist_tbl.EXEMPTION_CONTROL_FLAG(i)            := 'S'; --l_line_rec.TAX_EXEMPT_FLAG;
    zx_global_structures_pkg.trx_line_dist_tbl.EXEMPT_REASON_CODE(i)                := NULL;--l_line_rec.TAX_EXEMPT_REASON_CODE;
    zx_global_structures_pkg.trx_line_dist_tbl.INTERFACE_ENTITY_CODE(i)             := NULL; --   VARCHAR2_30_tbl_type,
    zx_global_structures_pkg.trx_line_dist_tbl.INTERFACE_LINE_ID(i)                 := NULL; --   NUMBER_tbl_type,
    zx_global_structures_pkg.trx_line_dist_tbl.HISTORICAL_TAX_CODE_ID(i)            := NULL; --   NUMBER_tbl_type,
    zx_global_structures_pkg.trx_line_dist_tbl.TRX_LINE_ID(i)  := l_line_id;--l_line_rec.line_id;
    zx_global_structures_pkg.trx_line_dist_tbl.LINE_CLASS(i)          := 'INVOICE';
    zx_global_structures_pkg.trx_line_dist_tbl.LINE_LEVEL_ACTION(i)  := 'CREATE';
    zx_global_structures_pkg.trx_line_dist_tbl.TRX_SHIPPING_DATE(i)  := SYSDATE;--l_trx_shipping_date;
    zx_global_structures_pkg.trx_line_dist_tbl.TRX_RECEIPT_DATE(i)  := NULL ;
    zx_global_structures_pkg.trx_line_dist_tbl.TRX_LINE_TYPE(i)  := 'LINE';
    zx_global_structures_pkg.trx_line_dist_tbl.TRX_LINE_DATE(i)  := l_tax_date;
    zx_global_structures_pkg.trx_line_dist_tbl.TRX_BUSINESS_CATEGORY(i)  := r_item.trx_business_category;
    zx_global_structures_pkg.trx_line_dist_tbl.LINE_INTENDED_USE(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.USER_DEFINED_FISC_CLASS(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.LINE_AMT_INCLUDES_TAX_FLAG(i)  := 'S';
    zx_global_structures_pkg.trx_line_dist_tbl.LINE_AMT(i)  := p_ordered_quantity*p_unit_selling_price;
    zx_global_structures_pkg.trx_line_dist_tbl.TRX_LINE_QUANTITY(i)  := p_ordered_quantity;
    zx_global_structures_pkg.trx_line_dist_tbl.UNIT_PRICE(i)  := p_unit_selling_price;
    zx_global_structures_pkg.trx_line_dist_tbl.EXEMPT_CERTIFICATE_NUMBER(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.EXEMPT_REASON(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.CASH_DISCOUNT(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.VOLUME_DISCOUNT(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.TRADING_DISCOUNT(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.TRANSFER_CHARGE(i)  := NULL ;
    zx_global_structures_pkg.trx_line_dist_tbl.TRANSPORTATION_CHARGE(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.INSURANCE_CHARGE(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.OTHER_CHARGE(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.PRODUCT_ID(i)  := p_inventory_item_id;
    zx_global_structures_pkg.trx_line_dist_tbl.PRODUCT_FISC_CLASSIFICATION(i):= l_product_fisc_classification;
    zx_global_structures_pkg.trx_line_dist_tbl.PRODUCT_ORG_ID(i)  := NVL(p_ship_from_org_id,l_inventory_org_id);
    zx_global_structures_pkg.trx_line_dist_tbl.UOM_CODE(i)    := r_item.primary_uom_code;
    zx_global_structures_pkg.trx_line_dist_tbl.PRODUCT_TYPE(i) := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.PRODUCT_CODE(i)  := r_item.segment1;
    zx_global_structures_pkg.trx_line_dist_tbl.PRODUCT_CATEGORY(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.TRX_SIC_CODE(i)  := NULL ;
    zx_global_structures_pkg.trx_line_dist_tbl.FOB_POINT(i)    := NVL(p_fob_point_code, 'CIF');
    zx_global_structures_pkg.trx_line_dist_tbl.SHIP_TO_PARTY_ID(i)  := r_ship_locinfo.party_id;
    zx_global_structures_pkg.trx_line_dist_tbl.SHIP_FROM_PARTY_ID(i):= p_ship_from_org_id;
    zx_global_structures_pkg.trx_line_dist_tbl.POA_PARTY_ID(i)  := p_org_id;
    zx_global_structures_pkg.trx_line_dist_tbl.POO_PARTY_ID(i)  := l_poo_party_id;
    zx_global_structures_pkg.trx_line_dist_tbl.BILL_TO_PARTY_ID(i)  := r_bill_locinfo.party_id;
    zx_global_structures_pkg.trx_line_dist_tbl.BILL_FROM_PARTY_ID(i):= NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.MERCHANT_PARTY_ID(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.SHIP_TO_PARTY_SITE_ID(i)  := r_ship_locinfo.party_site_id;
    zx_global_structures_pkg.trx_line_dist_tbl.SHIP_FROM_PARTY_SITE_ID(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.POA_PARTY_SITE_ID(i)  := NULL ;
    zx_global_structures_pkg.trx_line_dist_tbl.POO_PARTY_SITE_ID(i)  := NULL ;
    zx_global_structures_pkg.trx_line_dist_tbl.BILL_TO_PARTY_SITE_ID(i)  := r_bill_locinfo.party_site_id;
    zx_global_structures_pkg.trx_line_dist_tbl.BILL_FROM_PARTY_SITE_ID(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.SHIP_TO_LOCATION_ID(i)  := r_ship_locinfo.location_id;
    zx_global_structures_pkg.trx_line_dist_tbl.SHIP_FROM_LOCATION_ID(i)  := l_ship_from_location_id;
    zx_global_structures_pkg.trx_line_dist_tbl.POA_LOCATION_ID(i)    := l_internal_org_location_id;
    zx_global_structures_pkg.trx_line_dist_tbl.POO_LOCATION_ID(i)    := l_poo_location_id ;
    zx_global_structures_pkg.trx_line_dist_tbl.BILL_TO_LOCATION_ID(i)  := r_bill_locinfo.location_id;
    zx_global_structures_pkg.trx_line_dist_tbl.BILL_FROM_LOCATION_ID(i)  := l_bill_from_location_id ; --bug6995051
    zx_global_structures_pkg.trx_line_dist_tbl.ACCOUNT_CCID(i)    := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.ACCOUNT_STRING(i)    := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.MERCHANT_PARTY_COUNTRY(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.ASSET_FLAG(i)    := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.ASSET_NUMBER(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.ASSET_ACCUM_DEPRECIATION(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.ASSET_TYPE(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.ASSET_COST(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.DIST_LEVEL_ACTION(i)           := NULL; --   VARCHAR2_30_tbl_type   ,
    zx_global_structures_pkg.trx_line_dist_tbl.APPLIED_FROM_TAX_DIST_ID(i)    := NULL; --   NUMBER_tbl_type        ,
    zx_global_structures_pkg.trx_line_dist_tbl.ADJUSTED_DOC_TAX_DIST_ID(i)    := NULL; --   NUMBER_tbl_type        ,
    zx_global_structures_pkg.trx_line_dist_tbl.TASK_ID(i)                     := NULL; --   NUMBER_tbl_type        ,
    zx_global_structures_pkg.trx_line_dist_tbl.AWARD_ID(i)                    := NULL; --   NUMBER_tbl_type        ,
    zx_global_structures_pkg.trx_line_dist_tbl.PROJECT_ID(i)                  := NULL; --   NUMBER_tbl_type        ,
    zx_global_structures_pkg.trx_line_dist_tbl.EXPENDITURE_TYPE(i)            := NULL; --   VARCHAR2_30_tbl_type   ,
    zx_global_structures_pkg.trx_line_dist_tbl.EXPENDITURE_ORGANIZATION_ID(i) := NULL; --   NUMBER_tbl_type        ,
    zx_global_structures_pkg.trx_line_dist_tbl.EXPENDITURE_ITEM_DATE(i)       := NULL; --   DATE_tbl_type          ,
    zx_global_structures_pkg.trx_line_dist_tbl.TRX_LINE_DIST_AMT(i)           := NULL; --   NUMBER_tbl_type        ,
    zx_global_structures_pkg.trx_line_dist_tbl.TRX_LINE_DIST_QUANTITY(i)      := NULL; --   NUMBER_tbl_type        ,
    zx_global_structures_pkg.trx_line_dist_tbl.REF_DOC_CURR_CONV_RATE(i)      := NULL; --   NUMBER_tbl_type        ,
    zx_global_structures_pkg.trx_line_dist_tbl.ITEM_DIST_NUMBER(i)            := NULL; --   NUMBER_tbl_type        ,
    zx_global_structures_pkg.trx_line_dist_tbl.REF_DOC_DIST_ID(i)             := NULL; --   NUMBER_tbl_type        ,
    zx_global_structures_pkg.trx_line_dist_tbl.TRX_LINE_DIST_TAX_AMT(i)       := NULL; --   NUMBER_tbl_type        ,

    zx_global_structures_pkg.trx_line_dist_tbl.ASSESSABLE_VALUE(i)    := NULL ;
    zx_global_structures_pkg.trx_line_dist_tbl.OUTPUT_TAX_CLASSIFICATION_CODE(i)  := r_order_type.tax_code;
    zx_global_structures_pkg.trx_line_dist_tbl.TRX_ID_LEVEL2(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.TRX_ID_LEVEL3(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.TRX_ID_LEVEL4(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.TRX_ID_LEVEL5(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.TRX_ID_LEVEL6(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.HDR_TRX_USER_KEY1(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.HDR_TRX_USER_KEY2(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.HDR_TRX_USER_KEY3(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.HDR_TRX_USER_KEY4(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.HDR_TRX_USER_KEY5(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.HDR_TRX_USER_KEY6(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.LINE_TRX_USER_KEY1(i):= NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.LINE_TRX_USER_KEY2(i):= NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.LINE_TRX_USER_KEY3(i):= NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.LINE_TRX_USER_KEY4(i):= NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.LINE_TRX_USER_KEY5(i):= NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.LINE_TRX_USER_KEY6(i):= NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.TRX_LINE_NUMBER(i)   := l_trx_line_number;
    zx_global_structures_pkg.trx_line_dist_tbl.TRX_LINE_DIST_ID(i)   := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.DIST_TRX_USER_KEY1(i) := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.DIST_TRX_USER_KEY2(i) := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.DIST_TRX_USER_KEY3(i) := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.DIST_TRX_USER_KEY4(i) := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.DIST_TRX_USER_KEY5(i) := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.DIST_TRX_USER_KEY6(i) := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.HISTORICAL_FLAG(i)  :='N';
    zx_global_structures_pkg.trx_line_dist_tbl.CTRL_HDR_TX_APPL_FLAG(i)  :='N';
    zx_global_structures_pkg.trx_line_dist_tbl.CTRL_TOTAL_LINE_TX_AMT(i)  :=NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.TRX_LINE_DESCRIPTION(i)  := r_item.description;
    zx_global_structures_pkg.trx_line_dist_tbl.PRODUCT_DESCRIPTION(i)  := r_item.description;
    zx_global_structures_pkg.trx_line_dist_tbl.TRX_WAYBILL_NUMBER(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.TRX_LINE_GL_DATE(i)    := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.MERCHANT_PARTY_NAME(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.MERCHANT_PARTY_DOCUMENT_NUMBER(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.MERCHANT_PARTY_REFERENCE(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.MERCHANT_PARTY_TAXPAYER_ID(i):= NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.MERCHANT_PARTY_TAX_REG_NUMBER(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.PAYING_PARTY_ID(i)    := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.OWN_HQ_PARTY_ID(i)    := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.TRADING_HQ_PARTY_ID(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.POI_PARTY_ID(i)    := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.POD_PARTY_ID(i)    := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.TITLE_TRANSFER_PARTY_ID(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.PAYING_PARTY_SITE_ID(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.OWN_HQ_PARTY_SITE_ID(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.TRADING_HQ_PARTY_SITE_ID(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.POI_PARTY_SITE_ID(i)    := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.POD_PARTY_SITE_ID(i)    := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.TITLE_TRANSFER_PARTY_SITE_ID(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.PAYING_LOCATION_ID(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.OWN_HQ_LOCATION_ID(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.TRADING_HQ_LOCATION_ID(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.POC_LOCATION_ID(i)    := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.POI_LOCATION_ID(i)    := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.POD_LOCATION_ID(i)    := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.TITLE_TRANSFER_LOCATION_ID(i):= NULL;
    -- Rounding parties not required for OM. No override of rounding level
    zx_global_structures_pkg.trx_line_dist_tbl.ROUNDING_SHIP_TO_PARTY_ID(i)   := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.ROUNDING_SHIP_FROM_PARTY_ID(i) := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.ROUNDING_BILL_TO_PARTY_ID(i)   := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.ROUNDING_BILL_FROM_PARTY_ID(i) := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.RNDG_SHIP_TO_PARTY_SITE_ID(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.RNDG_SHIP_FROM_PARTY_SITE_ID(i):= NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.RNDG_BILL_TO_PARTY_SITE_ID(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.RNDG_BILL_FROM_PARTY_SITE_ID(i):= NULL;

    -- Ref_doc, applied_from, applied_to, related_doc are not applicable for OM
    zx_global_structures_pkg.trx_line_dist_tbl.REF_DOC_APPLICATION_ID(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.REF_DOC_ENTITY_CODE(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.REF_DOC_EVENT_CLASS_CODE(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.REF_DOC_TRX_ID(i)    := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.REF_DOC_HDR_TRX_USER_KEY1(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.REF_DOC_HDR_TRX_USER_KEY2(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.REF_DOC_HDR_TRX_USER_KEY3(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.REF_DOC_HDR_TRX_USER_KEY4(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.REF_DOC_HDR_TRX_USER_KEY5(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.REF_DOC_HDR_TRX_USER_KEY6(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.REF_DOC_LINE_ID(i)    := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.REF_DOC_LIN_TRX_USER_KEY1(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.REF_DOC_LIN_TRX_USER_KEY2(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.REF_DOC_LIN_TRX_USER_KEY3(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.REF_DOC_LIN_TRX_USER_KEY4(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.REF_DOC_LIN_TRX_USER_KEY5(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.REF_DOC_LIN_TRX_USER_KEY6(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.REF_DOC_LINE_QUANTITY(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.APPLIED_FROM_APPLICATION_ID(i):= NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.APPLIED_FROM_ENTITY_CODE(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.APPLIED_FROM_EVENT_CLASS_CODE(i) := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.APPLIED_FROM_TRX_ID(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.APP_FROM_HDR_TRX_USER_KEY1(i):= NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.APP_FROM_HDR_TRX_USER_KEY2(i):= NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.APP_FROM_HDR_TRX_USER_KEY3(i):= NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.APP_FROM_HDR_TRX_USER_KEY4(i):= NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.APP_FROM_HDR_TRX_USER_KEY5(i):= NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.APP_FROM_HDR_TRX_USER_KEY6(i):= NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.APPLIED_FROM_LINE_ID(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.APP_FROM_LIN_TRX_USER_KEY1(i):= NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.APP_FROM_LIN_TRX_USER_KEY2(i):= NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.APP_FROM_LIN_TRX_USER_KEY3(i):= NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.APP_FROM_LIN_TRX_USER_KEY4(i):= NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.APP_FROM_LIN_TRX_USER_KEY5(i):= NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.APP_FROM_LIN_TRX_USER_KEY6(i):= NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.APPLIED_FROM_DIST_ID(i)      := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.APP_FROM_DST_TRX_USER_KEY1(i) := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.APP_FROM_DST_TRX_USER_KEY2(i) := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.APP_FROM_DST_TRX_USER_KEY3(i) := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.APP_FROM_DST_TRX_USER_KEY4(i) := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.APP_FROM_DST_TRX_USER_KEY5(i) := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.APP_FROM_DST_TRX_USER_KEY6(i) := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.ADJUSTED_DOC_APPLICATION_ID(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.ADJUSTED_DOC_ENTITY_CODE(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.ADJUSTED_DOC_EVENT_CLASS_CODE(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.ADJUSTED_DOC_TRX_ID(i)  := NULL ;
    zx_global_structures_pkg.trx_line_dist_tbl.ADJ_DOC_HDR_TRX_USER_KEY1(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.ADJ_DOC_HDR_TRX_USER_KEY2(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.ADJ_DOC_HDR_TRX_USER_KEY3(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.ADJ_DOC_HDR_TRX_USER_KEY4(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.ADJ_DOC_HDR_TRX_USER_KEY5(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.ADJ_DOC_HDR_TRX_USER_KEY6(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.ADJUSTED_DOC_LINE_ID(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.ADJ_DOC_LIN_TRX_USER_KEY1(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.ADJ_DOC_LIN_TRX_USER_KEY2(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.ADJ_DOC_LIN_TRX_USER_KEY3(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.ADJ_DOC_LIN_TRX_USER_KEY4(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.ADJ_DOC_LIN_TRX_USER_KEY5(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.ADJ_DOC_LIN_TRX_USER_KEY6(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.ADJUSTED_DOC_DIST_ID(i)       := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.ADJ_DOC_DST_TRX_USER_KEY1(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.ADJ_DOC_DST_TRX_USER_KEY2(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.ADJ_DOC_DST_TRX_USER_KEY3(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.ADJ_DOC_DST_TRX_USER_KEY4(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.ADJ_DOC_DST_TRX_USER_KEY5(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.ADJ_DOC_DST_TRX_USER_KEY6(i)     := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.ADJUSTED_DOC_NUMBER(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.ADJUSTED_DOC_DATE(i)    := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.APPLIED_TO_APPLICATION_ID(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.APPLIED_TO_ENTITY_CODE(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.APPLIED_TO_EVENT_CLASS_CODE(i):= NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.APPLIED_TO_TRX_ID(i)    := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.APP_TO_HDR_TRX_USER_KEY1(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.APP_TO_HDR_TRX_USER_KEY2(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.APP_TO_HDR_TRX_USER_KEY3(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.APP_TO_HDR_TRX_USER_KEY4(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.APP_TO_HDR_TRX_USER_KEY5(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.APP_TO_HDR_TRX_USER_KEY6(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.APPLIED_TO_TRX_LINE_ID(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.APP_TO_LIN_TRX_USER_KEY1(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.APP_TO_LIN_TRX_USER_KEY2(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.APP_TO_LIN_TRX_USER_KEY3(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.APP_TO_LIN_TRX_USER_KEY4(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.APP_TO_LIN_TRX_USER_KEY5(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.APP_TO_LIN_TRX_USER_KEY6(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.RELATED_DOC_APPLICATION_ID(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.RELATED_DOC_ENTITY_CODE(i)     := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.RELATED_DOC_EVENT_CLASS_CODE(i):= NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.RELATED_DOC_TRX_ID(i)          := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.REL_DOC_HDR_TRX_USER_KEY1(i)   := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.REL_DOC_HDR_TRX_USER_KEY2(i)   := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.REL_DOC_HDR_TRX_USER_KEY3(i)   := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.REL_DOC_HDR_TRX_USER_KEY4(i)   := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.REL_DOC_HDR_TRX_USER_KEY5(i)   := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.REL_DOC_HDR_TRX_USER_KEY6(i)   := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.RELATED_DOC_NUMBER(i)          := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.RELATED_DOC_DATE(i)            := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.REVERSED_APPLN_ID(i)           := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.REVERSED_ENTITY_CODE(i)        := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.REVERSED_EVNT_CLS_CODE(i)      := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.REVERSED_TRX_ID(i)             := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.REVERSED_TRX_LEVEL_TYPE(i)     := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.REVERSED_TRX_LINE_ID(i)        := NULL;

    zx_global_structures_pkg.trx_line_dist_tbl.NUMERIC1(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.NUMERIC2(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.NUMERIC3(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.NUMERIC4(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.NUMERIC5(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.NUMERIC6(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.NUMERIC7(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.NUMERIC8(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.NUMERIC9(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.NUMERIC10(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.CHAR1(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.CHAR2(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.CHAR3(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.CHAR4(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.CHAR5(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.CHAR6(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.CHAR7(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.CHAR8(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.CHAR9(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.CHAR10(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.DATE1(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.DATE2(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.DATE3(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.DATE4(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.DATE5(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.DATE6(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.DATE7(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.DATE8(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.DATE9(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.DATE10(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.internal_org_location_id(i) := l_internal_org_location_id;
         
    zx_global_structures_pkg.trx_line_dist_tbl.SOURCE_APPLICATION_ID(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.SOURCE_ENTITY_CODE(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.SOURCE_EVENT_CLASS_CODE(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.SOURCE_TRX_ID(i)    := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.SOURCE_LINE_ID(i)    := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.SOURCE_TRX_LEVEL_TYPE(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.REF_DOC_TRX_LEVEL_TYPE(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.APPLIED_TO_TRX_LEVEL_TYPE(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.APPLIED_FROM_TRX_LEVEL_TYPE(i):= NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.ADJUSTED_DOC_TRX_LEVEL_TYPE(i):= NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.DEFAULTING_ATTRIBUTE1(i)  := 'N';
    zx_global_structures_pkg.trx_line_dist_tbl.DEFAULTING_ATTRIBUTE2(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.DEFAULTING_ATTRIBUTE3(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.DEFAULTING_ATTRIBUTE4(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.DEFAULTING_ATTRIBUTE5(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.DEFAULTING_ATTRIBUTE6(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.DEFAULTING_ATTRIBUTE7(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.DEFAULTING_ATTRIBUTE8(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.DEFAULTING_ATTRIBUTE9(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.DEFAULTING_ATTRIBUTE10(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.SOURCE_TAX_LINE_ID(i)  := NULL;
    zx_global_structures_pkg.trx_line_dist_tbl.APPLIED_FROM_TRX_NUMBER(i)  := NULL;

    zx_global_structures_pkg.trx_line_dist_tbl.SHIP_THIRD_PTY_ACCT_SITE_ID(i)   := r_ship_locinfo.cust_acct_site_id;
    zx_global_structures_pkg.trx_line_dist_tbl.BILL_THIRD_PTY_ACCT_SITE_ID(i)   := r_bill_locinfo.cust_acct_site_id;
    zx_global_structures_pkg.trx_line_dist_tbl.SHIP_TO_CUST_ACCT_SITE_USE_ID(i) := r_ship_locinfo.site_use_id;
    zx_global_structures_pkg.trx_line_dist_tbl.BILL_TO_CUST_ACCT_SITE_USE_ID(i) := r_bill_locinfo.site_use_id;
    zx_global_structures_pkg.trx_line_dist_tbl.SHIP_THIRD_PTY_ACCT_ID(i)        := r_ship_locinfo.cust_account_id;
    zx_global_structures_pkg.trx_line_dist_tbl.BILL_THIRD_PTY_ACCT_ID(i)        := r_bill_locinfo.cust_account_id;

    l_transaction_rec.application_id   := l_application_id;
    l_transaction_rec.entity_code      := l_entity_code_crsr;
    l_transaction_rec.event_class_code := l_event_class_code_crsr;
    l_transaction_rec.event_type_code  := 'CREATE';
    l_transaction_rec.trx_id           := l_header_id;
    l_transaction_rec.internal_organization_id := p_org_id;

    zx_api_pub.calculate_tax(
                        p_api_version        => 1.0,
                        p_init_msg_list      => FND_API.G_TRUE,
                        p_commit             => NULL,
                        p_validation_level   => NULL,
                        x_return_status      => l_return_status,
                        x_msg_count          => l_msg_count,
                        x_msg_data           => l_msg_data,
                        p_transaction_rec    => l_transaction_rec,
                        p_quote_flag         => 'Y',
                        p_data_transfer_mode => 'PLS',
                        x_doc_level_recalc_flag => l_doc_level_recalc_flag);

    -- Verifica se ocorreu algum erro
    IF l_return_status != FND_API.G_RET_STS_SUCCESS THEN
       
      px_return_status := C_ERROR;
    
      IF l_msg_count = 1 THEN
        
        -- there is one message raised by the API
        l(l_msg_data);
        
        IF l_msg_data is not null then
          px_message_error := l_msg_data;
        ELSE
          px_message_error := 'Erro indefinido na chamada da API zx_api_pub.calculate_tax';
        END IF;

      ELSIF l_msg_count > 1 THEN
        
        LOOP
          
          l_msg_data := FND_MSG_PUB.GET(FND_MSG_PUB.G_NEXT,FND_API.G_FALSE);
          
          EXIT WHEN l_msg_data IS NULL;
          
          IF px_message_error IS NULL THEN
            px_message_error := l_msg_data;
          ELSE
            px_message_error := Substr(px_message_error || ' - '|| l_msg_data, 1, 2000);
          END IF;
          
        END LOOP;
      END IF;
      
      RAISE exit_excp;
      
    END IF;
    
  EXCEPTION
    WHEN exit_excp THEN
      ROLLBACK;
    WHEN OTHERS THEN
      ROLLBACK;
      px_return_status := C_ERROR;
      px_message_error := 'Erro inesperado. Erro: '||SQLERRM;
  END Calculate_Tax;
  
BEGIN

  MO_GLOBAL.SET_POLICY_CONTEXT(p_access_mode  => 'S', p_org_id => 81);

  -- Chama a rotina para carregar informações do imposto
  Calculate_Tax(p_org_id             => 81
              , p_order_type_id      => 1370
              , p_sold_to_org_id     => 3592570
              , p_organization_id    => 115
              , p_inventory_item_id  => 11734850
              , p_ship_from_org_id   => 115
              , p_ship_to_org_id     => 112975
              , p_invoice_to_org_id  => 112974
              , p_ordered_quantity   => 5000
              , p_unit_selling_price => 4.26
              , p_fob_point_code     => 'CIF'
              , p_salesrep_id        => 100011117
              , px_return_status     => w_return_status
              , px_message_error     => w_message_error);
  
  IF w_return_status != C_SUCCESS THEN
    l('ERRO: '||w_message_error);
  ELSE
    l('SUCESSO!');
  END IF;
  
END;

Se foi útil, ou se você apenas gostou, peço que compartilhe com seus contatos, poderá ser muito útil para eles.
Qualquer dúvida comenta aqui no blog.

Grande Abraço

Para quem tiver interesse, está aí o artigo na íntegra.

Genilto Vanzin
Djone Kochanski

RESUMO

Confira abaixo o artigo completo:

Outsourcing de Ti Genilto Vanzin V by geniltovanzin