cc-e modelo

roberio · July 5, 2012

Kapiaba onde encontro o modelo da CCE que vc postou, to procurando aqui no forum e nao acho.

obrigado

roberio · July 5, 2012

Kapiaba onde encontro o modelo da CCE que vc postou, to procurando aqui no forum e nao acho.

obrigado

kapiaba · July 5, 2012

http://www.fivewin.com.br/exibedicas.asp?id=1099

JoÃ£o Santos - SÃ£o Paulo.

joao@pleno.com.br

Fone: (11) 3106-2832 / 5150-7341 - TIM

https://www.facebook.com/kapiaba

FWH 2.7 - xHARBOUR WorkShop.Exe

kapiaba · July 5, 2012

Modifique estas linhas:

wDATA := ALLTRIM(STR(YEAR( DATE() ) ) ) +"-"+ ;

ALLTRIM(STR(MONTH( DATE() ) ) ) +"-"+ ;

ALLTRIM(STR(DAY( DATE() ) ) ) +"T"+ TIME()+[-02:00]

id=code>id=code>

Abs,

JoÃ£o Santos - SÃ£o Paulo.

joao@pleno.com.br

Fone: (11) 3106-2832 / 5150-7341 - TIM

https://www.facebook.com/kapiaba

FWH 2.7 - xHARBOUR WorkShop.Exe

roberio · July 5, 2012

eu queria o modelo da CC-e para pode fazer o comprovente, mas a unidanfe faz isso, eu nao sabia

ex CC-e:

Static Function CCEComprovante(oLbxPefa)

Local oDlg, oFont, nCopias:=1, oCopias, nEvento:=1, oEvento, lOk:=.f.

DEFINE FONT oFont NAME 'ARIAL' SIZE 0,-12

DEFINE DIALOG oDlg FROM 4, 4 TO 11, 35 TITLE "Imprimir CC-e"

@ 001, 006 GROUP TO 030, 118 LABEL "NÂº Evento CC-e" PIXEL OF oDlg

@ 012, 013 SAY "NÂº Evento:" PIXEL OF oDlg FONT oFont

@ 012, 055 GET oEvento VAR nEvento PICTURE "9" PIXEL OF oDlg COLOR CLR_GET1,CLR_GET2 SIZE 08,08 FONT oFont;

SPINNER min 1 max 20 ON UP Iif(nEvento<20, (nEvento++, oEvento:Refresh()), nEvento) ON DOWN Iif(nEvento>1, (nEvento--, oEvento:Refresh()), nEvento)

@ 035, 006 BUTTON oBtn Prompt "&Imprimir" PIXEL OF oDlg SIZE 40, 10 ACTION ( lok := .t., oDlg:End() )

oDlg:lHelpIcon := .f.

ACTIVATE DIALOG oDlg CENTERED

If lOk

MYRUN( oApp:cDir_001+"UniDANFe\unidanfe.exe a="+oApp:cDir_002+"remessa\protocolos\"+Alltrim(Nota->Cha_Nota)+"-CCe"+Alltrim(Str(nEvento))+".xml nfe="+oApp:cDir_002+"remessa\protocolos\"+Alltrim(Nota->Cha_Nota)+"-nfe.xml ediÃ§Ã£o=Free imprimir=1 visualizar=1 logotipo="+cFot_Emp ) //+" copias="+Alltrim(Str(nCopias))

Endif

oLbxPefa:SetFocus()

oLbxPefa:Refresh()

Return Nil

ex Danfe:

MYRUN( oApp:cDir_001+"UniDANFe\unidanfe.exe arquivo="+oApp:cDir_002+"remessa\protocolos\"+Alltrim(Nota->Cha_Nota)+"-nfe.xml ediÃ§Ã£o=Free imprimir=1 visualizar=1 logotipo="+cFot_Emp+" copias=1" )

id=code>id=code>

download unidanfe

http://www.unimake.com.br/download_gerencia.php?id=f7177163c833dff4b38fc8d2872f1ec6

como jah uso o unidanfe ficou ainda melhor.

Editado por - roberio on 05/07/2012 20:25:50

kapiaba · July 6, 2012

RobÃ©rio, este programa Expira?

Precisa de LicenÃ§a, se eu quero somente imprimir a CARTA DE CORREÃ‡ÃƒO??

abs,

JoÃ£o Santos - SÃ£o Paulo.

joao@pleno.com.br

Fone: (11) 3106-2832 / 5150-7341 - TIM

https://www.facebook.com/kapiaba

FWH 2.7 - xHARBOUR WorkShop.Exe

roberio · July 6, 2012

kapiaba eh gratis

eu utilizo com a classe do gilmer nfe eh muito simples de usar

imprime danfe e cce e algo +q nao lembro

eh soh copiar a pasta unidanfe para a pasta de sua aplicacao e usar winexec para executar passando os arquivos xml

link para baixar o unidanfe sem instalar(pasta)

http://depositfiles.com/files/v7zz9r2wb

Editado por - roberio on 06/07/2012 11:39:40

kapiaba · July 6, 2012

Belezma, entendi, obrigadu!!!

JoÃ£o Santos - SÃ£o Paulo.

joao@pleno.com.br

Fone: (11) 3106-2832 / 5150-7341 - TIM

https://www.facebook.com/kapiaba

FWH 2.7 - xHARBOUR WorkShop.Exe

kapiaba · July 17, 2012

RobÃ©rio, VAR nEvento Ã© o NÃºmero da CC-e??

Obg. Abs

JoÃ£o Santos - SÃ£o Paulo.

joao@pleno.com.br

Fone: (11) 3106-2832 / 5150-7341 - TIM

https://www.facebook.com/kapiaba

FWH 2.7 - xHARBOUR WorkShop.Exe

vagner · July 17, 2012

citaÃ§Ã£o:
RobÃ©rio, VAR nEvento Ã© o NÃºmero da CC-e??

Obg. Abs

JoÃ£o Santos - SÃ£o Paulo.

joao@pleno.com.br

Fone: (11) 3106-2832 / 5150-7341 - TIM

https://www.facebook.com/kapiaba

FWH 2.7 - xHARBOUR WorkShop.Exe

id=quote>id=quote>

Oi,

NÃ£o o nEvento Ã© o numero do Evento, ou seja a quantidade de Cce que vc mandou, cada vez que manda um precisa acrescentar no evendo, sÃ£o 20 eventos de CCe para cada NFe

Vagner Wirts

"Ele nÃ£o sabendo que era impossÃvel, foi lÃ¡ e fez"

kapiaba · July 17, 2012

PICTURE "9"

Se eu posso mandar atÃ© 20 CC-eÂ´s, deveria ser:

PICTURE "99"

Dai a dÃºvida.

Eu jÃ¡ tenho todas as cartas guardadas em um .dbf, estou tentando entender a lÃ³gica dele para por enquanto imprimir usando o UNIDANFE.EXE

Abs,

JoÃ£o Santos - SÃ£o Paulo.

joao@pleno.com.br

Fone: (11) 3106-2832 / 5150-7341 - TIM

https://www.facebook.com/kapiaba

FWH 2.7 - xHARBOUR WorkShop.Exe

roberio · July 17, 2012

Kapiaba

isto mesmo picture = "99", digitei errado

FWH1205 / FWPPC1002 / xHarbour / BCC582 / RDD CDX

qiinfo · July 17, 2012

OlÃ¡ JoÃ£o,

O que Ã© "[-02:00]" na hora passada ?

Obrigado,

Rossine.

Rossine

Harbour, Harbour, Harbour -> 3 vezes Harbour

kapiaba · July 17, 2012

citaÃ§Ã£o:
OlÃ¡ JoÃ£o,

O que Ã© "[-02:00]" na hora passada ?

Obrigado,

Rossine.

Rossine

Harbour, Harbour, Harbour -> 3 vezes Harbour

id=quote>id=quote>

PRIVATE dDATA

// Isto esta incorreto:

//dDATA := STRZERO(YEAR(DATE()),4)+"-"+STRZERO(MONTH(DATE()),2)+"-"+STRZERO(DAY(DATE()),2)+"T"+TIME()

// Sao Paulo: 2011-10-26T13:36:31-02:00

//->Brasil tem Horario de Verao, entao nao e: - UTC -03:00(Brasilia) Incorreto

//->No relogio do Windows: UTC -03:00(Brasilia) - UTC -02:00(Brasilia) Correto

dDATA := ALLTRIM(STR(YEAR( DATE() ) ) ) +"-"+ ;

ALLTRIM(STR(MONTH( DATE() ) ) ) +"-"+ ;

ALLTRIM(STR(DAY( DATE() ) ) ) +"T"+ TIME()+[-02:00]

? dDATA

id=code>id=code>

Para NÃ£o dar erro de HORA quando a SEFAZ checa a hora dela e a hora de Brasilia, quem me passou isto foi um Analista de Sistemas e o Gilmer Confirmou que a LÃ³gica estÃ¡ correta.

Funciona perfeito e nÃ£o se precisa atrasar o relÃ³gio, sÃ³ nÃ£o sei se quando no horÃ¡rio de verÃ£o isto vai funcionar.

Mas ai Ã© sÃ³ criar um GET e permitir que o usuÃ¡rio volte a -03:00, eu acho... vai saber.... kkkkkkkkkkkkkk

JoÃ£o Santos - SÃ£o Paulo.

joao@pleno.com.br

Fone: (11) 3106-2832 / 5150-7341 - TIM

https://www.facebook.com/kapiaba

FWH 2.7 - xHARBOUR WorkShop.Exe

Editado por - kapiaba on 17/07/2012 17:20:22

kapiaba · July 18, 2012

Pessoas, na ImpressÃ£o da Carta de CorreÃ§Ã£o, o LOGO da empresa Ã© obrigatÃ³rio ou nÃ£o??

Obg. Abs.

Apanhei, mas jÃ¡ estou conseguindo imprimir, depois posto outra soluÃ§Ã£o diferente da do RegÃ©rio.

JoÃ£o Santos - SÃ£o Paulo.

joao@pleno.com.br

Fone: (11) 3106-2832 / 5150-7341 - TIM

https://www.facebook.com/kapiaba

FWH 2.7 - xHARBOUR WorkShop.Exe

AnaCatacombs · July 18, 2012

Kapi, atÃ© onde eu sei, nÃ£o existe "obrigatoriedade" de campos na impressÃ£o de CC-E, pois a SEFAZ ainda nÃ£o definiu nenhum layout.

Eu fiz um modelo utilizando FASTREPORT e coloquei o LOGO. Optei por nÃ£o fugir muito do padrÃ£o do DANFE.

jfaguiar · July 18, 2012

OlÃ¡ Amigos.

Na minha CC-e continua dando o erro 5206.

Estou com a dll 2.01 instalada e jÃ¡ adicionei + [-02:00], jÃ¡ removi e nada.

NOTA: A NF-e que estou tentando enviar a CC-e Ã© de hoje e o

fuso horario do computador Ã© GMT -03:00 BrasÃlia. Teste tambÃ©m TIME()+ [-03:00] e necas.

Outro sim: comentei essa linha:

// oNfeUtil:CfgEnviaEmail(wEMAILCLI,wPORTA,wSMTP,.f.,.t.,wUSUARIO,wSENHA)

AlguÃ©m sabe como tratar esse maledito desse erro?

Grato

JoÃ£o

Editado por - jfaguiar on 18/07/2012 16:25:04

kapiaba · July 18, 2012

RogÃ©rio e amigos ajudem ai:

http://www.4shared.com/photo/_Lyn_fgi/CARTACCE.html

Nos meus XML da Carta de CorreÃ§Ã£o nÃ£o estÃ£o aparecendo os campos:

NOME/RAZAO SOCIAL

ENDERECO/BAIRRO/DISTRITO/CEP

MUNICIPIO - UP / FONE/FAX / INSC. ESTADUAL

O que pode estar errado?

Abs. obg.

JoÃ£o Santos - SÃ£o Paulo.

joao@pleno.com.br

Fone: (11) 3106-2832 / 5150-7341 - TIM

https://www.facebook.com/kapiaba

FWH 2.7 - xHARBOUR WorkShop.Exe

kapiaba · July 18, 2012

citaÃ§Ã£o:
OlÃ¡ Amigos.

Na minha CC-e continua dando o erro 5206.

Estou com a dll 2.01 instalada e jÃ¡ adicionei + [-02:00], jÃ¡ removi e nada.

NOTA: A NF-e que estou tentando enviar a CC-e Ã© de hoje e o

fuso horario do computador Ã© GMT -03:00 BrasÃlia.

AlguÃ©m sabe como tratar esse maledito desse erro?

Grato

JoÃ£o

Editado por - jfaguiar on 18/07/2012 16:17:42

id=quote>id=quote>

Mostre uma tela do ERRO e como vocÃª estÃ¡ enviando a CC-e.

Ã‰ com a classe do Gulmer??

JoÃ£o Santos - SÃ£o Paulo.

joao@pleno.com.br

Fone: (11) 3106-2832 / 5150-7341 - TIM

https://www.facebook.com/kapiaba

FWH 2.7 - xHARBOUR WorkShop.Exe

kapiaba · July 18, 2012

JAguiar:

TIME()+ [-02:00] // tentou assim?

Mostre que parametros voce usa no ENVIACCE()

Pegou o modelo q postei em dicas + dicas?

http://www.fivewin.com.br/exibedicas.asp?id=1099

JoÃ£o Santos - SÃ£o Paulo.

joao@pleno.com.br

Fone: (11) 3106-2832 / 5150-7341 - TIM

https://www.facebook.com/kapiaba

FWH 2.7 - xHARBOUR WorkShop.Exe

Editado por - kapiaba on 18/07/2012 16:34:22

jfaguiar · July 18, 2012

OlÃ¡ Kapiaba.

citaÃ§Ã£o:
Mostre uma tela do ERRO e como vocÃª estÃ¡ enviando a CC-e.

Ã‰ com a classe do Gulmer??

id=quote>id=quote>

O erro:

5206: Ocorreu um erro de validaÃ§Ã£o do XML

[WS2.xml]: [ReferÃªncia de objeto nÃ£o definida para um instÃ¢ncia de um objeto]

TVONFEUTIL2G:ENVIACCE

http://www.4shared.com/photo/GU0HpilS/errocce.html

Segue o cÃ³digo

nHORAMENOS := 0

IF QuickDialog("Carta de correÃ§Ã£o eletrÃ´nica",;

{{.T.,01,"Horas a Diminuir",,"nHORAMENOS","99"}})

ELSE

RETURN Nil

ENDIF

// 2012-07-18T10:59:00

PRIVATE dDATA

ARQPARAM->( DbGoto(2) )

IF nHORAMENOS = 1

dDATA:=ALLTRIM( STR(YEAR( DATE() )))+"-"+ALLTRIM( STR(MONTH( DATE() )))+"-"+ALLTRIM( STR(DAY( DATE() ))) + "T"+TIME() + [-01:00]

ELSEIF nHORAMENOS = 2

dDATA:=ALLTRIM( STR(YEAR( DATE() )))+"-"+ALLTRIM( STR(MONTH( DATE() )))+"-"+ALLTRIM( STR(DAY( DATE() ))) + "T"+TIME() + [-02:00]

ELSEIF nHORAMENOS = 3

dDATA:=ALLTRIM( STR(YEAR( DATE() )))+"-"+ALLTRIM( STR(MONTH( DATE() )))+"-"+ALLTRIM( STR(DAY( DATE() ))) + "T"+TIME() + [-03:00]

ELSE

dDATA:=STRZERO(YEAR(DATE()),4)+"-"+STRZERO(MONTH(DATE()),2)+"-"+STRZERO(DAY(DATE()),2)+"T"+TIME()

ENDIF

? dDATA

PRIVATE cTpAmb := IF("FNT" $ CURDIR() .OR. ARQCAD->PEDAMBIEN = 2,"2","1")

PRIVATE cLFLEXDOCS := ARQPARAM->LICFLEXD20

PRIVATE cCHVEACES := ARQCAD->PEDCHVACES

PRIVATE cRecibo := ARQCAD->PEDRECIBO,cProtocolo := ARQCAD->PEDPROTOC,cCertificado

//? ALIAS()

IF ARQCAD->QTDECORR = 0

cCertificado := GetPvProfString( "CONFIGURACAO", "CERTIFICADO", "", "VoNfeCertSign.Ini")

oNFeUtil:=TVoNFeUtil2G():New(ARQPARAM->PUF,cTpAmb,cCertificado,,,,cLFLEXDOCS )

//oNfeUtil:CfgEnviaEmail(wEMAILCLI,wPORTA,wSMTP,.f.,.t.,wUSUARIO,wSENHA)

nQTDECORR := 0

VARAUX1 := ARQCAD->( RECNO() )

VARAUX2 := ARQCAD->( INDEXORD() )

DbSetOrder(2)

SEEK cCHVEACES

WHILE PEDCHVACES == cCHVEACES .AND. !EOF()

IF ARQCAD->QTDECORR > 0

++ nQTDECORR

ENDIF

DbSkip()

ENDDO

DbGoto(VARAUX1)

DbSetOrder(VARAUX2)

++ nQTDECORR

//

//? "nQTDECORR "+STR(nQTDECORR,3)

IF oNFeUtil:EnviaCCe(cCHVEACES,ARQCAD->TEXTO,.T.,nQTDECORR,dDATA,@cRecibo, @cProtocolo)

REPLACE ARQCAD->QTDECORR WITH nQTDECORR

REPLACE ARQCAD->DATATIME WITH dDATA

ENDIF

oNfeUtil:End()

ENDIF

id=code>id=code>

Editado por - jfaguiar on 18/07/2012 16:59:24

kapiaba · July 18, 2012

JFAguiar:

oNFeUtil:=TVoNFeUtil2G():New(ARQPARAM->PUF,cTpAmb,cCertificado,,,,cLFLEXDOCS ) // ???

// Veja Parametros da classe

//oNFeUtil:=TVoNFeUtil2G():New(CADPARAM->UF,cTpAmb,cCertificado,,,,cLicenca,)

// ou

//oNFEUtil:=tVoNFeUtil2G():New(CADPARAM->UF,cTpAmb,cCertificado,wProxy,wUsuario,wSenha,cLicenca,.t.,lNfeScan)

IF oNFeUtil:EnviaCCe(cCHVEACES,ARQCAD->TEXTO,.T.,nQTDECORR,dDATA,@cRecibo, @cProtocolo)

// parece correto

IF oNFeUtil:EnviaCCe(cChave,wTEXTO,lAcentuado,nCorrecao,wDATA,@wRECIBO,@wPROTOCOLO)

id=code>id=code>

JoÃ£o Santos - SÃ£o Paulo.

joao@pleno.com.br

Fone: (11) 3106-2832 / 5150-7341 - TIM

https://www.facebook.com/kapiaba

FWH 2.7 - xHARBOUR WorkShop.Exe

jfaguiar · July 18, 2012

citaÃ§Ã£o:
// ou

//oNFEUtil:=tVoNFeUtil2G():New(CADPARAM->UF,cTpAmb,cCertificado,wProxy,wUsuario,wSenha,cLicenca,.t.,lNfeScan)

id=quote>id=quote>

OlÃ¡ Kapiaba.

Esses prÃ¢metros wProxy,wUsuario,wSenha e lNfeScan nÃ£o os utilizo em nenhuma das opÃ§Ãµes onde inicio a classe tVoNFeUtil2G():New. AliÃ¡s nem sei o conteÃºdo que dessas variÃ¡veis. Se vc poder ajudar, agradeÃ§o amigÃ£o.

Agora quanto ao nome das variÃ¡veis de EnviaCce, posso alterÃ¡-las conforme o exemplo sem problemas.

Obrigado Kapiaba

TÃ´ ficando doido tbm. rsrsrs

roberio · July 19, 2012

Kapiaba vc ta passando a NFe de origem da CCe?

unidanfe.exe a=ArqXML-CCe nfe=ArqXML-NFe ediÃ§Ã£o=Free imprimir=1 visualizar=1 logotipo ...

citaÃ§Ã£o:
RogÃ©rio e amigos ajudem ai:

http://www.4shared.com/photo/_Lyn_fgi/CARTACCE.html

Nos meus XML da Carta de CorreÃ§Ã£o nÃ£o estÃ£o aparecendo os campos:

NOME/RAZAO SOCIAL

ENDERECO/BAIRRO/DISTRITO/CEP

MUNICIPIO - UP / FONE/FAX / INSC. ESTADUAL

O que pode estar errado?

Abs. obg.

JoÃ£o Santos - SÃ£o Paulo.

joao@pleno.com.br

Fone: (11) 3106-2832 / 5150-7341 - TIM

https://www.facebook.com/kapiaba

FWH 2.7 - xHARBOUR WorkShop.Exe

id=quote>id=quote>

FWH1205 / FWPPC1002 / xHarbour / BCC582 / RDD CDX

kapiaba · July 19, 2012

citaÃ§Ã£o:
Kapiaba vc ta passando a NFe de origem da CCe?

unidanfe.exe a=ArqXML-CCe nfe=ArqXML-NFe ediÃ§Ã£o=Free imprimir=1 visualizar=1 logotipo ...

citaÃ§Ã£o:
RogÃ©rio e amigos ajudem ai:

http://www.4shared.com/photo/_Lyn_fgi/CARTACCE.html

Nos meus XML da Carta de CorreÃ§Ã£o nÃ£o estÃ£o aparecendo os campos:

NOME/RAZAO SOCIAL

ENDERECO/BAIRRO/DISTRITO/CEP

MUNICIPIO - UP / FONE/FAX / INSC. ESTADUAL

O que pode estar errado?

Abs. obg.

JoÃ£o Santos - SÃ£o Paulo.

joao@pleno.com.br

Fone: (11) 3106-2832 / 5150-7341 - TIM

https://www.facebook.com/kapiaba

FWH 2.7 - xHARBOUR WorkShop.Exe

id=quote>id=quote>
FWH1205 / FWPPC1002 / xHarbour / BCC582 / RDD CDX

id=quote>id=quote>

Vou rever a LÃ³gica.

Obg, abraÃ§os.

JoÃ£o Santos - SÃ£o Paulo.

joao@pleno.com.br

Fone: (11) 3106-2832 / 5150-7341 - TIM

https://www.facebook.com/kapiaba

FWH 2.7 - xHARBOUR WorkShop.Exe

cc-e modelo

Recommended Posts

Link to comment

Share on other sites

Top Posters In This Topic

Popular Days

Top Posters In This Topic

Popular Days

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Join the conversation