CTOAS

Boa tarde amigos... Alguém saberia me dizer como ler a memoria fiscal e coloca-la em um TXT ? Estou fazendo conforme abaixo, mas só é impresso nao cria o TXT cBUFFER := "ECF.LeituraMemoriaFiscal("+DATA1+","+DATA2+")" cBUFFER := cBUFFER + CRLF iARQUIVO:= FCREATE("Z:\ACBR\ENT.TMP") FWRITE(iARQUIVO, @cBUFFER, LEN(cBUFFER)) FCLOSE(iARQUIVO) FRENAME("Z:\ACBR\ENT.TMP","Z:\ACBR\ENT.TXT") id=code>id=code>

A principio esta aprovado.... É de utilização mais simples que a do Pelles C. Mas... vamos continuar os testes... []'s

Bom dia www.vailton.com.br []'s

citação: citação:Obrigado... resolvido o problema id=quote>id=quote>Como foi resolvido Christiano? Beto FWH 9.08+xHarbour 1.2.1+Mymake+@Say id=quote>id=quote> :AddAttachment( "C:\PEDIDO\PEDIDO.pdf" ) id=code>id=code>[]'S

Instalei ele aqui.... parece ser equivalente ao Pelles.... Vou testa-lo. []'s

Também tem a versão on line. http://www.xharbour.com/xhdn []'s

Obrigado... resolvido o problema

Boa tarde amigos. Preciso enviar email sempre do mesmo remetente para o mesmo destinatário com anexo. No caso, se envio sem o anexo, vai o email, se coloco o anexo não vai, da erro. Alguém pode dar uma luz ??? ******************************************************************************** STATIC FUNCTION ENVIAPDF() ******************************************************************************** local oCfg, oError TRY oCfg := CREATEOBJECT( "CDO.Configuration" ) WITH OBJECT oCfg:Fields :Item( "http://schemas.microsoft.com/cdo/configuration/smtpserver" ):Value := "smtp.live.com" :Item( "http://schemas.microsoft.com/cdo/configuration/smtpserverport" ):Value := 25 :Item( "http://schemas.microsoft.com/cdo/configuration/sendusing" ):Value := 2 :Item( "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate" ):Value := .t. :Item( "http://schemas.microsoft.com/cdo/configuration/smtpusessl" ):Value := .t. :Item( "http://schemas.microsoft.com/cdo/configuration/sendusername" ):Value := "pedidos@hotmail.com" :Item( "http://schemas.microsoft.com/cdo/configuration/sendpassword" ):Value := "******" :Update() END WITH lRet := .t. CATCH oError MsgInfo( "Não Foi possível Enviar o e-Mail!" +CRLF+ ; "Error: " + Transform(oError:GenCode, nil) + ";" +CRLF+ ; "SubC: " + Transform(oError:SubCode, nil) + ";" +CRLF+ ; "OSCode: " + Transform(oError:OsCode, nil) + ";" +CRLF+ ; "SubSystem: " + Transform(oError:SubSystem, nil) + ";" +CRLF+ ; "Mensaje: " + oError:Description, "Atenção" ) END ENVIAMAIL(oCfg) return nil STATIC FUNCTION EnviaMail(oCfg) ******************************************************************************** LOCAL aAttach := {}, aTo := {} LOCAL cToken LOCAL nEle LOCAL oMsg LOCAL cFrom, cSubject, cMsg, cAttach cFrom := "pedidos@hotmail.com" cTo := "christiano.silveira@gmail.com" cSubject := "teste" cMsg := "teste" TRY oMsg := CREATEOBJECT ( "CDO.Message" ) WITH OBJECT oMsg :Configuration := oCfg :From := cFrom :To := cTo :Subject := cSubject :TextBody := cMsg :AddAttachment( "..\PEDIDO.pdf" ) :Send() END WITH CATCH alert("Não Foi Possível Enviar a Mensagem: "+cSubject ) END Return nil id=code>id=code> Editado por - ctoas on 04/06/2012 17:22:44

Boa tarde amigos. Preciso enviar email sempre do mesmo remetente para o mesmo destinatário com anexo. No caso, se envio sem o anexo, vai o email, se coloco o anexo não vai, da erro. Alguém pode dar uma luz ??? ******************************************************************************** STATIC FUNCTION ENVIAPDF() ******************************************************************************** local oCfg, oError TRY oCfg := CREATEOBJECT( "CDO.Configuration" ) WITH OBJECT oCfg:Fields :Item( "http://schemas.microsoft.com/cdo/configuration/smtpserver" ):Value := "smtp.live.com" :Item( "http://schemas.microsoft.com/cdo/configuration/smtpserverport" ):Value := 25 :Item( "http://schemas.microsoft.com/cdo/configuration/sendusing" ):Value := 2 :Item( "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate" ):Value := .t. :Item( "http://schemas.microsoft.com/cdo/configuration/smtpusessl" ):Value := .t. :Item( "http://schemas.microsoft.com/cdo/configuration/sendusername" ):Value := "pedidos@hotmail.com" :Item( "http://schemas.microsoft.com/cdo/configuration/sendpassword" ):Value := "******" :Update() END WITH lRet := .t. CATCH oError MsgInfo( "Não Foi possível Enviar o e-Mail!" +CRLF+ ; "Error: " + Transform(oError:GenCode, nil) + ";" +CRLF+ ; "SubC: " + Transform(oError:SubCode, nil) + ";" +CRLF+ ; "OSCode: " + Transform(oError:OsCode, nil) + ";" +CRLF+ ; "SubSystem: " + Transform(oError:SubSystem, nil) + ";" +CRLF+ ; "Mensaje: " + oError:Description, "Atenção" ) END ENVIAMAIL(oCfg) return nil STATIC FUNCTION EnviaMail(oCfg) ******************************************************************************** LOCAL aAttach := {}, aTo := {} LOCAL cToken LOCAL nEle LOCAL oMsg LOCAL cFrom, cSubject, cMsg, cAttach cFrom := "pedidos@hotmail.com" cTo := "christiano.silveira@gmail.com" cSubject := "teste" cMsg := "teste" TRY oMsg := CREATEOBJECT ( "CDO.Message" ) WITH OBJECT oMsg :Configuration := oCfg :From := cFrom :To := cTo :Subject := cSubject :TextBody := cMsg :AddAttachment( "..\PEDIDO.pdf" ) :Send() END WITH CATCH alert("Não Foi Possível Enviar a Mensagem: "+cSubject ) END Return nil id=code>id=code> Editado por - ctoas on 04/06/2012 17:22:44

www.telein.com.br 6 consultas grátis por hora Interações disponíveis * ConsultaNumero com Elastix / Trixbox * ConsultaNumero via URL * ConsultaNumero via WEB Service * ConsultaNumero via Procedure MySQL * ConsultaNumero via Post * ConsultaNumero via Asterisk AGI * ConsultaNumero via Interface WEB []'s Editado por - ctoas on 01/06/2012 16:53:28

www.telein.com.br 6 consultas grátis por hora Interações disponíveis * ConsultaNumero com Elastix / Trixbox * ConsultaNumero via URL * ConsultaNumero via WEB Service * ConsultaNumero via Procedure MySQL * ConsultaNumero via Post * ConsultaNumero via Asterisk AGI * ConsultaNumero via Interface WEB []'s Editado por - ctoas on 01/06/2012 16:53:28

Foi este que instalei... http://javadl.sun.com/webapps/download/AutoDL?BundleId=63692

Bom dia... Eu rodo ele no Windows 7 64 bits SP1 sem problemas. []'s

Bom dia... Eu rodo ele no Windows 7 64 bits SP1 sem problemas. []'s

Função Display do Willian http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=17683 []'s

Bom dia amigos. Como mudar a cor de um item (MsgItem) da MsgBar em tempo de execução? []'s

Bom dia amigos. Como mudar a cor de um item (MsgItem) da MsgBar em tempo de execução? []'s

Boa tarde... O que esta usando para compilar? []'s

Crisvam, boa noite... Exatamente, mas o campo que seria o 10º (CST_ICMS) aparece em 2º. Mistério.

Boa tarde Marcio e Marcelo. Com relação ao registro com erro no 0200 foi causado por mim, para exemplificar a quantidade de campos, pois os dois erros são do registro C170 e no validador um tem 37 campos e o outro 9, mas no txt gerado, ambos tem 37 campos.... é ai que esta o problema, no numero de campos que o validador pegou. Marcelo, o registro está descrito 4 posts acima. []'s

citação:o registro que voce quer gerar e o C190 |C190|000|2102|12,00|5014,02|5014,02|601,68|0,00|0,00|0,00|0,00|000001| Marcio Tullio marcio@inteligence.com.br Clipper 5.2e, Fw 2.4 , Blinker 7.0. @say - xDevStudio xHarbour 1.2 João Pessoa - Paraiba inteligence.suporte@hotmail.com id=quote>id=quote>Bom dia Marcio. O Registro C190 esta criado. A grande questão é que o lançamento em questão existe no TXT gerado, fazendo parte de um registro C100 conforme parte do txt abaixo. |C100|0|1|00001|01|00|001|00005695||02042012|02042012|0,00|0|5,00||397,28|0|0,00|||0,00|0,00|0,00|0,00|0,00||||| |C170|001|167173|ABAIXADOR DE LINGUA PC 100UND|5|CX|4,00|5,00|0|040|2102||0,00|0,00|0,00|0,00|0,00|0,00|0|02||0,00|0,00|0,00|||||||||||||| |C170|002|165190|AGUA P/INJECAO ARISTON|100|UN|0,50|10,00|0|040|2102||0,00|0,00|0,00|0,00|0,00|0,00|0|02||0,00|0,00|0,00|||||||||||||| |C170|003|960798|APARELHO DE PRES€O|1|UN|58,00|10,00|0|040|2102||0,00|0,00|0,00|0,00|0,00|0,00|0|02||0,00|0,00|0,00|||||||||||||| |C170|004|960799|CATETER SOLIDOR|5|UN|0,78|10,00|0|040|2102||0,00|0,00|0,00|0,00|0,00|0,00|0|02||0,00|0,00|0,00|||||||||||||| |C170|005|959758|ARTRINID 01AMP 2ML|5|FR|3,00|20,00|0|040|2102||0,00|0,00|0,00|0,00|0,00|0,00|0|02||0,00|0,00|0,00|||||||||||||| |C170|006|959760|GLICOSE 50% 10ML|50|FR|1,26|20,00|0|040|2102||0,00|0,00|0,00|0,00|0,00|0,00|0|02||0,00|0,00|0,00|||||||||||||| |C170|007|955978|GLICOSE 25% 10ML ISOFARMA|50|FR|1,26|10,00|0|040|2102||0,00|0,00|0,00|0,00|0,00|0,00|0|02||0,00|0,00|0,00|||||||||||||| |C170|008|164888|SERINGA 10ML INJEX|100|UN|0,62|20,00|0|040|2102||0,00|0,00|0,00|0,00|0,00|0,00|0|02||0,00|0,00|0,00|||||||||||||| |C170|009|959818|TERMOMETRO DIGITAL BIOLAND MOD. T101|8|UN|9,99|0,00|0|040|2102||0,00|0,00|0,00|0,00|0,00|0,00|0|02||0,00|0,00|0,00|||||||||||||| |C170|010|955675|TINTURA DE IODO 30ML FARMAX|5|FR|1,80|0,00|0|040|2102||0,00|0,00|0,00|0,00|0,00|0,00|0|02||0,00|0,00|0,00|||||||||||||| |C170|011|957340|TYLEMAX BABY 15ML|4|FR|4,99|0,00|0|040|2102||0,00|0,00|0,00|0,00|0,00|0,00|0|02||0,00|0,00|0,00|||||||||||||| id=red> id=code>id=code>Perceba que outros lançamentos passam sem problemas e este em vermelho não. []'s Editado por - ctoas on 25/05/2012 11:47:55

Crisvam... Você reparou como estão sendo mostrados os lançamentos? O primeiro estão os 37 campos que é solicitado no guia prático, mas o segundo só aparecem 9 campos e ambos são do registro C170. E é isso que esta me intrigando e não localizo o porque disso. []'s Editado por - ctoas on 25/05/2012 10:34:24

Bom dia amigos... Alguém já passou por esta situação no SPED Fiscal ? Registro marcado em azul esta com o problema, o registro acima forcei para causar o erro para mostrar que o registro esta com todos os campos.

Bom dia amigos... Alguém já passou por esta situação no SPED Fiscal ? Registro marcado em azul esta com o problema, o registro acima forcei para causar o erro para mostrar que o registro esta com todos os campos.

citação:Três respostas seguidas idênticas...id=red>id=size3> acho que ninguém lê antes de responderid=size2> . Brincadeiras a parteid=size1> citação:DIGITE UAC e Reduza para NUNCA ME NOTIFICAR. e... voiala... Problema resolvido id=quote>id=quote>Informações Sobre desativar o --> UAC <-- Luiz Arruda Corumbá-MS ico.corumba@gmail.com | http://www.facebook.com/profile.php?id=100000933378029 FiveWin 9.04 xHarbour PellesC Bcc. Editado por - ico on 25/05/2012 08:39:38 id=quote>id=quote>Fala ai Luiz, blz. Bom... seria ótimo esta segurança, mas não se esqueça que estamos falando do Windows que de seguro não tem nada. Alem disso eu uso sem o UAC desde quando instalei o Windows Seven e nunca tive problemas, lógico, somente eu e minha esposa usamos o note. Em um equipamento comunitário, não faria isso. []'s