BOA tarde
alguem gera ?
poderia disponibilizar um txt com os registro da NFE CONSUMIDOR ?
cpaivasistemas@gmail.com
desde ja agradeço
Paiva
Moderador: Moderadores
/*
PGOV0030 - SPED PIS/COFINS
2011.09.30 - José Quintas
...
mTipoSped := "P"
mPerfil := "A"
@ 5, 5 SAY "Data Inicial......:" GET mDatIni
@ 6, 5 SAY "Data Final........:" GET mDatFim
@ 7, 5 SAY "Sped Fiscal ou Pis:" GET mTipoSped PICTURE "!A" VALID mTipoSped $ "FP"
@ 8, 5 SAY "Perfil............:" GET mPerfil PICTURE "!A" VALID mPerfil $ "ABC"
@ 10, 5 SAY "Temporariamente retirado bloco C110 (Pis/Cof) ref informações complementares"
...
IF mTipoSped == "P"
mLayout := "003" // 2.01A
mFileSped := "EXPORTA\SPPC" + SubStr( DToS( mDatFim ), 3, 4 ) + ".TXT"
ELSE
mLayOut := "006"
mFileSped := "EXPORTA\SPFI" + SubStr( DToS( mDatFim ), 3, 4 ) + ".TXT"
ENDIF
//------------------------------------------------------------------------------
* C100 - Notas Fiscais ao Consumidor Emitidas
procedure _reg_C100_NFCe
local cLinha
//-- Notas Fiscais Avulsas
USI('Vendas', 'Vendas') && Cabe‡aho
USI('Itens', 'Itens') && Itens
//------------------------------------------------------------------------
while Vendas->(!EOF())
if Vendas->DtNFC_Emi >= dtINI .and. Vendas->DtNFC_Emi <= dtFIM .and. !empty(Vendas->Status)
('AUTORIZADA' $ Vendas->Status .or. 'CANCELADA' $ Vendas->Status .or. 'INUTILIZAD' $ Vendas->Status)
cod_mod := '65'
ser := alltrim(Vendas->SerieNFCe)
ind_oper := '1' //-- 0 Entrada 1 Saida
vl_doc := NumericoSPED( Vendas->Tot_Ven )
vl_merc := NumericoSPED( Vendas->Tot_Ven )
chv_nfe := ALLTRIM(NFe_Aux_PegaChave(Vendas->Chave))
cod_part := '' //if( LEN(ALLTRIM(Vendas->CODCLI)) >6, 'C', 'F') + strzero(val(Vendas->CodCli),8)
num_doc := Vendas->NrNFCe
dt_doc := Dt2SPED(Vendas->DtNFC_Emi)
dt_e_s := Dt2SPED(Vendas->DtNFC_Emi)
ind_frt := '0'
ind_emit := '0' //-- Emissao Pr¢pria
cod_sit := '00'
ind_pgto := '0' //-- 0 Pgto a vista 1 Prazo 2 Outros
vl_desc := NumericoSPED( Vendas->DescFinal ) //--"0,00"
vl_frt := NumericoSPED( 0 )
vl_seg := NumericoSPED( 0 )
vl_out_da := NumericoSPED( 0 )
vl_abat_nt := NumericoSPED( 0 )
vl_bc_icms := ''//NumericoSPED( 0 )
vl_icms := ''//NumericoSPED( 0 )
vl_bc_icmsst := ''//NumericoSPED( 0 )
vl_icms_st := ''//NumericoSPED( 0 )
vl_ipi := ''//NumericoSPED( 0 )
vl_pis := ''//NumericoSPED( 0 )
vl_cofins := ''//NumericoSPED( 0 )
vl_pis_st := ''//NumericoSPED( 0 )
vl_cofins_st := ''//NumericoSPED( 0 )
cod_sit := PegaSitDoc(2)
if Cod_Sit == '05' .or. ; && Inutilizado informar apenas campos Cod_Sit, Ind_oper e CodMod
Cod_Sit == '02' && Cancelada //Cod_Sit == '03' .or. ; && Extemporaneo Cancelado // Cod_Sit == '04' && Denegada
cLinha = SEP + 'C100' + SEP + ;
ind_oper + SEP + ;
ind_emit + SEP + ;
'' + SEP + ;
cod_mod + SEP + ;
cod_sit + SEP + ;
ser + SEP + ;
num_doc + SEP + ;
if(Cod_Sit=='05', '', chv_nfe) + SEP + ;
'' + SEP + ;
'' + SEP + ;
'' + SEP + ;
'' + SEP + ;
'' + SEP + ;
'' + SEP + ;
'' + SEP + ;
'' + SEP + ;
'' + SEP + ;
'' + SEP + ;
'' + SEP + ;
'' + SEP + ;
'' + SEP + ;
'' + SEP + ;
'' + SEP + ;
'' + SEP + ;
'' + SEP + ;
'' + SEP + ;
'' + SEP + ;
'' + SEP
else
cLinha = SEP + "C100" + SEP + ;
ind_oper + SEP + ;
ind_emit + SEP + ;
cod_part + SEP + ;
cod_mod + SEP + ;
cod_sit + SEP + ;
ser + SEP + ;
num_doc + SEP + ;
chv_nfe + SEP + ;
dt_doc + SEP + ;
dt_e_s + SEP + ;
vl_doc + SEP + ;
ind_pgto + SEP + ;
vl_desc + SEP + ;
vl_abat_nt + SEP + ;
vl_merc + SEP + ;
ind_frt + SEP + ;
vl_frt + SEP + ;
vl_seg + SEP + ;
vl_out_da + SEP + ;
vl_bc_icms + SEP + ;
vl_icms + SEP + ;
vl_bc_icmsst + SEP + ;
vl_icms_st + SEP + ;
vl_ipi + SEP + ;
vl_pis + SEP + ;
vl_cofins + SEP + ;
vl_pis_st + SEP + ;
vl_cofins_st + SEP
endif
SPED_GravaLinha( cLinha, 'C100 - Cabe‡alho das NFs Modelos: 01, 1B, 04, 55 e 65')
++nBloco_C_tot_lin
++nReg_C100
if Cod_Sit == '05' .or. ; && Inutilizado informar apenas campos Cod_Sit, Ind_oper e CodMod
Cod_Sit == '02' && Cancelada //Cod_Sit == '03' .or. ; && Extemporaneo Cancelado // Cod_Sit == '04' && Denegada
else // S¢ gera se for pra situa‡Æo regular
_reg_C190( 3 ) //-- Consolidacao CST x CFOP x Aliquota
endif
endif
Vendas->(dbskip())
END
Vendas->(dbclosearea())
return
//------------------------------------------------------------------------------
* C190 - Notas Fiscais Avulsas
procedure _reg_C190_NFCe()
local cLinha
DBSELECTAREA('Itens->')
&& CRIA UM INDICE TEMPORARIO COM OS CAMPOS QUER QUERO FILTRAR E PARA O DOCUMENTO SELECIONADO
FERASE('iC190.CDX')
INDEX ON Itens->CFOP + STRZERO(VAL(Itens->CSTCSOSN),3) + STRZERO(Itens->AliqICMS,2) TAG _C190 TO(GERANOME()) ;
FOR Itens->Ticket == Vendas->Ticket .and. Itens->DataVdas == Vendas->DataVdas ADDITIVE MEMORY
DBGOTOP()
Itens->(Dbgotop()) && Varre nota no Itens->
while !EOF()
nVL_OPR := 0
nVL_BC_ICMS := 0
nVL_ICMS := 0
nVL_BC_ICMS_ST := 0
nVL_ICMS_ST := 0
nVL_RED_BC := 0
nVL_IPI := 0
&& PEGA OS CAMPOS NO PRIMEIRO REGISTRO
cCFOP := Itens->CFOP
cCST := STRZERO(val(Itens->CSTCSOSN),3)
cALIQ := STRZERO( Itens->AliqICMS,2 )
cLINHA := cCFOP + cCST + cALIQ
NOTA54 := Vendas->NrNFCe
DTEN54 := Vendas->DTNFC_Emi
DTEM54 := Vendas->DTNFC_Emi
CFOR54 := Vendas->Codcli
MODEE := '65'
SERIE := Vendas->SerieNFCe
TPRO54 := Vendas->Tot_Ven
TSUB54 := 0
BaseSub54 := 0
TIPI54 := 0
TFRE54 := 0
Seguro54 := 0
TotProdICM := TotBCICMS := TotIPIICMS := ;
TotProdSub := Item := VlTPSubNt :=0 && Valor dos produtos substituicao na nota
SubsRat54E := 0
while Itens->CFOP + STRZERO(VAL(Itens->CSTCSOSN),3) + STRZERO(Itens->AliqICMS,2) == (cLINHA)
nVL_OPR += Itens->Vl_Tot
nVL_BC_ICMS += Itens->BCICMS
nVL_ICMS += Itens->VlrICMS
if Aux_ProdEhSubst(Itens->CSTCSOSN)
nVlr_BCICMS_ST := Itens->BCICMST
nVlr_ICMS_ST := Itens->VlrICMST
else
nVlr_BCICMS_ST := 0
nVlr_ICMS_ST := 0
endif
nVL_BC_ICMS_ST += nVlr_BCICMS_ST //Itens->BaseSubst
nVL_ICMS_ST += nVlr_ICMS_ST
nVL_OPR += nVlr_ICMS_ST //--> Somo no Vl_Opr o ICMS ST
nVL_RED_BC += 0
nVL_IPI += 0
Itens->(DBSKIP())
if Itens->(EOF())
EXIT
endif
end
cLinha = SEP + 'C190' + SEP + ;
STRZERO(VAL(cCST),3) + SEP + ;
cCFOP + SEP + ;
cALIQ + SEP + ;
NumericoSPED(nVL_OPR) + SEP
if nCRT = 1
cLinha += NumericoSPED(0) + SEP + ;
NumericoSPED(0) + SEP + ;
NumericoSPED(0) + SEP + ;
NumericoSPED(0) + SEP + ;
NumericoSPED(0) + SEP + ;
NumericoSPED(0) + SEP + ;
'' + SEP
else
cLinha += NumericoSPED(nVL_BC_ICMS) + SEP + ;
NumericoSPED(nVL_ICMS) + SEP + ;
NumericoSPED(nVL_BC_ICMS_ST) + SEP + ;
NumericoSPED(nVL_ICMS_ST) + SEP + ;
NumericoSPED(nVL_RED_BC) + SEP + ;
NumericoSPED(nVL_IPI) + SEP + ;
'' + SEP
endif
SPED_GravaLinha( cLinha, 'C190 - Consolida‡„o CST x CFOP x Aliquota')
++nBloco_C_tot_lin
++nReg_C190
end
return
Paiva, mas se informar o CPF ou CNPJ na NF-e ou NFC-e, e se o CPF ou CNPJ estiver cadastrado na Nota Fiscal Goiana, irá aparecer automaticamente. Quando o documento é transmitido, se o usuário acessar seu cadastro já verá o documento na conta dele, e estará concorrendo aos prêmios.dbdc5554 escreveu:DUVIDA e se o consumidor for IDENTIFICADO ele vai aceitar informar o cliente ?
com essas nfe das UF tipo nfe Goiania que concorrem a premios rs
Retornar para Legislação Fiscal e Tributária
Usuários vendo este fórum: Nenhum usuário registrado online e 3 visitantes