Clique abaixo para nos ajudar
Conectar-se

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
24 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 24 Visitantes :: 1 Motor de busca

Nenhum

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
TRY BEGIN E FLOCK()

17/4/2017, 10:32 por AJC

Pessoal estou tendo alguns problemas de gravação em rede, estou usando
try begin, mas vi algo na …

Comentários: 0

Exportar Dados Campo Memo Tabela DBF

10/4/2017, 10:28 por fcampos

Olá bom dia.

Estou tentando exportar os dados de algumas tabelas em formato dbf pelo foxpro.
O …

Comentários: 2

Função EVL()

8/4/2017, 12:18 por Clebervfp

Bom dia a todos.
Vim compartilhar de uma Função do próprio VFP que me benefício muito.
Função …

Comentários: 0

COMO BLOQUEAR REGISTRO OU TABELA NO VISUAL FOXPRO PARA GRAVAÇÃO EM REDE

3/4/2017, 10:29 por AJC

Pessoal estou tendo um problema que acontece sempre busco na minha tabela de clientes o ultimo …

Comentários: 2

Controlar Scanner Twain

31/3/2017, 17:31 por Kleber R Bento

Estou usando o EZTW32.DLL para criar uma ferramenta que escaneia e gera PDF. Porém com esses …

Comentários: 0

Estatísticas
Temos 7063 usuários registrados
O último usuário registrado atende pelo nome de Bravera

Os nossos membros postaram um total de 47 mensagens em 24 assuntos

Lei sobre manter XMLs emitidas na NET

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

Em curso Lei sobre manter XMLs emitidas na NET

Mensagem por hugo em 14/6/2010, 18:52

Galera

O contador da empresa me solicitou o seguinte:

Que nossos clientes tenham a possibilidade de baixar a qualquer momento os XMLs emitidos por nos a favor do cnpj ou cpf deles da internet.

Dai venho aqui debater com voces qual a melhor forma de resolver isto!

O software terceirizado que tenho aqui deixa todos xmls numa pasta!

O nome dos arquivos sao na seguinte estrutura:
31100604700342000175550010000010671111406102-nfe.xml
31100604700342000256550010000432401111006108-ped-canc.xml

O backup é feito diariamente e a pasta esta sempre vazia para o proximo dia de trabalho.

Bom pensei num programa que que vai ler os xmls e criar um subdiretorio com o nome do cnpj ou cpf do destinatario, dai todas xmls emitidas para ele naquele dia vao ser guardadas num arquivo .rar (por exemplo) e com senha (uma ideia).

Este programa vai conectar num servidor ftp e fazer o up de todos arquivos .rar que foram gerados neste dia, (contemplando que por algum motivo posso rodar este programa e fazer dois dias), de qualquer forma os arquivos ficariam assim:

Código:
c:\
 |_xml
    |_01001001001000101
    |              |_ 2010_06_01_xmls_emit_teste_dest_teste2.rar
    |              |_ 2010_06_02_xmls_emit_teste_dest_teste2.rar
    |   
    |_02002002002000202
                  |_ 2010_06_01_xmls_emt_teste_dest_teste2.rar

Alem de que galera, ter tudo isto em FTP eh mais uma seguranca para a empresa!


abaixo o programinha em andamento

Código:
SET SCOREBOARD OFF
SET TALK OFF
SET SAFETY OFF
SET DELETED ON
SET ESCAPE OFF
SET STAT OFF
CLOSE ALL
CLEAR ALL
clear

dir="c:\xml"
arq="*-nfe.xml"
lista="lista.txt"
!dir /b &arq > &lista
USE xmls excl
ZAP
APPEND FROM &lista TYPE SDF

SELECT xmls
GO TOP

DO WHILE !EOF()
   arq='"'+ALLTRIM(linha1)+'"'
   XMLTOCURSOR(&arq,"relat",512)
   numero=LEFT(relat.dest,14)
   IF RIGHT(numero,1)$" abcdefghijklmnopqrstuvxwyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
      numero=LEFT(numero,11)
   ENDIF
   dire=dir+""+"senha.dbf"
   diret=dir+""+numero+""+"senha.dbf"
   IF !file(diret)
      !md &numero
      USE &dire shar IN 0
      senha=ALLTRIM(STR(ABS(INT(VAL(numero)/1353))))
      replace senha.nrsenha WITH senha
      SELECT senha
      use
      COPY file &dire TO &diret
   ENDIF
   ? numero
   ? senha
   SELECT xmls
   COPY FILE ALLTRIM(xmls.linha1) TO dir+""+numero+""+ALLTRIM(xmls.linha1)
   DELETE FILE ALLTRIM(xmls.linha1)
   SKIP
ENDDO

clear

CLOSE ALL

quem quiser malhar em cima comigo tamo ai!


AINDA NAO TIVE TEMPO DE CRIAR A PARTE DA COMPACTACAO

valeu!


Última edição por hugo em 15/6/2010, 16:53, editado 3 vez(es)

_________________
"A tristeza é a falta de alegria, mais sem ela eu não poderia entender a alegria do fato de que a felicidade existe!"
Helio Leites - [Você precisa estar registrado e conectado para ver este link.]
avatar
hugo
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Em curso Re: Lei sobre manter XMLs emitidas na NET

Mensagem por hugo em 14/6/2010, 23:27

UP MARCOS

resolvi a parte da senha

falta criar agora a parte da compactacao

vou usar

arj a -jm -g &senha allt(xmls.linha1) allt(xmls.linha1)*
*(obs: so que arj)

porem ficaria melhor se fosse zip, mais amigavel

pensando em usar um script do cobian, talvez winrar



a dificuldade esta na automatizacao de conectar num ftp
e fazer o up automatico!


hehehehe

_________________
"A tristeza é a falta de alegria, mais sem ela eu não poderia entender a alegria do fato de que a felicidade existe!"
Helio Leites - [Você precisa estar registrado e conectado para ver este link.]
avatar
hugo
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Em curso Re: Lei sobre manter XMLs emitidas na NET

Mensagem por Marcos Guedes em 15/6/2010, 08:26

Qual linguagem pretendes utilizar?
VFP?

Espera o jogo do Brasil acabar que agente voltar para isto!
Very Happy

É hoje!!!
lol! bounce

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Em curso Re: Lei sobre manter XMLs emitidas na NET

Mensagem por hugo em 15/6/2010, 08:35

vfp eh claro

hehe

vou atualizando aqui meu codigo a medida que for caminhando
e dai vemos o que conseguimos

vou providenciar um local de armazenamento e talz

_________________
"A tristeza é a falta de alegria, mais sem ela eu não poderia entender a alegria do fato de que a felicidade existe!"
Helio Leites - [Você precisa estar registrado e conectado para ver este link.]
avatar
hugo
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Em curso Re: Lei sobre manter XMLs emitidas na NET

Mensagem por hugo em 15/6/2010, 16:52

up na dissertacao inicial

_________________
"A tristeza é a falta de alegria, mais sem ela eu não poderia entender a alegria do fato de que a felicidade existe!"
Helio Leites - [Você precisa estar registrado e conectado para ver este link.]
avatar
hugo
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

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


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