Batch-Satti
Se você ainda não é um membro cadastre-se!

Existem centenas de scripts para quem é membro.

As categorias para os membros cadastrados são:

BATCH-SCRIPTS COMPLETO.
(Espaço onde são postados os scripts que tenham funcionalidade completa)
BADCONS VIRUS E TROJANS .
(Espaço onde são postados scripts e técnicas em vírus trojans e worm baseados em scripts )
SOMENTE PARA MEMBROS.
(Espaço destinado aos membros discutirem ou tirarem duvidas)
TUTORIAIS E EXPLICAÇÕES.
(Aqui são colocadas as explicações de comandos e técnicas para confecção de scripts )

EXISTEM MUITAS OUTRAS CATEGORIAS MÁS ESSAS SÃO AS PRINCIPAIS !

ENTRE E PARTICIPE !!!!!!!
MENSAGENS AOS MEMBROS :
TIVEMOS QUE AUTORIZAR PROPAGANDAS NO FORUM E TALVEZ O FIREFOX E OUTROS NAVEGADORES NÃO FUNCIONEM
UTILIZEM O INTERNET EXPLORER OU ATUALIZEM PARA O FIREFOX 4.0 BETA

ASS. BOSS-HEAD


Pesquisa personalizada

[Ajuda] Ajuda para contas

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

[Ajuda] Ajuda para contas

Mensagem por leo1991 em Ter Jan 05, 2016 1:11 pm

Boa tarde gente,

preciso da ajuda de vocês em um seguinte problema. Na empresa que trabalho, preciso ficar digitando toda vez as mesmas informações, pra evitar isso queria criar um arquivo BAT para fazer os cálculos por mim, na verdade o cálculo é bastante fácil. Porém não conseguir fazer funcionar no BAT. Segue o que tentei fazer e informações úteis...

Bruto=Carga+Tara
Liquido=Bruto-Tara
Peso morto=Capacidade-Liquido
Valor Perdido=Peso morto*Frete

Só disponho de quatro informações que a transportadora me da.  Tara, Bruto, Capacidade e Frete.

Alguém poderia me ajudar com isso?  Very Happy






@ECHO OFF
ECHO.
ECHO
echo.
SET tara=0
SET bruto=0
SET carga=0
SET liquido=0
SET Pmorto=0
SET Vmorto=0
SET frete=0


SET /P tara=Tara^>:
SET /P bruto=Bruto^>:
SET /P capacidade=Capacidade^>:
SET /P frete=Frete^>:

(
echo Bruto: %bruto%
echo Liquido : %bruto%-%tara%
echo Peso morto: %capacidade%-%%bruto%-%tara%%
echo Valor morto: %%capacidade%-%%bruto%-%tara%%%*%frete%
>log.txt
pause

leo1991

Idade : 26

Voltar ao Topo Ir em baixo

Re: [Ajuda] Ajuda para contas

Mensagem por gwy em Sex Jan 08, 2016 7:44 pm

Use:
Código:
SET /A expressão


Exemplo:
Código:
set /a resultadoFinal=1+1
echo Resultado final é: %resultadoFinal%
:: Output: 2

Para realizar cálculos.

gwy

Idade : 23

Voltar ao Topo Ir em baixo

Re: [Ajuda] Ajuda para contas

Mensagem por leo1991 em Sab Jan 09, 2016 1:01 am

Más no caso o frete é um número quebrado, tipo 0,65 tentei fazer assim só que não deu Sad

leo1991

Idade : 26

Voltar ao Topo Ir em baixo

Re: [Ajuda] Ajuda para contas

Mensagem por gwy em Sab Jan 09, 2016 6:31 am

Leo, fiz um script aqui pra ti, se tiver dúvida não hesite em perguntar.

Pastebin:
[Você precisa estar registrado e conectado para ver este link.]

Paste Ubuntu:
[Você precisa estar registrado e conectado para ver este link.]

GitHub:
[Você precisa estar registrado e conectado para ver este link.]

Código:
:: =============================
:: By: xPhip (guy)
:: Date: 09/01/2015
:: Link: http://batch-satti.forumeiros.com/t3295-ajuda-ajuda-para-contas
:: =============================

@echo off
:: ==============================
:: Configurações iniciais
:: ==============================
set return=null :: NAO MUDE AQUI
set "t=%temp%\calc1024.vbs" :: Seta e nomeia o caminho
call:file create :: Cria o arquivo

:: Exemplos de uso abaixo

:: call:calc 1 + 1
:: echo CALCULO:  1 + 1 = %return%

:: call:calc "5,0" + "3,0"
:: echo CALCULO:  5,0 + 3,0  = %return%

:: call:calc "4,38" + "6,21"
:: echo CALCULO:  4,38 + 6,21 = %return%


:: ==============================
:: Caso queira remover o VBS
:: ==============================
call:file delete


:: ==============================
:: Comando 'exit' tem que
:: estar antes das funcoes
:: ==============================
exit /b 0


:: ==============================
:: Função para chamada do vbs
:: Uso: "FLOAT" operator "FLOAT"
:: Ex.: "5,0" * "3"
:: ==============================
:calc
for /f %%a in ('CSCRIPT "%t%" %1 %2 %3') do set return=%%a
goto:eof


:: ==============================
:: Função para criação e remoção do VBS
:: Uso: CREATE ou REMOVE
:: Ex.: CREATE
:: ==============================
:file
if /i "%1"=="create" (
echo.Set args=WScript.Arguments >%t%
echo.a=CDbl^(args.Item^(0^)^) >>%t%
echo.b=CDbl^(args.Item^(2^)^) >>%t%
echo.select case args.Item^(1^) >>%t%
echo. case "+" >>%t%
echo. result = a + b >>%t%
echo. case "-" >>%t%
echo. result = a - b >>%t%
echo. case "*" >>%t%
echo. result = a * b >>%t%
echo. case "/" >>%t%
echo. result = a / b >>%t%
echo.end select >>%t%
echo.WScript.Echo result ^& WScript.Quit >>%t%
) else (
del /f /s %t% 2>nul >nul
)
goto:eof

Abs.

gwy

Idade : 23

Voltar ao Topo Ir em baixo

Re: [Ajuda] Ajuda para contas

Mensagem por leo1991 em Sab Jan 09, 2016 9:49 am

Desculpe a inconveniência Guy, mas realmente não sou muito bom nisso. Gost4aria de usar
O comando FLOAT o restante consegui com seu conselho acima de usar o set /a. ficaria assim?
Se não você não poderia fazer so o float funcionar por favor.

fiz assim pode ver se esta certo


@echo off
set return=null
set "t=%temp%\calc1024.vbs"
:file
if /i "%1"=="create" (
echo.Set args=WScript.Arguments >%t%
echo.a=CDbl^(args.Item^(0^)^) >>%t%
echo.b=CDbl^(args.Item^(2^)^) >>%t%
echo.select case args.Item^(1^) >>%t%

set /p %frete%=frete^>
set /p %pesom%=Peso morto^>
echo. case "*" >>%t%
echo. result =%frete%*%pesom% >>%t%
echo.end select >>%t%
echo.WScript.Echo result ^& WScript.Quit >>%t%
) else (
del /f /s %t% 2>nul >nul
)
goto:eof
echo.
echo resulto = %t%
echo. 
pause

leo1991

Idade : 26

Voltar ao Topo Ir em baixo

Re: [Ajuda] Ajuda para contas

Mensagem por gwy em Sab Jan 09, 2016 10:18 am

No caso, o "float" nada mais seria que o número com (ou sem) vírgula que fica entre parenteses.

No comando:
Código:
call:calc "5,0" + "3,0"
Onde 5,0 e 3,0 são os float's.

Tu só precisa colocar os dois valores entre aspas cada um para não dar erro.
Sendo assim:
"FLOAT" + "FLOAT" ou
"5,33" - "4" ou
"10" / "3" e assim segue.

gwy

Idade : 23

Voltar ao Topo Ir em baixo

Re: [Ajuda] Ajuda para contas

Mensagem por gwy em Sab Jan 09, 2016 10:30 am

Nn Leo, o teu código tem que ficar ali como no exemplo, assim:
Código:
@echo off
set return=null
set "t=%temp%\calc1024.vbs"
call:file create


:: CODIGO AQUI DENTRO
call:calc 1 + 1

echo Resultado: %return%
:: CODIGO AQUI DENTRO


pause

call:file delete
exit /b 0
:: Fim do script

:calc
for /f %%a in ('CSCRIPT "%t%" %1 %2 %3') do set return=%%a
goto:eof

:file
if /i "%1"=="create" (
echo.Set args=WScript.Arguments >%t%
echo.a=CDbl^(args.Item^(0^)^) >>%t%
echo.b=CDbl^(args.Item^(2^)^) >>%t%
echo.select case args.Item^(1^) >>%t%
echo. case "+" >>%t%
echo. result = a + b >>%t%
echo. case "-" >>%t%
echo. result = a - b >>%t%
echo. case "*" >>%t%
echo. result = a * b >>%t%
echo. case "/" >>%t%
echo. result = a / b >>%t%
echo.end select >>%t%
echo.WScript.Echo result ^& WScript.Quit >>%t%
) else (
del /f /s %t% 2>nul >nul
)
goto:eof

Entre as tags :: CODIGO AQUI DENTRO
------------------------------------------------------------
@echo off
set return=null
set "t=%temp%\calc1024.vbs"
call:file create

:: CODIGO AQUI DENTRO
call:calc 1 + 1
echo Resultado: %return%
:: CODIGO AQUI DENTRO

pause

call:file delete
exit /b 0
:: Fim do script

:calc
for /f %%a in ('CSCRIPT "%t%" %1 %2 %3') do set return=%%a
goto:eof

:file
if /i "%1"=="create" (
echo.Set args=WScript.Arguments >%t%
echo.a=CDbl^(args.Item^(0^)^) >>%t%
echo.b=CDbl^(args.Item^(2^)^) >>%t%
echo.select case args.Item^(1^) >>%t%
echo. case "+" >>%t%
echo. result = a + b >>%t%
echo. case "-" >>%t%
echo. result = a - b >>%t%
echo. case "*" >>%t%
echo. result = a * b >>%t%
echo. case "/" >>%t%
echo. result = a / b >>%t%
echo.end select >>%t%
echo.WScript.Echo result ^& WScript.Quit >>%t%
) else (
del /f /s %t% 2>nul >nul
)
goto:eof

gwy

Idade : 23

Voltar ao Topo Ir em baixo

Re: [Ajuda] Ajuda para contas

Mensagem por leo1991 em Sab Jan 09, 2016 10:39 am

kkkkkkkkkkkkkkk puts cara não to entendendo nada. Melhor deixar pra la Guy, to ocupando seu tempo
realmente não estou entendendo. E que assim Guy, não sou bom em programação, sei fazer male male um bat bobo.
Uma coisa assim mais complexa ja me perco todo. Por isso pedi que fizesse um funcionar pra eu ver. Mas cara, muuuuito
obrigado mesmo pelo tempo de parar e responder o post.

leo1991

Idade : 26

Voltar ao Topo Ir em baixo

Re: [Ajuda] Ajuda para contas

Mensagem por gwy em Sab Jan 09, 2016 10:49 am

Tranquilo, se quiser, manda uma parte dos cálculos que tu ia colocar mas com dados não reais que eu monto pra vc ver como ficaria.

Abs.

gwy

Idade : 23

Voltar ao Topo Ir em baixo

Re: [Ajuda] Ajuda para contas

Mensagem por leo1991 em Sab Jan 09, 2016 11:09 am

vamos fazer assim, na segunda t4e envio o arquivo todo, pq ele est4a la no serviço

leo1991

Idade : 26

Voltar ao Topo Ir em baixo

Re: [Ajuda] Ajuda para contas

Mensagem por gwy em Sab Jan 09, 2016 11:13 am

Tranquilo, não precisa ser com dados reais.
Ou então tu mesmo junta uns cálculos que são parecidos com os que tu queria fazer o batch que eu monto pra ti.

gwy

Idade : 23

Voltar ao Topo Ir em baixo

Re: [Ajuda] Ajuda para contas

Mensagem por Boss-Head em Sab Jan 09, 2016 11:21 pm

Código:
@echo off
mode 90,40
:inicio
cls
echo.
SET tara=0
SET bruto=0
SET carga=0
SET liquido=0
SET Pmorto=0
SET Vmorto=0
SET frete=0

SET /P "carga=Carga >: "
echo.
echo.
SET /P "tara=Tara >: "
echo.
echo.
SET /P "bruto=Bruto >: "
echo.
echo.
SET /P "capacidade=Capacidade >: "
echo.
echo.
SET /P "frete=Frete >: "
echo.
echo. ---------------------------------------------------------------------------------------
echo. ---------------------------------------------------------------------------------------
echo.
echo Bruto=Carga+Tara
echo.
Call :Calcular "%carga%+%tara%" "bruto"
echo Valor do calculo do peso bruto = %bruto%
echo.
echo.
echo Liquido=Bruto-Tara
echo.
Call :Calcular "%bruto%-%tara%" "Liquido"
echo Valor do calculo do peso Liquido = %Liquido%
echo.
echo.
echo Peso morto=Capacidade-Liquido
echo.
Call :Calcular "%capacidade%-%Liquido%" "morto"
echo Valor do calculo do peso Morto = %morto%
echo.
echo.
echo Valor Perdido=Peso morto*Frete
echo.
Call :Calcular "%morto%*%frete%" "pedido"
echo Valor do calculo do pedido = %pedido%
echo.
echo.
echo.
echo. ---------------------------------------------------------------------------------------
echo. ---------------------------------------------------------------------------------------
echo.
Set/p "Conta=Digite ENTER para retornar ! "
goto:inicio

:: Função Calcular
:: Modo de Usar:
:: Call :Calcular "formula matemática" "variavel_retorno"
:: Echo %variavel_retorno%
:Calcular
set Calcular=
Set _Conta=%1
set _Conta=%_Conta:^=^^%
set _Conta=%_Conta:,=.%
set _Conta=%_Conta:"=%
Set _TmpCalc="%CD%\tmpcalc.txt"
echo C=%_Conta%>calcular.vbs
(
echo Set CF=CreateObject^("Scripting.FileSystemObject"^)
echo Set F=CF.CreateTextFile^(%_TmpCalc%, True^)
echo F.WriteLine^(C^)
echo F.Close
)>>calcular.vbs
wscript calcular.vbs
set/p Calcular=<%_TmpCalc%
set %~2=%Calcular%
del /q /s %_TmpCalc%>nul
del calcular.vbs>nul

baseado nos dados que você passou !!

Bruto=Carga+Tara
Liquido=Bruto-Tara
Peso morto=Capacidade-Liquido
Valor Perdido=Peso morto*Frete



:: Função Calcular
:: Modo de Usar:
:: Call :Calcular "formula matemática" "variavel_retorno"
:: Echo %variavel_retorno%

dentro desse espaço --------------------- você pode chamar a função como quiser
exemplo ! 

echo. --------------------------------------------------------------------------------------- 
echo. ---------------------------------------------------------------------------------------

Call :Calcular "%capacidade%-%Liquido%+352,56/%frete%/2" "teste"
echo Valor do calculo = %teste%


Call :Calcular "123456789/9" "teste2"
echo Valor do calculo = %teste2%



Call :Calcular "1,23*2+15/9-7" "teste3"
echo Valor do calculo = %teste3%


echo. ---------------------------------------------------------------------------------------
echo. ---------------------------------------------------------------------------------------
avatar
Boss-Head

Idade : 32

Voltar ao Topo Ir em baixo

Re: [Ajuda] Ajuda para contas

Mensagem por Boss-Head em Dom Jan 10, 2016 4:52 pm

Código:
@echo off
mode 90,70
:inicio

cls
echo.
SET tara=0
SET bruto=0
SET carga=0
SET liquido=0
SET Pmorto=0
SET Vmorto=0
SET frete=0

call:imputbox "Digite o valor da carga" "carga"
echo. Carga = %carga%
echo.
echo.
call:imputbox "Digite o valor da tara" "tara"
echo. Tara = %tara%
echo.
echo.
call:imputbox "Digite o peso bruto" "bruto"
echo. Peso bruto = %bruto%
echo.
echo.
call:imputbox "Digite a capacidade de carga" "capacidade"
echo. Capacidade de carga maxima = %capacidade%
echo.
echo.
call:imputbox "Digite o valor do frete em reais R$" "frete"
echo. Valor do frete em R$ = R$ %frete%
echo.
echo.


echo.
echo. ---------------------------------------------------------------------------------------
echo.
Call :Calcular "%carga%+%tara%" "bruto"
echo Bruto = Carga+Tara  --  %carga%+%tara% = %bruto%
echo.
echo.
Call :Calcular "%bruto%-%tara%" "Liquido"
echo Liquido = Bruto-Tara -- %bruto%-%tara% = %Liquido%
echo.
echo.
Call :Calcular "%capacidade%-%Liquido%" "morto"
echo Peso morto = Capacidade-Liquido -- %capacidade%-%Liquido% = %morto%
echo.
echo.
Call :Calcular "%morto%*%frete%" "pedido"
echo Valor Perdido = Peso morto x Frete -- %morto% x %frete% = %pedido%
echo.
echo.
echo. ---------------------------------------------------------------------------------------
echo.
Set/p "Conta=Digite ENTER para retornar ! "
goto:inicio





:imputbox
>Boss-Head.vbs echo wsh.echo inputbox("%~1")
for /f "tokens=*" %%a in ('cscript//nologo Boss-Head.vbs') do set "teste=%%a"
set teste=%teste:.=%
set teste=%teste:R=%
set teste=%teste:r=%
set teste=%teste:$=%
set %~2=%teste%

del /q /s Boss-Head.vbs >nul
goto:eof




:Calcular
set Calcular=
Set _Conta=%1
set _Conta=%_Conta:^=^^%
set _Conta=%_Conta:,=.%
set _Conta=%_Conta:"=%
Set _TmpCalc="%CD%\tmpcalc.txt"
echo C=%_Conta%>calcular.vbs
(
echo Set CF=CreateObject^("Scripting.FileSystemObject"^)
echo Set F=CF.CreateTextFile^(%_TmpCalc%, True^)
echo F.WriteLine^(C^)
echo F.Close
)>>calcular.vbs
wscript calcular.vbs
set/p Calcular=<%_TmpCalc%
set %~2=%Calcular%
del /q /s %_TmpCalc%>nul
del calcular.vbs>nul
GOTO:EOF


dei uma mudada só para melhorar o visual
avatar
Boss-Head

Idade : 32

Voltar ao Topo Ir em baixo

Re: [Ajuda] Ajuda para contas

Mensagem por Boss-Head em Dom Jan 10, 2016 5:11 pm

veja que a função calcular depende de () para funcionar direito..
veja o exemplo abaixo..

Código:
@echo off

call:calcula "123+7/4" "teste"
echo %teste%

call:calcula "(123+7)/4" "teste"
echo %teste%



pause
:calcula
echo WScript.Echo Eval(WScript.Arguments(0))>eval.vbs
for /f %%n in ('cscript //nologo eval.vbs "%~1"') do (
  set %~2=%%n
)

goto:eof
avatar
Boss-Head

Idade : 32

Voltar ao Topo Ir em baixo

Re: [Ajuda] Ajuda para contas

Mensagem por leo1991 em Seg Jan 11, 2016 8:11 am

Bom dia Boss e Guy

Boss. O que você mandou não está calculando os valores decimais. Está abaixo o que eu fiz, porém ele só calcula valores naturais. e no caso do frete geralmente o valor por quilo é 0,62, 0,85, etc...



@echo off
CLS
ECHO                                                                                
ECHO.
ECHO.
ECHO.                
Echo.                               
Echo                                                Novo cadastro ou registro
ECHO.
ECHO. 
ECHO.
ECHO.
echo   ---- Informa‡äes comerciais
echo.
set/p placa=Placa ^>:
set/p carro=carro ^>:
set/p empresa=Transportadora ^>:
set/p motorista=Motorista ^>:
set/p cpf=CPF ^>:
set/p Contato=Contato ^>:
set/p hentrada=Horario de entrada ^>:
set/p entregas=Entregas ^>:
set/p descricao=Descricao da carga ^>:
set/p tara=Tara ^>:
set/a operacao=%tara%
set/p bruto=Bruto ^>:
set/a operacao1=%bruto%
set/p capacidade=Capacidade ^>:
set/a operacao2=%capacidade%
set/p frete=Frete ^>:
set/a operacao3=%frete%
set/a liquido=%bruto%-%tara%
set/a pesom=%capacidade%-%liquido%
set/a vperdido=%pesom%*%frete%    <<<<< ------------- aqui está o problema. que preciso corrigir
set/p chave=NF-e ^>:
set/p nfe2=NF-e Programada ^>:
echo.
set/p seq=NFE sequencial ^>:
If not exist %chave%.txt CLS&goto adi
msg * NF-e cadastrada ! Imposs¡vel sobrescrever
CLS&goto comeco
:adi
@echo off
break off

(
Echo.==============================================================================
Echo.---------------------Total S.A© NFE Conhecimento de Frete---------------------
Echo.==============================================================================
echo.
echo.            DOCUMENTO PARA CONHECIMENTO DE FRETE SEM VALOR FISCAL
echo.
Echo.  Detalhes do Frete NF-e: %chave% 
echo.
echo.Cliente......: Total S.A© - Registro sintegra:[12.184.079/0004-80] 
echo Empresa......: %empresa%
echo Carro........: %carro%
echo Placa........: %placa%
echo Motorista....: %motorista%  CPF:%cpf%
echo Contato......: %contato%
echo Entrada......: %hentrada% Hora
echo Saida........: %time:~0,5% Hora
echo.Data.........: %date%
echo Entrega......: %entregas%
echo NF-e.........: %chave% - [Você precisa estar registrado e conectado para ver este link.]
echo NF-e Prog....: %nfe2% - Programada
ECHO.Sequencial...: %seq%
echo.
echo.  Detalhes quantitativos carro: %placa%
echo.
echo.Tara.........: %tara% Kg
echo.Peso bruto...: %bruto% Kg
echo.Peso liquido.: %liquido% Kg
echo.Capacidade...: %capacidade% Kg
echo.Peso morto...: %pesom% Kg
echo.Valor perdido: %vperdido% R$
echo Descricao....: %descricao%
echo.
echo.  Detalhes de registro
echo. 
echo.Operador.....: %usu%
echo Usuario local: %username%
echo Computador...: %computername%
echo.Data.........: %date%
echo.Hora.........: %time:~0,5%
echo.Total S.A© Unidade Taipas-SP [140]
echo.
echo.        A NF-e %chave% pode ser consultado no site [Você precisa estar registrado e conectado para ver este link.]
echo.
echo.                          DOCUMENTO SEM VALOR FISCAL
echo.
echo.     
echo. Eu  %motorista%  CPF: %cpf%   
echo  reconheco e afirmo ter conferido os detalhes acima descriminados
echo.  
echo.
echo.
echo.
echo.
echo. ____________________- %motorista%
echo. 
echo.
echo. 
echo.  
echo. ____________________- %username%
echo. 
echo.                                        
echo.                                                            [Você precisa estar registrado e conectado para ver este link.]   
Echo.==============================================================================
echo.Total S.A© - Av.Elisio Teixeira Leite, 7452 - CEP:02810-000 Fone: 11 2924-2330  
)>%CHAVE%.txt
pause
exit

leo1991

Idade : 26

Voltar ao Topo Ir em baixo

Re: [Ajuda] Ajuda para contas

Mensagem por leo1991 em Seg Jan 11, 2016 1:57 pm

Oi Boss, primeiramente desculpe, o código fucionou sim!

Fiz um sisteminha retirando códigos de seu site, afinal ele tem me ajudado muito com isso
porém estou com um probleminha que ainda não consegui resolver, gostaria de sua ajuda com isso.
Achei melhor colocar logo o programa inteiro assim você que é mais experiente pode ver onde tem brechas e erros.
especificamente o erro que estou mensionando está na opção 1 e 5 onde se criam arquivos de texto, neles tem o cálculo que preciso,
até chgeuei a colocar o seu mas não deu certo pra mim. se pudesse me ajudra ficaria muito grato. Desde já agradeço.

Código:

@echo off


break off


set nome="%date:~-10%"


attrib -H -S mapa.bat


attrib -H -S showprint.vbs


attrib -H -S default.wil


md "%nome:/=-%"


md DEV


md DOC


md NFE


md LOG


mode 115,20


setlocal enableextensions enabledelayedexpansion


title Carregando..


ping 127.0.0.1 -n 1 -w 1000 > nul


call:Passw


cls


set a=°


:INI_CIO


color f0


echo.


set /a POR_CENTO+=1


if %POR_CENTO%==50 set BARRA_a=





set BARRA_a=%BARRA_a%%a%


cls


echo.


echo.


echo.


echo.


echo.


echo.


echo.


echo                                                   Carregando... %POR_CENTO%%%


echo.


echo                                %BARRA_a%


echo.


if %POR_CENTO%==50 goto INI_CIO


if %POR_CENTO%==100 goto FIM_BARRA


@ping localhost -n 1 >nul


goto INI_CIO





:FIM_BARRA


mode 115,20


:volta1


color f0


cls


cls


title Cadastro Canhoto                                                                                                                                                                                                       by:Leonardo Diaz


echo. 


echo.  


echo. 


echo.                                                                                         


echo.


Echo                      ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿


Echo                      ³              Sistema Total S.A© NFE Reconhecimento de Frete 1.0           ³


Echo                      ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ


echo.


echo.


echo.                     Total S.A© 


echo.


echo.                     Usuario local: %username%


echo.                     Computador...: %computername% 


echo.


echo.


echo.


echo.


Set/p USU=Usuario^>:


If /i %USU%==Higor goto 1


If /i %USU%==admin goto ADMSIM


If /i not %USU%==Higor goto errolog


If /i not %USU%==admin goto errolog


goto volta


goto volta1


: eleva


CLS


echo.


echo. 


:12


echo Digite a senha para continuar:


%tmp%\pass 123456


set passa=%errorlevel%


::%passa%==6 porque a senha tem 6 caracteres


if %passa%==6 goto exc1


echo.


echo.


echo.                                                 Senha incorreta


color fc


goto 12


:errolog


color fc


cls


echo.


echo.


echo.


echo.


echo.


echo.


echo.


echo.


echo.


echo.                                        Usu rio incorreto ou inexistente.


echo.


echo.


echo.


echo.


echo.


echo.


echo.


echo.


echo.


pause


goto volta1


:1


%tmp%\pass 123456


set passa=%errorlevel%


::%passa%==6 porque a senha tem 6 caracteres


if %passa%==6 goto :sai


echo.


echo.                                                 Senha incorreta


color fc


goto :1


:sai


color f2


cls


echo.


echo.


echo.


echo.


echo.


echo.


echo.


echo.


echo.


echo.                                                 Acesso permitido


echo.


echo.


echo.


echo.


echo.


echo.


echo.


echo.


echo.


@ping localhost -n 3 >nul


cd


cd LOG


echo %USU% fez login em %date% %time:~0,5% >> log.txt


cd..


@ECHO OFF


color f0


:ADMSIM


:comeco


delete showprint.vbs


delete default.wil


color f0


mode 120,30


title                         ....::::: Sistema Total S.A© de registros de logs de canhotos 1.0 :::::.... 


cls


echo.


Echo                      ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿


Echo                      ³          Sistema Total S.A© NFE para reconhecimento de frete 1.0          ³


Echo                      ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ


echo.


echo. 


Echo    Menu principal  


echo    ÚÄÄÄÄÄÄÄÄÄÄÄÄÄ  open                                          


echo.   ³


echo.   ³                                                                  Usuario local: %username% 


echo.   ³                                                                  Computador...: %computername%


Echo    ³.          1 - Novo canhoto                                       Operador.....: %usu%                  


echo.   ³                                                                  Unidade......: 140


Echo    ³.          2 - Busca                            


echo.   ³


Echo    ³.          3 - Excluir                          


echo.   ³


Echo    ³.          4 - Edi‡Æo de canhoto                


echo.   ³


Echo    ³.          5 - Devolu‡Æo                    


echo.   ³


Echo    ³.          7 - Troca de NFE                      


echo.   ³


Echo    ³.          8 - Imprimir                      


echo.   ³


Echo    ³.          9 - Mais+


Echo.   ³


echo    ÀÄÄÄÄÄÄÄ  Ol  %usu%, digite um n£mero de op‡Æo para come‡ar


Echo.   


Set/p esc=Op‡Æo ^>:


if %esc% LSS 0 (


echo &CLS


goto comeco


)


if %esc% GTR 24 (


echo &CLS


goto comeco





if %esc% EQU 1 CLS&goto add


if %esc% EQU 2 CLS&goto busc


if %esc% EQU 3 CLS&goto exc


if %esc% EQU 4 CLS&goto EDITCAD


if %esc% EQU 5 CLS&goto dev


if %esc% EQU 6 CLS&goto EXCAD


if %esc% EQU 7 CLS&goto edit


if %esc% EQU 8 CLS&goto print1


if %esc% EQU 9 CLS&goto avanc


if not %esc%==1 CLS&goto comeco


if not %esc%==2 CLS&goto comeco


if not %esc%==3 CLS&goto comeco


if not %esc%==4 CLS&goto comeco


if not %esc%==5 CLS&goto comeco


if not %esc%==6 CLS&goto comeco


if not %esc%==7 CLS&goto comeco


if not %esc%==8 CLS&goto comeco


if not %esc%==9 CLS&goto comeco


CLS&goto COMECO





:mapa


attrib -H -S mapa.bat


start mapa.bat


attrib +H +S mapa.bat


CLS&goto COMECO





:print1


@echo off


title Impressoras 


SETLOCAL ENABLEDELAYEDEXPANSION


net use lpt1 >NUL 2>&1


if %errorlevel%==2 set LPT1=nenhuma


if %errorlevel%==0 (


FOR /F "TOKENS=1-6 delims= " %%A IN ('net use lpt1 ' ) DO ( 


if "%%A"=="Nome"  set LPT1=%%C  


)


)


set print=


:menu


net use lpt1 >NUL 2>&1


if %errorlevel%==2 set LPT1=nenhuma


if %errorlevel%==0 (


FOR /F "TOKENS=1-6 delims= " %%A IN ('net use lpt1 ' ) DO ( 


if "%%A"=="Nome"  set LPT1=%%C  


)


)





call :showprint


cscript //nologo showprint.vbs > default.wil


set /p print=<default.wil





cls


echo. IMPRESSORA LPT1 = %lpt1%


if /I "%print%" NEQ "" ECHO. Default print %print%


@echo off


cls


echo.


echo.


echo.


echo.  1 Imprimir NFE 


echo   2 Imprimir DEV


echo.  3 Exibir impressora padrÆo  


echo.  


echo.            





set opcao=z


set /p opcao=Digite sua op‡Æo : 


if !opcao!==a set opcao=A


if !opcao!==0 goto :EOF





if !opcao!==1 (


echo.


echo. Digite o nome do arquivo 


cd 


cd NFE


set /p file=NFE^> 


notepad /p !file!


cd.


CLS&goto COMECO


)





if !opcao!==2 (


echo.


echo. Digite o nome do arquivo 


cd 


cd DEV


set /p file=DEV^> 


notepad /p !file!


cd.


CLS&goto COMECO


)








if !opcao!==3 (


for /f "tokens=* delims=" %%a in ('reg query "HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows" ^| find "Device" ') do (


set padrao=%%a


)


set padrao=!padrao:Device=!


set padrao=!padrao:REG_SZ=!


set padrao=!padrao: =!


set padrao=!padrao:,=!


set padrao=!padrao:winspool=!


set padrao=!padrao:Ne01:=!


set padrao=!padrao:Ne02:=!


set padrao=!padrao:Ne03:=!


set padrao=!padrao:Ne04:=!


set padrao=!padrao:Ne05:=!


set padrao=!padrao:Ne06:=!


set padrao=!padrao:Ne07:=!


set padrao=!padrao:Ne08:=!


set padrao=!padrao:Ne09:=!


echo. Default Print: !padrao!


pause


CLS&goto COMECO


)





:showprint


(


echo.Set WshShell = WScript.CreateObject^("WScript.Shell"^)


echo.strPrn = WshShell.RegRead^("HKCU\Printers\DeviceOld"^)


echo.arrPrn   = Split^( strPrn, ",", -1, vbTextCompare ^)


echo.strDescr = arrPrn^(0^)


echo.WScript.Echo strDescr 


)> showprint.vbs


exit/b








goto comeco


:add


: voltaocorr


CLS


ECHO                                                                                 Voltar ao Menu principal pressione [V]


ECHO.


ECHO.


ECHO.                


Echo.                               


Echo                                                Novo cadastro ou registro


ECHO.


ECHO. 


ECHO.


ECHO.


echo   ---- Informa‡äes comerciais


echo.


set/p placa=Placa ^>:


if %placa%==v CLS&goto COMECO


if %placa%==V CLS&goto COMECO


set/p carro=carro ^>:


set/p empresa=Transportadora ^>:


set/p motorista=Motorista ^>:


set/p cpf=CPF ^>:


set/p Contato=Tel Contato ^>:


set/p hentrada=Horario de entrada ^>:


set/p entregas=Entregas ^>:


set/p descricao=Descricao da carga ^>:


set/p volume=Volume ^>:

















SET tara=0


SET bruto=0


SET carga=0


SET liquido=0


SET Pmorto=0


SET Vmorto=0


SET frete=0


SET /P "tara=Tara >:"


SET /P "bruto=Bruto >:"


SET /P "capacidade=Capacidade >:"


SET /P "frete=Frete >:"


Call :Calcular "%bruto%-%tara%" "Liquido"


Call :Calcular "%capacidade%-%Liquido%" "morto"


Call :Calcular "%morto%*%frete%" "perdido"


goto:cont





:Calcular


set Calcular=


Set _Conta=%1


set _Conta=%_Conta:^=^^%


set _Conta=%_Conta:,=.%


set _Conta=%_Conta:"=%


Set _TmpCalc="%CD%\tmpcalc.txt"


echo C=%_Conta%>calcular.vbs


(


echo Set CF=CreateObject^("Scripting.FileSystemObject"^)


echo Set F=CF.CreateTextFile^(%_TmpCalc%, True^)


echo F.WriteLine^(C^)


echo F.Close


)>>calcular.vbs


wscript calcular.vbs


set/p Calcular=<%_TmpCalc%


set %~2=%Calcular%


del /q /s %_TmpCalc%>nul


del calcular.vbs>nul


:cont


set/p chave=NF-e ^>:


set/p nfe2=NF-e Programada ^>:


set/p seq=NFE sequencial ^>:


If not exist %chave%.txt CLS&goto adi


msg * NF-e cadastrada ! Imposs¡vel sobrescrever


CLS&goto comeco


:adi


@echo off


break off





(


Echo.==============================================================================


Echo.---------------------Total S.A© NFE Conhecimento de Frete---------------------


Echo.==============================================================================


echo.


echo.            DOCUMENTO PARA CONHECIMENTO DE FRETE SEM VALOR FISCAL


echo.


Echo.  Detalhes do Frete NF-e: %chave% 


echo.


echo.Cliente......: Total S.A© - Registro sintegra:[12.184.079/0004-80] 


echo Empresa......: %empresa%


echo Carro........: %carro%


echo Placa........: %placa%


echo Motorista....: %motorista%  CPF:%cpf%


echo Contato......: %contato%


echo Entrada......: %hentrada% Hora


echo Saida........: %time:~0,5% Hora


echo.Data.........: %date%


echo Entrega......: %entregas%


echo NF-e.........: %chave% - www.nfe.fazenda.gov.br


echo NF-e Prog....: %nfe2% - Programada


ECHO.Sequencial...: %seq%


echo.


echo.  Detalhes quantitativos carro: %placa%


echo.


echo.Tara.........: %tara% Kg


echo.Peso bruto...: %bruto% Kg


echo.Peso liquido.: %Liquido% Kg


echo.Capacidade...: %capacidade% Kg


echo.Peso morto...: %morto% Kg


echo.Valor perdido: %perdido% R$


echo Descricao....: %descricao%


echo Volume.......: %volume%


echo.


echo.  Detalhes de registro


echo. 


echo.Operador.....: %usu%


echo Usuario local: %username%


echo Computador...: %computername%


echo.Data.........: %date%


echo.Hora.........: %time:~0,5%


echo.Total S.A© Unidade Taipas-SP [140]


echo.


echo.        A NF-e %chave% pode ser consultado no site www.nfe.fazenda.gov.br


echo.


echo.                          DOCUMENTO SEM VALOR FISCAL


echo.


echo.     


echo. Eu  %motorista%  CPF: %cpf%   


echo  reconheco e afirmo ter conferido os detalhes acima descriminados


echo.  


echo.


echo.


echo. ____________________- %motorista%


echo. 


echo.


echo. 


echo.  


echo. ____________________- Higor de Souza Silva


echo. 


echo.


echo. 


echo.                                           


echo.                              www.totalsa.ind.br   


Echo.==============================================================================


echo.Total S.A© - Av.Elisio Teixeira Leite, 7452 - CEP:02810-000 Fone: 11 2924-2330  


)>%CHAVE%.txt


copy %CHAVE%.txt NFE


copy %CHAVE%.txt DOC


copy %CHAVE%.txt "%nome:/=-%"


cd


cd LOG


echo [%USU%] - Canhoto criado %nfe% em %date% %time:~0,5% >> log.txt


cd..


cls


color f2


cls


echo.


echo.


echo.


echo.


echo.


echo.


echo.


echo.


echo.


echo.                                           Cadastro realizado com sucesso.


echo.


echo.


echo.


echo.


echo.


echo.


echo.


echo.


cd.


del %CHAVE%.txt


@ping localhost -n 3 >nul


endlocal


break off


CLS&Goto comeco





:dev


: voltaocorr


CLS


ECHO                                                                                 Voltar ao Menu principal pressione [V]


ECHO.


ECHO.


ECHO.                


Echo.                               


Echo                                                Novo cadastro ou registro


ECHO.


ECHO. 


ECHO.


ECHO.


echo   ---- Informa‡äes comerciais


echo.


set/p placa=Placa ^>:


if %placa%==v CLS&goto COMECO


if %placa%==V CLS&goto COMECO


set/p carro=carro ^>:


set/p empresa=Transportadora ^>:


set/p motorista=Motorista ^>:


set/p cpf=CPF ^>:


set/p Contato=Tel Contato ^>:


set/p hentrada=Horario de entrada ^>:


set/p entregas=Entregas ^>:


set/p descricao=Descricao da carga ^>:


set/p volume=Volume ^>:


set/p tara=Tara ^>:


set/a operacao=%tara%


set/p bruto=Bruto ^>:


set/a operacao1=%bruto%


set/p capacidade=Capacidade ^>:


set/a operacao2=%capacidade%


set/p frete=Frete ^>:


set/a operacao3=%frete%


set/a liquido=%bruto%-%tara%


set/a pesom=%capacidade%-%liquido%


set/a vperdido=%pesom%*%frete%


set/p chave=NF-e ^>:


If not exist %chave%.txt CLS&goto adi2


msg * NF-e cadastrada ! Imposs¡vel sobrescrever


CLS&goto comeco


:adi2


@echo off


break off





(


Echo.==============================================================================


Echo.--------------------------Total S.A© devolucao de frete-----------------------


Echo.==============================================================================


echo.


echo.            DOCUMENTO PARA CONHECIMENTO DE FRETE SEM VALOR FISCAL


echo.


Echo.  Detalhes do Frete NF-e: %chave% 


echo.


echo.Cliente......: Total S.A© - Registro sintegra:[12.184.079/0004-80] 


echo Empresa......: %empresa%


echo Carro........: %carro%


echo Placa........: %placa%


echo Motorista....: %motorista%  CPF:%cpf%


echo Contato......: %contato%


echo Entrada......: %hentrada% Hora


echo Saida........: %time:~0,5% Hora


echo.Data.........: %date%


echo Entrega......: %entregas%


echo Devolucao....: %chave% - www.nfe.fazenda.gov.br


echo.


echo.  Detalhes quantitativos carro: %placa%


echo.


echo.Tara.........: %tara% Kg


echo.Peso bruto...: %bruto% Kg


echo.Peso liquido.: %liquido% Kg


echo.Capacidade...: %capacidade% Kg


echo.Peso morto...: %pesom% Kg


echo.Valor perdido: %vperdido% R$


echo Descricao....: %descricao%


echo Volume.......: %volume%


echo.


echo.  Detalhes de registro


echo. 


echo.Operador.....: %usu%


echo Usuario local: %username%


echo Computador...: %computername%


echo.Data.........: %date%


echo.Hora.........: %time:~0,5%


echo.Total S.A© Unidade Taipas-SP [140]


echo.


echo.        A NF-e %chave% pode ser consultado no site www.nfe.fazenda.gov.br


echo.


echo.                          DOCUMENTO SEM VALOR FISCAL


echo.


echo.     


echo.                         #DOCUMENTO SEM VALOR FISCAL#


echo.


echo.     


echo. A Total S.A reconhece ter recebido em devolucao a NF-e %chave%


echo  os valores e quantidades acima descriminados e julga ser 


echo. veridica as informacoes descritas nesse documento


echo. 


echo.


echo. 


echo.  


echo. ____________________- Higor de Souza Silva


echo. 


echo.


echo. 


echo.                                           


echo.                              www.totalsa.ind.br   


Echo.==============================================================================


echo.Total S.A© - Av.Elisio Teixeira Leite, 7452 - CEP:02810-000 Fone: 11 2924-2330  


)>%CHAVE%.txt


copy %CHAVE%.txt DEV


cd


cd LOG


echo [%USU%] - Devolucao criada %nfe% em %date% %time:~0,5% >> log.txt


cd..


cls


color f2


cls


echo.


echo.


echo.


echo.


echo.


echo.


echo.


echo.


echo.


echo.                                           Cadastro realizado com sucesso.


echo.


echo.


echo.


echo.


echo.


echo.


echo.


echo.


cd.


del %CHAVE%.txt


@ping localhost -n 3 >nul


endlocal


break off


CLS&Goto comeco


:exc


goto eleva


:exc1


color f0


CLS


ECHO                                                                                 Voltar ao Menu principal pressione [V]


ECHO.


ECHO.


ECHO.                


Echo.                               


Echo                                                  ExclusÆo de cadastros 


ECHO.


ECHO.


echo.


cd


cd NFE


echo.


dir /a /B h *.txt


echo.


set/p busc5u=NFE^>:


echo.


del /s %busc5u%.txt


echo.


pause


cd..


cd


cd LOG


echo [%USU%] - Deletou o canhoto %busc5u% em %date% %time:~0,5% >> log.txt


cd..


CLS&Goto comeco


:EDITCAD


CLS


ECHO                                                                                 Voltar ao Menu principal pressione [V]


ECHO.


ECHO.


ECHO.                


Echo.                               


Echo                                                   Edi‡Æo de cadastros


set/p busc5f=NFE^>:


cd


cd NFE


start %busc5f%.txt


cd..


cd


cd LOG


echo [%USU%] - Editou o canhoto %busc5f% em %date% %time:~0,5% >> log.txt


cd..


goto comeco


:busc


CLS


ECHO                                                                                 Voltar ao Menu principal pressione [V]


ECHO.


ECHO.


ECHO.                


Echo.                               


Echo                                                    Motores de busca


ECHO.


echo. Selecione uma op‡Æo para buscar


echo.


echo.  1 - Buscar por NFE


echo.  2 - Buscar por DEV


echo.  3 - Buscar por data


echo.  4 - Listar NFE


echo.  5 - Listar DEV


echo.


set/p busc5=Op‡Æo^>:


if %busc5%==1 goto o1


if %busc5%==3 goto o2


if %busc5%==4 goto o4


if %busc5%==5 goto o3


if %busc5%==2 goto o5





if %busc5%==v goto comeco


if %busc5%==V goto comeco


if not %busc5%==1 goto busc


if not %busc5%==2 goto busc


if not %busc5%==3 goto busc


if not %busc5%==5 goto busc


if not %busc5%==v goto busc


if not %busc5%==V goto busc





:o3


cls


echo.


cd


cd DEV


echo.


dir /a /B h *.txt


echo.


set/p dir1=DEV^>:


mode 79,65


cls


echo.


type %dir1%.txt


echo.


pause


cd..


Cls&GOTO comeco





:o1


echo.


set/p busc5=Digite o NFE^>:


cd


cd NFE


mode 79,65


cls


echo.


type %busc5%.txt


pause


cd..


Cls&GOTO comeco





:o2


echo.


set/p busc5=Entre com a data^>:


cls


cd


cd %busc5%


echo.


dir /a /B h *.txt


echo.


set/p dir1=NFE^>:


mode 79,65


cls


echo.


type %dir1%.txt


echo.


pause


cd..


Cls&GOTO comeco





:o4


cls


echo.


cd


cd NFE


echo.


dir /a /B h *.txt


echo.


set/p dir1=NFE^>:


mode 79,65


cls


echo.


type %dir1%.txt


echo.


pause


cd..


Cls&GOTO comeco





:05


echo.


set/p busc5=DEV^>:


cd


cd DEV


mode 79,65


cls


echo.


type %busc5%.txt


pause


cd..


Cls&GOTO comeco





:EXCAD


CLS


ECHO                                                                                 Voltar ao Menu principal pressione [V]


ECHO.


ECHO.


ECHO.                


Echo.                               


Echo                                               Extra‡Æo de cadastros


set/p ex=NFE^>:


if %ex%==v Cls&GOTO comeco 


if %ex%==V Cls&GOTO comeco


cd


cd NFE


echo.


ECHO.


ECHO.


set/p EXTRACAD2=Local^>:


COPY %CHAVE%.txt %EXTRACAD2%


cd..


cd


cd LOG


echo [%USU%] - Extraiu o canhoto %ex% para %EXTRACAD2% em %date% %time:~0,5% >> log.txt


cd..


goto comeco


:edit


CLS


ECHO                                                                                 Voltar ao Menu principal pressione [V]


ECHO.


ECHO.


ECHO.                


Echo.                               


Echo                                                   Troca de NFE


echo.


echo.


cd


cd NFE


echo.


set/p CHAVE1=NFE^>:


if %CHAVE1%==v CLS&goto comeco


if %CHAVE1%==V CLS&goto comeco


set/p para=NFE novo^>:


rename %CHAVE1%.TXT %para%.txt


echo.


echo.


pause


cd..


cd


cd LOG


echo [%USU%] - Alterou a NFE %CHAVE1% para %para% em %date% %time:~0,5% >> log.txt


cd..


cls


echo.


echo alterado de (%CHAVE1%) para (%para%)


echo.


pause 


Cls&GOTO comeco


:protmod


cls


echo.


cd


cd LOG


mode 79,65


cls


echo.


type log.txt


echo.


pause


cd..


goto comeco


:avanc


goto eleva2


:ok89


color fc


echo.


echo.


echo.                     Vocˆ est  entrando em um  rea avan‡ada, pede-se cautela ao executar uma a‡Æo !


echo.


echo.


pause


color f0


cls


ECHO                                                                                 Voltar ao Menu principal pressione [V]


ECHO.


ECHO.


ECHO.


ECHO  Avan‡ado


ECHO. --------


echo.


ECHO  1 - Redefinir o programa


ECHO  2 - Abrir banco de dados


ECHO  3 - Zerar registros


echo  4 - Reportar erro


echo  5 - Ver log de atividades


echo  6 - Criar DOC(Word)


echo. 7 - Mapear pasta


echo.


SET OP_MENUPRIN1=


SET /P OP_MENUPRIN1=">: "


IF "%OP_MENUPRIN1%" == "1" GOTO redefinir


IF "%OP_MENUPRIN1%" == "2" start NFE


IF "%OP_MENUPRIN1%" == "3" GOTO apagart


IF "%OP_MENUPRIN1%" == "4" GOTO erroreport


IF "%OP_MENUPRIN1%" == "5" GOTO protmod


IF "%OP_MENUPRIN1%" == "6" GOTO doc


IF "%OP_MENUPRIN1%" == "7" GOTO mapa


IF "%OP_MENUPRIN1%" == "v" GOTO comeco


IF "%OP_MENUPRIN1%" == "V" GOTO comeco





:doc


cls


echo.


echo.


cd


cd DOC


echo.


set/p CHAVE1=NFE^>:


if %CHAVE1%==v CLS&goto comeco


if %CHAVE1%==V CLS&goto comeco


rename %CHAVE1%.TXT %CHAVE1%.doc


start %CHAVE1%.doc


echo.


cd..


cd


cd LOG


echo [%USU%] - Criou DOC %CHAVE1% em %date% %time:~0,5% >> log.txt


cd..


CLS&goto comeco








REM ---


CLS


GOTO :avanc


cls


:redefinir


ECHO                                                                                 Voltar ao Menu principal pressione [V]


echo.


echo  Vocˆ est  preste a redefinir o programa para sua versão original, esse procedimento não ira apagar os dados ja salvos


echo.


echo. 1 - Sim


echo. 2 - NÆo


echo.


set/p reunidat1v=Deseja continuar ?^>:


if %reunidat1v%==1 goto vai2


if %reunidat1v%==2 goto comeco


if %reunidat1v%==v goto comeco


if %reunidat1v%==V goto comeco


if not %reunidat1v%==1 goto redefinir


if not %reunidat1v%==2 goto redefinir


if not %reunidat1v%==v goto redefinir


if not %reunidat1v%==V goto redefinir


:vai2


cls


attrib -H -S redefinicao.bat


start redefinicao.bat


exit


:apagart


cls


rd /s DOC


rd /s NFE


rd /s LOG


rd /s REV


echo.


pause


msg * Tudo apagado !


goto comeco


:erroreport


cls


cd %temp% & cls & echo.


cls


echo.


echo.


echo.


echo.


echo.


echo.


echo.


echo.


echo.


echo.


echo.


echo.


echo.


echo.


echo.


echo.


echo.


echo.


echo.


echo                                                 Checando conexÆo . . .


ping www.google.com.br -n 2 > nul


if %errorlevel%==0 (goto:ON) else (goto:OFF)


:ON


cls & color f2 & echo.


cls


echo.


echo.


echo.


echo.


echo.


echo.


echo.


echo.


echo.


echo.


echo.


echo.


echo.


echo.


echo.


echo.


echo.


echo.


echo.


echo                                                 Checando conexÆo . . .


echo.


echo                                              ConexÆo com internet: OK


ping www.google.com.br -n 2 > nul


goto okteste


:OFF


color f4


cls


echo.


echo.


echo.


echo.


echo.


echo.


echo.


echo.


echo.


echo.


echo.


echo.


echo.


echo.


echo.


echo.


echo.


echo.


echo.


echo                                                 Checando conexÆo . . .


echo. & echo.


echo                                         ConexÆo com internet: Sem conexÆo


ping localhost -n 2 > nul


ping www.google.com.br -n 1 > nul


echo.


cls


echo.


echo.


echo.


echo.


echo.


echo.


echo.


echo.


echo.


echo.


echo.


echo.


echo.


echo.


echo.


echo.


echo.


echo.


echo.


echo.          Ops ! Parece que vocˆ est  sem conexÆo com a internet, vocˆ s¢ pode enviar emails quando conectado.


echo.


echo.


echo.


echo.


echo.


echo.


echo.


echo.


echo.


echo.


echo.


echo.


echo.


echo.


echo.


echo.


echo.


pause


goto comeco


cls


:okteste


color f0


cls


ECHO                                                                                 Voltar ao Menu principal pressione [V]


echo.


Echo                                                    Reportar erro


Echo.


ECHO.


set /p user1="Assunto >"


if %user1%==v CLS&goto comeco


if %user1%==V CLS&goto comeco


echo.


set /p user="Digite a Mensagem >"


echo.


echo.


(


Echo Set objEmail = CreateObject("CDO.Message"^)





Echo Assunto = ""


Echo messagebody = ""


Echo Subjectline = "%user1%"


Echo Messagebody = ""





Echo With objEmail


Echo .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing"^) = 2


Echo .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver"^) = "mail.totalsa.ind.br"


Echo .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"^) = 1


Echo .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername"^) = "leonardo.alves@totalsa.ind.br"


Echo .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword"^) = ""


Echo .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport"^) = 587


Echo .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl"^) = true


Echo .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"^) = 60


Echo .Configuration.Fields.Update


Echo '.AddAttachment "C:\test.txt"


Echo 'objEmail.Textbody = "Server1 is no longer accessible over the network."


Echo 'objEmail.HTMLBody = "<font face=arial color=blue>Server1 is no longer accessible over the network.</font>


Echo 'objEmail.CreateMHTMLBody "http://www.google.com.hk/"


Echo 'objEmail.CreateMHTMLBody "file://c|/test.htm"


Echo End With


Echo '*** fim do SMTP remoto seção de configuração do servidor ***


Echo WScript.Echo " enviando e-mail..."


Echo With ObjEmail


Echo  .From = "leonardo.alves@totalsa.ind.br"


Echo  .To = "leonardo.alves@totalsa.ind.br"


Echo  .Subject = subjectline


Echo  .HTMLBody = "<p><b>Erro de sistema -  %user% "


Echo End With


Echo 'On Error Resume Next


Echo objEmail.Send


Echo WScript.Echo ""


Echo WScript.Echo " Email enviado com sucesso."


Echo Set objEmail = Nothing


)>"%tmp%\SendEmail.vbs"


CScript %tmp%\SendEmail.vbs //nologo


Del %tmp%\SendEmail.vbs


echo.


pause


CLS&goto comeco


:eleva2


CLS


echo.


echo. 


:121


echo Digite a senha para continuar:


%tmp%\pass 123456


set passa=%errorlevel%


::%passa%==6 porque a senha tem 6 caracteres


if %passa%==6 goto ok89


echo.


echo.


echo.                                                 Senha incorreta


color fc


goto 121


:eleva3


CLS


echo.


echo. 


:121


echo Digite a senha para continuar:


%tmp%\pass 123456


set passa=%errorlevel%


::%passa%==6 porque a senha tem 6 caracteres


if %passa%==6 goto ok90


echo.


echo.


echo.                                                 Senha incorreta


color fc


goto 121



































:Passw


pushd "!temp!"


(


echo On Error Resume Next


echo Set ReBin = CreateObject^("Scripting.FileSystemObject"^).OpenTextFile^("Pass.exe", 2, True^)


echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("4D5A40000100000002000000FFFF0000B8000000000000000A000000000000000E1FBA0E00B409CD21B8014CCD2157696E3332202E4558452E0D0A2440000000504500004C010200F2BEC45000160000F8010000E00007030B010238000A00000012000000020000BD6000000010000000200000000040000010000000020000040000000100000004000000000000000070000000020000C7AB000003000000000020000010000000001000001000000000000010000000000000000000000000600000C00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000",x,2^)^)^) : Next


echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("00000000000000000000000000000000000000000000000050600000100000000000000000000000000000000000000000000000000000002E4D5052455353310050000000100000000A000000020000000000000000000000000000E00000E02E4D5052455353326C0300000060000000040000000C0000000000000000000000000000E00000E00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000076322E3139",x,2^)^)^) : Next


echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("050033090000550089E583EC18895DF8008B550831DB8975FC008B0231F68B003D91010000C077433D8D0C0020B7E51B000000700C414082C00031C08944082404E88C1630881F2040C756084CA74243FF11D0BBFF009088BDC808005DF889EC5DC20400213D938440D7DB43C91041BB36DB6807D053E0022875E882B0801BF68974A8B848830BCD34F40FBD2E15EA4CBB1D10895C505438604F8788CE3BC002F8D1B21EE845B948F101C3244523E94F24B0DE000990FF00015383EC248D5DF86E100000010480CE93800F22EC04A4725C844F060000B8004040008D55F480E600B1D80000020450781091484582600B0C709044E003E8BCC4100A2101886B00",x,2^)^)^) : Next


echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("58A3104AB058412014C501D20F858B8A30C8A00F4E0702247AB1D80168138B4B30890C24E860AC74803583FAC0741B328B1D4A320CB0D8A02451135089144A83CE89003E8078008181CE780430480E1F83CE87121910088B15571090350004A12910890424E8228C025B01C3E86C4690E8C04182CEF40B1000E22D8B334210461100977E16171023B0D1C87B520FF13382500CA0020500FF15FC50D100FC14E000D9486BE2A3C8E0F3038B200D14AA9058DEF51F6ED14867E211081EF51FD4D593CE9830F021F741700A80AB171083C00F04108C4E100C004E905804BF58042F81CE7C9010C04660037D000802750D8B450C8300C0048B0080382F7441082410",x,2^)^)^) : Next


echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("4027B09E5229A1051301C0BD0A60011016855EC60432B481CE6C114557100000C645FB01C745F4C02C42148845FB807DFB040D7502EB620E8050079031D8C70FE057D05851C4FF5F0D31E359EBF71260371A55013550C4FF600B00A053B45FC7D0581441FF0FC01600EBA68682003AD8472F29F4FF08809CB2EEB858449F3C8CF841970B12D313B14ED10864FB01B11845B0183008108C102008000004301298AF1372EA5D60F61510B33DCE717F3108A120FB13050885C97426DFC4FF810481381245D01844304A110385D275E9C9C39F721F050804A1A0191704F8FF74002985C089C374138944F61F43FF149D34B154A7645F0F003D510FC0352FB025B0D5",x,2^)^)^) : Next


echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("35BCD8400A033100C085C9EB0A408B1462851A410BF4EBBD93308D53BFBE09F2545267032DA136691D26611E25E6F200F93561EAFD21C1BFA6A170AA903CB0088044F01F9E685FA50B24641DE5530FB7C08323EC6487168D55A8F3086305891105FF15D48304BA1F81571083EC0C4B0007EB460100C94A780E807C2AA8044175F409CB1A90274F30B8C35377108AD0C59F903C9C4BB630A0AB4E1BE92307AAD105106902B8B008403A96C21F4780CBAD01BBE4A04C41C4045C2408EBD7C0F141DF7557565381ECCC9816B0D87007912880D0580640BFE5F5D5357C5C4482190400A1408CD0588780795CC4C911C745A0820C9158841B4A0403C72845A42A83AA",x,2^)^)^) : Next


echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("32BCA148A82AC2AA32B02A031CCA24AA22B41C431C0AC501890845C8A1540EC21C8A85E820D0A15C0E42FD700B52002601668945D8895A344F01D04F018721045B02854644CF090F853B6501EF003CB18F15FC351A8F020F84592A90C09F78BC8824B90F383030BF7A3C4400F125701C02703C84004E0104108A04940D703C80178B15449016318462010089431420A130DD1853188B1534841031C4110AE50389530820C74330C32A432C8B25153C34108A03253881220089433489F689D82140C8950B19C0242001C902044188842A4860A03492777E18925888A6016B211889856C145115915808674C113F1189857414711352688647113D21857C143114",x,2^)^)^) : Next


echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("03383A1444381487D858A81C9F2350C84F21F84F11FF75423157D245041E0D1AEC1D1A91513A00791980CEDE8A90389CD821D82ED13844300AE6200832A3800E51309488CF243900D889FA75B1EBB1E8620C9D0ADF845189E15B073D0000100000721081E922DF17870409002D1EB10E919E126C0189E089CC018B088B4004FFE0DF69108B45142104108B4510B00CC01089C000088B4508E50CF0B8D0C2010CD4B4C1820DB11EC9E10103B0FF25E49F00339090731200F15F52B2E1916A007CE091F47C0CC3C7F8AA7CCCC0C7F07C8CC1C72CAA3C4CC2C3283C0CC1C31CAB3C0CC2C3D8FDC0CC3C2C0410FD3CD96BC19381173CE7B3207C8A02E0DD43050090",x,2^)^)^) : Next


echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("A50B00C1121C4101700300B05424E55404C03423E342C6C606001044461644F7D6160400508497460725F70630563637076094E686484547657420E114D60650160430554657E5068016E646C656465604803756064797F6E6066094C64657260700106847116D73766372745D20035F6765746368580FC015006D61696E61726773803400F7F555E666970621F7E60633666D6F64406528305746F715064700F745970787036365807101005F696F62005F386F6E304308AC1226F6662047071046472510620660C6563787066006072097E6466706602607505606D016C6C6F606320680447369676E61406C55338B78040BFF500074358B50088B300300F0",x,2^)^)^) : Next


echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("2BF28BDE8B4810002BCB74238B500C0300F203FE2BC02BD20B00D0ACC1E207D0E87200F60BD00BD274080300DA290B3BF772E4E84604BE178055602E0E10F0100000641000C480350080A0005CF716BE0288D3045057B688C73380BF02006CB6784431803FC870FC833E440D155500E840EE34B0004CE7830E0608025669727475616C802505746563740050E840F474030245A546A0268077B588FD0F8D031000B0608807884728581050545054F03F8DB518E2DF2AB0103D03F8564520008BD8AC0AC0B000880846FF75F6244017CE13006247E064B59E101210D0EA646C000035D50682B12A03CC08845067BF0E718D4E4D045F81C7EE00FEFFFFB0E9AAB8",x,2^)^)^) : Next


echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("1E849204B01A96CE118560DCBF183B502246D48D61460100FF1F2F70EF845000A68A300006EB8E4000C95CC0EC0EF0FFA20E207061737320105B53654E47D0A500000000F22436A703120402340714206EC66F2070A0824500627704206573706100876F0A0008200800402ACE2DD5C2942474340430743523D35284D40220D332A5C4A4D47204408524D5D294E474048C058C703723F335870610265746064727D702E03397A65706D2D34304C2116F66288CF0550480F43585142455440490025032A75352A7A30062169626980420710165417286490102563277D21710E1E2F282006763630C0230F6E6669676F692A6308363F35209D05209D3829809E0",x,2^)^)^) : Next


echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("3206E0ADA42028618C28C002328700DD307329032920213D20300632FFFFEA00F0FF9A107550D234C0D0004CC1C4283CF0CFF02E00FFBFC00000000000000000FF25D850400090900000000000000000FF25CC50400090900000000000000000FF25D450400090900000000000000000FF25D050400090900000000000000000FF25C8504000909000000000000000005589E55DE97C02000090909090909090FFFFFFFF9019400000000000FFFFFFFF00000000143700004B45524E454C33322E646C6C0041646441746F6D41004578697450726F636573730046696E6441746F6D410047657441746F6D4E616D654100536574556E68616E646C6564457863",x,2^)^)^) : Next


echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("5060000000000000000000009C600000506000005C6000000000000000000000A96000005C60000000000000000000000000000000000000000000000000000000000000000000000000000000000000786000008B60000000000000B460000000000000000000000000000000000000000000000000000000004765744D6F64756C6548616E646C654100000047657450726F6341646472657373004B45524E454C33322E444C4C006D73766372742E646C6C0000005F67657463680060E80000000058059F0200008B3003F02BC08BFE66ADC1E00C8BC850AD2BC803F18BC85751498A44390688043175F68BD68BCFE85C0000005E5A2BC0890432B4102BD0",x,2^)^)^) : Next


echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("2BC93BCA73268BD9AC4124FE3CE875F24383C104AD0BC078063BC273E5EB0603C378DF03C22BC38946FCEBD6E8000000005F81C78CFFFFFFB0E9AAB89B020000ABE80000000058051C020000E90C020000558BEC83EC148A025633F646397508894DF088018975F8C645FF000F86E30100005357807DFF008A0C32740C8A443201C0E904C0E0040AC8468365F400884DFE0FB645FF8B7D082BF83BF70F83A001000084C90F8917010000807DFF008B1C327403C1EB0481E3FFFF0F0046817DF8810800008BFB7320D1EFF6C301741481E7FF07000003F081C7810000008075FF01EB4B83E77FEB4583E303C1EF0283EB0074374B74274B74154B753281E7FFFF",x,2^)^)^) : Next


echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("03008D74300181C741440000EBCF81E7FF3F000081C74104000046EB1181E7FF03000003F083C741EBB383E73F47807DFF0074090FB71C32C1EB04EB0C33DB668B1C3281E3FF0F00000FB645FF8075FF0103F08BC383E00F83F80F74058D5803EB384681FBFF0F00007408C1EB0483C312EB27807DFF00740D8B0432C1E80425FFFF0000EB040FB70432468D98110100004681FB10010100745F8B45F82BC785DB74428B7DF003C7895DEC8B5DF88A08FF45F840FF4DEC880C1F75EF8A4DFEEB24807DFF000FB61C32740D0FB6443201C1EB04C1E0040BD88B7DF88B45F0FF45F8881C3846FF45F4D0E1837DF408884DFE0F8C9AFEFFFFEB4933C03845FF7413",x,2^)^)^) : Next


echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("8A4432FCC645FF0025FC000000C1E00546EB0C668B4432FB25C00F0000D1E083E17F03C88D44090885C074168B0C328B5DF88B7DF08345F80483C60448890C1F75EA0FB645FF8B4D082BC83BF10F8221FEFFFF5F5B8B45F85EC9C20400E964B7FFFF9EACFFFF000000004D730200000003010000000000000000000000000000000000002E62737300000000100000000400000003010400000000000000000000000000000000002E66696C650000003C000000FEFF000067017478746D6F64652E630000000000000000002E74657874000000900300000100000003010000000000000000000000000000000000002E646174610000001000000002000000",x,2^)^)^) : Next


echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("",x,2^)^)^) : Next


echo ReBin.Close


)>"%tmp%\pass.vbs"


CScript "%tmp%\pass.vbs" //nologo


Del "%tmp%\pass.vbs" 2>&1


popd


Exit/b

leo1991

Idade : 26

Voltar ao Topo Ir em baixo

Re: [Ajuda] Ajuda para contas

Mensagem por Boss-Head em Qui Jan 14, 2016 6:31 pm

Código:
@echo off
break off
set nome=%date:~-10%

:::::::::::::::: ALTEREI AQUI

for %%f in ("mapa.bat" "showprint.vbs" "default.wil" ) do if exist "%~DP0%%~f" attrib -H -S "%~DP0%%~f"
for %%f in ("%nome:/=-%" "DEV" "DOC" "NFE" "LOG") do if NOT exist "%~DP0%%~f" MD "%~DP0%%~f"
mode 115,20
setlocal enableextensions enabledelayedexpansion
title Carregando..
ping 127.0.0.1 -n 1 -w 1000 > nul
call:Passw
cls
set a=°
:INI_CIO
color f0
echo.
set /a POR_CENTO+=1
if %POR_CENTO%==50 set BARRA_a=
set BARRA_a=%BARRA_a%%a%
cls
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo                                                  Carregando... %POR_CENTO%%%
echo.
echo                                %BARRA_a%
echo.
if %POR_CENTO%==50 goto INI_CIO
if %POR_CENTO%==100 goto FIM_BARRA
@ping localhost -n 1 >nul
goto INI_CIO
:FIM_BARRA
mode 115,20
:volta1
color f0
cls
cls
title Cadastro Canhoto                                                                                                                                                                                                      by:Leonardo Diaz
echo.
echo. 
echo.
echo.                                                                                       
echo.
Echo                      ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
Echo                      ³              Sistema Total S.A© NFE Reconhecimento de Frete 1.0          ³
Echo                      ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo.
echo.                    Total S.A©
echo.
echo.                    Usuario local: %username%
echo.                    Computador...: %computername%
echo.
echo.
echo.
echo.
Set/p USU=Usuario^>:
If /i %USU%==Higor goto 1
If /i %USU%==admin goto ADMSIM
If /i not %USU%==Higor goto errolog
If /i not %USU%==admin goto errolog
goto volta
goto volta1
: eleva
CLS
echo.
echo.
:12
echo Digite a senha para continuar:
%tmp%\pass 123456
set passa=%errorlevel%
::%passa%==6 porque a senha tem 6 caracteres
if %passa%==6 goto exc1
echo.
echo.
echo.                                                Senha incorreta
color fc
goto 12
:errolog
color fc
cls
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.                                        Usu rio incorreto ou inexistente.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
pause
goto volta1
:1
%tmp%\pass 123456
set passa=%errorlevel%
::%passa%==6 porque a senha tem 6 caracteres
if %passa%==6 goto :sai
echo.
echo.                                                Senha incorreta
color fc
goto :1
:sai
color f2
cls
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.                                                Acesso permitido
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
@ping localhost -n 3 >nul
cd
cd LOG
echo %USU% fez login em %date% %time:~0,5% >> log.txt
cd..
@ECHO OFF
color f0
:ADMSIM
:comeco
delete showprint.vbs
delete default.wil
color f0
mode 120,30
title                        ....::::: Sistema Total S.A© de registros de logs de canhotos 1.0 :::::....
cls
echo.
Echo                      ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
Echo                      ³          Sistema Total S.A© NFE para reconhecimento de frete 1.0          ³
Echo                      ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo.
Echo    Menu principal 
echo    ÚÄÄÄÄÄÄÄÄÄÄÄÄÄ  open                                         
echo.  ³
echo.  ³                                                                  Usuario local: %username%
echo.  ³                                                                  Computador...: %computername%
Echo    ³.          1 - Novo canhoto                                      Operador.....: %usu%                 
echo.  ³                                                                  Unidade......: 140
Echo    ³.          2 - Busca                           
echo.  ³
Echo    ³.          3 - Excluir                         
echo.  ³
Echo    ³.          4 - Edi‡Æo de canhoto               
echo.  ³
Echo    ³.          5 - Devolu‡Æo                   
echo.  ³
Echo    ³.          7 - Troca de NFE                     
echo.  ³
Echo    ³.          8 - Imprimir                     
echo.  ³
Echo    ³.          9 - Mais+
Echo.  ³
echo    ÀÄÄÄÄÄÄÄ  Ol  %usu%, digite um n£mero de op‡Æo para come‡ar
Echo. 
Set/p esc=Op‡Æo ^>:
if %esc% LSS 0 (
echo &CLS
goto comeco
)
if %esc% GTR 24 (
echo &CLS
goto comeco
)
if %esc% EQU 1 CLS&goto add
if %esc% EQU 2 CLS&goto busc
if %esc% EQU 3 CLS&goto exc
if %esc% EQU 4 CLS&goto EDITCAD
if %esc% EQU 5 CLS&goto dev
if %esc% EQU 6 CLS&goto EXCAD
if %esc% EQU 7 CLS&goto edit
if %esc% EQU 8 CLS&goto print1
if %esc% EQU 9 CLS&goto avanc

:::::::::::::::: ALTEREI AQUI
FOR /L %%W IN (1,1,9) DO if not '%esc%'=='%%W' CLS&goto comeco

:mapa

attrib -H -S mapa.bat
start mapa.bat
attrib +H +S mapa.bat
CLS&goto COMECO
:print1
@echo off
title Impressoras
SETLOCAL ENABLEDELAYEDEXPANSION
net use lpt1 >NUL 2>&1
if %errorlevel%==2 set LPT1=nenhuma
if %errorlevel%==0 (
FOR /F "TOKENS=1-6 delims= " %%A IN ('net use lpt1 ' ) DO (
if "%%A"=="Nome"  set LPT1=%%C 
)
)
set print=
:menu
net use lpt1 >NUL 2>&1
if %errorlevel%==2 set LPT1=nenhuma
if %errorlevel%==0 (
FOR /F "TOKENS=1-6 delims= " %%A IN ('net use lpt1 ' ) DO (
if "%%A"=="Nome"  set LPT1=%%C 
)
)
call :showprint
cscript //nologo showprint.vbs > default.wil
set /p print=<default.wil
cls
echo. IMPRESSORA LPT1 = %lpt1%
if /I "%print%" NEQ "" ECHO. Default print %print%
@echo off
cls
echo.
echo.
echo.
echo.  1 Imprimir NFE
echo  2 Imprimir DEV
echo.  3 Exibir impressora padrÆo 
echo. 
echo.           
set opcao=z
set /p opcao=Digite sua op‡Æo :
if !opcao!==a set opcao=A
if !opcao!==0 goto :EOF
if !opcao!==1 (
echo.
echo. Digite o nome do arquivo
cd
cd NFE
set /p file=NFE^>
notepad /p !file!
cd.
CLS&goto COMECO
)
if !opcao!==2 (
echo.
echo. Digite o nome do arquivo
cd
cd DEV
set /p file=DEV^>
notepad /p !file!
cd.
CLS&goto COMECO
)

:::::::::::::::::::::::: MUDEI AQUI
if !opcao!==3 (
for /f "skip=2 tokens=2,* " %%i in ('REG QUERY "HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows" /v Device') do set padrao=%%j
set padrao="aaa,!padrao!"
for /f "tokens=1,2 delims=," %%i in (!padrao!) do set padrao=%%j
echo. Default Print: !padrao!
pause
CLS&goto COMECO
)
:showprint
(
echo.Set WshShell = WScript.CreateObject^("WScript.Shell"^)
echo.strPrn = WshShell.RegRead^("HKCU\Printers\DeviceOld"^)
echo.arrPrn  = Split^( strPrn, ",", -1, vbTextCompare ^)
echo.strDescr = arrPrn^(0^)
echo.WScript.Echo strDescr
)> showprint.vbs
exit/b
goto comeco
:add
: voltaocorr
CLS
ECHO                                                                                Voltar ao Menu principal pressione [V]
ECHO.
ECHO.
ECHO.               
Echo.                             
Echo                                                Novo cadastro ou registro
ECHO.
ECHO.
ECHO.
ECHO.
echo  ---- Informa‡äes comerciais
echo.
set/p placa=Placa ^>:
if %placa%==v CLS&goto COMECO
if %placa%==V CLS&goto COMECO
set/p carro=carro ^>:
set/p empresa=Transportadora ^>:
set/p motorista=Motorista ^>:
set/p cpf=CPF ^>:
set/p Contato=Tel Contato ^>:
set/p hentrada=Horario de entrada ^>:
set/p entregas=Entregas ^>:
set/p descricao=Descricao da carga ^>:
set/p volume=Volume ^>:
SET tara=0
SET bruto=0
SET carga=0
SET liquido=0
SET Pmorto=0
SET Vmorto=0
SET frete=0
SET /P "tara=Tara >:"
SET /P "bruto=Bruto >:"
SET /P "capacidade=Capacidade >:"
SET /P "frete=Frete >:"
Call :Calcular "%bruto%-%tara%" "Liquido"
Call :Calcular "%capacidade%-%Liquido%" "morto"
Call :Calcular "%morto%*%frete%" "perdido"
goto:cont
:Calcular
set Calcular=
Set _Conta=%1
set _Conta=%_Conta:^=^^%
set _Conta=%_Conta:,=.%
set _Conta=%_Conta:"=%
Set _TmpCalc="%CD%\tmpcalc.txt"
echo C=%_Conta%>calcular.vbs
(
echo Set CF=CreateObject^("Scripting.FileSystemObject"^)
echo Set F=CF.CreateTextFile^(%_TmpCalc%, True^)
echo F.WriteLine^(C^)
echo F.Close
)>>calcular.vbs
wscript calcular.vbs
set/p Calcular=<%_TmpCalc%
set %~2=%Calcular%
del /q /s %_TmpCalc%>nul
del calcular.vbs>nul
:cont
set/p chave=NF-e ^>:
set/p nfe2=NF-e Programada ^>:
set/p seq=NFE sequencial ^>:
If not exist %chave%.txt CLS&goto adi
msg * NF-e cadastrada ! Imposs¡vel sobrescrever
CLS&goto comeco
:adi
@echo off
break off
(
Echo.==============================================================================
Echo.---------------------Total S.A© NFE Conhecimento de Frete---------------------
Echo.==============================================================================
echo.
echo.            DOCUMENTO PARA CONHECIMENTO DE FRETE SEM VALOR FISCAL
echo.
Echo.  Detalhes do Frete NF-e: %chave%
echo.
echo.Cliente......: Total S.A© - Registro sintegra:[12.184.079/0004-80]
echo Empresa......: %empresa%
echo Carro........: %carro%
echo Placa........: %placa%
echo Motorista....: %motorista%  CPF:%cpf%
echo Contato......: %contato%
echo Entrada......: %hentrada% Hora
echo Saida........: %time:~0,5% Hora
echo.Data.........: %date%
echo Entrega......: %entregas%
echo NF-e.........: %chave% - www.nfe.fazenda.gov.br
echo NF-e Prog....: %nfe2% - Programada
ECHO.Sequencial...: %seq%
echo.
echo.  Detalhes quantitativos carro: %placa%
echo.
echo.Tara.........: %tara% Kg
echo.Peso bruto...: %bruto% Kg
echo.Peso liquido.: %Liquido% Kg
echo.Capacidade...: %capacidade% Kg
echo.Peso morto...: %morto% Kg
echo.Valor perdido: %perdido% R$
echo Descricao....: %descricao%
echo Volume.......: %volume%
echo.
echo.  Detalhes de registro
echo.
echo.Operador.....: %usu%
echo Usuario local: %username%
echo Computador...: %computername%
echo.Data.........: %date%
echo.Hora.........: %time:~0,5%
echo.Total S.A© Unidade Taipas-SP [140]
echo.
echo.        A NF-e %chave% pode ser consultado no site www.nfe.fazenda.gov.br
echo.
echo.                          DOCUMENTO SEM VALOR FISCAL
echo.
echo.   
echo. Eu  %motorista%  CPF: %cpf% 
echo  reconheco e afirmo ter conferido os detalhes acima descriminados
echo. 
echo.
echo.
echo. ____________________- %motorista%
echo.
echo.
echo.
echo. 
echo. ____________________- Higor de Souza Silva
echo.
echo.
echo.
echo.                                         
echo.                              www.totalsa.ind.br 
Echo.==============================================================================
echo.Total S.A© - Av.Elisio Teixeira Leite, 7452 - CEP:02810-000 Fone: 11 2924-2330 
)>%CHAVE%.txt
copy %CHAVE%.txt NFE
copy %CHAVE%.txt DOC
copy %CHAVE%.txt "%nome:/=-%"
cd
cd LOG
echo [%USU%] - Canhoto criado %nfe% em %date% %time:~0,5% >> log.txt
cd..
cls
color f2
cls
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.                                          Cadastro realizado com sucesso.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
cd.
del %CHAVE%.txt
@ping localhost -n 3 >nul
endlocal
break off
CLS&Goto comeco
:dev
: voltaocorr
CLS
ECHO                                                                                Voltar ao Menu principal pressione [V]
ECHO.
ECHO.
ECHO.               
Echo.                             
Echo                                                Novo cadastro ou registro
ECHO.
ECHO.
ECHO.
ECHO.
echo  ---- Informa‡äes comerciais
echo.
set/p placa=Placa ^>:
if %placa%==v CLS&goto COMECO
if %placa%==V CLS&goto COMECO
set/p carro=carro ^>:
set/p empresa=Transportadora ^>:
set/p motorista=Motorista ^>:
set/p cpf=CPF ^>:
set/p Contato=Tel Contato ^>:
set/p hentrada=Horario de entrada ^>:
set/p entregas=Entregas ^>:
set/p descricao=Descricao da carga ^>:
set/p volume=Volume ^>:
set/p tara=Tara ^>:
set/a operacao=%tara%
set/p bruto=Bruto ^>:
set/a operacao1=%bruto%
set/p capacidade=Capacidade ^>:
set/a operacao2=%capacidade%
set/p frete=Frete ^>:
set/a operacao3=%frete%
set/a liquido=%bruto%-%tara%
set/a pesom=%capacidade%-%liquido%
set/a vperdido=%pesom%*%frete%
set/p chave=NF-e ^>:
If not exist %chave%.txt CLS&goto adi2
msg * NF-e cadastrada ! Imposs¡vel sobrescrever
CLS&goto comeco
:adi2
@echo off
break off
(
Echo.==============================================================================
Echo.--------------------------Total S.A© devolucao de frete-----------------------
Echo.==============================================================================
echo.
echo.            DOCUMENTO PARA CONHECIMENTO DE FRETE SEM VALOR FISCAL
echo.
Echo.  Detalhes do Frete NF-e: %chave%
echo.
echo.Cliente......: Total S.A© - Registro sintegra:[12.184.079/0004-80]
echo Empresa......: %empresa%
echo Carro........: %carro%
echo Placa........: %placa%
echo Motorista....: %motorista%  CPF:%cpf%
echo Contato......: %contato%
echo Entrada......: %hentrada% Hora
echo Saida........: %time:~0,5% Hora
echo.Data.........: %date%
echo Entrega......: %entregas%
echo Devolucao....: %chave% - www.nfe.fazenda.gov.br
echo.
echo.  Detalhes quantitativos carro: %placa%
echo.
echo.Tara.........: %tara% Kg
echo.Peso bruto...: %bruto% Kg
echo.Peso liquido.: %liquido% Kg
echo.Capacidade...: %capacidade% Kg
echo.Peso morto...: %pesom% Kg
echo.Valor perdido: %vperdido% R$
echo Descricao....: %descricao%
echo Volume.......: %volume%
echo.
echo.  Detalhes de registro
echo.
echo.Operador.....: %usu%
echo Usuario local: %username%
echo Computador...: %computername%
echo.Data.........: %date%
echo.Hora.........: %time:~0,5%
echo.Total S.A© Unidade Taipas-SP [140]
echo.
echo.        A NF-e %chave% pode ser consultado no site www.nfe.fazenda.gov.br
echo.
echo.                          DOCUMENTO SEM VALOR FISCAL
echo.
echo.   
echo.                        #DOCUMENTO SEM VALOR FISCAL#
echo.
echo.   
echo. A Total S.A reconhece ter recebido em devolucao a NF-e %chave%
echo  os valores e quantidades acima descriminados e julga ser
echo. veridica as informacoes descritas nesse documento
echo.
echo.
echo.
echo. 
echo. ____________________- Higor de Souza Silva
echo.
echo.
echo.
echo.                                         
echo.                              www.totalsa.ind.br 
Echo.==============================================================================
echo.Total S.A© - Av.Elisio Teixeira Leite, 7452 - CEP:02810-000 Fone: 11 2924-2330 
)>%CHAVE%.txt
copy %CHAVE%.txt DEV
cd
cd LOG
echo [%USU%] - Devolucao criada %nfe% em %date% %time:~0,5% >> log.txt
cd..
cls
color f2
cls
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.                                          Cadastro realizado com sucesso.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
cd.
del %CHAVE%.txt
@ping localhost -n 3 >nul
endlocal
break off
CLS&Goto comeco
:exc
goto eleva
:exc1
color f0
CLS
ECHO                                                                                Voltar ao Menu principal pressione [V]
ECHO.
ECHO.
ECHO.               
Echo.                             
Echo                                                  ExclusÆo de cadastros
ECHO.
ECHO.
echo.
cd
cd NFE
echo.
dir /a /B h *.txt
echo.
set/p busc5u=NFE^>:
echo.
del /s %busc5u%.txt
echo.
pause
cd..
cd
cd LOG
echo [%USU%] - Deletou o canhoto %busc5u% em %date% %time:~0,5% >> log.txt
cd..
CLS&Goto comeco
:EDITCAD
CLS
ECHO                                                                                Voltar ao Menu principal pressione [V]
ECHO.
ECHO.
ECHO.               
Echo.                             
Echo                                                  Edi‡Æo de cadastros
set/p busc5f=NFE^>:
cd
cd NFE
start %busc5f%.txt
cd..
cd
cd LOG
echo [%USU%] - Editou o canhoto %busc5f% em %date% %time:~0,5% >> log.txt
cd..
goto comeco
:busc
CLS
ECHO                                                                                Voltar ao Menu principal pressione [V]
ECHO.
ECHO.
ECHO.               
Echo.                             
Echo                                                    Motores de busca
ECHO.
echo. Selecione uma op‡Æo para buscar
echo.
echo.  1 - Buscar por NFE
echo.  2 - Buscar por DEV
echo.  3 - Buscar por data
echo.  4 - Listar NFE
echo.  5 - Listar DEV
echo.
set/p busc5=Op‡Æo^>:
if %busc5%==1 goto o1
if %busc5%==3 goto o2
if %busc5%==4 goto o4
if %busc5%==5 goto o3
if %busc5%==2 goto o5
if %busc5%==v goto comeco
if %busc5%==V goto comeco
if not %busc5%==1 goto busc
if not %busc5%==2 goto busc
if not %busc5%==3 goto busc
if not %busc5%==5 goto busc
if not %busc5%==v goto busc
if not %busc5%==V goto busc
:o3
cls
echo.
cd
cd DEV
echo.
dir /a /B h *.txt
echo.
set/p dir1=DEV^>:
mode 79,65
cls
echo.
type %dir1%.txt
echo.
pause
cd..
Cls&GOTO comeco
:o1
echo.
set/p busc5=Digite o NFE^>:
cd
cd NFE
mode 79,65
cls
echo.
type %busc5%.txt
pause
cd..
Cls&GOTO comeco
:o2
echo.
set/p busc5=Entre com a data^>:
cls
cd
cd %busc5%
echo.
dir /a /B h *.txt
echo.
set/p dir1=NFE^>:
mode 79,65
cls
echo.
type %dir1%.txt
echo.
pause
cd..
Cls&GOTO comeco
:o4
cls
echo.
cd
cd NFE
echo.
dir /a /B h *.txt
echo.
set/p dir1=NFE^>:
mode 79,65
cls
echo.
type %dir1%.txt
echo.
pause
cd..
Cls&GOTO comeco
:05
echo.
set/p busc5=DEV^>:
cd
cd DEV
mode 79,65
cls
echo.
type %busc5%.txt
pause
cd..
Cls&GOTO comeco
:EXCAD
CLS
ECHO                                                                                Voltar ao Menu principal pressione [V]
ECHO.
ECHO.
ECHO.               
Echo.                             
Echo                                              Extra‡Æo de cadastros
set/p ex=NFE^>:
if %ex%==v Cls&GOTO comeco
if %ex%==V Cls&GOTO comeco
cd
cd NFE
echo.
ECHO.
ECHO.
set/p EXTRACAD2=Local^>:
COPY %CHAVE%.txt %EXTRACAD2%
cd..
cd
cd LOG
echo [%USU%] - Extraiu o canhoto %ex% para %EXTRACAD2% em %date% %time:~0,5% >> log.txt
cd..
goto comeco
:edit
CLS
ECHO                                                                                Voltar ao Menu principal pressione [V]
ECHO.
ECHO.
ECHO.               
Echo.                             
Echo                                                  Troca de NFE
echo.
echo.
cd
cd NFE
echo.
set/p CHAVE1=NFE^>:
if %CHAVE1%==v CLS&goto comeco
if %CHAVE1%==V CLS&goto comeco
set/p para=NFE novo^>:
rename %CHAVE1%.TXT %para%.txt
echo.
echo.
pause
cd..
cd
cd LOG
echo [%USU%] - Alterou a NFE %CHAVE1% para %para% em %date% %time:~0,5% >> log.txt
cd..
cls
echo.
echo alterado de (%CHAVE1%) para (%para%)
echo.
pause
Cls&GOTO comeco
:protmod
cls
echo.
cd
cd LOG
mode 79,65
cls
echo.
type log.txt
echo.
pause
cd..
goto comeco
:avanc
goto eleva2
:ok89
color fc
echo.
echo.
echo.                    Vocˆ est  entrando em um  rea avan‡ada, pede-se cautela ao executar uma a‡Æo !
echo.
echo.
pause
color f0
cls
ECHO                                                                                Voltar ao Menu principal pressione [V]
ECHO.
ECHO.
ECHO.
ECHO  Avan‡ado
ECHO. --------
echo.
ECHO  1 - Redefinir o programa
ECHO  2 - Abrir banco de dados
ECHO  3 - Zerar registros
echo  4 - Reportar erro
echo  5 - Ver log de atividades
echo  6 - Criar DOC(Word)
echo. 7 - Mapear pasta
echo.
SET OP_MENUPRIN1=
SET /P OP_MENUPRIN1=">: "
IF "%OP_MENUPRIN1%" == "1" GOTO redefinir
IF "%OP_MENUPRIN1%" == "2" start NFE
IF "%OP_MENUPRIN1%" == "3" GOTO apagart
IF "%OP_MENUPRIN1%" == "4" GOTO erroreport
IF "%OP_MENUPRIN1%" == "5" GOTO protmod
IF "%OP_MENUPRIN1%" == "6" GOTO doc
IF "%OP_MENUPRIN1%" == "7" GOTO mapa
IF "%OP_MENUPRIN1%" == "v" GOTO comeco
IF "%OP_MENUPRIN1%" == "V" GOTO comeco
:doc
cls
echo.
echo.
cd
cd DOC
echo.
set/p CHAVE1=NFE^>:
if %CHAVE1%==v CLS&goto comeco
if %CHAVE1%==V CLS&goto comeco
rename %CHAVE1%.TXT %CHAVE1%.doc
start %CHAVE1%.doc
echo.
cd..
cd
cd LOG
echo [%USU%] - Criou DOC %CHAVE1% em %date% %time:~0,5% >> log.txt
cd..
CLS&goto comeco
REM ---
CLS
GOTO :avanc
cls
:redefinir
ECHO                                                                                Voltar ao Menu principal pressione [V]
echo.
echo  Vocˆ est  preste a redefinir o programa para sua versão original, esse procedimento não ira apagar os dados ja salvos
echo.
echo. 1 - Sim
echo. 2 - NÆo
echo.
set/p reunidat1v=Deseja continuar ?^>:
if %reunidat1v%==1 goto vai2
if %reunidat1v%==2 goto comeco
if %reunidat1v%==v goto comeco
if %reunidat1v%==V goto comeco
if not %reunidat1v%==1 goto redefinir
if not %reunidat1v%==2 goto redefinir
if not %reunidat1v%==v goto redefinir
if not %reunidat1v%==V goto redefinir
:vai2
cls
attrib -H -S redefinicao.bat
start redefinicao.bat
exit
:apagart
cls
rd /s DOC
rd /s NFE
rd /s LOG
rd /s REV
echo.
pause
msg * Tudo apagado !
goto comeco
:erroreport
cls
cd %temp% & cls & echo.
cls
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo                                                Checando conexÆo . . .
ping www.google.com.br -n 2 > nul
if %errorlevel%==0 (goto:ON) else (goto:OFF)
:ON
cls & color f2 & echo.
cls
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo                                                Checando conexÆo . . .
echo.
echo                                              ConexÆo com internet: OK
ping www.google.com.br -n 2 > nul
goto okteste
:OFF
color f4
cls
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo                                                Checando conexÆo . . .
echo. & echo.
echo                                        ConexÆo com internet: Sem conexÆo
ping localhost -n 2 > nul
ping www.google.com.br -n 1 > nul
echo.
cls
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.          Ops ! Parece que vocˆ est  sem conexÆo com a internet, vocˆ s¢ pode enviar emails quando conectado.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
pause
goto comeco
cls
:okteste
color f0
cls
ECHO                                                                                Voltar ao Menu principal pressione [V]
echo.
Echo                                                    Reportar erro
Echo.
ECHO.
set /p user1="Assunto >"
if %user1%==v CLS&goto comeco
if %user1%==V CLS&goto comeco
echo.
set /p user="Digite a Mensagem >"
echo.
echo.
(
Echo Set objEmail = CreateObject("CDO.Message"^)
Echo Assunto = ""
Echo messagebody = ""
Echo Subjectline = "%user1%"
Echo Messagebody = ""
Echo With objEmail
Echo .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing"^) = 2
Echo .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver"^) = "mail.totalsa.ind.br"
Echo .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"^) = 1
Echo .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername"^) = "leonardo.alves@totalsa.ind.br"
Echo .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword"^) = ""
Echo .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport"^) = 587
Echo .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl"^) = true
Echo .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"^) = 60
Echo .Configuration.Fields.Update
Echo '.AddAttachment "C:\test.txt"
Echo 'objEmail.Textbody = "Server1 is no longer accessible over the network."
Echo 'objEmail.HTMLBody = "<font face=arial color=blue>Server1 is no longer accessible over the network.</font>
Echo 'objEmail.CreateMHTMLBody "http://www.google.com.hk/"
Echo 'objEmail.CreateMHTMLBody "file://c|/test.htm"
Echo End With
Echo '*** fim do SMTP remoto seção de configuração do servidor ***
Echo WScript.Echo " enviando e-mail..."
Echo With ObjEmail
Echo  .From = "leonardo.alves@totalsa.ind.br"
Echo  .To = "leonardo.alves@totalsa.ind.br"
Echo  .Subject = subjectline
Echo  .HTMLBody = "<p><b>Erro de sistema -  %user% "
Echo End With
Echo 'On Error Resume Next
Echo objEmail.Send
Echo WScript.Echo ""
Echo WScript.Echo " Email enviado com sucesso."
Echo Set objEmail = Nothing
)>"%tmp%\SendEmail.vbs"
CScript %tmp%\SendEmail.vbs //nologo
Del %tmp%\SendEmail.vbs
echo.
pause
CLS&goto comeco
:eleva2
CLS
echo.
echo.
:121
echo Digite a senha para continuar:
%tmp%\pass 123456
set passa=%errorlevel%
::%passa%==6 porque a senha tem 6 caracteres
if %passa%==6 goto ok89
echo.
echo.
echo.                                                Senha incorreta
color fc
goto 121
:eleva3
CLS
echo.
echo.
:121
echo Digite a senha para continuar:
%tmp%\pass 123456
set passa=%errorlevel%
::%passa%==6 porque a senha tem 6 caracteres
if %passa%==6 goto ok90
echo.
echo.
echo.                                                Senha incorreta
color fc
goto 121
:Passw
pushd "!temp!"
(
echo On Error Resume Next
echo Set ReBin = CreateObject^("Scripting.FileSystemObject"^).OpenTextFile^("Pass.exe", 2, True^)
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("4D5A40000100000002000000FFFF0000B8000000000000000A000000000000000E1FBA0E00B409CD21B8014CCD2157696E3332202E4558452E0D0A2440000000504500004C010200F2BEC45000160000F8010000E00007030B010238000A00000012000000020000BD6000000010000000200000000040000010000000020000040000000100000004000000000000000070000000020000C7AB000003000000000020000010000000001000001000000000000010000000000000000000000000600000C00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("00000000000000000000000000000000000000000000000050600000100000000000000000000000000000000000000000000000000000002E4D5052455353310050000000100000000A000000020000000000000000000000000000E00000E02E4D5052455353326C0300000060000000040000000C0000000000000000000000000000E00000E00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000076322E3139",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("050033090000550089E583EC18895DF8008B550831DB8975FC008B0231F68B003D91010000C077433D8D0C0020B7E51B000000700C414082C00031C08944082404E88C1630881F2040C756084CA74243FF11D0BBFF009088BDC808005DF889EC5DC20400213D938440D7DB43C91041BB36DB6807D053E0022875E882B0801BF68974A8B848830BCD34F40FBD2E15EA4CBB1D10895C505438604F8788CE3BC002F8D1B21EE845B948F101C3244523E94F24B0DE000990FF00015383EC248D5DF86E100000010480CE93800F22EC04A4725C844F060000B8004040008D55F480E600B1D80000020450781091484582600B0C709044E003E8BCC4100A2101886B00",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("58A3104AB058412014C501D20F858B8A30C8A00F4E0702247AB1D80168138B4B30890C24E860AC74803583FAC0741B328B1D4A320CB0D8A02451135089144A83CE89003E8078008181CE780430480E1F83CE87121910088B15571090350004A12910890424E8228C025B01C3E86C4690E8C04182CEF40B1000E22D8B334210461100977E16171023B0D1C87B520FF13382500CA0020500FF15FC50D100FC14E000D9486BE2A3C8E0F3038B200D14AA9058DEF51F6ED14867E211081EF51FD4D593CE9830F021F741700A80AB171083C00F04108C4E100C004E905804BF58042F81CE7C9010C04660037D000802750D8B450C8300C0048B0080382F7441082410",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("4027B09E5229A1051301C0BD0A60011016855EC60432B481CE6C114557100000C645FB01C745F4C02C42148845FB807DFB040D7502EB620E8050079031D8C70FE057D05851C4FF5F0D31E359EBF71260371A55013550C4FF600B00A053B45FC7D0581441FF0FC01600EBA68682003AD8472F29F4FF08809CB2EEB858449F3C8CF841970B12D313B14ED10864FB01B11845B0183008108C102008000004301298AF1372EA5D60F61510B33DCE717F3108A120FB13050885C97426DFC4FF810481381245D01844304A110385D275E9C9C39F721F050804A1A0191704F8FF74002985C089C374138944F61F43FF149D34B154A7645F0F003D510FC0352FB025B0D5",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("35BCD8400A033100C085C9EB0A408B1462851A410BF4EBBD93308D53BFBE09F2545267032DA136691D26611E25E6F200F93561EAFD21C1BFA6A170AA903CB0088044F01F9E685FA50B24641DE5530FB7C08323EC6487168D55A8F3086305891105FF15D48304BA1F81571083EC0C4B0007EB460100C94A780E807C2AA8044175F409CB1A90274F30B8C35377108AD0C59F903C9C4BB630A0AB4E1BE92307AAD105106902B8B008403A96C21F4780CBAD01BBE4A04C41C4045C2408EBD7C0F141DF7557565381ECCC9816B0D87007912880D0580640BFE5F5D5357C5C4482190400A1408CD0588780795CC4C911C745A0820C9158841B4A0403C72845A42A83AA",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("32BCA148A82AC2AA32B02A031CCA24AA22B41C431C0AC501890845C8A1540EC21C8A85E820D0A15C0E42FD700B52002601668945D8895A344F01D04F018721045B02854644CF090F853B6501EF003CB18F15FC351A8F020F84592A90C09F78BC8824B90F383030BF7A3C4400F125701C02703C84004E0104108A04940D703C80178B15449016318462010089431420A130DD1853188B1534841031C4110AE50389530820C74330C32A432C8B25153C34108A03253881220089433489F689D82140C8950B19C0242001C902044188842A4860A03492777E18925888A6016B211889856C145115915808674C113F1189857414711352688647113D21857C143114",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("03383A1444381487D858A81C9F2350C84F21F84F11FF75423157D245041E0D1AEC1D1A91513A00791980CEDE8A90389CD821D82ED13844300AE6200832A3800E51309488CF243900D889FA75B1EBB1E8620C9D0ADF845189E15B073D0000100000721081E922DF17870409002D1EB10E919E126C0189E089CC018B088B4004FFE0DF69108B45142104108B4510B00CC01089C000088B4508E50CF0B8D0C2010CD4B4C1820DB11EC9E10103B0FF25E49F00339090731200F15F52B2E1916A007CE091F47C0CC3C7F8AA7CCCC0C7F07C8CC1C72CAA3C4CC2C3283C0CC1C31CAB3C0CC2C3D8FDC0CC3C2C0410FD3CD96BC19381173CE7B3207C8A02E0DD43050090",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("A50B00C1121C4101700300B05424E55404C03423E342C6C606001044461644F7D6160400508497460725F70630563637076094E686484547657420E114D60650160430554657E5068016E646C656465604803756064797F6E6066094C64657260700106847116D73766372745D20035F6765746368580FC015006D61696E61726773803400F7F555E666970621F7E60633666D6F64406528305746F715064700F745970787036365807101005F696F62005F386F6E304308AC1226F6662047071046472510620660C6563787066006072097E6466706602607505606D016C6C6F606320680447369676E61406C55338B78040BFF500074358B50088B300300F0",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("2BF28BDE8B4810002BCB74238B500C0300F203FE2BC02BD20B00D0ACC1E207D0E87200F60BD00BD274080300DA290B3BF772E4E84604BE178055602E0E10F0100000641000C480350080A0005CF716BE0288D3045057B688C73380BF02006CB6784431803FC870FC833E440D155500E840EE34B0004CE7830E0608025669727475616C802505746563740050E840F474030245A546A0268077B588FD0F8D031000B0608807884728581050545054F03F8DB518E2DF2AB0103D03F8564520008BD8AC0AC0B000880846FF75F6244017CE13006247E064B59E101210D0EA646C000035D50682B12A03CC08845067BF0E718D4E4D045F81C7EE00FEFFFFB0E9AAB8",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("1E849204B01A96CE118560DCBF183B502246D48D61460100FF1F2F70EF845000A68A300006EB8E4000C95CC0EC0EF0FFA20E207061737320105B53654E47D0A500000000F22436A703120402340714206EC66F2070A0824500627704206573706100876F0A0008200800402ACE2DD5C2942474340430743523D35284D40220D332A5C4A4D47204408524D5D294E474048C058C703723F335870610265746064727D702E03397A65706D2D34304C2116F66288CF0550480F43585142455440490025032A75352A7A30062169626980420710165417286490102563277D21710E1E2F282006763630C0230F6E6669676F692A6308363F35209D05209D3829809E0",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("3206E0ADA42028618C28C002328700DD307329032920213D20300632FFFFEA00F0FF9A107550D234C0D0004CC1C4283CF0CFF02E00FFBFC00000000000000000FF25D850400090900000000000000000FF25CC50400090900000000000000000FF25D450400090900000000000000000FF25D050400090900000000000000000FF25C8504000909000000000000000005589E55DE97C02000090909090909090FFFFFFFF9019400000000000FFFFFFFF00000000143700004B45524E454C33322E646C6C0041646441746F6D41004578697450726F636573730046696E6441746F6D410047657441746F6D4E616D654100536574556E68616E646C6564457863",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("5060000000000000000000009C600000506000005C6000000000000000000000A96000005C60000000000000000000000000000000000000000000000000000000000000000000000000000000000000786000008B60000000000000B460000000000000000000000000000000000000000000000000000000004765744D6F64756C6548616E646C654100000047657450726F6341646472657373004B45524E454C33322E444C4C006D73766372742E646C6C0000005F67657463680060E80000000058059F0200008B3003F02BC08BFE66ADC1E00C8BC850AD2BC803F18BC85751498A44390688043175F68BD68BCFE85C0000005E5A2BC0890432B4102BD0",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("2BC93BCA73268BD9AC4124FE3CE875F24383C104AD0BC078063BC273E5EB0603C378DF03C22BC38946FCEBD6E8000000005F81C78CFFFFFFB0E9AAB89B020000ABE80000000058051C020000E90C020000558BEC83EC148A025633F646397508894DF088018975F8C645FF000F86E30100005357807DFF008A0C32740C8A443201C0E904C0E0040AC8468365F400884DFE0FB645FF8B7D082BF83BF70F83A001000084C90F8917010000807DFF008B1C327403C1EB0481E3FFFF0F0046817DF8810800008BFB7320D1EFF6C301741481E7FF07000003F081C7810000008075FF01EB4B83E77FEB4583E303C1EF0283EB0074374B74274B74154B753281E7FFFF",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("03008D74300181C741440000EBCF81E7FF3F000081C74104000046EB1181E7FF03000003F083C741EBB383E73F47807DFF0074090FB71C32C1EB04EB0C33DB668B1C3281E3FF0F00000FB645FF8075FF0103F08BC383E00F83F80F74058D5803EB384681FBFF0F00007408C1EB0483C312EB27807DFF00740D8B0432C1E80425FFFF0000EB040FB70432468D98110100004681FB10010100745F8B45F82BC785DB74428B7DF003C7895DEC8B5DF88A08FF45F840FF4DEC880C1F75EF8A4DFEEB24807DFF000FB61C32740D0FB6443201C1EB04C1E0040BD88B7DF88B45F0FF45F8881C3846FF45F4D0E1837DF408884DFE0F8C9AFEFFFFEB4933C03845FF7413",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("8A4432FCC645FF0025FC000000C1E00546EB0C668B4432FB25C00F0000D1E083E17F03C88D44090885C074168B0C328B5DF88B7DF08345F80483C60448890C1F75EA0FB645FF8B4D082BC83BF10F8221FEFFFF5F5B8B45F85EC9C20400E964B7FFFF9EACFFFF000000004D730200000003010000000000000000000000000000000000002E62737300000000100000000400000003010400000000000000000000000000000000002E66696C650000003C000000FEFF000067017478746D6F64652E630000000000000000002E74657874000000900300000100000003010000000000000000000000000000000000002E646174610000001000000002000000",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("",x,2^)^)^) : Next
echo ReBin.Close
)>"%tmp%\pass.vbs"
CScript "%tmp%\pass.vbs" //nologo
Del "%tmp%\pass.vbs" 2>&1
popd
Exit/b

FIZ ALGUMAS MODIFICAÇÕES  ( SETEI COM  :::::::::; )
VAMOS MODIFICANDO A MEDIDA QUE ENTENDERMOS O FUNCIONAMENTO...
QUAL FUNÇÃO ESTA DANDO ERRO ?
TEM COMO SETAR ELA ?
avatar
Boss-Head

Idade : 32

Voltar ao Topo Ir em baixo

Re: [Ajuda] Ajuda para contas

Mensagem por leo1991 em Qui Jan 14, 2016 10:41 pm

Posso sim Boss, quando abre o programinha, no menu e na opção 1 vai te levar para o cadastro, conforme for cadastrando chegará na opção "tara" que é onde começa a ser realizado os cálculos, em seguida vem o "bruto" etc. O problema é quando chega finalmente na opção "frete" que no caso só funciona quando coloco valores redondos, como por exemplo 1, 2, 3 etc. Quando coloco valores do tipo decimais, 0,65, 0,33, 0,002 etc. ele já não consegue calcular. Segue abaixo o trecho e onde está acontecendo o erro.


set/p tara=Tara ^>:
set/a operacao=%tara%
set/p bruto=Bruto ^>:
set/a operacao1=%bruto%
set/p capacidade=Capacidade ^>:
set/a operacao2=%capacidade%
set/p frete=Frete ^>:
set/a operacao3=%frete%
set/a liquido=%bruto%-%tara%
set/a pesom=%capacidade%-%liquido%
set/a vperdido=%pesom%*%frete%  <---------------------- linha onde acontece o erro de cálculo

leo1991

Idade : 26

Voltar ao Topo Ir em baixo

Re: [Ajuda] Ajuda para contas

Mensagem por Boss-Head em Dom Jan 17, 2016 5:45 pm

Código:
@echo off
break off
set nome=%date:~-10%

:::::::::::::::: ALTEREI AQUI

for %%f in ("mapa.bat" "showprint.vbs" "default.wil" ) do if exist "%~DP0%%~f" attrib -H -S "%~DP0%%~f"
for %%f in ("%nome:/=-%" "DEV" "DOC" "NFE" "LOG") do if NOT exist "%~DP0%%~f" MD "%~DP0%%~f"
mode 115,20
setlocal enableextensions enabledelayedexpansion
title Carregando..
ping 127.0.0.1 -n 1 -w 1000 > nul
call:Passw
cls
set a=°
:INI_CIO
color f0
echo.
set /a POR_CENTO+=1
if %POR_CENTO%==50 set BARRA_a=
set BARRA_a=%BARRA_a%%a%
cls
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo                                                  Carregando... %POR_CENTO%%%
echo.
echo                                %BARRA_a%
echo.
if %POR_CENTO%==50 goto INI_CIO
if %POR_CENTO%==100 goto FIM_BARRA
@ping localhost -n 1 >nul
goto INI_CIO
:FIM_BARRA
mode 115,20
:volta1
color f0
cls
cls
title Cadastro Canhoto                                                                                                                                                                                                      by:Leonardo Diaz
echo.
echo. 
echo.
echo.                                                                                       
echo.
Echo                      ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
Echo                      ³              Sistema Total S.A© NFE Reconhecimento de Frete 1.0          ³
Echo                      ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo.
echo.                    Total S.A©
echo.
echo.                    Usuario local: %username%
echo.                    Computador...: %computername%
echo.
echo.
echo.
echo.
Set/p USU=Usuario^>:
If /i %USU%==Higor goto 1
If /i %USU%==admin goto ADMSIM
If /i not %USU%==Higor goto errolog
If /i not %USU%==admin goto errolog
goto volta
goto volta1
: eleva
CLS
echo.
echo.
:12
echo Digite a senha para continuar:
%tmp%\pass 123456
set passa=%errorlevel%
::%passa%==6 porque a senha tem 6 caracteres
if %passa%==6 goto exc1
echo.
echo.
echo.                                                Senha incorreta
color fc
goto 12
:errolog
color fc
cls
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.                                        Usu rio incorreto ou inexistente.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
pause
goto volta1
:1
%tmp%\pass 123456
set passa=%errorlevel%
::%passa%==6 porque a senha tem 6 caracteres
if %passa%==6 goto :sai
echo.
echo.                                                Senha incorreta
color fc
goto :1
:sai
color f2
cls
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.                                                Acesso permitido
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
@ping localhost -n 3 >nul
cd
cd LOG
echo %USU% fez login em %date% %time:~0,5% >> log.txt
cd..
@ECHO OFF
color f0
:ADMSIM
:comeco
delete showprint.vbs
delete default.wil
color f0
mode 120,30
title                        ....::::: Sistema Total S.A© de registros de logs de canhotos 1.0 :::::....
cls
echo.
Echo                      ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
Echo                      ³          Sistema Total S.A© NFE para reconhecimento de frete 1.0          ³
Echo                      ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
echo.
echo.
Echo    Menu principal 
echo    ÚÄÄÄÄÄÄÄÄÄÄÄÄÄ  open                                         
echo.  ³
echo.  ³                                                                  Usuario local: %username%
echo.  ³                                                                  Computador...: %computername%
Echo    ³.          1 - Novo canhoto                                      Operador.....: %usu%                 
echo.  ³                                                                  Unidade......: 140
Echo    ³.          2 - Busca                           
echo.  ³
Echo    ³.          3 - Excluir                         
echo.  ³
Echo    ³.          4 - Edi‡Æo de canhoto               
echo.  ³
Echo    ³.          5 - Devolu‡Æo                   
echo.  ³
Echo    ³.          7 - Troca de NFE                     
echo.  ³
Echo    ³.          8 - Imprimir                     
echo.  ³
Echo    ³.          9 - Mais+
Echo.  ³
echo    ÀÄÄÄÄÄÄÄ  Ol  %usu%, digite um n£mero de op‡Æo para come‡ar
Echo. 
Set/p esc=Op‡Æo ^>:
if %esc% LSS 0 (
echo &CLS
goto comeco
)
if %esc% GTR 24 (
echo &CLS
goto comeco
)
if %esc% EQU 1 CLS&goto add
if %esc% EQU 2 CLS&goto busc
if %esc% EQU 3 CLS&goto exc
if %esc% EQU 4 CLS&goto EDITCAD
if %esc% EQU 5 CLS&goto dev
if %esc% EQU 6 CLS&goto EXCAD
if %esc% EQU 7 CLS&goto edit
if %esc% EQU 8 CLS&goto print1
if %esc% EQU 9 CLS&goto avanc

:::::::::::::::: ALTEREI AQUI
FOR /L %%W IN (1,1,9) DO if not '%esc%'=='%%W' CLS&goto comeco

:mapa

attrib -H -S mapa.bat
start mapa.bat
attrib +H +S mapa.bat
CLS&goto COMECO
:print1
@echo off
title Impressoras
SETLOCAL ENABLEDELAYEDEXPANSION
net use lpt1 >NUL 2>&1
if %errorlevel%==2 set LPT1=nenhuma
if %errorlevel%==0 (
FOR /F "TOKENS=1-6 delims= " %%A IN ('net use lpt1 ' ) DO (
if "%%A"=="Nome"  set LPT1=%%C 
)
)
set print=
:menu
net use lpt1 >NUL 2>&1
if %errorlevel%==2 set LPT1=nenhuma
if %errorlevel%==0 (
FOR /F "TOKENS=1-6 delims= " %%A IN ('net use lpt1 ' ) DO (
if "%%A"=="Nome"  set LPT1=%%C 
)
)
call :showprint
cscript //nologo showprint.vbs > default.wil
set /p print=<default.wil
cls
echo. IMPRESSORA LPT1 = %lpt1%
if /I "%print%" NEQ "" ECHO. Default print %print%
@echo off
cls
echo.
echo.
echo.
echo.  1 Imprimir NFE
echo  2 Imprimir DEV
echo.  3 Exibir impressora padrÆo 
echo. 
echo.           
set opcao=z
set /p opcao=Digite sua op‡Æo :
if !opcao!==a set opcao=A
if !opcao!==0 goto :EOF
if !opcao!==1 (
echo.
echo. Digite o nome do arquivo
cd
cd NFE
set /p file=NFE^>
notepad /p !file!
cd.
CLS&goto COMECO
)
if !opcao!==2 (
echo.
echo. Digite o nome do arquivo
cd
cd DEV
set /p file=DEV^>
notepad /p !file!
cd.
CLS&goto COMECO
)

:::::::::::::::::::::::: MUDEI AQUI
if !opcao!==3 (
for /f "skip=2 tokens=2,* " %%i in ('REG QUERY "HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows" /v Device') do set padrao=%%j
set padrao="aaa,!padrao!"
for /f "tokens=1,2 delims=," %%i in (!padrao!) do set padrao=%%j
echo. Default Print: !padrao!
pause
CLS&goto COMECO
)
:showprint
(
echo.Set WshShell = WScript.CreateObject^("WScript.Shell"^)
echo.strPrn = WshShell.RegRead^("HKCU\Printers\DeviceOld"^)
echo.arrPrn  = Split^( strPrn, ",", -1, vbTextCompare ^)
echo.strDescr = arrPrn^(0^)
echo.WScript.Echo strDescr
)> showprint.vbs
exit/b
goto comeco
:add
: voltaocorr
CLS
ECHO                                                                                Voltar ao Menu principal pressione [V]
ECHO.
ECHO.
ECHO.               
Echo.                             
Echo                                                Novo cadastro ou registro
ECHO.
ECHO.
ECHO.
ECHO.
echo  ---- Informa‡äes comerciais
echo.
::::::::::::::::::::::::: mudei aqui
set/p placa=Placa ^>:
if /i %placa%==V CLS&goto COMECO

call :checa_digitado "%placa%" "teste"
if "%teste%"=="00" msg * Necessario digitar a placa do veiculo !&goto add
call :checa_digitado "%placa:~,3%" "let_"
if not "%let_%"=="letras"  msg * Necessario digitar a placa do veiculo com as 3 primeiras digitos em letras !&goto add
call :checa_digitado "%placa:~-4%" "_num"
if not "%_num%"=="numero" msg * Necessario digitar a placa do veiculo com os 4 ultimos digitos em numeros !&goto add





set/p carro=carro ^>:
set/p empresa=Transportadora ^>:
set/p motorista=Motorista ^>:
set/p cpf=CPF ^>:
set cpf=%cpf:.=%
set cpf=%cpf:-=%
call :checa_digitado "%cpf%" "cp_f"

if not "%cp_f%"=="numero" msg * Necessario digitar o cpf corretamente somente com numeros !&goto add


set/p Contato=Tel Contato ^>:
set/p hentrada=Horario de entrada ^>:
set/p entregas=Entregas ^>:
set/p descricao=Descricao da carga ^>:
set/p volume=Volume ^>:
SET tara=0
SET bruto=0
SET carga=0
SET liquido=0
SET Pmorto=0
SET Vmorto=0
SET frete=0
SET /P "tara=Tara >:"
SET /P "bruto=Bruto >:"
SET /P "capacidade=Capacidade >:"
SET /P "frete=Frete >:"
Call :Calcular "%bruto%-%tara%" "Liquido"
Call :Calcular "%capacidade%-%Liquido%" "morto"
Call :Calcular "%morto%*%frete%" "perdido"


:cont
set/p chave=NF-e ^>:
set/p nfe2=NF-e Programada ^>:
set/p seq=NFE sequencial ^>:
If not exist %chave%.txt CLS&goto adi
msg * NF-e cadastrada ! Imposs¡vel sobrescrever
CLS&goto comeco
:adi
@echo off
break off
(
Echo.==============================================================================
Echo.---------------------Total S.A© NFE Conhecimento de Frete---------------------
Echo.==============================================================================
echo.
echo.            DOCUMENTO PARA CONHECIMENTO DE FRETE SEM VALOR FISCAL
echo.
Echo.  Detalhes do Frete NF-e: %chave%
echo.
echo.Cliente......: Total S.A© - Registro sintegra:[12.184.079/0004-80]
echo Empresa......: %empresa%
echo Carro........: %carro%
echo Placa........: %placa%
echo Motorista....: %motorista%  CPF:%cpf%
echo Contato......: %contato%
echo Entrada......: %hentrada% Hora
echo Saida........: %time:~0,5% Hora
echo.Data.........: %date%
echo Entrega......: %entregas%
echo NF-e.........: %chave% - www.nfe.fazenda.gov.br
echo NF-e Prog....: %nfe2% - Programada
ECHO.Sequencial...: %seq%
echo.
echo.  Detalhes quantitativos carro: %placa%
echo.
echo.Tara.........: %tara% Kg
echo.Peso bruto...: %bruto% Kg
echo.Peso liquido.: %Liquido% Kg
echo.Capacidade...: %capacidade% Kg
echo.Peso morto...: %morto% Kg
echo.Valor perdido: %perdido% R$
echo Descricao....: %descricao%
echo Volume.......: %volume%
echo.
echo.  Detalhes de registro
echo.
echo.Operador.....: %usu%
echo Usuario local: %username%
echo Computador...: %computername%
echo.Data.........: %date%
echo.Hora.........: %time:~0,5%
echo.Total S.A© Unidade Taipas-SP [140]
echo.
echo.        A NF-e %chave% pode ser consultado no site www.nfe.fazenda.gov.br
echo.
echo.                          DOCUMENTO SEM VALOR FISCAL
echo.
echo.   
echo. Eu  %motorista%  CPF: %cpf% 
echo  reconheco e afirmo ter conferido os detalhes acima descriminados
echo. 
echo.
echo.
echo. ____________________- %motorista%
echo.
echo.
echo.
echo. 
echo. ____________________- Higor de Souza Silva
echo.
echo.
echo.
echo.                                         
echo.                              www.totalsa.ind.br 
Echo.==============================================================================
echo.Total S.A© - Av.Elisio Teixeira Leite, 7452 - CEP:02810-000 Fone: 11 2924-2330 
)>%CHAVE%.txt
copy %CHAVE%.txt NFE
copy %CHAVE%.txt DOC
copy %CHAVE%.txt "%nome:/=-%"
cd
cd LOG
echo [%USU%] - Canhoto criado %nfe% em %date% %time:~0,5% >> log.txt
cd..
cls
color f2
cls
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.                                          Cadastro realizado com sucesso.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
cd.
del %CHAVE%.txt
@ping localhost -n 3 >nul
endlocal
break off
CLS&Goto comeco
:dev
: voltaocorr
CLS
ECHO                                                                                Voltar ao Menu principal pressione [V]
ECHO.
ECHO.
ECHO.               
Echo.                             
Echo                                                Novo cadastro ou registro
ECHO.
ECHO.
ECHO.
ECHO.
echo  ---- Informa‡äes comerciais
echo.
set/p placa=Placa ^>:

if /i %placa%==v CLS&goto COMECO

set/p carro=carro ^>:
set/p empresa=Transportadora ^>:
set/p motorista=Motorista ^>:
set/p cpf=CPF ^>:
set/p Contato=Tel Contato ^>:
set/p hentrada=Horario de entrada ^>:
set/p entregas=Entregas ^>:
set/p descricao=Descricao da carga ^>:
set/p volume=Volume ^>:
set/p tara=Tara ^>:
set/a operacao=%tara%
set/p bruto=Bruto ^>:
set/a operacao1=%bruto%
set/p capacidade=Capacidade ^>:
set/a operacao2=%capacidade%
set/p frete=Frete ^>:
set/a operacao3=%frete%
set/a liquido=%bruto%-%tara%
set/a pesom=%capacidade%-%liquido%
set/a vperdido=%pesom%*%frete%
set/p chave=NF-e ^>:
If not exist %chave%.txt CLS&goto adi2
msg * NF-e cadastrada ! Imposs¡vel sobrescrever
CLS&goto comeco

:adi2
@echo off
break off
(
Echo.==============================================================================
Echo.--------------------------Total S.A© devolucao de frete-----------------------
Echo.==============================================================================
echo.
echo.            DOCUMENTO PARA CONHECIMENTO DE FRETE SEM VALOR FISCAL
echo.
Echo.  Detalhes do Frete NF-e: %chave%
echo.
echo.Cliente......: Total S.A© - Registro sintegra:[12.184.079/0004-80]
echo Empresa......: %empresa%
echo Carro........: %carro%
echo Placa........: %placa%
echo Motorista....: %motorista%  CPF:%cpf%
echo Contato......: %contato%
echo Entrada......: %hentrada% Hora
echo Saida........: %time:~0,5% Hora
echo.Data.........: %date%
echo Entrega......: %entregas%
echo Devolucao....: %chave% - www.nfe.fazenda.gov.br
echo.
echo.  Detalhes quantitativos carro: %placa%
echo.
echo.Tara.........: %tara% Kg
echo.Peso bruto...: %bruto% Kg
echo.Peso liquido.: %liquido% Kg
echo.Capacidade...: %capacidade% Kg
echo.Peso morto...: %pesom% Kg
echo.Valor perdido: %vperdido% R$
echo Descricao....: %descricao%
echo Volume.......: %volume%
echo.
echo.  Detalhes de registro
echo.
echo.Operador.....: %usu%
echo Usuario local: %username%
echo Computador...: %computername%
echo.Data.........: %date%
echo.Hora.........: %time:~0,5%
echo.Total S.A© Unidade Taipas-SP [140]
echo.
echo.        A NF-e %chave% pode ser consultado no site www.nfe.fazenda.gov.br
echo.
echo.                          DOCUMENTO SEM VALOR FISCAL
echo.
echo.   
echo.                        #DOCUMENTO SEM VALOR FISCAL#
echo.
echo.   
echo. A Total S.A reconhece ter recebido em devolucao a NF-e %chave%
echo  os valores e quantidades acima descriminados e julga ser
echo. veridica as informacoes descritas nesse documento
echo.
echo.
echo.
echo. 
echo. ____________________- Higor de Souza Silva
echo.
echo.
echo.
echo.                                         
echo.                              www.totalsa.ind.br 
Echo.==============================================================================
echo.Total S.A© - Av.Elisio Teixeira Leite, 7452 - CEP:02810-000 Fone: 11 2924-2330 
)>%CHAVE%.txt
copy %CHAVE%.txt DEV
cd
cd LOG
echo [%USU%] - Devolucao criada %nfe% em %date% %time:~0,5% >> log.txt
cd..
cls
color f2
cls
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.                                          Cadastro realizado com sucesso.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
cd.
del %CHAVE%.txt
@ping localhost -n 3 >nul
endlocal
break off
CLS&Goto comeco
:exc
goto eleva
:exc1
color f0
CLS
ECHO                                                                                Voltar ao Menu principal pressione [V]
ECHO.
ECHO.
ECHO.               
Echo.                             
Echo                                                  ExclusÆo de cadastros
ECHO.
ECHO.
echo.
cd
cd NFE
echo.
dir /a /B h *.txt
echo.
set/p busc5u=NFE^>:
echo.
del /s %busc5u%.txt
echo.
pause
cd..
cd
cd LOG
echo [%USU%] - Deletou o canhoto %busc5u% em %date% %time:~0,5% >> log.txt
cd..
CLS&Goto comeco
:EDITCAD
CLS
ECHO                                                                                Voltar ao Menu principal pressione [V]
ECHO.
ECHO.
ECHO.               
Echo.                             
Echo                                                  Edi‡Æo de cadastros
set/p busc5f=NFE^>:
cd
cd NFE
start %busc5f%.txt
cd..
cd
cd LOG
echo [%USU%] - Editou o canhoto %busc5f% em %date% %time:~0,5% >> log.txt
cd..
goto comeco
:busc
CLS
ECHO                                                                                Voltar ao Menu principal pressione [V]
ECHO.
ECHO.
ECHO.               
Echo.                             
Echo                                                    Motores de busca
ECHO.
echo. Selecione uma op‡Æo para buscar
echo.
echo.  1 - Buscar por NFE
echo.  2 - Buscar por DEV
echo.  3 - Buscar por data
echo.  4 - Listar NFE
echo.  5 - Listar DEV
echo.
set/p busc5=Op‡Æo^>:
if %busc5%==1 goto o1
if %busc5%==3 goto o2
if %busc5%==4 goto o4
if %busc5%==5 goto o3
if %busc5%==2 goto o5
if /i %busc5%==v goto comeco

if not %busc5%==1 goto busc
if not %busc5%==2 goto busc
if not %busc5%==3 goto busc
if not %busc5%==5 goto busc
if /i not %busc5%==v goto busc

:o3
cls
echo.
cd
cd DEV
echo.
dir /a /B h *.txt
echo.
set/p dir1=DEV^>:
mode 79,65
cls
echo.
type %dir1%.txt
echo.
pause
cd..
Cls&GOTO comeco
:o1
echo.
set/p busc5=Digite o NFE^>:
cd
cd NFE
mode 79,65
cls
echo.
type %busc5%.txt
pause
cd..
Cls&GOTO comeco
:o2
echo.
set/p busc5=Entre com a data^>:
cls
cd
cd %busc5%
echo.
dir /a /B h *.txt
echo.
set/p dir1=NFE^>:
mode 79,65
cls
echo.
type %dir1%.txt
echo.
pause
cd..
Cls&GOTO comeco
:o4
cls
echo.
cd
cd NFE
echo.
dir /a /B h *.txt
echo.
set/p dir1=NFE^>:
mode 79,65
cls
echo.
type %dir1%.txt
echo.
pause
cd..
Cls&GOTO comeco
:05
echo.
set/p busc5=DEV^>:
cd
cd DEV
mode 79,65
cls
echo.
type %busc5%.txt
pause
cd..
Cls&GOTO comeco
:EXCAD
CLS
ECHO                                                                                Voltar ao Menu principal pressione [V]
ECHO.
ECHO.
ECHO.               
Echo.                             
Echo                                              Extra‡Æo de cadastros
set/p ex=NFE^>:

if /i %ex%==V Cls&GOTO comeco
cd
cd NFE
echo.
ECHO.
ECHO.
set/p EXTRACAD2=Local^>:
COPY %CHAVE%.txt %EXTRACAD2%
cd..
cd
cd LOG
echo [%USU%] - Extraiu o canhoto %ex% para %EXTRACAD2% em %date% %time:~0,5% >> log.txt
cd..
goto comeco
:edit
CLS
ECHO                                                                                Voltar ao Menu principal pressione [V]
ECHO.
ECHO.
ECHO.               
Echo.                             
Echo                                                  Troca de NFE
echo.
echo.
cd
cd NFE
echo.
set/p CHAVE1=NFE^>:
if %CHAVE1%==v CLS&goto comeco
if %CHAVE1%==V CLS&goto comeco
set/p para=NFE novo^>:
rename %CHAVE1%.TXT %para%.txt
echo.
echo.
pause
cd..
cd
cd LOG
echo [%USU%] - Alterou a NFE %CHAVE1% para %para% em %date% %time:~0,5% >> log.txt
cd..
cls
echo.
echo alterado de (%CHAVE1%) para (%para%)
echo.
pause
Cls&GOTO comeco
:protmod
cls
echo.
cd
cd LOG
mode 79,65
cls
echo.
type log.txt
echo.
pause
cd..
goto comeco
:avanc
goto eleva2
:ok89
color fc
echo.
echo.
echo.                    Vocˆ est  entrando em um  rea avan‡ada, pede-se cautela ao executar uma a‡Æo !
echo.
echo.
pause
color f0
cls
ECHO                                                                                Voltar ao Menu principal pressione [V]
ECHO.
ECHO.
ECHO.
ECHO  Avan‡ado
ECHO. --------
echo.
ECHO  1 - Redefinir o programa
ECHO  2 - Abrir banco de dados
ECHO  3 - Zerar registros
echo  4 - Reportar erro
echo  5 - Ver log de atividades
echo  6 - Criar DOC(Word)
echo. 7 - Mapear pasta
echo.
SET OP_MENUPRIN1=
SET /P OP_MENUPRIN1=">: "
IF "%OP_MENUPRIN1%" == "1" GOTO redefinir
IF "%OP_MENUPRIN1%" == "2" start NFE
IF "%OP_MENUPRIN1%" == "3" GOTO apagart
IF "%OP_MENUPRIN1%" == "4" GOTO erroreport
IF "%OP_MENUPRIN1%" == "5" GOTO protmod
IF "%OP_MENUPRIN1%" == "6" GOTO doc
IF "%OP_MENUPRIN1%" == "7" GOTO mapa
IF /i "%OP_MENUPRIN1%" == "v" GOTO comeco

:doc
cls
echo.
echo.
cd
cd DOC
echo.
set/p CHAVE1=NFE^>:
if %CHAVE1%==v CLS&goto comeco
if %CHAVE1%==V CLS&goto comeco
rename %CHAVE1%.TXT %CHAVE1%.doc
start %CHAVE1%.doc
echo.
cd..
cd
cd LOG
echo [%USU%] - Criou DOC %CHAVE1% em %date% %time:~0,5% >> log.txt
cd..
CLS&goto comeco
REM ---
CLS
GOTO :avanc
cls
:redefinir
ECHO                                                                                Voltar ao Menu principal pressione [V]
echo.
echo  Vocˆ est  preste a redefinir o programa para sua versão original, esse procedimento não ira apagar os dados ja salvos
echo.
echo. 1 - Sim
echo. 2 - NÆo
echo.
set/p reunidat1v=Deseja continuar ?^>:

if %reunidat1v%==1 goto vai2
if %reunidat1v%==2 goto comeco
if /i %reunidat1v%==v goto comeco

if not %reunidat1v%==1 goto redefinir
if not %reunidat1v%==2 goto redefinir
if /i not %reunidat1v%==v goto redefinir

:vai2
cls
attrib -H -S redefinicao.bat
start redefinicao.bat
exit
:apagart
cls
rd /s DOC
rd /s NFE
rd /s LOG
rd /s REV
echo.
pause
msg * Tudo apagado !
goto comeco
:erroreport
cls
cd %temp% & cls & echo.
cls
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo                                                Checando conexÆo . . .
ping www.google.com.br -n 2 > nul
if %errorlevel%==0 (goto:ON) else (goto:OFF)
:ON
cls & color f2 & echo.
cls
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo                                                Checando conexÆo . . .
echo.
echo                                              ConexÆo com internet: OK
ping www.google.com.br -n 2 > nul
goto okteste
:OFF
color f4
cls
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo                                                Checando conexÆo . . .
echo. & echo.
echo                                        ConexÆo com internet: Sem conexÆo
ping localhost -n 2 > nul
ping www.google.com.br -n 1 > nul
echo.
cls
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.          Ops ! Parece que vocˆ est  sem conexÆo com a internet, vocˆ s¢ pode enviar emails quando conectado.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
pause
goto comeco
cls
:okteste
color f0
cls
ECHO                                                                                Voltar ao Menu principal pressione [V]
echo.
Echo                                                    Reportar erro
Echo.
ECHO.
set /p user1="Assunto >"
if %user1%==v CLS&goto comeco
if %user1%==V CLS&goto comeco
echo.
set /p user="Digite a Mensagem >"
echo.
echo.
(
Echo Set objEmail = CreateObject("CDO.Message"^)
Echo Assunto = ""
Echo messagebody = ""
Echo Subjectline = "%user1%"
Echo Messagebody = ""
Echo With objEmail
Echo .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing"^) = 2
Echo .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver"^) = "mail.totalsa.ind.br"
Echo .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"^) = 1
Echo .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername"^) = "leonardo.alves@totalsa.ind.br"
Echo .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword"^) = ""
Echo .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport"^) = 587
Echo .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl"^) = true
Echo .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"^) = 60
Echo .Configuration.Fields.Update
Echo '.AddAttachment "C:\test.txt"
Echo 'objEmail.Textbody = "Server1 is no longer accessible over the network."
Echo 'objEmail.HTMLBody = "<font face=arial color=blue>Server1 is no longer accessible over the network.</font>
Echo 'objEmail.CreateMHTMLBody "http://www.google.com.hk/"
Echo 'objEmail.CreateMHTMLBody "file://c|/test.htm"
Echo End With
Echo '*** fim do SMTP remoto seção de configuração do servidor ***
Echo WScript.Echo " enviando e-mail..."
Echo With ObjEmail
Echo  .From = "leonardo.alves@totalsa.ind.br"
Echo  .To = "leonardo.alves@totalsa.ind.br"
Echo  .Subject = subjectline
Echo  .HTMLBody = "<p><b>Erro de sistema -  %user% "
Echo End With
Echo 'On Error Resume Next
Echo objEmail.Send
Echo WScript.Echo ""
Echo WScript.Echo " Email enviado com sucesso."
Echo Set objEmail = Nothing
)>"%tmp%\SendEmail.vbs"
CScript %tmp%\SendEmail.vbs //nologo
Del %tmp%\SendEmail.vbs
echo.
pause
CLS&goto comeco
:eleva2
CLS
echo.
echo.
:121
echo Digite a senha para continuar:
%tmp%\pass 123456
set passa=%errorlevel%
::%passa%==6 porque a senha tem 6 caracteres
if %passa%==6 goto ok89
echo.
echo.
echo.                                                Senha incorreta
color fc
goto 121
:eleva3
CLS
echo.
echo.
:121
echo Digite a senha para continuar:
%tmp%\pass 123456
set passa=%errorlevel%
::%passa%==6 porque a senha tem 6 caracteres
if %passa%==6 goto ok90
echo.
echo.
echo.                                                Senha incorreta
color fc
goto 121
:Passw
pushd "!temp!"
(
echo On Error Resume Next
echo Set ReBin = CreateObject^("Scripting.FileSystemObject"^).OpenTextFile^("Pass.exe", 2, True^)
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("4D5A40000100000002000000FFFF0000B8000000000000000A000000000000000E1FBA0E00B409CD21B8014CCD2157696E3332202E4558452E0D0A2440000000504500004C010200F2BEC45000160000F8010000E00007030B010238000A00000012000000020000BD6000000010000000200000000040000010000000020000040000000100000004000000000000000070000000020000C7AB000003000000000020000010000000001000001000000000000010000000000000000000000000600000C00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("00000000000000000000000000000000000000000000000050600000100000000000000000000000000000000000000000000000000000002E4D5052455353310050000000100000000A000000020000000000000000000000000000E00000E02E4D5052455353326C0300000060000000040000000C0000000000000000000000000000E00000E00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000076322E3139",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("050033090000550089E583EC18895DF8008B550831DB8975FC008B0231F68B003D91010000C077433D8D0C0020B7E51B000000700C414082C00031C08944082404E88C1630881F2040C756084CA74243FF11D0BBFF009088BDC808005DF889EC5DC20400213D938440D7DB43C91041BB36DB6807D053E0022875E882B0801BF68974A8B848830BCD34F40FBD2E15EA4CBB1D10895C505438604F8788CE3BC002F8D1B21EE845B948F101C3244523E94F24B0DE000990FF00015383EC248D5DF86E100000010480CE93800F22EC04A4725C844F060000B8004040008D55F480E600B1D80000020450781091484582600B0C709044E003E8BCC4100A2101886B00",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("58A3104AB058412014C501D20F858B8A30C8A00F4E0702247AB1D80168138B4B30890C24E860AC74803583FAC0741B328B1D4A320CB0D8A02451135089144A83CE89003E8078008181CE780430480E1F83CE87121910088B15571090350004A12910890424E8228C025B01C3E86C4690E8C04182CEF40B1000E22D8B334210461100977E16171023B0D1C87B520FF13382500CA0020500FF15FC50D100FC14E000D9486BE2A3C8E0F3038B200D14AA9058DEF51F6ED14867E211081EF51FD4D593CE9830F021F741700A80AB171083C00F04108C4E100C004E905804BF58042F81CE7C9010C04660037D000802750D8B450C8300C0048B0080382F7441082410",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("4027B09E5229A1051301C0BD0A60011016855EC60432B481CE6C114557100000C645FB01C745F4C02C42148845FB807DFB040D7502EB620E8050079031D8C70FE057D05851C4FF5F0D31E359EBF71260371A55013550C4FF600B00A053B45FC7D0581441FF0FC01600EBA68682003AD8472F29F4FF08809CB2EEB858449F3C8CF841970B12D313B14ED10864FB01B11845B0183008108C102008000004301298AF1372EA5D60F61510B33DCE717F3108A120FB13050885C97426DFC4FF810481381245D01844304A110385D275E9C9C39F721F050804A1A0191704F8FF74002985C089C374138944F61F43FF149D34B154A7645F0F003D510FC0352FB025B0D5",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("35BCD8400A033100C085C9EB0A408B1462851A410BF4EBBD93308D53BFBE09F2545267032DA136691D26611E25E6F200F93561EAFD21C1BFA6A170AA903CB0088044F01F9E685FA50B24641DE5530FB7C08323EC6487168D55A8F3086305891105FF15D48304BA1F81571083EC0C4B0007EB460100C94A780E807C2AA8044175F409CB1A90274F30B8C35377108AD0C59F903C9C4BB630A0AB4E1BE92307AAD105106902B8B008403A96C21F4780CBAD01BBE4A04C41C4045C2408EBD7C0F141DF7557565381ECCC9816B0D87007912880D0580640BFE5F5D5357C5C4482190400A1408CD0588780795CC4C911C745A0820C9158841B4A0403C72845A42A83AA",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("32BCA148A82AC2AA32B02A031CCA24AA22B41C431C0AC501890845C8A1540EC21C8A85E820D0A15C0E42FD700B52002601668945D8895A344F01D04F018721045B02854644CF090F853B6501EF003CB18F15FC351A8F020F84592A90C09F78BC8824B90F383030BF7A3C4400F125701C02703C84004E0104108A04940D703C80178B15449016318462010089431420A130DD1853188B1534841031C4110AE50389530820C74330C32A432C8B25153C34108A03253881220089433489F689D82140C8950B19C0242001C902044188842A4860A03492777E18925888A6016B211889856C145115915808674C113F1189857414711352688647113D21857C143114",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("03383A1444381487D858A81C9F2350C84F21F84F11FF75423157D245041E0D1AEC1D1A91513A00791980CEDE8A90389CD821D82ED13844300AE6200832A3800E51309488CF243900D889FA75B1EBB1E8620C9D0ADF845189E15B073D0000100000721081E922DF17870409002D1EB10E919E126C0189E089CC018B088B4004FFE0DF69108B45142104108B4510B00CC01089C000088B4508E50CF0B8D0C2010CD4B4C1820DB11EC9E10103B0FF25E49F00339090731200F15F52B2E1916A007CE091F47C0CC3C7F8AA7CCCC0C7F07C8CC1C72CAA3C4CC2C3283C0CC1C31CAB3C0CC2C3D8FDC0CC3C2C0410FD3CD96BC19381173CE7B3207C8A02E0DD43050090",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("A50B00C1121C4101700300B05424E55404C03423E342C6C606001044461644F7D6160400508497460725F70630563637076094E686484547657420E114D60650160430554657E5068016E646C656465604803756064797F6E6066094C64657260700106847116D73766372745D20035F6765746368580FC015006D61696E61726773803400F7F555E666970621F7E60633666D6F64406528305746F715064700F745970787036365807101005F696F62005F386F6E304308AC1226F6662047071046472510620660C6563787066006072097E6466706602607505606D016C6C6F606320680447369676E61406C55338B78040BFF500074358B50088B300300F0",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("2BF28BDE8B4810002BCB74238B500C0300F203FE2BC02BD20B00D0ACC1E207D0E87200F60BD00BD274080300DA290B3BF772E4E84604BE178055602E0E10F0100000641000C480350080A0005CF716BE0288D3045057B688C73380BF02006CB6784431803FC870FC833E440D155500E840EE34B0004CE7830E0608025669727475616C802505746563740050E840F474030245A546A0268077B588FD0F8D031000B0608807884728581050545054F03F8DB518E2DF2AB0103D03F8564520008BD8AC0AC0B000880846FF75F6244017CE13006247E064B59E101210D0EA646C000035D50682B12A03CC08845067BF0E718D4E4D045F81C7EE00FEFFFFB0E9AAB8",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("1E849204B01A96CE118560DCBF183B502246D48D61460100FF1F2F70EF845000A68A300006EB8E4000C95CC0EC0EF0FFA20E207061737320105B53654E47D0A500000000F22436A703120402340714206EC66F2070A0824500627704206573706100876F0A0008200800402ACE2DD5C2942474340430743523D35284D40220D332A5C4A4D47204408524D5D294E474048C058C703723F335870610265746064727D702E03397A65706D2D34304C2116F66288CF0550480F43585142455440490025032A75352A7A30062169626980420710165417286490102563277D21710E1E2F282006763630C0230F6E6669676F692A6308363F35209D05209D3829809E0",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("3206E0ADA42028618C28C002328700DD307329032920213D20300632FFFFEA00F0FF9A107550D234C0D0004CC1C4283CF0CFF02E00FFBFC00000000000000000FF25D850400090900000000000000000FF25CC50400090900000000000000000FF25D450400090900000000000000000FF25D050400090900000000000000000FF25C8504000909000000000000000005589E55DE97C02000090909090909090FFFFFFFF9019400000000000FFFFFFFF00000000143700004B45524E454C33322E646C6C0041646441746F6D41004578697450726F636573730046696E6441746F6D410047657441746F6D4E616D654100536574556E68616E646C6564457863",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("5060000000000000000000009C600000506000005C6000000000000000000000A96000005C60000000000000000000000000000000000000000000000000000000000000000000000000000000000000786000008B60000000000000B460000000000000000000000000000000000000000000000000000000004765744D6F64756C6548616E646C654100000047657450726F6341646472657373004B45524E454C33322E444C4C006D73766372742E646C6C0000005F67657463680060E80000000058059F0200008B3003F02BC08BFE66ADC1E00C8BC850AD2BC803F18BC85751498A44390688043175F68BD68BCFE85C0000005E5A2BC0890432B4102BD0",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("2BC93BCA73268BD9AC4124FE3CE875F24383C104AD0BC078063BC273E5EB0603C378DF03C22BC38946FCEBD6E8000000005F81C78CFFFFFFB0E9AAB89B020000ABE80000000058051C020000E90C020000558BEC83EC148A025633F646397508894DF088018975F8C645FF000F86E30100005357807DFF008A0C32740C8A443201C0E904C0E0040AC8468365F400884DFE0FB645FF8B7D082BF83BF70F83A001000084C90F8917010000807DFF008B1C327403C1EB0481E3FFFF0F0046817DF8810800008BFB7320D1EFF6C301741481E7FF07000003F081C7810000008075FF01EB4B83E77FEB4583E303C1EF0283EB0074374B74274B74154B753281E7FFFF",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("03008D74300181C741440000EBCF81E7FF3F000081C74104000046EB1181E7FF03000003F083C741EBB383E73F47807DFF0074090FB71C32C1EB04EB0C33DB668B1C3281E3FF0F00000FB645FF8075FF0103F08BC383E00F83F80F74058D5803EB384681FBFF0F00007408C1EB0483C312EB27807DFF00740D8B0432C1E80425FFFF0000EB040FB70432468D98110100004681FB10010100745F8B45F82BC785DB74428B7DF003C7895DEC8B5DF88A08FF45F840FF4DEC880C1F75EF8A4DFEEB24807DFF000FB61C32740D0FB6443201C1EB04C1E0040BD88B7DF88B45F0FF45F8881C3846FF45F4D0E1837DF408884DFE0F8C9AFEFFFFEB4933C03845FF7413",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("8A4432FCC645FF0025FC000000C1E00546EB0C668B4432FB25C00F0000D1E083E17F03C88D44090885C074168B0C328B5DF88B7DF08345F80483C60448890C1F75EA0FB645FF8B4D082BC83BF10F8221FEFFFF5F5B8B45F85EC9C20400E964B7FFFF9EACFFFF000000004D730200000003010000000000000000000000000000000000002E62737300000000100000000400000003010400000000000000000000000000000000002E66696C650000003C000000FEFF000067017478746D6F64652E630000000000000000002E74657874000000900300000100000003010000000000000000000000000000000000002E646174610000001000000002000000",x,2^)^)^) : Next
echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("",x,2^)^)^) : Next
echo ReBin.Close
)>"%tmp%\pass.vbs"
CScript "%tmp%\pass.vbs" //nologo
Del "%tmp%\pass.vbs" 2>&1
popd
Exit/b


:Calcular
set Calcular=
Set _Conta=%1
set _Conta=%_Conta:^=^^%
set _Conta=%_Conta:,=.%
set _Conta=%_Conta:"=%
Set _TmpCalc="%CD%\tmpcalc.txt"
echo C=%_Conta%>calcular.vbs
(
echo Set CF=CreateObject^("Scripting.FileSystemObject"^)
echo Set F=CF.CreateTextFile^(%_TmpCalc%, True^)
echo F.WriteLine^(C^)
echo F.Close
)>>calcular.vbs
wscript calcular.vbs
set/p Calcular=<%_TmpCalc%
set %~2=%Calcular%
del /q /s %_TmpCalc%>nul
del calcular.vbs>nul
goto:eof



:checa_digitado
Set num=0
Set Ti_po=0
Set Tes_ta=%~1
Set igual_=
Set T2=

:igual_
If not defined Tes_ta Goto Fim_Teste
Set T2=%Tes_ta:~0,1%
If %T2%==0 (Set num=1 &Goto Mos_tra)
Set/a T2=%T2%
If %T2%==0 ( Set Ti_po=1) Else (Set num=1)

:Mos_tra
Set Tes_ta=%Tes_ta:~1%
Goto igual_

:Fim_Teste
If %num%%Ti_po%==00 Set "%~2=00"
If %num%%Ti_po%==10 Set "%~2=numero"
If %num%%Ti_po%==01 Set "%~2=letras"
If %num%%Ti_po%==11 Set "%~2=let_num"
goto:eof

acho que faltava um goto:eof
fiz algumas modificações vê se concorda....
avatar
Boss-Head

Idade : 32

Voltar ao Topo Ir em baixo

Re: [Ajuda] Ajuda para contas

Mensagem por leo1991 em Seg Jan 18, 2016 12:56 pm

Funcionou perfeitamente, obrigado pela ajuda pessoal. Só tenho a agradecer, fiz aquilo tudo com scripts muito bem elaborado de vcs

leo1991

Idade : 26

Voltar ao Topo Ir em baixo

Re: [Ajuda] Ajuda para contas

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum