edutraini

Boa tarde Pessoal

tenho uma duvida sobre a rotina abaixo

USE DCOTITE0  INDEX XCOTITE1,XCOTITE2,XCOTITE3,XCOTITE4 ALIAS COTATE NEW 

Sele Cotate
dbsetorder(2)
seek str(at_mCodcli,6) 
index on nrocota to &va_arqicot while cotate->codcli=at_mCOdcli .and. cotate->nrocota = at_mCotacao 
set index to xcotite1,xcotite2,xcotite3,xcotite4,&va_ARQIcot
dbsetorder(5)

Usando dbf eu faço um indice temporario para criar um filtro aonde ele vai pegar todos as cotacoes de um determinado cliente 

Qual a melhor forma para mudar essa rotina para sqlexpress usando sqlrdd 

Eu ja tentei usando o comando do rdd  USE DCOTITE0 shared INDEX XCOTITE1,XCOTITE2,XCOTITE3,XCOTITE4 ALIAS COTATE NEW via "sqlrdd", mas ele nao esta criando o indice e tambem fica criando indice dentro da tabela no sql

Obrigado 

A
 

Entendi vou continuar trabalhando assim por enquanto 

criando o temporario no disco local e depois mando para sql quando clicar em gravar

Obrigado a todos

a minha duvida se continuo usando dessa forma ou para sql tenho que trabalhar de outra forma.

Pois o arquivo temporario e gravado fisicamente na maquina e usando sql nas nuvens eu continuo criando o arquivo temporario 

ou existe alguma outra forma

Bom dia, Pessoal

Estou mudando o meu sistema para SQL usando SQLRDD 

Na rotina que faço o Pedido de Vendas com dbf eu crio um arquivo temporario aonde vou incluindo os itens do pedido e na hora de gravar o pedido pego esse conteudo e gravo dentro do banco de dados

como tenho que trabalhar com sql usando comando xbase

No exemplo abaixo eu abro meu arquivo de itens do pedido e dou copy stru para o temporario e vou adicionando os itens e depois replace no arquivo principal

   SELE PEDI
   copy stru to &vn_arqiTEM
 

Bom dia Pessoal 

Estou mudando o meu sistema de dbf para sql 

Gostaria de tirar uma duvida em relação a logica de trabalhar com SQL.

No Dbf eu travava o registro para que outro usuario nao tivesse acesso a mesma informacao que estava sendo editada o famoso rl()

Qual melhor logica para trabalhar no SQL

Exemplo : Tenho um agenda de medicos com seu devidos horarios .Alguem liga para marca uma consulta as 8:00 hs, para que dois atendentes, nao marquem no mesmo horario.

Eu faço a consistencia na hora de gravar ou seja alguem vai primeiro ?

Como vcs trabalham nessa situacao

Obrigado

Boa tarde, pessoal

Sabem me dizer se sqlrdd funciona com o banco de dados Mariadb

Obrigado

Bom dia, Pessoal

O Antivirus Mcafee fica excluindo o meu executavel alegando que tem um virus chamado generic vb.fu

Alguem poderia me dar uma dica de como corrigir isso

Obrigado

Boa tarde 

Gostaria de saber se consigo usar o banco de dados sql da microsoft usando a sqllib 

Obrigado

Method DC_ModEsp( c_Banco, mBSDG, mFGCB, mNMOG, lMult10 ) Class MR_Boleto

   LOCAL mVLDG
   LOCAL mSMMD
   LOCAL mCTDG
   LOCAL mSQMP
   LOCAL mRSDV
   LOCAL mDCMD := 0

   IF c_Banco == "033"                  // Banespa
      mSMMD := 0
      mSQMP := 3
      FOR mCTDG := 1 TO Len( mNMOG )
         mVLDG := Val( SubStr( mNMOG,Len(mNMOG ) - mCTDG + 1,1 ) ) * ( mSQMP )
         mSMMD += mVLDG - ( Int( mVLDG / 10 ) * 10 )
         mSQMP := IF( mSQMP == 3, 7, IF( mSQMP == 7,9,IF(mSQMP == 9,1,3 ) ) )
      NEXT
      mRSDV := mSMMD - ( Int( mSMMD / 10 ) * 10 )
      mDCMD := IF( mRSDV == 0, 0, 10 - mRSDV )
   ENDIF
   *
    IF c_Banco == "756"                  // Sicoob 
      mSMMD := 0
      mSQMP := 3
      FOR mCTDG := 1 TO LEN(mNMOG)
          mVLDG := VAL( SUBSTR( mNMOG , mCTDG, 1 ) ) * mSQMP
          mSMMD += mVLDG
          DO CASE
              CASE mSQMP == 3 ; mSQMP := 1
              CASE mSQMP == 1 ; mSQMP := 9
              CASE mSQMP == 9 ; mSQMP := 7
              CASE mSQMP == 7 ; mSQMP := 3
          ENDCASE
      NEXT

      mRSDV := Int( Mod( mSMMD, 11) )
      IF mRSDV == 0 .OR.  mRSDV == 1
          mDCMD := 0
      ELSE
          mDCMD := 11 - mRSDV
      ENDIF
   Endif

   RETURN Str( mDCMD, 1 )
 

Method Banco_756() Class MR_Boleto

   ::Banco_Dv_____ := "0"
   ::Banco_Nome___ := "Siccob"
   
    IF EMPTY( ::Prefixo______ )
      ::Prefixo______ := ::Conta________
      ::Conta________ := ''
      ::Prefixo_DV___ := ::Conta_DV_____
      ::Conta_DV_____ := ''
   ENDIF
  
   ::NossoNumer_DV := ::DC_ModEsp( ::Banco________, 9, .F., ::Banco_Agencia + STRZERO(VAL(::Prefixo______),9) + ::Prefixo_DV___ + PADL( ALLTRIM( Left( ::NossoNumero__, 07 ) ), 07, '0' ), .F. )
    
    ::NossoNumero_z := ::NossoNumero__ + "-" + ::NossoNumer_DV
    
    ::Banco_Agencia := PADL( ALLTRIM( Left( ::Banco_Agencia,  4 ) ),  4, '0' )
   ::Ag_Cod_Cedent := TRAN( ::Banco_Agencia + '/' + strzero(val(::Prefixo______),6) + '-'  +   ::Prefixo_DV___  , "@!")
    *-->
    ::cCarteira   := ::Carteira_____ 
     ::cNumAgencia := ::Banco_Agencia
     ::cTipoCob    := "01"
     ::cCDPF       := strzero(val(::Prefixo______ ),6)
     ::cDVCDPF     :=  ::Prefixo_DV___ 
     ::cNsNm       := ::NossoNumero__ +::NossoNumer_DV
        
    ::Campo_Livre__ := ::cCarteira + ::cNumAgencia + StrZero( Val( ::cTipoCob ),2 ) + ::cCDPF + ::cDVCDPF + ::cNsNm + "001" // teste eroni
                                                                                                                

Return NIL

Boa tarde, Pessoal

Tenho uma tela de atendimento que uso define window para criar a janela

   DEFINE WINDOW oWndAtendimento FROM nRow, nCol TO nWAlto + nRow, nWAncho + nCol ; // MDI ;
   PIXEL COLOR CLR_WHITE, Rgb( 220, 220, 220 ) TITLE cTitulo ;
   BORDER NONE  

Precisava criar uma janelad em formato popup no canto da tela dentro dessa tela mostrando algumas informacoes sem interferir na janela principal

Caso o usuario nao precise mais da popup ele fecha

Como poderia criar

Obrigado

Ja voltou

Bom dia Pessoal 

Varios clientes aqui em Sao Paulo estao com problema no certificado digital 

Esse problema começou hoje ate ontem tudo normal

Alguem sabe me dizer se e problema no sefaz

1 hora atrás, kapiaba disse:

A SEFAZ, estava com problemas técnicos.

 

A Sefaz de São Paulo mudou a mensagem:

Prezados contribuintes, O Sistema da Nota Fiscal Eletrônica da SEFAZ/SP está operando normalmente. Caso seja detectado algum problema, esta mensagem será atualizada com a previsão de retorno do sistema.

Por favor, teste e retorne.

Boa tarde Kapi

Realmente estava com problemas ja voltou

Abraço

Bom dia Pessoal 

Varios clientes estao tendo problemas para emissao de nota fiscal eletronica em Sao Paulo para os clientes deles que nao tem inscricao estadual

As notas estao sendo denegadas pelo codigo 302 Irregularidade Fiscal

Ate ontem esta tirando nota normal para esses mesmos clientes 

Alguem sabe me dizer se teve alguma mudança

Lembrando que no cadastro deles esta a opcao 9-Nao contribuinte

Method Banco_756() Class MR_Boleto

   ::Banco_Dv_____ := "0"
   ::Banco_Nome___ := "Siccob"
   
    IF EMPTY( ::Prefixo______ )
      ::Prefixo______ := ::Conta________
      ::Conta________ := ''
      ::Prefixo_DV___ := ::Conta_DV_____
      ::Conta_DV_____ := ''
   ENDIF
  
   ::NossoNumer_DV := ::DC_ModEsp( ::Banco________, 9, .F., ::Banco_Agencia + STRZERO(VAL(::Prefixo______),9) + ::Prefixo_DV___ + PADL( ALLTRIM( Left( ::NossoNumero__, 07 ) ), 07, '0' ), .F. )
    
    ::NossoNumero_z := ::NossoNumero__ + "-" + ::NossoNumer_DV
    
    ::Banco_Agencia := PADL( ALLTRIM( Left( ::Banco_Agencia,  4 ) ),  4, '0' )
   ::Ag_Cod_Cedent := TRAN( ::Banco_Agencia + '/' + strzero(val(::Prefixo______),6) + '-'  +   ::Prefixo_DV___  , "@!")
    *-->
    ::cCarteira   := ::Carteira_____ 
     ::cNumAgencia := ::Banco_Agencia
     ::cTipoCob    := "01"
     ::cCDPF       := strzero(val(::Prefixo______ ),6)
     ::cDVCDPF     :=  ::Prefixo_DV___ 
     ::cNsNm       := ::NossoNumero__ +::NossoNumer_DV
        
    ::Campo_Livre__ := ::cCarteira + ::cNumAgencia + StrZero( Val( ::cTipoCob ),2 ) + ::cCDPF + ::cDVCDPF + ::cNsNm + "001" // teste eroni
                                                                                                                

Return NIL

Bom dia, Pessoal

Um cliente meu quer fazer uma etiqueta com esse formato de codigo de barras caixa master (DUN/GTIN-14)

Alguem sabe me dizer na tabela FastReport qual e o modelo devo configurar 

Obrigado

Bom dia, Pessoal

Um cliente quer enviar o arquivo do sped fiscal com o registros das notas de vendas e compras 

Alguem teria um exemplo de quais registros preciso colocar no arquivo pois hj so mando o bloco K

Obrigado

Obrigado Kapi

vou ver como conseguir essa URL

Bom dia, Pessoal

Um cliente perguntou se existe alguma forma de exporta a venda do mercado livre para dentro do meu sistema para poder emitir a nota fiscal de venda

Para que nao fique dois emissores de nota fiscal de venda 

Obrigado

Foi publicada, no final do mês de agosto de 2020, a Nota Técnica 2020.004 no Portal da Nota Fiscal Eletrônica. As novidades desta NT impactam somente a Nota Fiscal Eletrônica (NF-e), modelo 55.

O documento esclarece quais são os campos obrigatórios da NF-e para a geração do DANFE Simplificado, modelo Etiqueta. Confira as alterações e prepare seu software!

Alguem ja esta fazendo essa etiqueta

bom dia

no mrboleto ja esta tudo pronto  

Varios bancos

Muito simples

1 minuto atrás, JUDSON ROSA disse:

blz , edu qual  o teu contato no skype ??

emtinformatica

Bom dia 

Eu tenho uma rotina que meus clientes usam se puder ajudar me chama no skype

emtinformatica