vagner

Bom dia Jorge, 
Já tentei, das seguintes formas :

Primeira :

<pgto>
  <MP>
  <cMP>01</cMP>
  <vMP>0.20</vMP>
</MP>
</pgto>
<pgto>
  <MP>
  <cMP>03</cMP>
  <vMP>0.24</vMP>
  </MP>
</pgto>
 

Segunda :

<pgto>
  <MP>
    <cMP>01</cMP>
    <vMP>0.98</vMP>
    <cMP>03</cMP>
    <vMP>1.00</vMP>
  </MP>
</pgto>

Terceira :

<pgto>
  <MP>
    <cMP>01</cMP>
    <vMP>0.98</vMP>
    <cMP>03</cMP>
    <vMP>1.00</vMP>
    <cAdmC>999</cAdmC>
 </MP>
</pgto>

e todas me retornam sempre o código - 1999-Erro desconhecido, por isso Kapi, não adiantava o código de retorno, é sempre "Desconhecido"

Obrigado

É Kapi, não adiantou muito não :), eu já tenho a emissão do CF-e, porém não vai com mais de um pagamento seria o mesmo caso do nosso amigo do primeiro link, porém, não é igual, já testei de todas as formas e não vai, sempre me dá erro, com uma única forma de pagamento vai de boa, e o pessoal da bematech, não retorna, para ter uma ideia, eu tenho eles no skpe, e estou esperando a resposta desde 9 de setembro de 2016, parece que eles não estão nem aí para quem compra os aparelhos, não respondem mesmo

KKKK, pensei que tinha parado com o problema de não ler antes de mandar um link, não é NFC-e e sim CF-e (Cupom fiscal eletrônico)

Bom, dia,

Alguém teria um exemplo do xml com múltiplos pagamentos para um CF-e, tipo parte em dinheiro e parte em cartão de débito ou crédito, ou até mesmo parte em dinheiro e parte em contra vale ?

Todos que eu tento retornam como erro desconhecido

Obrigado,
 

Olá,
Esse erro não é do fw e sim do DOS, erro 2, não encontrou onde criar, ou o diretório não existe, ou vc não têm permissão de criar o arquivo, veja também a quantidade de arquivos na pasta, se está mandando criar no "C:" o Windows não deixa mais

Geralmente o corruption se dá pela forma que está dando um pack no arquivo, qndo existem campos memo, o melhor é ao invés de dar pack, criar uma estrutura nova e ir copiando os registro quem não são deletados.

Como resolver isto no HARBOUR? Em xHarbour funciona normal. No HARBOUR da erro de Sintaxe.

MEMVAR x
 
FUNCTION MAIN()
 
   // ? 1 ^^ 2
 
   x := Cube( 1 )
 
   ? x
 
RETURN NIL
 
Function Cube( n )
 
Return n ^^ 2

Obg. abs.

Já tentou assim ?

​Function Cube(n)

Local nX := n^^ 2

​Return(nX)

Olá, procure por Calendar nos samples

Olá procure por DBf em LETO

oSueCombo:nAt

o Windows 10 me deu um problema, com algumas dlls mesmo elas estando no diretório correto (dll do visual c) não encontrava, mandei perguntas sobre o mesmo, aí me falaram que meu computador pode estar em conflito e teria que ser formatado para instalar o Windows 10, só sendo piada mesmo né ?

AaDd()

aEstoque := {}

AaDd(aEstoque,Grupo)

AaDd(aEstoque,...)

Blz Alê ?
Bom muito interessante mesmo , no que puder conte comigo, em DBF eu manjo

Kapi, pelo que ví (muito por cima), essa função é somente para verificar se o IP ou Ulr existe, ele deveria retornar o número do ip,

Eu tenho uma que pega a hora de um site, mas como sempre não consigo postar nada aqui, e para digitar demora muito, então qq coisa me chame.

Nem é tão difícil assim, se seu cliente já recebe o e-mail, dê uma olhada em sendmail, se não me engano lá têm um que recebe também, eu tinha isso a muito tempo, mas com outras finalidades, mas suponha que seu cliente precisa baixar o xml para seu programa, ou seja incluir automaticamente a nota de entrada, então peça para ele sempre jogar em uma pasta específica, seu programa olha essa pasta, baixa o xml para seu sistema, verifica a quantidade com Directory(), e qndo atingir o que quer compacta com hb_zip e mande para o contador com o sendmail

Olá, Não começou hoje a 3.10 dia 02/04/2015

Olá,

Troque o Chr(10) por Chr(10)+Chr(13) leia e depois transforme novamente

cTexto := MemoRead("SeuArquivoTexto")

cTexto := StrTran(cTexto,Chr(10),Chr(10)+Chr(13)

e depois de usar mude novamente

cTexto := StrTran(cTexto,Chr(10)+Chr(13),Chr(10))

Se for o listbox normal :
oBrow:aHeader[1]

Olá,

Vc também pode dar um copy to \\seunumeroip\arquivo

Olá,

Talvez somente com o Format Get, vc conseguirá isso.

\Samples\TestFGet.Prg

Nada de anormal Oscar, somente tomar muito cuidado, com os append da vida, travar corretamente e destravar, ter uma rede estável, para vc ver tenho um cliente, que está fazendo este ano de 2014, 6 anos de trabalho, e sem reorganização, é uma maravilha, o cliente, nem têm aqueles botões que eu costumava antigamente colocar "reorganização" , veja que o DbSetOrder(0), eu comecei a usar depois de uma discussão sobre o assunto onde o Eduardo Motta e o Villiam, me falaram, antigamente eu usava o seguinte recurso :

Se eu tinha que dar um "replace" no campo do nome eu mudava o índice para o um que não tinha o nome como chave, isso funcionava, porém eu tinha que sempre ficar mudando e saber se tal índice tinha ou não o field, com o DbSetOrder(0), não preciso me preocupar com isso além de estar voltado para "0" ele atualiza os outros índices sem problemas

vou dar um pequeno exemplo :

DbAppend() -> Não necessita travar o registro depois, pois ele mesmo já trava, nem precisa mudar o índice, pois não há nada nele para poder corromper

Já o RLock(), esse sim precisa ser tomado cuidado, pelo que eu reparei na época que me corrompia os índices, era justamente o motivo de eu tentar alterar o field onde ele se encontrava no índice

Sempre que usar um desses dois, use o dbcommit() e dbunlock(), em seguida, muitos esquecem do dbcommit(), e dão direto o dbunlock(), onde destrava o registro sem antes "commitar" os dados

cTexto := "MeuTexto"

MemoWrite("\SuaPastaDropBox\SeuArquivoTxt",cTexto)

Olá Kapi, como assim para um teclado ? Onde vc quer colocar esse teclado ?

Olá, eu coloquei em dicas, mas isso qndo era o outro site, ftptodos.zip, não sei se ainda irá encontrar, pois a mensagem é de 2002 , hoje em dia eu utilizo o DropBox

Evando,

É só uma pasta , basta copiar ou cria direto na pasta por exemplo

cTexto := "Estou no drop"

MemoWrit("\DropBox\SuaPastaCompartilhada\Teste.Txt",cTexto)