Clique abaixo para nos ajudar
Conectar-se

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
13 usuários online :: 1 usuário cadastrado, Nenhum Invisível e 12 Visitantes :: 2 Motores de busca

drudru

[ 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 7069 usuários registrados
O último usuário registrado atende pelo nome de drudru

Os nossos membros postaram um total de 48 mensagens em 25 assuntos

Dirf

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

Resolvido Dirf

Mensagem por mauro victoria em 4/2/2012, 19:25

Boa noite estou com dificuldade de entender o layout da dirf , alguem tem um arquivo txt para que eu possa estudar comparando com o layout , a empresa tem um sistema de folha de pagamento e estou nessa missão de gera esse arquivo da dirf dos funcionários desde já agradeço.
Desculpe mais a exigencias sempre chegam para mim com prazo muito curto e tenho que da um jeito.
Até mais.



mauro victoria
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Dirf

Mensagem por alceu11 em 6/2/2012, 06:54

Sr. Walney

No topico vfp 26.A em vfpbrasil
coloquei a resposta sexta feira o sr. resolveu ou nao ?

Qto a dirf
o sr. tera ke fazer um arquivo anual, com os eventos principais
EVENTOS
TIPO SALARIO, FERIAS, 13 SALARIO, AV.PREVIO, PREVIDENCIA SOCIAL, irrf

Sendo O Arq.anual com base nos eventos mensal de janeiro a dez de 2011 da folha Pgt.

Seleciona o arquivo da folha,
e abre o arquivo anual
e da um append blank
e faz um replace, nome do funcionario , cpf e grava os eventos,acima mencionados

Depois e so somar total salarios , total de ferias, total de prev.social

E apos isto gerar um txt, simples demais, !!!

No site da receita, o sr.baixa o dirf, lanca manual as informacoes, e gera o txt.
avatar
alceu11
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Dirf

Mensagem por mauro victoria em 23/2/2012, 15:36

Consequi terminar o lay-out
o modelo do arquivo caso alguem precise

DIRF|2012|2011|N||1A4MA1R|
RESPO|09069946750|LEONARDO VIEIRA DE MELO|21|22154433||||
DECPJ|08965767000167|ELCY SERVICOS CONTABEIS LTDA|0|38700581704|N|N|N|N|N|N||
IDREC|0561|
BPFDEC|09069946750|LEONARDO VIEIRA DE MELO||
RTRT|50000|50000|50000|50000|50000|50000|50000|50000|50000|50000|50000|50000|50000|
RTPO|4000|4000|4000|4000|4000|4000|4000|4000|4000|4000|4000|4000|4000|
BPFDEC|38700581704|ELCY ANTONIO DE MELO||
RTRT|200000|200000|200000|200000|200000|200000|200000|200000|200000|200000|200000|200000||
RTPO|11000|11000|11000|11000|11000|11000|11000|11000|11000|11000|11000|11000||
RTIRF|5500|5500|5500|5500|5500|5500|5500|5500|5500|5500|5500|5500||
FIMDIRF|
|

mauro victoria
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Dirf

Mensagem por mauro victoria em 29/2/2012, 11:16

Resolvido

mauro victoria
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Dirf

Mensagem por alceu11 em 8/3/2012, 17:34

Mas o codigo para gerar o txt
Código:

CLOSE DATABASES all

SELECT 0
USE empresa ALIAS empresa
SELECT empresa

SELECT 0
USE acumulad ALIAS acumulad
SELECT acumulad
INDEX ON matricula TO matr

SELECT 0
USE funcion ALIAS funcion
SELECT funcion
INDEX ON matricula TO funcion
INDEX ON CPF TO CPF
SET ORDER TO 1
SELECT acumulad
SET RELATION TO matricula INTO funcion additive
GO TOP IN acumulad
SELECT FUNCION
SET ORDER TO CPF
GO TOP
IF EOF()
  WAIT WINDOW 'nao tem registros' TIMEOUT 1
  RETURN .f.
 ENDIF
  Set Console Off
Set Notify Off
Set Safety Off
Set Alternate To c:/dirf2011.txt
Set Alternate On
wvdep=0
wvir=0
wmatr=''
wmatr=funcion.matricula
wcgc=''
wcgc=STRTRAN(empresa.cgce,'-','')

? 'DIRF|2012|2011|N||1A4MA1R|'
? 'RESPO|'+'CPF RESPONSAVEL'+'|'+'NOME RESPONSAVEL'+'|'+'84'+'|'+'TEL. RESP'+'|||'+'EMAIL RESP.'+'|'
? 'DECPJ|'+STRTRAN(wcgc,'/','')+'|'+ALLTRIM(empresa.nome)+'|0|'+'CPF RESPONS. EMPRESA'+'|N|N|N|N|N|N||'
? 'IDREC|0561|'

DO WHILE !EOF('FUNCION')
? 'BPFDEC|'+ALLTRIM(STRTRAN(funcion.cpf,'-',''))+'|'+ALLTRIM(funcion.nome)+'||'
numero=RECNO('funcion')
SELECT acumulad
  SEEK wmatr
  IF FOUND()
*    WAIT WINDOW 'encontrei' TIMEOUT 1
    endif
? 'RTRT|'+IIF(Acumulad.rendir01 >0,STRzero((acumulad.rendir01*100),13)+'|','|') + ;
IIF(Acumulad.rendir02 >0,STRzero((acumulad.rendir02*100),13)+'|','|') + ;
IIF(Acumulad.rendir03 >0,STRzero((acumulad.rendir03*100),13)+'|','|') + ;
IIF(Acumulad.rendir04 >0,STRzero((acumulad.rendir04*100),13)+'|','|') + ;
IIF(Acumulad.rendir05 >0,STRzero((acumulad.rendir05*100),13)+'|','|') + ;
IIF(Acumulad.rendir06 >0,STRzero((acumulad.rendir06*100),13)+'|','|') + ;
IIF(Acumulad.rendir07 >0,STRzero((acumulad.rendir07*100),13)+'|','|') + ;
IIF(Acumulad.rendir08 >0,STRzero((acumulad.rendir08*100),13)+'|','|') + ;
IIF(Acumulad.rendir09 >0,STRzero((acumulad.rendir09*100),13)+'|','|') + ;
IIF(Acumulad.rendir10 >0,STRzero((acumulad.rendir10*100),13)+'|','|') + ;
IIF(Acumulad.rendir11 >0,STRzero((acumulad.rendir11*100),13)+'|','|') + ;
IIF(Acumulad.rendir12 >0,STRzero((acumulad.rendir12*100),13)+'|','|') + ;
IIF(Acumulad.rendir13sl >0,STRzero((acumulad.rendir13sl*100),13)+'|','|')


? 'RTPO|'+IIF(Acumulad.dsc_inss01 >0,STRzero((acumulad.dsc_inss01*100),13)+'|','|') + ;
IIF(Acumulad.dsc_inss02 >0,STRzero((acumulad.dsc_inss02*100),13)+'|','|') + ;
IIF(Acumulad.dsc_inss03 >0,STRzero((acumulad.dsc_inss03*100),13)+'|','|') + ;
IIF(Acumulad.dsc_inss04 >0,STRzero((acumulad.dsc_inss04*100),13)+'|','|') + ;
IIF(Acumulad.dsc_inss05 >0,STRzero((acumulad.dsc_inss05*100),13)+'|','|') + ;
IIF(Acumulad.dsc_inss06 >0,STRzero((acumulad.dsc_inss06*100),13)+'|','|') + ;
IIF(Acumulad.dsc_inss07 >0,STRzero((acumulad.dsc_inss07*100),13)+'|','|') + ;
IIF(Acumulad.dsc_inss08 >0,STRzero((acumulad.dsc_inss08*100),13)+'|','|') + ;
IIF(Acumulad.dsc_inss09 >0,STRzero((acumulad.dsc_inss09*100),13)+'|','|') + ;
IIF(Acumulad.dsc_inss10 >0,STRzero((acumulad.dsc_inss10*100),13)+'|','|') + ;
IIF(Acumulad.dsc_inss11 >0,STRzero((acumulad.dsc_inss11*100),13)+'|','|') + ;
IIF(Acumulad.dsc_inss12 >0,STRzero((acumulad.dsc_inss12*100),13)+'|','|') + ;
IIF(Acumulad.inss13sala >0,STRzero((acumulad.inss13sala*100),13)+'|','|')

wmatr=funcion.matricula
=mais1()
SELECT acumulad
IF wvdep>0
? 'RTDP|'+IIF(Acumulad.dedudepe01 >0,STRzero((acumulad.dedudepe01*100),13)+'|','|') + ;
IIF(Acumulad.dedudepe02 >0,STRzero((acumulad.dedudepe02*100),13)+'|','|') + ;
IIF(Acumulad.dedudepe03 >0,STRzero((acumulad.dedudepe03*100),13)+'|','|') + ;
IIF(Acumulad.dedudepe04 >0,STRzero((acumulad.dedudepe04*100),13)+'|','|') + ;
IIF(Acumulad.dedudepe05 >0,STRzero((acumulad.dedudepe05*100),13)+'|','|') + ;
IIF(Acumulad.dedudepe06 >0,STRzero((acumulad.dedudepe06*100),13)+'|','|') + ;
IIF(Acumulad.dedudepe07 >0,STRzero((acumulad.dedudepe07*100),13)+'|','|') + ;
IIF(Acumulad.dedudepe08 >0,STRzero((acumulad.dedudepe08*100),13)+'|','|') + ;
IIF(Acumulad.dedudepe09 >0,STRzero((acumulad.dedudepe09*100),13)+'|','|') + ;
IIF(Acumulad.dedudepe10 >0,STRzero((acumulad.dedudepe10*100),13)+'|','|') + ;
IIF(Acumulad.dedudepe11 >0,STRzero((acumulad.dedudepe11*100),13)+'|','|') + ;
IIF(Acumulad.dedudepe12 >0,STRzero((acumulad.dedudepe12*100),13)+'|','|') + ;
IIF(Acumulad.deddep13sl >0,STRzero((acumulad.deddep13sl*100),13)+'|','|')

ENDIF


IF wvir>0;

? 'RTIRF|'+IIF(Acumulad.ir_recol01 >0,STRzero((acumulad.ir_recol01*100),13)+'|','|') + ;
IIF(Acumulad.ir_recol02 >0,STRzero((acumulad.ir_recol02*100),13)+'|','|') + ;
IIF(Acumulad.ir_recol03 >0,STRzero((acumulad.ir_recol03*100),13)+'|','|') + ;
IIF(Acumulad.ir_recol04 >0,STRzero((acumulad.ir_recol04*100),13)+'|','|') + ;
IIF(Acumulad.ir_recol05 >0,STRzero((acumulad.ir_recol05*100),13)+'|','|') + ;
IIF(Acumulad.ir_recol06 >0,STRzero((acumulad.ir_recol06*100),13)+'|','|') + ;
IIF(Acumulad.ir_recol07 >0,STRzero((acumulad.ir_recol07*100),13)+'|','|') + ;
IIF(Acumulad.ir_recol08 >0,STRzero((acumulad.ir_recol08*100),13)+'|','|') + ;
IIF(Acumulad.ir_recol09 >0,STRzero((acumulad.ir_recol09*100),13)+'|','|') + ;
IIF(Acumulad.ir_recol10 >0,STRzero((acumulad.ir_recol10*100),13)+'|','|') + ;
IIF(Acumulad.ir_recol11 >0,STRzero((acumulad.ir_recol11*100),13)+'|','|') + ;
IIF(Acumulad.ir_recol12 >0,STRzero((acumulad.ir_recol12*100),13)+'|','|') + ;
IIF(Acumulad.ir_13salar >0,STRzero((acumulad.ir_13salar*100),13)+'|','|')


ENDIF

SELECT funcion
GO numero

IF !EOF()
 SKIP &&IN FUNCION
 wmatr=funcion.matricula

else

exit
endif

ENDDO
? 'IDREC|0588|'
? 'FIMDIRF|'

Set Alternate To
Set Alternate Off
Set Console On
Modify Command c:/dirf2011.txt



PROCEDURE mais1
SET ALTERNATE off

  SELECT * from acumulad WHERE TRIM(acumulad.matricula)=TRIM(wmatr) INTO CURSOR tempo
SELECT tempo

wvdep=0

IF _tally>0
 * browse

SUM  Acumulad.dedudepe01+Acumulad.dedudepe02+Acumulad.dedudepe03+Acumulad.dedudepe04+Acumulad.dedudepe05+Acumulad.dedudepe06+Acumulad.dedudepe07+Acumulad.dedudepe08+Acumulad.dedudepe09+Acumulad.dedudepe10+Acumulad.dedudepe11+Acumulad.dedudepe12 TO wvdep

ENDIF

wvir=0
IF _tally>0
 * browse

SUM  Acumulad.ir_recol01+Acumulad.ir_recol02+Acumulad.ir_recol03+Acumulad.ir_recol04+Acumulad.ir_recol05+Acumulad.ir_recol06+Acumulad.ir_recol07+Acumulad.ir_recol08+Acumulad.ir_recol09+Acumulad.ir_recol10+Acumulad.ir_recol11+Acumulad.ir_recol12 TO wvir

ENDIF


USE IN tempo
SELECT funcion
SET ALTERNATE on
endproc

function STRZERO(Var1, Var2, Var3)
Local WVar1
if (PCount() = 3)
WVar1 = Str(Var1, Var2, Var3)
endif
if (PCount() = 2)
WVar1 = Str(Var1, Var2)
endif
if (PCount() = 1)
WVar1 = Str(Var1)
endif
return Replicate("0", Len(WVar1) - Len(LTrim(WVar1))) + LTrim(WVar1)
**


avatar
alceu11
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