rochinha

Amiguinhos, Café é o combustível do cérebro. kkkkkkkkk. Não dá pra começar a programar sem encher o tanque. A ansiedade em responder foi tanta que sobrou letra.

Amiguinhos, Tente adapatar este trecho no prg principal. SOSFile := "c:\seusistema\" + alltrim(str(nSerialHD("C:")))+".sos" if file(SOSFile) fErase(SOSFile) // Tenta eliminar o arquivo de controle if fError() <> 0 // Se não conseguir... if ! MsgNoYes( "O sistema ja se encontra aberto. Veja o icone ao lado do relogio"+CRLF+CRLF+"Deseja abrir novamente?", "Multiplas instancias" ) quit endif endif endif SOSHandle := fCreate(SOSFile) // Cria o arquivo de controle SOSHandle := fOpen(SOSFile,1) // Abre travando o arquivo de controle

Amiguinhos, Se ajudar, eu implantei a um mês mais ou menos esta função em meu sistema para puxar MVA por CEST. Tem minha função e um ajuste do José M Quintas. CEST x MVA Tire conclusões do trecho a seguir de como eu forço a busca do MVA na tabela disponibilizada e depois na função(engessada é claro) // NCM - Serve para completar cadastro de item // CESTNCM - Serve para encontrar o IDCEST de baseado em um NCM e a partir dele trazer um MVA // CEST2MVA - Função que encontra o MVA de uma faixa caso nada seja encontrado em CESTNCM nIDCEST := 0 nIVAMVA := 0 nIDCEST := CharRem(".",PESQ(CharRem(".",es->ncmfiscal),"CESTNCM",2,"IDCEST")) if alltrim(es->idtributo) $ "010|030|060|070|090|0201|0202|0203|0500" // |0900" .and. cCRT = 3 // Busca somente se for LP ou LR // Tabela atualizada em 30/09/2020 // nIVAMVA := PESQ(CharRem(".",es->ncmfiscal),"CESTMVA",1,"IVAMVA") // Tabela atualizada em 22/05/2021 e troquei o uso acima pelo de baixo em 19/08/2021 nIVAMVA := PESQ(CharRem(".",es->ncmfiscal+es->nbmfiscal),"NCM",1,"IVAMVA") if nIVAMVA = 0 // Se ainda estiver ZERO continua pesquisa nIVAMVA := CEST2MVA( nIDCEST ) endif endif Com a função PESQ dou uma bizoiada na tabela NCM, não encontrei? forço verificar na função CEST2MVA(). Boa pesquisa e Bom trabalho.

Amiguinhos, Mais uma planilha simples para combate de cálculo da tag ICMS51. Basta colocar os seus parâmetros em ValorBase(Valor do Produto), pRedBC(Percentual da Redução de BC) e pDif(Percentual de Diferimento) CalculosCST051.zip

Amiguinhos, Jorge Andrade, realmente é um saco, é muita frescura, creme de leite é creme de leite, seja de um kilo, 200g, dentro de lata, dentro de caixinha, tô certo. Porque que os cara inventa tanta baboseira, tipo querem controlar com descontrole, só pode. Onde deveria haver homogeneização fica uma bagunça. E quem se ferra no meio disto tudo, NÓIX. Cliente só quer vender, as vezes nem conhece os produtos dentro da própria loja, o cara do almoxarifado(se é que ainda existe) dá conta só de mudar preços, o contador então, mais confuso que barata-tonta(espero que os defensores das baratas não me cancelem) com tanta nuance especifica para cada produto. Agora no que se baseiam, onde vivem, o que comem o pessoal que cria estes percentuais? Tabela MVA x CEST 2021 Nao creio que esta tabela esteja completa mas vou dar uma verificada nela posteriormente e consequentemente adicionar mais uma critica em meu sistema para esta verificação. A tabela que disponibilizei esta bem completa e atualizada e vai te ajudar bastante, como MVA só acontece com itens com ST você poderá fazer a busca primeiro por NCM e depois por CEST, tipo uma prova dos nove. Bom trabalho para nós.

Amiguinhos, Jorge Andrade CEST é uma tabela especifica para nada. É só mais um classificador como CENQ, para tomar tempo e fazer com que os programadores criem de graça uma tabela homogênea para o governo. Esqueça CEST para vários NCM, você só terá confusão. O NCM se tornou o pai dos produtos, assim como GTIN, pois não existe dois GTINs ou dois NCMs para um mesmo produto. GTIN é 1 para 1, ja NCM é 1 para N, ou seja, se você encontrar MVA para 1 grupo de NCM, ex: 1905, e dentro do range existirem CESTs em alguns deles, pronto, você já encontrou o percentual. Uso minha tabela de NCM pra tudo mesmo porque, contadores e clientes se baseiam nas tabelas que criamos para conhecer os próprios produtos. A tabela esta atualizada com dados de 1 mês de diferença da criação do arquivo dbf. Lembre-se: Viemos para resolver problemas que antes não existiam, portanto não devemos complicar. @braços

Amiguinhos, Estas planilhas realmente me ajudaram pacas, mas o link com o arquivo que desejam está AQUI

Amiguinhos, Dica para colocar um site no ar que esteja hospedado em sua maquina. Para isto usaremos um serviço gratuito(https://theboroer.github.io/localtunnel-www/) que atua como proxy e desvia os acesso para um IP tunnelado por ele. Para instalar e usar use o comando no prompt bash: npm install -g localtunnel Bash? mas eu uso Windows. Baixe e instale e execute o [url=https://cmder.net/]CMDer[/url] Você pode usar como servidor qualquer aplicação própria para o trabalho como Apache, NGINX, Flamenco, serviço HTTP do Harbour, etc. Ah, mas e a segurança? Bom o tunnelamento é que está exposto e não sua máquina, portanto creio estar protegido. Caso não tenha nenhum servidor mas tenha um site em PHP e queira liberar o acesso externo siga os passos: Entrar na pasta raiz do site com scripts em PHP e digitar os comandos a seguir. Troque NomeDoDominio por um nome de dominio de seu gosto. php -S 127.0.0.1:8080 lt --port 8080 --subdomain NomeDoDominio Acesse seu site pelo link criado, exemplo: http://NomeDoDominio.loca.lt/ Faça o acesso ao seu site através de outro computador fora de sua rede, talvez um amigo ou parente com acesso a internet. Lembre-se, isto não deve ser definitivo, talvez sirva para demonstrar um site ou recurso a algum cliente antes de hospedar online. Bom trabalho.

Amiguinhos, Para ajudar ou rever os cálculos em suas notas, caso sua xml seja como a minha, feita na unha podem baixar e analisar o pacote de planilhas que disponibilizo no meu site. Planilhas de Calculos Diversos Analisem, usem, corrijam, bom trabalho.

Amiguinhos, macs O ICMS de São Paulo está maluco. https://rocacontabil.com.br/icms-estado-de-sao-paulo-tera-7-aliquotas-a-partir-de-2021/ Dependendo do produto cai de 12% para 3%. Você terá de analisar por NCM para não ter problema.

Amiguinhos, macs Qual o codigo de rejeição, pois se aconteceu com você pode acontecer comigo, os clientes de meus clientes estão espalhado e vira e mexe tenho de calcular retornos.

Amiguinhos, Tempos atrás um cliente me solicitou interação com um e-commerce OpenCart através de meu sistema, pois ele queria lançar as quantidades no sistema e atualizar automaticamente no site. Apesar de dizer a ele que estoque no e-commerce nunca deve ser separado do fisico na loja, mas para agradar fiz o que pediu e logo veio a bomba de vendas não sendo feitas no e-commerce por falta no estoque devido as vendas fisicas sem lastro. Bom eu pensei em fazer conecções diretas com senha no banco de dados, ip, e blablabla mas meu método de programação é estilo "tempos de guerra" montei a geração do sql no sistema e input do script via http mesmo. Criei os scripts que permitiam incluir, alterar e deletar registros e via http get/put passava os comandos. Se caso não for usar método de abertura online do banco de dados via usuário/senha sugiro usar esta dica. Crie o script que insira um registro passando via http get/put os valores dos campos.

Amiguinhos, macs o DIFAL desde 2019 é calculado em 100% para o destino e 0% do emitente.

Amiguinhos, Como alguns certificados estão vencendo pela internet mundial e causando bugs nos browser vai uma dica para quem ainda usa Windows 7. Altere o atalho do ChRome para chamar "C:\Program Files\Google\Chrome\Application\chrome.exe" --ignore-certificate-errors Botão direito no ícone do ChRome. Escolha Propriedades. Altere o campo Local de destino acrescentando --ignore-certificate-errors. Feche o ChRome e abra novamente. Se algum site ao ser acessado vinha desconfigurado nos estilos agora poderão vir normalmente.

Amiguinhos, Deixar uma contribuiçãozinha para adicionar ao registro do Windows. Salve o conteúdo como .REG, execute e verifique se uma opção Editar aparece no menu contexto sobre arquivos tipo .RC: Windows Registry Editor Version 5.00 ; ;------------------------------------------------------------------------------------------------------------ ; Add Workshop RC editor to the context menu for .rc files [HKEY_CLASSES_ROOT\.rc] @="rcfile" [HKEY_CLASSES_ROOT\rcfile] @="RC" [HKEY_CLASSES_ROOT\rcfile\Shell\Editar\command] @="C:\\emulador\\otvdmw.exe c:\\workshop\\bin\\workshop.exe \"%1\""

Amiguinhos, Por acaso alguma vez alguém teve diante de uma situação parecida. Eu deveria fazer uma nota de complemento, finNFe=2, mas esqueci de mudar isto e mandei a nota como normal. Não queria cancelar, mas não encontrei nenhuma informação a respeito de usar carta de correção para mudar a finalidade da NF-e. Obrigado.

Amiguinhos, Dei uma passada no forum PC Toledo e deixei uma postagem com sua resposta, mas como você pediu aqui também vou deixar aqui também. Visite o este link e abra a opção Como instalar o OBB Plus

Amiguinhos, Vou deixar aqui uma função simples dos tempos do Clipper Summer que uso para ler sequencialmente arquivos como .CSV e resgatar seus valores colocando-os em vetores. FUNCTION StringToArray( cString, cSeparator ) LOCAL nPos LOCAL aString := {} DEFAULT cSeparator := ";" cString := ALLTRIM( cString ) + cSeparator DO WHILE .T. nPos := AT( cSeparator, cString ) IF nPos = 0 EXIT ENDIF AADD( aString, SUBSTR( cString, 1, nPos-1 ) ) cString := SUBSTR( cString, nPos+1 ) ENDDO RETURN ( aString ) Usando uma função memolie() trazendo cada linha de um arquivo e passando como primeiro parametro da função, basta informar qual o caracter separador. ... cMinhaString := memoline( ... ... do while ... ... ArrayDaLinha := stringTOarray( cMinhaString, ";" )

Amiguinhos, emotta Veja esta API. [URL=https://f2b.com.br/desenvolvedores]https://f2b.com.br/desenvolvedores[/URL] Cadastre-se como empresa, preço bom. Tem outras APIs também. Diga que foi eu(eles nem me conhecem e nem sabem quem sou) que indiquei.

Amiguinhos, Tente essa sequencia: net stop w32time w32tm /config /manualpeerlist:a.ntp.br,b.ntp.br,c.ntp.br,0x8, /syncfromflags:manual net start w32time

Amiguinhos, Para sincronizar o computador com hora na internet basta acionar o comando: NET TIME \\computerName /SET /YES Para saber qual é o nome do computador basta dat o comando SET em uma tela do DOS. Procure na listagem apresentada pela variavel COMPUTERNAME, exemplo: ... COMPUTERNAME=ROCHINHA-PC ... Então comande: NET TIME \\ROCHINHA-PC /SET /YES O comando pode funcionar somente enquanto o equipamento estiver ligado. Se ele não for ativado ao iniciar o comando deve ser dado sempre ao religar o mesmo. Mas creio que se o serviço estiver ativado, bastará um comando para colocar ele sincronizado. É importante verificar se o serviço Windows Time está ativado e no automático. Comande services.msc navegue até Windows Time e veja se está para iniciar automaticamente. A sincronia vai se manter perfeita se a bateria do equipamento fornecer energia ao clock da placa mãe, portanto é melhor trocá-la. Custa uns 2 contos e vende até em farmácia. Todos os comandos devem ser dados em um Prompt Administrador.

Amiguinhos, Com esta dica é possível tirar uma fotocópia da página de um site e salvar como PDF. Assim como a postagem que salva página WEB como imagem esta também é interessante para quem tem um módulo de documentos no sistema e quer salvar para consultas posteriores para efeito de knowledge base. request.json { "url":"https://amazon.com", "renderType":"pdf" } Salve o conteúdo acima dentro do arquivo request.json Linha de comando: curl -v -k -H "Content-Type: application/json" -H "Expect:" -X POST -d @request.json "https://PhantomJScloud.com/api/browser/v2/a-demo-key-with-low-quota-per-ip-address/" -o capture.pdf

Amiguinhos, Com esta dica é possivel tirar uma fotocópia da página de um site e salvar como imagem. É interessante para quem tem um módulo de documentos no sistema e quer salvar para consultas posteriores para efeito de knowledge base. request.json { "url":"http://www.highcharts.com/stock/demo/intraday-area", "renderType":"jpeg" } Salve o conteúdo acima dentro do arquivo request.json Linha de comando: curl -v -k -H "Content-Type: application/json" -H "Expect:" -X POST -d @request.json "https://PhantomJScloud.com/api/browser/v2/a-demo-key-with-low-quota-per-ip-address/" -o capture.jpg

Amiguinhos, Para evitar que a tentativa de abertura de uma automação ocorra podemos cercar o resultado com TRY, Catch. É um esboço, precisa verificação. #include "fivewin.ch" #xcommand TRY => BEGIN SEQUENCE WITH {|oErr| Break( oErr )} #xcommand CATCH [<!oErr!>] => RECOVER [USING <oErr>] <-oErr-> #xcommand FINALLY => ALWAYS ... TRY http := XMLHttpRequest() CATCH msxml := { 'MSXML2.XMLHTTP.3.0', ; 'MSXML2.XMLHTTP', ; 'Microsoft.XMLHTTP' } FOR i = 1 TO len( msxml ) TRY http := ActiveXObject( msxml[i] ) CATCH NEXT END RETURN http ... FUNCTION XMLHttpRequest() RETURN TOLEAuto():New( "Microsoft.XMLHTTP" ) FUNCTION ActiveXObject( cObject ) RETURN TOleAuto():New( cObject ) FUNCTION win_oleCreateObject( qObjeto ) RETURN TOleAuto():New( qObjeto ) FUNCTION win_oleErrorText() RETURN Ole2TxtError() FUNCTION CreateObject( cObject ) RETURN TOleAuto():New( cObject ) FUNCTION DOMDocument() return TOLEAUTO():New( "Microsoft.XMLDOM" ) FUNCTION ServerXMLHTTP() return TOleAuto():New( "MSXML2.ServerXMLHTTP" ) FUNCTION MicrosoftXMLHTTP() RETURN TOleAuto():New( "Microsoft.XMLHTTP" ) FUNCTION MSXML2ServerXMLHTTP() RETURN TOleAuto():New("MSXML2.ServerXMLHTTP")

Amiguinhos, Esta ferramenta existe nativamente em todos os Windows e pode ajudar a baixar arquivos diretamente de sites na internet para o seu computador. Esta ferramenta se chama BITS Modo de uso: bitsadmin.exe /transfer "NomeQualquerParaOJOB" http://seusite.com.br/arquivo.zip C:\temp\NomeDestino.zip Bom trabalho.