[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? Very Happy

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

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

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

Sex Jan 08, 2016 7:44 pm

Use:

Código:: SET /A expressão

Exemplo:

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

Para realizar cálculos.

Sab Jan 09, 2016 1:01 am

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

Sab Jan 09, 2016 6:31 am

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

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

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

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

Código:: :: ============================= :: By: xPhip (guy) :: Date: 09/01/2015 :: Link: http://batch-satti.forumeiros.com/t3295-ajuda-ajuda-para-contas :: ============================= @echo off :: ============================== :: Configurações iniciais :: ============================== set return=null :: NAO MUDE AQUI set "t=%temp%\calc1024.vbs" :: Seta e nomeia o caminho call:file create :: Cria o arquivo :: Exemplos de uso abaixo :: call:calc 1 + 1 :: echo CALCULO: 1 + 1 = %return% :: call:calc "5,0" + "3,0" :: echo CALCULO: 5,0 + 3,0 = %return% :: call:calc "4,38" + "6,21" :: echo CALCULO: 4,38 + 6,21 = %return% :: ============================== :: Caso queira remover o VBS :: ============================== call:file delete :: ============================== :: Comando 'exit' tem que :: estar antes das funcoes :: ============================== exit /b 0 :: ============================== :: Função para chamada do vbs :: Uso: "FLOAT" operator "FLOAT" :: Ex.: "5,0" * "3" :: ============================== :calc for /f %%a in ('CSCRIPT "%t%" %1 %2 %3') do set return=%%a goto:eof :: ============================== :: Função para criação e remoção do VBS :: Uso: CREATE ou REMOVE :: Ex.: CREATE :: ============================== :file if /i "%1"=="create" ( echo.Set args=WScript.Arguments >%t% echo.a=CDbl^(args.Item^(0^)^) >>%t% echo.b=CDbl^(args.Item^(2^)^) >>%t% echo.select case args.Item^(1^) >>%t% echo. case "+" >>%t% echo. result = a + b >>%t% echo. case "-" >>%t% echo. result = a - b >>%t% echo. case "*" >>%t% echo. result = a * b >>%t% echo. case "/" >>%t% echo. result = a / b >>%t% echo.end select >>%t% echo.WScript.Echo result ^& WScript.Quit >>%t% ) else ( del /f /s %t% 2>nul >nul ) goto:eof

Abs.

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

Sab Jan 09, 2016 10:18 am

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

No comando:

Código:: call:calc "5,0" + "3,0"

Onde 5,0 e 3,0 são os float's.

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

Sab Jan 09, 2016 10:30 am

Nn Leo, o teu código tem que ficar ali como no exemplo, assim:

Código:: @echo off set return=null set "t=%temp%\calc1024.vbs" call:file create :: CODIGO AQUI DENTRO call:calc 1 + 1 echo Resultado: %return% :: CODIGO AQUI DENTRO pause call:file delete exit /b 0 :: Fim do script :calc for /f %%a in ('CSCRIPT "%t%" %1 %2 %3') do set return=%%a goto:eof :file if /i "%1"=="create" ( echo.Set args=WScript.Arguments >%t% echo.a=CDbl^(args.Item^(0^)^) >>%t% echo.b=CDbl^(args.Item^(2^)^) >>%t% echo.select case args.Item^(1^) >>%t% echo. case "+" >>%t% echo. result = a + b >>%t% echo. case "-" >>%t% echo. result = a - b >>%t% echo. case "*" >>%t% echo. result = a * b >>%t% echo. case "/" >>%t% echo. result = a / b >>%t% echo.end select >>%t% echo.WScript.Echo result ^& WScript.Quit >>%t% ) else ( del /f /s %t% 2>nul >nul ) goto:eof

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

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

pause

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

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

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

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.

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.

Sab Jan 09, 2016 11:09 am

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

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.

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. ---------------------------------------------------------------------------------------

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

Dom Jan 10, 2016 5:11 pm

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

Código:: @echo off call:calcula "123+7/4" "teste" echo %teste% call:calcula "(123+7)/4" "teste" echo %teste% pause :calcula echo WScript.Echo Eval(WScript.Arguments(0))>eval.vbs for /f %%n in ('cscript //nologo eval.vbs "%~1"') do ( set %~2=%%n ) goto:eof

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

Seg Jan 11, 2016 1:57 pm

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

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

Código:: @echo off break off set nome="%date:~-10%" attrib -H -S mapa.bat attrib -H -S showprint.vbs attrib -H -S default.wil md "%nome:/=-%" md DEV md DOC md NFE md LOG mode 115,20 setlocal enableextensions enabledelayedexpansion title Carregando.. ping 127.0.0.1 -n 1 -w 1000 > nul call:Passw cls set a=° :INI_CIO color f0 echo. set /a POR_CENTO+=1 if %POR_CENTO%==50 set BARRA_a= set BARRA_a=%BARRA_a%%a% cls echo. echo. echo. echo. echo. echo. echo. echo Carregando... %POR_CENTO%%% echo. echo %BARRA_a% echo. if %POR_CENTO%==50 goto INI_CIO if %POR_CENTO%==100 goto FIM_BARRA @ping localhost -n 1 >nul goto INI_CIO :FIM_BARRA mode 115,20 :volta1 color f0 cls cls title Cadastro Canhoto by:Leonardo Diaz echo. echo. echo. echo. echo. Echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ Echo ³ Sistema Total S.A© NFE Reconhecimento de Frete 1.0 ³ Echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ echo. echo. echo. Total S.A© echo. echo. Usuario local: %username% echo. Computador...: %computername% echo. echo. echo. echo. Set/p USU=Usuario^>: If /i %USU%==Higor goto 1 If /i %USU%==admin goto ADMSIM If /i not %USU%==Higor goto errolog If /i not %USU%==admin goto errolog goto volta goto volta1 : eleva CLS echo. echo. :12 echo Digite a senha para continuar: %tmp%\pass 123456 set passa=%errorlevel% ::%passa%==6 porque a senha tem 6 caracteres if %passa%==6 goto exc1 echo. echo. echo. Senha incorreta color fc goto 12 :errolog color fc cls echo. echo. echo. echo. echo. echo. echo. echo. echo. echo. Usu rio incorreto ou inexistente. echo. echo. echo. echo. echo. echo. echo. echo. echo. pause goto volta1 :1 %tmp%\pass 123456 set passa=%errorlevel% ::%passa%==6 porque a senha tem 6 caracteres if %passa%==6 goto :sai echo. echo. Senha incorreta color fc goto :1 :sai color f2 cls echo. echo. echo. echo. echo. echo. echo. echo. echo. echo. Acesso permitido echo. echo. echo. echo. echo. echo. echo. echo. echo. @ping localhost -n 3 >nul cd cd LOG echo %USU% fez login em %date% %time:~0,5% >> log.txt cd.. @ECHO OFF color f0 :ADMSIM :comeco delete showprint.vbs delete default.wil color f0 mode 120,30 title ....::::: Sistema Total S.A© de registros de logs de canhotos 1.0 :::::.... cls echo. Echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ Echo ³ Sistema Total S.A© NFE para reconhecimento de frete 1.0 ³ Echo ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ echo. echo. Echo Menu principal echo ÚÄÄÄÄÄÄÄÄÄÄÄÄÄ open echo. ³ echo. ³ Usuario local: %username% echo. ³ Computador...: %computername% Echo ³. 1 - Novo canhoto Operador.....: %usu% echo. ³ Unidade......: 140 Echo ³. 2 - Busca echo. ³ Echo ³. 3 - Excluir echo. ³ Echo ³. 4 - Edi‡Æo de canhoto echo. ³ Echo ³. 5 - Devolu‡Æo echo. ³ Echo ³. 7 - Troca de NFE echo. ³ Echo ³. 8 - Imprimir echo. ³ Echo ³. 9 - Mais+ Echo. ³ echo ÀÄÄÄÄÄÄÄ Ol %usu%, digite um n£mero de op‡Æo para come‡ar Echo. Set/p esc=Op‡Æo ^>: if %esc% LSS 0 ( echo &CLS goto comeco ) if %esc% GTR 24 ( echo &CLS goto comeco ) if %esc% EQU 1 CLS&goto add if %esc% EQU 2 CLS&goto busc if %esc% EQU 3 CLS&goto exc if %esc% EQU 4 CLS&goto EDITCAD if %esc% EQU 5 CLS&goto dev if %esc% EQU 6 CLS&goto EXCAD if %esc% EQU 7 CLS&goto edit if %esc% EQU 8 CLS&goto print1 if %esc% EQU 9 CLS&goto avanc if not %esc%==1 CLS&goto comeco if not %esc%==2 CLS&goto comeco if not %esc%==3 CLS&goto comeco if not %esc%==4 CLS&goto comeco if not %esc%==5 CLS&goto comeco if not %esc%==6 CLS&goto comeco if not %esc%==7 CLS&goto comeco if not %esc%==8 CLS&goto comeco if not %esc%==9 CLS&goto comeco CLS&goto COMECO :mapa attrib -H -S mapa.bat start mapa.bat attrib +H +S mapa.bat CLS&goto COMECO :print1 @echo off title Impressoras SETLOCAL ENABLEDELAYEDEXPANSION net use lpt1 >NUL 2>&1 if %errorlevel%==2 set LPT1=nenhuma if %errorlevel%==0 ( FOR /F "TOKENS=1-6 delims= " %%A IN ('net use lpt1 ' ) DO ( if "%%A"=="Nome" set LPT1=%%C ) ) set print= :menu net use lpt1 >NUL 2>&1 if %errorlevel%==2 set LPT1=nenhuma if %errorlevel%==0 ( FOR /F "TOKENS=1-6 delims= " %%A IN ('net use lpt1 ' ) DO ( if "%%A"=="Nome" set LPT1=%%C ) ) call :showprint cscript //nologo showprint.vbs > default.wil set /p print=<default.wil cls echo. IMPRESSORA LPT1 = %lpt1% if /I "%print%" NEQ "" ECHO. Default print %print% @echo off cls echo. echo. echo. echo. 1 Imprimir NFE echo 2 Imprimir DEV echo. 3 Exibir impressora padrÆo echo. echo. set opcao=z set /p opcao=Digite sua op‡Æo : if !opcao!==a set opcao=A if !opcao!==0 goto :EOF if !opcao!==1 ( echo. echo. Digite o nome do arquivo cd cd NFE set /p file=NFE^> notepad /p !file! cd. CLS&goto COMECO ) if !opcao!==2 ( echo. echo. Digite o nome do arquivo cd cd DEV set /p file=DEV^> notepad /p !file! cd. CLS&goto COMECO ) if !opcao!==3 ( for /f "tokens=* delims=" %%a in ('reg query "HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows" ^| find "Device" ') do ( set padrao=%%a ) set padrao=!padrao:Device=! set padrao=!padrao:REG_SZ=! set padrao=!padrao: =! set padrao=!padrao:,=! set padrao=!padrao:winspool=! set padrao=!padrao:Ne01:=! set padrao=!padrao:Ne02:=! set padrao=!padrao:Ne03:=! set padrao=!padrao:Ne04:=! set padrao=!padrao:Ne05:=! set padrao=!padrao:Ne06:=! set padrao=!padrao:Ne07:=! set padrao=!padrao:Ne08:=! set padrao=!padrao:Ne09:=! echo. Default Print: !padrao! pause CLS&goto COMECO ) :showprint ( echo.Set WshShell = WScript.CreateObject^("WScript.Shell"^) echo.strPrn = WshShell.RegRead^("HKCU\Printers\DeviceOld"^) echo.arrPrn = Split^( strPrn, ",", -1, vbTextCompare ^) echo.strDescr = arrPrn^(0^) echo.WScript.Echo strDescr )> showprint.vbs exit/b goto comeco :add : voltaocorr CLS ECHO Voltar ao Menu principal pressione [V] ECHO. ECHO. ECHO. Echo. Echo Novo cadastro ou registro ECHO. ECHO. ECHO. ECHO. echo ---- Informa‡äes comerciais echo. set/p placa=Placa ^>: if %placa%==v CLS&goto COMECO if %placa%==V CLS&goto COMECO set/p carro=carro ^>: set/p empresa=Transportadora ^>: set/p motorista=Motorista ^>: set/p cpf=CPF ^>: set/p Contato=Tel Contato ^>: set/p hentrada=Horario de entrada ^>: set/p entregas=Entregas ^>: set/p descricao=Descricao da carga ^>: set/p volume=Volume ^>: SET tara=0 SET bruto=0 SET carga=0 SET liquido=0 SET Pmorto=0 SET Vmorto=0 SET frete=0 SET /P "tara=Tara >:" SET /P "bruto=Bruto >:" SET /P "capacidade=Capacidade >:" SET /P "frete=Frete >:" Call :Calcular "%bruto%-%tara%" "Liquido" Call :Calcular "%capacidade%-%Liquido%" "morto" Call :Calcular "%morto%*%frete%" "perdido" goto:cont :Calcular set Calcular= Set _Conta=%1 set _Conta=%_Conta:^=^^% set _Conta=%_Conta:,=.% set _Conta=%_Conta:"=% Set _TmpCalc="%CD%\tmpcalc.txt" echo C=%_Conta%>calcular.vbs ( echo Set CF=CreateObject^("Scripting.FileSystemObject"^) echo Set F=CF.CreateTextFile^(%_TmpCalc%, True^) echo F.WriteLine^(C^) echo F.Close )>>calcular.vbs wscript calcular.vbs set/p Calcular=<%_TmpCalc% set %~2=%Calcular% del /q /s %_TmpCalc%>nul del calcular.vbs>nul :cont set/p chave=NF-e ^>: set/p nfe2=NF-e Programada ^>: set/p seq=NFE sequencial ^>: If not exist %chave%.txt CLS&goto adi msg * NF-e cadastrada ! Imposs¡vel sobrescrever CLS&goto comeco :adi @echo off break off ( Echo.============================================================================== Echo.---------------------Total S.A© NFE Conhecimento de Frete--------------------- Echo.============================================================================== echo. echo. DOCUMENTO PARA CONHECIMENTO DE FRETE SEM VALOR FISCAL echo. Echo. Detalhes do Frete NF-e: %chave% echo. echo.Cliente......: Total S.A© - Registro sintegra:[12.184.079/0004-80] echo Empresa......: %empresa% echo Carro........: %carro% echo Placa........: %placa% echo Motorista....: %motorista% CPF:%cpf% echo Contato......: %contato% echo Entrada......: %hentrada% Hora echo Saida........: %time:~0,5% Hora echo.Data.........: %date% echo Entrega......: %entregas% echo NF-e.........: %chave% - www.nfe.fazenda.gov.br echo NF-e Prog....: %nfe2% - Programada ECHO.Sequencial...: %seq% echo. echo. Detalhes quantitativos carro: %placa% echo. echo.Tara.........: %tara% Kg echo.Peso bruto...: %bruto% Kg echo.Peso liquido.: %Liquido% Kg echo.Capacidade...: %capacidade% Kg echo.Peso morto...: %morto% Kg echo.Valor perdido: %perdido% R$ echo Descricao....: %descricao% echo Volume.......: %volume% echo. echo. Detalhes de registro echo. echo.Operador.....: %usu% echo Usuario local: %username% echo Computador...: %computername% echo.Data.........: %date% echo.Hora.........: %time:~0,5% echo.Total S.A© Unidade Taipas-SP [140] echo. echo. A NF-e %chave% pode ser consultado no site www.nfe.fazenda.gov.br echo. echo. DOCUMENTO SEM VALOR FISCAL echo. echo. echo. Eu %motorista% CPF: %cpf% echo reconheco e afirmo ter conferido os detalhes acima descriminados echo. echo. echo. echo. ____________________- %motorista% echo. echo. echo. echo. echo. ____________________- Higor de Souza Silva echo. echo. echo. echo. echo. www.totalsa.ind.br Echo.============================================================================== echo.Total S.A© - Av.Elisio Teixeira Leite, 7452 - CEP:02810-000 Fone: 11 2924-2330 )>%CHAVE%.txt copy %CHAVE%.txt NFE copy %CHAVE%.txt DOC copy %CHAVE%.txt "%nome:/=-%" cd cd LOG echo [%USU%] - Canhoto criado %nfe% em %date% %time:~0,5% >> log.txt cd.. cls color f2 cls echo. echo. echo. echo. echo. echo. echo. echo. echo. echo. Cadastro realizado com sucesso. echo. echo. echo. echo. echo. echo. echo. echo. cd. del %CHAVE%.txt @ping localhost -n 3 >nul endlocal break off CLS&Goto comeco :dev : voltaocorr CLS ECHO Voltar ao Menu principal pressione [V] ECHO. ECHO. ECHO. Echo. Echo Novo cadastro ou registro ECHO. ECHO. ECHO. ECHO. echo ---- Informa‡äes comerciais echo. set/p placa=Placa ^>: if %placa%==v CLS&goto COMECO if %placa%==V CLS&goto COMECO set/p carro=carro ^>: set/p empresa=Transportadora ^>: set/p motorista=Motorista ^>: set/p cpf=CPF ^>: set/p Contato=Tel Contato ^>: set/p hentrada=Horario de entrada ^>: set/p entregas=Entregas ^>: set/p descricao=Descricao da carga ^>: set/p volume=Volume ^>: set/p tara=Tara ^>: set/a operacao=%tara% set/p bruto=Bruto ^>: set/a operacao1=%bruto% set/p capacidade=Capacidade ^>: set/a operacao2=%capacidade% set/p frete=Frete ^>: set/a operacao3=%frete% set/a liquido=%bruto%-%tara% set/a pesom=%capacidade%-%liquido% set/a vperdido=%pesom%*%frete% set/p chave=NF-e ^>: If not exist %chave%.txt CLS&goto adi2 msg * NF-e cadastrada ! Imposs¡vel sobrescrever CLS&goto comeco :adi2 @echo off break off ( Echo.============================================================================== Echo.--------------------------Total S.A© devolucao de frete----------------------- Echo.============================================================================== echo. echo. DOCUMENTO PARA CONHECIMENTO DE FRETE SEM VALOR FISCAL echo. Echo. Detalhes do Frete NF-e: %chave% echo. echo.Cliente......: Total S.A© - Registro sintegra:[12.184.079/0004-80] echo Empresa......: %empresa% echo Carro........: %carro% echo Placa........: %placa% echo Motorista....: %motorista% CPF:%cpf% echo Contato......: %contato% echo Entrada......: %hentrada% Hora echo Saida........: %time:~0,5% Hora echo.Data.........: %date% echo Entrega......: %entregas% echo Devolucao....: %chave% - www.nfe.fazenda.gov.br echo. echo. Detalhes quantitativos carro: %placa% echo. echo.Tara.........: %tara% Kg echo.Peso bruto...: %bruto% Kg echo.Peso liquido.: %liquido% Kg echo.Capacidade...: %capacidade% Kg echo.Peso morto...: %pesom% Kg echo.Valor perdido: %vperdido% R$ echo Descricao....: %descricao% echo Volume.......: %volume% echo. echo. Detalhes de registro echo. echo.Operador.....: %usu% echo Usuario local: %username% echo Computador...: %computername% echo.Data.........: %date% echo.Hora.........: %time:~0,5% echo.Total S.A© Unidade Taipas-SP [140] echo. echo. A NF-e %chave% pode ser consultado no site www.nfe.fazenda.gov.br echo. echo. DOCUMENTO SEM VALOR FISCAL echo. echo. echo. #DOCUMENTO SEM VALOR FISCAL# echo. echo. echo. A Total S.A reconhece ter recebido em devolucao a NF-e %chave% echo os valores e quantidades acima descriminados e julga ser echo. veridica as informacoes descritas nesse documento echo. echo. echo. echo. echo. ____________________- Higor de Souza Silva echo. echo. echo. echo. echo. www.totalsa.ind.br Echo.============================================================================== echo.Total S.A© - Av.Elisio Teixeira Leite, 7452 - CEP:02810-000 Fone: 11 2924-2330 )>%CHAVE%.txt copy %CHAVE%.txt DEV cd cd LOG echo [%USU%] - Devolucao criada %nfe% em %date% %time:~0,5% >> log.txt cd.. cls color f2 cls echo. echo. echo. echo. echo. echo. echo. echo. echo. echo. Cadastro realizado com sucesso. echo. echo. echo. echo. echo. echo. echo. echo. cd. del %CHAVE%.txt @ping localhost -n 3 >nul endlocal break off CLS&Goto comeco :exc goto eleva :exc1 color f0 CLS ECHO Voltar ao Menu principal pressione [V] ECHO. ECHO. ECHO. Echo. Echo ExclusÆo de cadastros ECHO. ECHO. echo. cd cd NFE echo. dir /a /B h *.txt echo. set/p busc5u=NFE^>: echo. del /s %busc5u%.txt echo. pause cd.. cd cd LOG echo [%USU%] - Deletou o canhoto %busc5u% em %date% %time:~0,5% >> log.txt cd.. CLS&Goto comeco :EDITCAD CLS ECHO Voltar ao Menu principal pressione [V] ECHO. ECHO. ECHO. Echo. Echo Edi‡Æo de cadastros set/p busc5f=NFE^>: cd cd NFE start %busc5f%.txt cd.. cd cd LOG echo [%USU%] - Editou o canhoto %busc5f% em %date% %time:~0,5% >> log.txt cd.. goto comeco :busc CLS ECHO Voltar ao Menu principal pressione [V] ECHO. ECHO. ECHO. Echo. Echo Motores de busca ECHO. echo. Selecione uma op‡Æo para buscar echo. echo. 1 - Buscar por NFE echo. 2 - Buscar por DEV echo. 3 - Buscar por data echo. 4 - Listar NFE echo. 5 - Listar DEV echo. set/p busc5=Op‡Æo^>: if %busc5%==1 goto o1 if %busc5%==3 goto o2 if %busc5%==4 goto o4 if %busc5%==5 goto o3 if %busc5%==2 goto o5 if %busc5%==v goto comeco if %busc5%==V goto comeco if not %busc5%==1 goto busc if not %busc5%==2 goto busc if not %busc5%==3 goto busc if not %busc5%==5 goto busc if not %busc5%==v goto busc if not %busc5%==V goto busc :o3 cls echo. cd cd DEV echo. dir /a /B h *.txt echo. set/p dir1=DEV^>: mode 79,65 cls echo. type %dir1%.txt echo. pause cd.. Cls&GOTO comeco :o1 echo. set/p busc5=Digite o NFE^>: cd cd NFE mode 79,65 cls echo. type %busc5%.txt pause cd.. Cls&GOTO comeco :o2 echo. set/p busc5=Entre com a data^>: cls cd cd %busc5% echo. dir /a /B h *.txt echo. set/p dir1=NFE^>: mode 79,65 cls echo. type %dir1%.txt echo. pause cd.. Cls&GOTO comeco :o4 cls echo. cd cd NFE echo. dir /a /B h *.txt echo. set/p dir1=NFE^>: mode 79,65 cls echo. type %dir1%.txt echo. pause cd.. Cls&GOTO comeco :05 echo. set/p busc5=DEV^>: cd cd DEV mode 79,65 cls echo. type %busc5%.txt pause cd.. Cls&GOTO comeco :EXCAD CLS ECHO Voltar ao Menu principal pressione [V] ECHO. ECHO. ECHO. Echo. Echo Extra‡Æo de cadastros set/p ex=NFE^>: if %ex%==v Cls&GOTO comeco if %ex%==V Cls&GOTO comeco cd cd NFE echo. ECHO. ECHO. set/p EXTRACAD2=Local^>: COPY %CHAVE%.txt %EXTRACAD2% cd.. cd cd LOG echo [%USU%] - Extraiu o canhoto %ex% para %EXTRACAD2% em %date% %time:~0,5% >> log.txt cd.. goto comeco :edit CLS ECHO Voltar ao Menu principal pressione [V] ECHO. ECHO. ECHO. Echo. Echo Troca de NFE echo. echo. cd cd NFE echo. set/p CHAVE1=NFE^>: if %CHAVE1%==v CLS&goto comeco if %CHAVE1%==V CLS&goto comeco set/p para=NFE novo^>: rename %CHAVE1%.TXT %para%.txt echo. echo. pause cd.. cd cd LOG echo [%USU%] - Alterou a NFE %CHAVE1% para %para% em %date% %time:~0,5% >> log.txt cd.. cls echo. echo alterado de (%CHAVE1%) para (%para%) echo. pause Cls&GOTO comeco :protmod cls echo. cd cd LOG mode 79,65 cls echo. type log.txt echo. pause cd.. goto comeco :avanc goto eleva2 :ok89 color fc echo. echo. echo. Vocˆ est entrando em um rea avan‡ada, pede-se cautela ao executar uma a‡Æo ! echo. echo. pause color f0 cls ECHO Voltar ao Menu principal pressione [V] ECHO. ECHO. ECHO. ECHO Avan‡ado ECHO. -------- echo. ECHO 1 - Redefinir o programa ECHO 2 - Abrir banco de dados ECHO 3 - Zerar registros echo 4 - Reportar erro echo 5 - Ver log de atividades echo 6 - Criar DOC(Word) echo. 7 - Mapear pasta echo. SET OP_MENUPRIN1= SET /P OP_MENUPRIN1=">: " IF "%OP_MENUPRIN1%" == "1" GOTO redefinir IF "%OP_MENUPRIN1%" == "2" start NFE IF "%OP_MENUPRIN1%" == "3" GOTO apagart IF "%OP_MENUPRIN1%" == "4" GOTO erroreport IF "%OP_MENUPRIN1%" == "5" GOTO protmod IF "%OP_MENUPRIN1%" == "6" GOTO doc IF "%OP_MENUPRIN1%" == "7" GOTO mapa IF "%OP_MENUPRIN1%" == "v" GOTO comeco IF "%OP_MENUPRIN1%" == "V" GOTO comeco :doc cls echo. echo. cd cd DOC echo. set/p CHAVE1=NFE^>: if %CHAVE1%==v CLS&goto comeco if %CHAVE1%==V CLS&goto comeco rename %CHAVE1%.TXT %CHAVE1%.doc start %CHAVE1%.doc echo. cd.. cd cd LOG echo [%USU%] - Criou DOC %CHAVE1% em %date% %time:~0,5% >> log.txt cd.. CLS&goto comeco REM --- CLS GOTO :avanc cls :redefinir ECHO Voltar ao Menu principal pressione [V] echo. echo Vocˆ est preste a redefinir o programa para sua versão original, esse procedimento não ira apagar os dados ja salvos echo. echo. 1 - Sim echo. 2 - NÆo echo. set/p reunidat1v=Deseja continuar ?^>: if %reunidat1v%==1 goto vai2 if %reunidat1v%==2 goto comeco if %reunidat1v%==v goto comeco if %reunidat1v%==V goto comeco if not %reunidat1v%==1 goto redefinir if not %reunidat1v%==2 goto redefinir if not %reunidat1v%==v goto redefinir if not %reunidat1v%==V goto redefinir :vai2 cls attrib -H -S redefinicao.bat start redefinicao.bat exit :apagart cls rd /s DOC rd /s NFE rd /s LOG rd /s REV echo. pause msg * Tudo apagado ! goto comeco :erroreport cls cd %temp% & cls & echo. cls echo. echo. echo. echo. echo. echo. echo. echo. echo. echo. echo. echo. echo. echo. echo. echo. echo. echo. echo. echo Checando conexÆo . . . ping www.google.com.br -n 2 > nul if %errorlevel%==0 (goto:ON) else (goto:OFF) :ON cls & color f2 & echo. cls echo. echo. echo. echo. echo. echo. echo. echo. echo. echo. echo. echo. echo. echo. echo. echo. echo. echo. echo. echo Checando conexÆo . . . echo. echo ConexÆo com internet: OK ping www.google.com.br -n 2 > nul goto okteste :OFF color f4 cls echo. echo. echo. echo. echo. echo. echo. echo. echo. echo. echo. echo. echo. echo. echo. echo. echo. echo. echo. echo Checando conexÆo . . . echo. & echo. echo ConexÆo com internet: Sem conexÆo ping localhost -n 2 > nul ping www.google.com.br -n 1 > nul echo. cls echo. echo. echo. echo. echo. echo. echo. echo. echo. echo. echo. echo. echo. echo. echo. echo. echo. echo. echo. echo. Ops ! Parece que vocˆ est sem conexÆo com a internet, vocˆ s¢ pode enviar emails quando conectado. echo. echo. echo. echo. echo. echo. echo. echo. echo. echo. echo. echo. echo. echo. echo. echo. echo. pause goto comeco cls :okteste color f0 cls ECHO Voltar ao Menu principal pressione [V] echo. Echo Reportar erro Echo. ECHO. set /p user1="Assunto >" if %user1%==v CLS&goto comeco if %user1%==V CLS&goto comeco echo. set /p user="Digite a Mensagem >" echo. echo. ( Echo Set objEmail = CreateObject("CDO.Message"^) Echo Assunto = "" Echo messagebody = "" Echo Subjectline = "%user1%" Echo Messagebody = "" Echo With objEmail Echo .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing"^) = 2 Echo .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver"^) = "mail.totalsa.ind.br" Echo .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"^) = 1 Echo .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername"^) = "leonardo.alves@totalsa.ind.br" Echo .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword"^) = "" Echo .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport"^) = 587 Echo .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl"^) = true Echo .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"^) = 60 Echo .Configuration.Fields.Update Echo '.AddAttachment "C:\test.txt" Echo 'objEmail.Textbody = "Server1 is no longer accessible over the network." Echo 'objEmail.HTMLBody = "Server1 is no longer accessible over the network. 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 = "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

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 = "Server1 is no longer accessible over the network. 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 = "Erro de sistema - %user% " Echo End With Echo 'On Error Resume Next Echo objEmail.Send Echo WScript.Echo "" Echo WScript.Echo " Email enviado com sucesso." Echo Set objEmail = Nothing )>"%tmp%\SendEmail.vbs" CScript %tmp%\SendEmail.vbs //nologo Del %tmp%\SendEmail.vbs echo. pause CLS&goto comeco :eleva2 CLS echo. echo. :121 echo Digite a senha para continuar: %tmp%\pass 123456 set passa=%errorlevel% ::%passa%==6 porque a senha tem 6 caracteres if %passa%==6 goto ok89 echo. echo. echo. Senha incorreta color fc goto 121 :eleva3 CLS echo. echo. :121 echo Digite a senha para continuar: %tmp%\pass 123456 set passa=%errorlevel% ::%passa%==6 porque a senha tem 6 caracteres if %passa%==6 goto ok90 echo. echo. echo. Senha incorreta color fc goto 121 :Passw pushd "!temp!" ( echo On Error Resume Next echo Set ReBin = CreateObject^("Scripting.FileSystemObject"^).OpenTextFile^("Pass.exe", 2, True^) echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("4D5A40000100000002000000FFFF0000B8000000000000000A000000000000000E1FBA0E00B409CD21B8014CCD2157696E3332202E4558452E0D0A2440000000504500004C010200F2BEC45000160000F8010000E00007030B010238000A00000012000000020000BD6000000010000000200000000040000010000000020000040000000100000004000000000000000070000000020000C7AB000003000000000020000010000000001000001000000000000010000000000000000000000000600000C00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000",x,2^)^)^) : Next echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("00000000000000000000000000000000000000000000000050600000100000000000000000000000000000000000000000000000000000002E4D5052455353310050000000100000000A000000020000000000000000000000000000E00000E02E4D5052455353326C0300000060000000040000000C0000000000000000000000000000E00000E00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000076322E3139",x,2^)^)^) : Next echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("050033090000550089E583EC18895DF8008B550831DB8975FC008B0231F68B003D91010000C077433D8D0C0020B7E51B000000700C414082C00031C08944082404E88C1630881F2040C756084CA74243FF11D0BBFF009088BDC808005DF889EC5DC20400213D938440D7DB43C91041BB36DB6807D053E0022875E882B0801BF68974A8B848830BCD34F40FBD2E15EA4CBB1D10895C505438604F8788CE3BC002F8D1B21EE845B948F101C3244523E94F24B0DE000990FF00015383EC248D5DF86E100000010480CE93800F22EC04A4725C844F060000B8004040008D55F480E600B1D80000020450781091484582600B0C709044E003E8BCC4100A2101886B00",x,2^)^)^) : Next echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("58A3104AB058412014C501D20F858B8A30C8A00F4E0702247AB1D80168138B4B30890C24E860AC74803583FAC0741B328B1D4A320CB0D8A02451135089144A83CE89003E8078008181CE780430480E1F83CE87121910088B15571090350004A12910890424E8228C025B01C3E86C4690E8C04182CEF40B1000E22D8B334210461100977E16171023B0D1C87B520FF13382500CA0020500FF15FC50D100FC14E000D9486BE2A3C8E0F3038B200D14AA9058DEF51F6ED14867E211081EF51FD4D593CE9830F021F741700A80AB171083C00F04108C4E100C004E905804BF58042F81CE7C9010C04660037D000802750D8B450C8300C0048B0080382F7441082410",x,2^)^)^) : Next echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("4027B09E5229A1051301C0BD0A60011016855EC60432B481CE6C114557100000C645FB01C745F4C02C42148845FB807DFB040D7502EB620E8050079031D8C70FE057D05851C4FF5F0D31E359EBF71260371A55013550C4FF600B00A053B45FC7D0581441FF0FC01600EBA68682003AD8472F29F4FF08809CB2EEB858449F3C8CF841970B12D313B14ED10864FB01B11845B0183008108C102008000004301298AF1372EA5D60F61510B33DCE717F3108A120FB13050885C97426DFC4FF810481381245D01844304A110385D275E9C9C39F721F050804A1A0191704F8FF74002985C089C374138944F61F43FF149D34B154A7645F0F003D510FC0352FB025B0D5",x,2^)^)^) : Next echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("35BCD8400A033100C085C9EB0A408B1462851A410BF4EBBD93308D53BFBE09F2545267032DA136691D26611E25E6F200F93561EAFD21C1BFA6A170AA903CB0088044F01F9E685FA50B24641DE5530FB7C08323EC6487168D55A8F3086305891105FF15D48304BA1F81571083EC0C4B0007EB460100C94A780E807C2AA8044175F409CB1A90274F30B8C35377108AD0C59F903C9C4BB630A0AB4E1BE92307AAD105106902B8B008403A96C21F4780CBAD01BBE4A04C41C4045C2408EBD7C0F141DF7557565381ECCC9816B0D87007912880D0580640BFE5F5D5357C5C4482190400A1408CD0588780795CC4C911C745A0820C9158841B4A0403C72845A42A83AA",x,2^)^)^) : Next echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("32BCA148A82AC2AA32B02A031CCA24AA22B41C431C0AC501890845C8A1540EC21C8A85E820D0A15C0E42FD700B52002601668945D8895A344F01D04F018721045B02854644CF090F853B6501EF003CB18F15FC351A8F020F84592A90C09F78BC8824B90F383030BF7A3C4400F125701C02703C84004E0104108A04940D703C80178B15449016318462010089431420A130DD1853188B1534841031C4110AE50389530820C74330C32A432C8B25153C34108A03253881220089433489F689D82140C8950B19C0242001C902044188842A4860A03492777E18925888A6016B211889856C145115915808674C113F1189857414711352688647113D21857C143114",x,2^)^)^) : Next echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("03383A1444381487D858A81C9F2350C84F21F84F11FF75423157D245041E0D1AEC1D1A91513A00791980CEDE8A90389CD821D82ED13844300AE6200832A3800E51309488CF243900D889FA75B1EBB1E8620C9D0ADF845189E15B073D0000100000721081E922DF17870409002D1EB10E919E126C0189E089CC018B088B4004FFE0DF69108B45142104108B4510B00CC01089C000088B4508E50CF0B8D0C2010CD4B4C1820DB11EC9E10103B0FF25E49F00339090731200F15F52B2E1916A007CE091F47C0CC3C7F8AA7CCCC0C7F07C8CC1C72CAA3C4CC2C3283C0CC1C31CAB3C0CC2C3D8FDC0CC3C2C0410FD3CD96BC19381173CE7B3207C8A02E0DD43050090",x,2^)^)^) : Next echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("A50B00C1121C4101700300B05424E55404C03423E342C6C606001044461644F7D6160400508497460725F70630563637076094E686484547657420E114D60650160430554657E5068016E646C656465604803756064797F6E6066094C64657260700106847116D73766372745D20035F6765746368580FC015006D61696E61726773803400F7F555E666970621F7E60633666D6F64406528305746F715064700F745970787036365807101005F696F62005F386F6E304308AC1226F6662047071046472510620660C6563787066006072097E6466706602607505606D016C6C6F606320680447369676E61406C55338B78040BFF500074358B50088B300300F0",x,2^)^)^) : Next echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("2BF28BDE8B4810002BCB74238B500C0300F203FE2BC02BD20B00D0ACC1E207D0E87200F60BD00BD274080300DA290B3BF772E4E84604BE178055602E0E10F0100000641000C480350080A0005CF716BE0288D3045057B688C73380BF02006CB6784431803FC870FC833E440D155500E840EE34B0004CE7830E0608025669727475616C802505746563740050E840F474030245A546A0268077B588FD0F8D031000B0608807884728581050545054F03F8DB518E2DF2AB0103D03F8564520008BD8AC0AC0B000880846FF75F6244017CE13006247E064B59E101210D0EA646C000035D50682B12A03CC08845067BF0E718D4E4D045F81C7EE00FEFFFFB0E9AAB8",x,2^)^)^) : Next echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("1E849204B01A96CE118560DCBF183B502246D48D61460100FF1F2F70EF845000A68A300006EB8E4000C95CC0EC0EF0FFA20E207061737320105B53654E47D0A500000000F22436A703120402340714206EC66F2070A0824500627704206573706100876F0A0008200800402ACE2DD5C2942474340430743523D35284D40220D332A5C4A4D47204408524D5D294E474048C058C703723F335870610265746064727D702E03397A65706D2D34304C2116F66288CF0550480F43585142455440490025032A75352A7A30062169626980420710165417286490102563277D21710E1E2F282006763630C0230F6E6669676F692A6308363F35209D05209D3829809E0",x,2^)^)^) : Next echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("3206E0ADA42028618C28C002328700DD307329032920213D20300632FFFFEA00F0FF9A107550D234C0D0004CC1C4283CF0CFF02E00FFBFC00000000000000000FF25D850400090900000000000000000FF25CC50400090900000000000000000FF25D450400090900000000000000000FF25D050400090900000000000000000FF25C8504000909000000000000000005589E55DE97C02000090909090909090FFFFFFFF9019400000000000FFFFFFFF00000000143700004B45524E454C33322E646C6C0041646441746F6D41004578697450726F636573730046696E6441746F6D410047657441746F6D4E616D654100536574556E68616E646C6564457863",x,2^)^)^) : Next echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("5060000000000000000000009C600000506000005C6000000000000000000000A96000005C60000000000000000000000000000000000000000000000000000000000000000000000000000000000000786000008B60000000000000B460000000000000000000000000000000000000000000000000000000004765744D6F64756C6548616E646C654100000047657450726F6341646472657373004B45524E454C33322E444C4C006D73766372742E646C6C0000005F67657463680060E80000000058059F0200008B3003F02BC08BFE66ADC1E00C8BC850AD2BC803F18BC85751498A44390688043175F68BD68BCFE85C0000005E5A2BC0890432B4102BD0",x,2^)^)^) : Next echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("2BC93BCA73268BD9AC4124FE3CE875F24383C104AD0BC078063BC273E5EB0603C378DF03C22BC38946FCEBD6E8000000005F81C78CFFFFFFB0E9AAB89B020000ABE80000000058051C020000E90C020000558BEC83EC148A025633F646397508894DF088018975F8C645FF000F86E30100005357807DFF008A0C32740C8A443201C0E904C0E0040AC8468365F400884DFE0FB645FF8B7D082BF83BF70F83A001000084C90F8917010000807DFF008B1C327403C1EB0481E3FFFF0F0046817DF8810800008BFB7320D1EFF6C301741481E7FF07000003F081C7810000008075FF01EB4B83E77FEB4583E303C1EF0283EB0074374B74274B74154B753281E7FFFF",x,2^)^)^) : Next echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("03008D74300181C741440000EBCF81E7FF3F000081C74104000046EB1181E7FF03000003F083C741EBB383E73F47807DFF0074090FB71C32C1EB04EB0C33DB668B1C3281E3FF0F00000FB645FF8075FF0103F08BC383E00F83F80F74058D5803EB384681FBFF0F00007408C1EB0483C312EB27807DFF00740D8B0432C1E80425FFFF0000EB040FB70432468D98110100004681FB10010100745F8B45F82BC785DB74428B7DF003C7895DEC8B5DF88A08FF45F840FF4DEC880C1F75EF8A4DFEEB24807DFF000FB61C32740D0FB6443201C1EB04C1E0040BD88B7DF88B45F0FF45F8881C3846FF45F4D0E1837DF408884DFE0F8C9AFEFFFFEB4933C03845FF7413",x,2^)^)^) : Next echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("8A4432FCC645FF0025FC000000C1E00546EB0C668B4432FB25C00F0000D1E083E17F03C88D44090885C074168B0C328B5DF88B7DF08345F80483C60448890C1F75EA0FB645FF8B4D082BC83BF10F8221FEFFFF5F5B8B45F85EC9C20400E964B7FFFF9EACFFFF000000004D730200000003010000000000000000000000000000000000002E62737300000000100000000400000003010400000000000000000000000000000000002E66696C650000003C000000FEFF000067017478746D6F64652E630000000000000000002E74657874000000900300000100000003010000000000000000000000000000000000002E646174610000001000000002000000",x,2^)^)^) : Next echo For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("",x,2^)^)^) : Next echo ReBin.Close )>"%tmp%\pass.vbs" CScript "%tmp%\pass.vbs" //nologo Del "%tmp%\pass.vbs" 2>&1 popd Exit/b

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

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

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 = "Server1 is no longer accessible over the network. 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 = "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....

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

[Ajuda] Ajuda para contas

[Ajuda] Ajuda para contas

Re: [Ajuda] Ajuda para contas

Re: [Ajuda] Ajuda para contas

Re: [Ajuda] Ajuda para contas

Re: [Ajuda] Ajuda para contas

Re: [Ajuda] Ajuda para contas

Re: [Ajuda] Ajuda para contas

Re: [Ajuda] Ajuda para contas

Re: [Ajuda] Ajuda para contas

Re: [Ajuda] Ajuda para contas

Re: [Ajuda] Ajuda para contas

Re: [Ajuda] Ajuda para contas

Re: [Ajuda] Ajuda para contas

Re: [Ajuda] Ajuda para contas

Re: [Ajuda] Ajuda para contas

Re: [Ajuda] Ajuda para contas

Re: [Ajuda] Ajuda para contas

Re: [Ajuda] Ajuda para contas

Re: [Ajuda] Ajuda para contas

Re: [Ajuda] Ajuda para contas

Re: [Ajuda] Ajuda para contas