Clique abaixo para nos ajudar
Conectar-se

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
18 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 18 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
ListBox

23/5/2017, 10:37 por Rosangela Pires

Ola Amigos.

Para se movimentar na grid com as setas colocamos no Metodo AfterChange da grid …

Comentários: 0

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

Estatísticas
Temos 7081 usuários registrados
O último usuário registrado atende pelo nome de DENISON SANTOS DA SILVA

Os nossos membros postaram um total de 49 mensagens em 26 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