- leo1991
- Idade : 30
[Ajuda] Ajuda para contas
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?
@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
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?

@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
- gwy
- Idade : 27
Re: [Ajuda] Ajuda para contas
Sex Jan 08, 2016 7:44 pm
Use:
Exemplo:
Para realizar cálculos.
- Código:
SET /A expressão
Exemplo:
- Código:
set /a resultadoFinal=1+1
echo Resultado final é: %resultadoFinal%
:: Output: 2
Para realizar cálculos.
- leo1991
- Idade : 30
Re: [Ajuda] Ajuda para contas
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 

- gwy
- Idade : 27
Re: [Ajuda] Ajuda para contas
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.]
Abs.
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.
- leo1991
- Idade : 30
Re: [Ajuda] Ajuda para contas
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
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
- gwy
- Idade : 27
Re: [Ajuda] Ajuda para contas
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:
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.
No comando:
- Código:
call:calc "5,0" + "3,0"
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 : 27
Re: [Ajuda] Ajuda para contas
Sab Jan 09, 2016 10:30 am
Nn Leo, o teu código tem que ficar ali como no exemplo, assim:
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
- 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
- leo1991
- Idade : 30
Re: [Ajuda] Ajuda para contas
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.
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.
- gwy
- Idade : 27
Re: [Ajuda] Ajuda para contas
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.
Abs.
- leo1991
- Idade : 30
Re: [Ajuda] Ajuda para contas
Sab Jan 09, 2016 11:09 am
vamos fazer assim, na segunda t4e envio o arquivo todo, pq ele est4a la no serviço
- gwy
- Idade : 27
Re: [Ajuda] Ajuda para contas
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.
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.
- Boss-Head
- Idade : 36
Re: [Ajuda] Ajuda para contas
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. ---------------------------------------------------------------------------------------
- Boss-Head
- Idade : 36
Re: [Ajuda] Ajuda para contas
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
- Boss-Head
- Idade : 36
Re: [Ajuda] Ajuda para contas
Dom Jan 10, 2016 5:11 pm
veja que a função calcular depende de () para funcionar direito..
veja o exemplo abaixo..
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
- leo1991
- Idade : 30
Re: [Ajuda] Ajuda para contas
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
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 : 30
Re: [Ajuda] Ajuda para contas
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.
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
- Boss-Head
- Idade : 36
Re: [Ajuda] Ajuda para contas
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
VAMOS MODIFICANDO A MEDIDA QUE ENTENDERMOS O FUNCIONAMENTO...
QUAL FUNÇÃO ESTA DANDO ERRO ?
TEM COMO SETAR ELA ?
- leo1991
- Idade : 30
Re: [Ajuda] Ajuda para contas
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
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
- Boss-Head
- Idade : 36
Re: [Ajuda] Ajuda para contas
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....
- leo1991
- Idade : 30
Re: [Ajuda] Ajuda para contas
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
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum