PC Toledo

Código: Selecionar todos

nhandle:=fcreate("arquivo.txt",0)
nhandle:=fopen("arquivo.txt",2)
fwrite(nhandle,'texto da primeira linha do txt'+chr(13)+chr(10))
fwrite(nhandle,'texto da segunda linha do txt'+chr(13)+chr(10))
fclose(nhandle)

Código: Selecionar todos

 _arqtxt:="C:\NFE\nota.txt"
 nhandle:=fcreate("&_arqtxt.",0)
 fclose(nhandle)
 nhandle:=fopen("&_arqtxt.",2)
 _pl:=chr(13)+chr(10)     // avanco p/ proxima linha

 fwrite(nhandle,'NFE.CriarNFe("[Identificacao]'+_pl)
 fwrite(nhandle,'[NaturezaOperacao=]'+"   "+_pl)
 fwrite(nhandle,'[Modelo=55]'+_pl)
 fwrite(nhandle,'[Serie=0]'+_pl)
.
.
.
 fwrite(nhandle,'",0)'+_pl)
 fclose(nhandle)

Código: Selecionar todos

cArq := CriaArqImpressao('entnfe.txt')
?? 'NFe.CriarEnviarNFe("[Identificacao]'
? 'NaturezaOperacao=VENDA'
? 'Modelo=55'
? 'Serie=1'
? 'Codigo='+ltrim(str(sa->numero,9))
? 'Numero='+ltrim(str(sa->numero,9))
? 'Serie=1'
? 'Emissao='+hb_dtoc(sa->emissao, 'DD/MM/YYYY')
? 'Saida='  +hb_dtoc(sa->emissao, 'DD/MM/YYYY')
? 'Tipo=1' //0-Entrada 1-saida
? 'Finalidade=0' //
? 'FormaPag=1' //0-avista 1-a prazo 2-outros
? '[Emitente]'
? 'CNPJ='+em->cgc
? 'IE='+em->i_e
? 'Razao='+em->empresa
? 'Fantasia='+em->fantasia
? 'Fone='+em->telefone
? 'CEP='+em->cep
? 'Logradouro='+em->endereco
? 'Numero='+em->numero
? 'Complemento='
? 'Bairro='+em->bairro
? 'CidadeCod=2913606'
? 'Cidade='+em->cidade
? 'UF='+em->uf
? '[Destinatario]'
? 'CNPJ='+cl->cgc
? 'IE='+Iif( AllTrim(cl->i_e)='ISENTO', '' ,cl->i_e )
? 'NomeRazao='+cl->razao_soci
? 'Fone='+cl->resid_fone
? 'CEP='+cl->cep
? 'Logradouro='+cl->end_reside
? 'Numero=0'
? 'Complemento='
? 'Bairro='+cl->bairro
? 'CidadeCod='
? 'Cidade='+cl->resid_cida
? 'UF='+cl->resid_uf
Store 0 to nItem
//Preciso desligar o filtro por CFOP
sb->(OrdScope(0,strzero(sa->numero,6)))
sb->(OrdScope(1,strzero(sa->numero,6)))
sb->(DbGoTop())

Do While sb->(!eof())

   if !eq->(DbSeek(sb->cod_mercad))
      MsgStop('Erro: Mercadoria Não Localizada no Estoque: '+sb->cod_mercad)
      cUnid := 'UN'
   else
      cUnid := eq->unidade
      if empty(cUnid)
         MsgInfo('Unidade de medida, não cadastrada.'+CRLF+'Mercadoria: '+sb->cod_mercad+CRLF+sb->mercadoria)
         cUnid := CadastraUnidadeMedida()
      endif
   endif
   ? '[Produto' + strzero(++nItem,3) + ']'
   ? 'CFOP='          + sb->cfop
   ? 'Codigo='        + sb->cod_mercad
   ? 'Descricao='     + sb->mercadoria
   // ? 'NCM='
   ? 'Unidade='       + cUnid
   ? 'Quantidade='    + ltrim(transform(sb->quantidade          ,'9999999.999'))
   ? 'ValorUnitario=' + ltrim(transform(sb->valor               ,'9999999.99'))
   ? 'ValorTotal='    + ltrim(transform(sb->valor*sb->quantidade,'9999999.99'))

   ? '[ICMS' + strzero(nItem,3)  +']'
   ? 'CST='        +substr(sb->cst,2,2)
   ? 'Origem='     +substr(sb->cst,1,1)
   ? 'ValorBase='  +ltrim(transform(sb->baseicms  ,'9999999.99'))
   ? 'Aliquota='   +ltrim(transform(sb->aliquota  ,'9999999.99'))
   ? 'Valor='      +ltrim(transform((sb->baseicms*sb->aliquota)/100  ,'9999999.99'))
   ? 'ValorBaseST='+ltrim(transform(sb->baseicmsst,'9999999.99'))

   sb->(DbSkip())

EndDo

? '[Total]'
? 'BaseICMS='             +ltrim(transform(sa->BaseICMS  ,'9999999.99'))
? 'ValorICMS='            +ltrim(transform(sa->ICMS      ,'9999999.99'))
? 'BaseICMSSubstituicao=' +ltrim(transform(0    ,'9999999.99')) //sa->outras
? 'ValorICMSSubstituicao='+ltrim(transform(0    ,'9999999.99')) //sa->outras
? 'ValorProduto='         +ltrim(transform(sa->total     ,'9999999.99'))
? 'ValorNota='            +ltrim(transform(sa->total     ,'9999999.99'))
? '[Transportador]'
? 'FretePorConta=1'
? 'NomeRazao=PROPRIO'
? 'UF='+cl->resid_uf
? 'Volume001'
? 'Quantidade=0001'
? 'Especie=CAIXA'
? 'Marca='
? 'PesoLiquido=0.000'
? 'PesoBruto=0.000",2,0)'
FecharImpres()
If en->(dbseek('DIR'+'ACBRNFE'))
   cDestino := alltrim(en->dados)
Else
   cDestino := 'C:\ACBrNFeMonitor\'
EndIf
cDestino := cDestino+'entnfe.txt'

Copy file &cArq to &cDestino
cString := ChkRetornoNFe()
If 'REJEI' $ upper(cString)
   TravaRegistro('sa')
   If 'DUPLICIDADE DE NF-E' $ upper(cString)
      sa->status := 'A' //Aceito, Rejeitado, Cancelado
   Else
      sa->status := 'R' //Aceito, Rejeitado, Cancelado
   EndIf
   NetFlush('sa')
Else
   TravaRegistro('sa')
   sa->status := 'A' //Aceito, Rejeitado, Cancelado
   NetFlush('sa')
EndIf
oBrw:Refresh()
Return nil

Código: Selecionar todos

*************************
Function CriaArqImpressao(arq)
*************************
*
*
set printer to &arq
set print on
set console off

return arq