Clipper On Line • Ver Tópico - Meu modo de trabalho

Meu modo de trabalho

Aqui você poderá oferecer suas Contribuições, Dicas e Tutoriais (Texto ou Vídeo) que sejam de interesse de todos.

Moderador: Moderadores

 

Meu modo de trabalho

Mensagempor JoséQuintas » 25 Mar 2020 18:46

Finalmente o Windows parece normal.
Hoje foi complicado... o dia inteiro perdido por causa do Windows.
Só agora testando a atualização nos backups.
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 12834
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 13 vezes
Mens.Curtidas: 817 vezes

Meu modo de trabalho

Mensagempor JoséQuintas » 30 Mar 2020 09:49

mdfe.png


Menos dois.

Agora MDFE é totalmente SQL.
Esses JPMDFCAB e JPMDFDET não são mais usados.

Os demais maiores, continuo eliminando o uso do DBF.
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 12834
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 13 vezes
Mens.Curtidas: 817 vezes

Meu modo de trabalho

Mensagempor JoséQuintas » 02 Abr 2020 12:40

Um relatório simples, alterado pra MySQL.

A parte de escolha de opções... sem alteração.

#include "inkey.ch"
#include "josequintas.ch"

MEMVAR nOpcOrdem, acTxtOrdem, midProdutoi, midProdutof, nOpcProDep, acTxtProDep, nOpcProduto
MEMVAR acTxtProduto, nOpcTipoEstoque, acTxtTipoEstoque, mIdProDep
MEMVAR nOpcProSec, acTxtProSec, nOpcProGru, acTxtProGru, mIdProSec, mIdProGru, nOpcPrinterType

PROCEDURE LJPITEM

   LOCAL nOpcGeral := 1, acTxtGeral := Array(8), nOpcTemp

   PRIVATE nOpcOrdem   := 1, acTxtOrdem := { "Código", "Alfabética", "Depto+Seção+Grupo", "Tributação" }
   PRIVATE nOpcProduto := 1, mIdProdutoi := 0, midProdutof := 0, acTxtProduto := { "Todos", "Intervalo" }
   PRIVATE nOpcProDep  := 1, mIdProDep := 0, acTxtProDep := { "Todos", "Específico" }
   PRIVATE nOpcProSec  := 1, mIdProSec := 0, acTxtProSec := { "Todos", "Específico" }
   PRIVATE nOpcProGru  := 1, mIdProGru := 0, acTxtProGru := { "Todos", "Específico" }
   PRIVATE nOpcTipoEstoque := 1, acTxtTipoEstoque := { "Todos", "Sim (Vendas)", "Não (Vendas)", "Inativo", "Ativo (Bens)", "Uso" }
   PRIVATE nOpcPrinterType := AppPrinterType()

   IF ! AbreArquivos( "jpempresa" )
      RETURN
   ENDIF

   WOpen( 5, 4, 7 + Len( acTxtGeral ), 45, "Opções disponíveis" )

   DO WHILE .T.

      acTxtGeral := { ;
         TxtImprime(), ;
         "Ordem.....: " + acTxtOrdem[ nOpcOrdem ], ;
         "Intervalo.: " + iif( nOpcProduto == 1, acTxtProduto[ 1 ], StrZero( midProdutoi, 6 ) + " A " + StrZero( midProdutof, 6 ) ), ;
         "Tipo Estoq: " + acTxtTipoEstoque[ nOpcTipoEstoque ], ;
         "Depto.....: " + Iif( nOpcProDep == 1, acTxtProDep[ nOpcProDep ], Str( mIdProDep, 6 ) ), ;
         "Seção.....: " + iif( nOpcProSec == 1, acTxtProSec[ nOpcProSec ], Str( mIdProSec, 6 ) ), ;
         "Grupo.....: " + iif( nOpcProGru == 1, acTxtProGru[ nOpcProGru ], Str( mIdProGru, 6 ) ), ;
         "Saída.....: " + TxtSaida()[ nOpcPrinterType ] }

      FazAchoice( 7, 5, 6 + Len( acTxtGeral ), 44, acTxtGeral, @nOpcGeral )

      nOpcTemp := 1
      DO CASE
      CASE LastKey() == K_ESC
         EXIT

      CASE nOpcGeral == nOpcTemp++
         IF ConfirmaImpressao()
            imprime()
         ENDIF

      CASE nOpcGeral == nOpcTemp++
         WAchoice( nOpcGeral + 6, 25, acTxtOrdem, @nOpcOrdem, "Ordem" )

      CASE nOpcGeral == nOpcTemp++
         JPPRODUTOClass():Intervalo( nOpcGeral + 6, 25, @nOpcProduto, @midProdutoi, @midProdutof )

      CASE nOpcGeral == nOpcTemp++
         WAchoice( nOpcGeral+6, 25, acTxtTipoEstoque, @nOpcTipoEstoque, "Tipo de Estoque" )

      CASE nOpcGeral == nOpcTemp++
         AUXPRODEPClass():Intervalo( nOpcGeral + 6, 25, @nOpcProDep, @mIdProDep )

      CASE nOpcGeral == nOpcTemp++
         AUXPROSECClass():Intervalo( nOpcGeral + 6, 25, @nOpcProSec, @mIdProSec )

      CASE nOpcGeral == nOpcTemp++
         AUXPROGRUClass():Intervalo( nOpcGeral + 6, 25, @nOpcProGru, @mIdProGru )

      CASE nOpcGeral == nOpcTemp
         WAchoice( nOpcGeral+6, 25, TxtSaida(), @nOpcPrinterType, "Saída" )
         AppPrinterType( nOpcPrinterType )

      ENDCASE
   ENDDO
   WClose()

   RETURN


A configuração do relatório, cabeçalho, etc. relativamente sem alterações

STATIC FUNCTION imprime()

   LOCAL oPDF, mProDep, mProSec, mProGru, mTripro, nKey
   LOCAL cnSQL := ADOClass():New( AppConexao() )

   oPDF := PDFClass():New()
   oPDF:SetType( nOpcPrinterType )
   oPDF:Begin()
   nKey = 0

   oPDF:acHeader := {"","",""}
   oPDF:acHeader[ 1 ] = "LISTAGEM DO CADASTRO DE PRODUTOS"
   oPDF:acHeader[ 3 ] = Space(15) + "-PRODUTO/" + Pad( "DESCRICAO", 65, "-" ) + "  UN     PESO_LIQ     PESO_BRU     MEDIDAS"
   oPDF:acHeader[ 2 ] := "Ordem:" + acTxtOrdem[ nOpcOrdem ]
   IF nOpcProduto != 1
      oPDF:acHeader[ 2 ] := oPDF:acHeader[ 2 ] + ", de: "   + StrZero( midProdutoi, 6 ) + " ate: " + StrZero( midProdutof, 6 )
   ENDIF
   oPDF:acHeader[ 2 ] += ", Est:"+iif( nOpcTipoEstoque == 1, "Todos", acTxtTipoEstoque[ nOpcTipoEstoque ] )
   IF nOpcProDep == 2
      oPDF:acHeader[ 2 ] += ", Depto " + NumberSQL( mIdProDep )
   ENDIF
   IF nOpcProSec == 2
      oPDF:acHeader[ 2 ] += ", Secao " + NumberSQL( mIdProSec )
   ENDIF
   IF nOpcProGru == 2
      oPDF:acHeader[ 2 ] += ", Grupo " + NumberSQL( mIdProGru )
   ENDIF


A preparação do que vai imprimir, com certeza mudou.


   WITH OBJECT cnSQL
      :cSQL := "SELECT" + ;
            " IDPRODUTO, IEPRODEP, IEPROSEC, IEPROGRU, IETIPO, IETRIPRO, IEDESCRI," + ;
            " IELARGURA, IEALTURA, IEPROFUND, IEUNID, IEPESLIQ, IEPESBRU," + ;
            " PRODEP.AXDESCRI AS PRODEPDESCRI," + ;
            " PROSEC.AXDESCRI AS PROSECDESCRI," + ;
            " PROGRU.AXDESCRI AS PROGRUDESCRI," + ;
            " TRIPRO.AXDESCRI AS TRIPRODESCRI" + ;
         " FROM JPITEM" + ;
         " LEFT JOIN JPAUXILIAR AS PRODEP ON PRODEP.AXTABELA = " + StringSQL( AUX_PRODEP ) + ;
            " AND PRODEP.AXCODIGO = JPITEM.IEPRODEP" + ;
         " LEFT JOIN JPAUXILIAR AS PROSEC ON PROSEC.AXTABELA = " + StringSQL( AUX_PROSEC ) + ;
            " AND PROSEC.AXCODIGO = JPITEM.IEPROSEC" + ;
         " LEFT JOIN JPAUXILIAR AS PROGRU ON PROGRU.AXTABELA = " + StringSQL( AUX_PROGRU ) + ;
            " AND PROGRU.AXCODIGO = JPITEM.IEPROGRU" + ;
         " LEFT JOIN JPAUXILIAR AS TRIPRO ON TRIPRO.AXTABELA = " + StringSQL( AUX_TRIPRO ) + ;
            " AND TRIPRO.AXCODIGO = JPITEM.IETRIPRO" + ;
         " WHERE 1 = 1"
      IF nOpcProduto == 2
         :cSQL += " AND IDPRODUTO BETWEEN " + NumberSQL( mIdProdutoi ) + " AND " + NumberSql( mIdProdutof )
      ENDIF
      IF nOpcProDep == 2
         :cSQL += " AND IEPRODEP = " + NumberSQL( mIdProDep )
      ENDIF
      IF nOpcProSec == 2
         :cSQL += " AND IEPROSEC = " + NumberSQL( mIdProSec )
      ENDIF
      IF nOpcProGru == 2
         :cSQL += " AND IEPROGRU = " + NumberSQL( mIdProGru )
      ENDIF
      IF nOpcTipoEstoque != 1
         :cSQL += " AND IETIPO = " + StringSQL( Substr( "XSNIAU", nOpcTipoEstoque, 1 ) )
      ENDIF
      DO CASE
      CASE nOpcOrdem == 1; :cSQL += " ORDER BY IDPRODUTO"
      CASE nOpcOrdem == 2; :cSQL += " ORDER BY IEDESCRI"
      CASE nOpcOrdem == 3; :cSQL += " ORDER BY PRODEPDESCRI, PROSECDESCRI, PROGRUDESCRI, IEDESCRI"
      CASE nOpcOrdem == 4; :cSQL += " ORDER BY IETRIPRO"
      ENDCASE
      :Execute()


E a impressão, agora pegando do MYSQL

      mProDep := 0
      mProSec := 0
      mProGru := 0
      mTriPro := 0
      DO WHILE nKey != K_ESC .AND. ! :Eof()
         nKey = Inkey()
         oPDF:MaxRowTest()
         IF nOpcOrdem == 3 .AND. :Number( "IEPRODEP" ) != mProDep
            oPDF:DrawText( oPDF:nRow + 1, 0, "D:" + Str( :Number( "IEPRODEP" ), 6 ) + " - " + :String( "PRODEPDESCRI" ) )
            mProDep := :Number( "IEPRODEP" )
            mProSec := 0
            mProGru := 0
            oPDF:nRow += 3
            oPDF:MaxRowTest()
         ENDIF
         IF nOpcOrdem == 3 .AND. :Number( "IEPROSEC" ) != mProSec
            oPDF:DrawText( oPDF:nRow+1, 5, "S:" + Str( :Number( "IEPROSEC" ), 6 ) + " - " + :String( "PROSECDESCRI" ) )
            mProSec := :Number( "IEPROSEC" )
            mProGru := 0
            oPDF:nRow += 2
            oPDF:MaxRowTest()
         ENDIF
         IF nOpcOrdem == 3 .AND. :Number( "IEPROGRU" ) != mProGru
            oPDF:DrawText( oPDF:nRow+1, 10, "G:" + Str( :Number( "IEPROGRU" ), 6 ) + " - " + :String( "PROGRUDESCRI" ) )
            mProGru := :Number( "IEPROGRU" )
            oPDF:nRow += 2
            oPDF:MaxRowTest()
         ENDIF
         IF nOpcOrdem == 4 .AND. :Number( "IETRIPRO" ) != mTriPro
            oPDF:DrawText( oPDF:nRow+1, 15, "T:" + Str( :Number( "IETRIPRO" ), 6 ) + " - " + :String( "TRIPRODESCRI" ) )
            mTriPro := :Number( "IETRIPRO" )
            oPDF:nRow += 3
            oPDF:MaxRowTest()
         ENDIF
         oPDF:DrawText( oPDF:nRow, 20, Str( :Number( "IDPRODUTO" ), 6 ) )
         oPDF:DrawText( oPDF:nRow, oPDF:nCol + 2, :String( "IEDESCRI", 60 ) )
         oPDF:DrawText( oPDF:nRow, oPDF:nCol + 2, :String( "IEUNID", 6 ) )
         oPDF:DrawText( oPDF:nRow, oPDF:nCol + 2, :Number( "IEPESLIQ" ), PicVal( 9, 3 ) )
         oPDF:DrawText( oPDF:nRow, oPDF:nCol + 2, :Number( "IEPESBRU" ), PicVal( 9, 3 ) )
         oPDF:DrawText( oPDF:nRow, oPDF:nCol + 2, Ltrim( Str( :Number( "IEALTURA" ) ) ) + "x" + ;
            Ltrim( Str( :Number( "IELARGURA" ) ) ) + "x" + Ltrim( Str( :Number( "IEPROFUND" ) ) ) )
         oPDF:nRow += 1
         :MoveNext()
      ENDDO
      :CloseRecordset()
   ENDWITH
   oPDF:End()

   RETURN NIL


relatorio.png
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 12834
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 13 vezes
Mens.Curtidas: 817 vezes

Meu modo de trabalho

Mensagempor JoséQuintas » 02 Abr 2020 13:01

Comentários sobre o relatório anterior:

Em DBF, abria produtos (JPITEM) e JPAUXILIAR pras tabelas auxiliares.
Acho que nem precisa dizer, mas precisava posicionar departamento, seção, grupo, tributação. (SEEK com o índice correto).
Também precisava indexar, conforme a ordem.
E mais os IFs. conforme a seleção, para os filtros.

Em SQL... os IFs continuam, mas pra montagem do comando SQL.
E o comando SQL substituiu tudo.

Nenhum arquivo aberto, nenhuma preocupação com índice, apenas um comando SQL que pede tudo e vém pronto.
É praticamente um comando SQL, e imprimir.
Dá até pra pensar em expandir as opções, porque vai ser mexer no comando SQL, e mexer na impressão.

No final, relatório de cadastro, ou um mais "sofisticado", podem ficar relativamente iguais.
Lógico, sempre tem exceções, mas na regra geral seria isso.

Acaba se tornando relativamente mais fácil fazer manutenção em um relatório. (ou pra apresentação em tela com um browse).

Está aí, não tinha pensado nisso, mas.....
Agora poderia dar a opção de fazer um browse ao invés do relatório, usando o resultado do comando SQL !!!
Ou pra gerar em Excel !!!

Vixe... ainda migrando e novas possibilidades aparecendo....

Pois é... chamar a atenção de novo pra isso: só trocando DBF pra MySQL, e facilidades começando a aparecer.
De repente, qualquer relatório pra Excel ou outra coisa...
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 12834
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 13 vezes
Mens.Curtidas: 817 vezes

Meu modo de trabalho

Mensagempor JoséQuintas » 04 Abr 2020 01:00

Um outro fonte alterado.
Apesar de relativamente simples, é mais interessante.

FUNCTION MsgSemRegra( cModulo )

   LOCAL cTexto := ""

   hb_Default( @cModulo, m_Prog )

   cTexto += "REGRA DE TRIBUTAÇÃO:" + hb_eol()
   cTexto += hb_eol()
   cTexto += "Transação..........: "
   IF Empty( jppedido->pdTransa )
      cTexto += MSG_DESCONHECIDO
   ELSE
      cTexto += jppedido->pdTransa + " " + DescricaoJPTRANSA( jppedido->pdTransa )
   ENDIF
   cTexto += hb_eol() + hb_eol()
   cTexto += "Tributação UF......: "
   IF Empty( jpuf->ufTriUf )
      cTexto += MSG_DESCONHECIDO
   ELSE
      cTexto += jpuf->ufTriUf + " " + Trim( AUXTRIUFClass():Descricao( jpuf->ufTriUf ) )
   ENDIF
   cTexto += hb_eol()
   cTexto += Space(10) + jpcadastro->cdUf
   cTexto += hb_eol() + hb_eol()
   cTexto += "Tributação Cadastro: "
   IF Empty( jpcadastro->cdTriCad )
      cTexto += MSG_DESCONHECIDO
   ELSE
      cTexto += jpcadastro->cdTriCad + " " + Trim( AUXTRICADClass():Descricao( jpcadastro->cdTriCad ) )
   ENDIF
   cTexto += hb_eol()
   cTexto += Space(10) + jpcadastro->idCadastro + " " + jpcadastro->cdNome
   cTexto += hb_eol() + hb_eol()
   Encontra( jpcadastro->cdUf, "jpuf", "numlan" )
   cTexto += "Tributação Produto.: "
   IF Empty( jpitem->ieTriPro )
      cTexto += MSG_DESCONHECIDO
   ELSE
      cTexto += jpitem->ieTriPro + " " + Trim( AUXTRIPROClass():Descricao( jpitem->ieTriPro ) )
   ENDIF
   cTexto += hb_eol()
   cTexto += Space(10) + jpitem->idProduto + " " + jpitem->ieDescri
   cTexto += hb_eol() + hb_eol()
   IF Empty( jpitped->ipPisCst )
      cTexto += "*** produto sem CST PIS ***" + hb_eol()
   ENDIF
   cTexto += "Posição:" + cModulo + hb_eol()
   cTexto += hb_eol()
   cTexto += "Não foi encontrada uma regra de tributação para essa combinação de informações" + hb_eol()
   cTexto += "Pode ser alguma informação errada, ou falta cadastrar uma regra de tributação com esta combinação" + hb_eol()
   cTexto += "Se for na confirmação do pedido, pode faltar passar na digitação de produto pra atualizar pedido" + hb_eol()

   MsgWarning( cTexto )

   RETURN NIL


O que ele usa:
- JPITPED - produtos dos pedidos
- JPPEDIDO - pedidos
- JPCADASTRO - cadastros
- JPTRANSA - transação
- JPITEM - produtos
- JPUF - pra UFs
- JPAUXILIAR - para descrição de tributação de UF
- JPAUXILIAR - pra descrição de tributação de cadastro
- JPAUXILIAR - pra descrição de tributação de produto
Por isso é interessante: são 7 DBFs, mas equivalente a 9 DBFs.

Como ficou em SQL: o de sempre, o comando e o uso do resultado.

FUNCTION MsgSemRegra( mIdItPed, cModulo )

   LOCAL cTexto := ""
   LOCAL cnSQL := ADOClass():New( AppConexao() )

   hb_Default( @cModulo, m_Prog )

   WITH OBJECT cnSQL
      :cSQL := "SELECT" + ;
         " JPPEDIDO.PDTRANSA, JPTRANSA.TRDESCRI," + ;
         " JPPEDIDO.PDCADASTRO, JPCADASTRO.CDNOME, JPCADASTRO.CDTRICAD, TRICAD.AXDESCRI AS TRICADDESCRI," + ;
         " JPCADASTRO.CDUF, JPUF.UFTRIUF, TRIUF.AXDESCRI AS TRIUFDESCRI," + ;
         " JPITPED.IPPRODUTO, JPITEM.IEDESCRI, JPITEM.IETRIPRO, TRIPRO.AXDESCRI AS TRIPRODESCRI" + ;
         " FROM JPITPED" + ;
         " LEFT JOIN JPPEDIDO ON JPPEDIDO.IDPEDIDO = JPITPED.IPPEDIDO" + ;
         " LEFT JOIN JPITEM ON JPITEM.IDPRODUTO = JPITPED.IPPRODUTO" + ;
         " LEFT JOIN JPCADASTRO ON JPCADASTRO.IDCADASTRO = JPPEDIDO.PDCADASTRO" + ;
         " LEFT JOIN JPTRANSA ON JPTRANSA.IDTRANSA = JPPEDIDO.PDTRANSA" + ;
         " LEFT JOIN JPUF ON JPUF.UFUF = JPCADASTRO.CDUF" + ;
         " LEFT JOIN JPAUXILIAR AS TRICAD ON TRICAD.AXTABELA = " + StringSQL( AUX_TRICAD ) + ;
            " AND TRICAD.AXCODIGO = JPCADASTRO.CDTRICAD" + ;
         " LEFT JOIN JPAUXILIAR AS TRIPRO ON TRIPRO.AXTABELA = " + StringSQL( AUX_TRIPRO ) + ;
            " AND TRIPRO.AXCODIGO = JPITEM.IETRIPRO" + ;
         " LEFT JOIN JPAUXILIAR AS TRIUF ON TRIUF.AXTABELA = " + StringSQL( AUX_TRIUF ) + ;
            " AND TRIUF.AXCODIGO = JPUF.UFTRIUF" + ;
         " WHERE JPITPED.IDITPED = " + NumberSQL( midItPed )
      :Execute()
      cTexto += "REGRA DE TRIBUTAÇÃO:" + hb_eol()
      cTexto += hb_eol()
      cTexto += "Transação..........: "
      IF :Number( "PDTRANSA" ) == 0
         cTexto += MSG_DESCONHECIDO
      ELSE
         cTexto += Str( :Number( "PDTRANSA" ), 6 ) + " " + :String( "TRDESCRI" )
      ENDIF
      cTexto += hb_eol() + hb_eol()
      cTexto += "Tributação UF......: "
      IF :Number( "UFTRIUF" ) = 0
         cTexto += MSG_DESCONHECIDO
      ELSE
         cTexto += Str( :Number( "UFTRIUF" ), 6 ) + " " + :String( "TRIUFDESCRI" )
      ENDIF
      cTexto += hb_eol()
      cTexto += Space(10) + :String( "CDUF", 2 )
      cTexto += hb_eol() + hb_eol()
      cTexto += "Tributação Cadastro: "
      IF :Number( "CDTRICAD" ) == 0
         cTexto += MSG_DESCONHECIDO
      ELSE
         cTexto += Str( :Number( "CDTRICAD" ), 6 )+ " " + :String( "TRICADDESCRI" )
      ENDIF
      cTexto += hb_eol()
      cTexto += Space(10) + Str( :Number( "PDCADASTRO" ), 6 ) + " " + :String( "CDNOME" )
      cTexto += hb_eol() + hb_eol()
      cTexto += "Tributação Produto.: "
      IF :Number( "IETRIPRO" ) == 0
         cTexto += MSG_DESCONHECIDO
      ELSE
         cTexto += Str( :Number( "IETRIPRO" ), 6 ) + " " + :String( "TRIPRODESCRI" )
      ENDIF
      cTexto += hb_eol()
      cTexto += Space(10) + Str( :Number( "IPPRODUTO" ), 6 ) + " " + :String( "IEDESCRI" )
      cTexto += hb_eol() + hb_eol()
      cTexto += "Posição:" + cModulo + hb_eol()
      cTexto += hb_eol()
      cTexto += "Não foi encontrada uma regra de tributação para essa combinação de informações" + hb_eol()
      cTexto += "Pode ser alguma informação errada, ou falta cadastrar uma regra de tributação com esta combinação" + hb_eol()
      cTexto += "Se for na confirmação do pedido, pode faltar passar na digitação de produto pra atualizar pedido" + hb_eol()
      :CloseRecordset()
   ENDWITH
   MsgWarning( cTexto )

   RETURN NIL


Parece complicado, mas é o de sempre.

SELECT com a seleção dos campos que interessam

" JPPEDIDO.PDTRANSA, JPTRANSA.TRDESCRI," + ;
" JPPEDIDO.PDCADASTRO, JPCADASTRO.CDNOME, JPCADASTRO.CDTRICAD, TRICAD.AXDESCRI AS TRICADDESCRI," + ;
" JPCADASTRO.CDUF, JPUF.UFTRIUF, TRIUF.AXDESCRI AS TRIUFDESCRI," + ;
" JPITPED.IPPRODUTO, JPITEM.IEDESCRI, JPITEM.IETRIPRO, TRIPRO.AXDESCRI AS TRIPRODESCRI" + ;

se quiser comparar com DBF, seria só trocar o ponto pelo ->
por exemplo, jpcadastro.cdnome, equivale a jpcadastro->cdnome, seria o campo CDNOME que está na tabela JPCADASTRO

FROM com a indicação de onde vém

FROM JPITPED - vém dos produtos dos pedidos (itens do pedido)

LEFT JOIN é o relacionamento, pra "ensinar" o MySQL qual a ligação/relacionamento entre os arquivos

" LEFT JOIN JPPEDIDO ON JPPEDIDO.IDPEDIDO = JPITPED.IPPEDIDO" + ;
vai usar o campo jpitped->ipPedido pra procurar nos pedidos o jppedido->idPedido com mesmo número

WHERE pra indicar o filtro

" WHERE JPITPED.IDITPED = " + NumberSQL( midItPed )
Vai procurar o lançamento de produto para um pedido, aonde a identificação desse lançamento é esse número

Em termos práticos: a partir do lançamento no pedido, vai pesquisar todas as informações relacionadas a ele. (as que interessam neste fonte)
E isso é feito usando um único comando SQL.
Então, o comando diz qual a informação, e como o servidor vai fazer pra pegar a informação.

O comando grande não significa que vai demorar mais.
Por último: o retorno, NESSE CASO, é apenas um registro com todo conteúdo indicado.
A partir daí, só usar o registro.

Nota:
Só lembrando que eu decidi fazer desse jeito, não significa que é a única forma de fazer isso.
E esses relacionamentos poderiam já ter sido definidos previamente na própria base de dados, e nem precisar colocar no comando.
É só uma das muitas possibilidades de se fazer isso.
Ainda estou saindo dos DBFs... vou fazendo do jeito que conheço...
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 12834
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 13 vezes
Mens.Curtidas: 817 vezes

Meu modo de trabalho

Mensagempor JoséQuintas » 05 Abr 2020 18:27

Este tive que apelar pra algum método de debug, porque estava falhando.
Agora resolvido.
Acho que o nome diz tudo.

METHOD CalculaImpostosProduto( mIdItPed ) CLASS SubPedidoClass

   LOCAL mipIcmBas, mipIcmAli, mipIcmRed, mipIcmVal, mipCfop, mipTribut, mipIpiCst, mipIpiEnq
   LOCAL mipFcpAli, mipFcpVal, mipIcmCst, mipPisCst, mipPisEnq, mipCofCst, mipCofEnq
   LOCAL mipIpiBas, mipIpiAli, mipIpiVal, mipImpAli, mipImpVal
   LOCAL mipIssBas, mipIssAli, mipIssVal
   LOCAL mipPisBas, mipPisAli, mipPisVal
   LOCAL mipCofBas, mipCofAli, mipCofVal
   LOCAL mipSubBas, mipSubIva, mipSubAli, mipSubRed, mipSubVal
   LOCAL mipValNot, mipIIBas, mipIIVal
   LOCAL mipIcsBas, mipIcsVal, mipIcsAli, mipIpiIcm
   LOCAL mipValPro, mipValFre, mipValSeg, mipValOut, nCont, mipLeis, mTmpLei, mipValExt
   LOCAL mipValDes, mipIIAli, mipDifAlii, mipDifAliu, mipDifAlif, mipDifVali, mipDifValf, mipDifBas, mipDifCal
   LOCAL cnSQL := ADOClass():New( AppConexao() )

   IF mIdItPed == 0
      RETURN NIL
   ENDIF
   WITH OBJECT cnSQL
      :cSQL := ;
         " SELECT JPITPED.*," + ;
         " JPPEDIDO.PDTRANSA," + ;
         " JPCADASTRO.CDUFENT, JPCADASTRO.CDTRICAD," + ;
         " JPITEM.IETRIPRO," + ;
         " JPUF.UFTRIUF," + ;
         " JPTRANSA.TRREACAO," + ;
         " JPIBPT.IBNACALI," + ;
         " JPIBPT.IBIMPALI," + ;
         " JPIMPOSTO.*" + ;
         " FROM JPITPED" + ;
         " LEFT JOIN JPPEDIDO ON JPPEDIDO.IDPEDIDO = JPITPED.IPPEDIDO" + ;
         " LEFT JOIN JPCADASTRO ON JPCADASTRO.IDCADASTRO = JPPEDIDO.PDCADASTRO" + ;
         " LEFT JOIN JPITEM ON JPITEM.IDPRODUTO = JPITPED.IPPRODUTO" + ;
         " LEFT JOIN JPUF ON JPUF.UFUF = JPCADASTRO.CDUFENT" + ;
         " LEFT JOIN JPTRANSA ON JPTRANSA.IDTRANSA = JPPEDIDO.PDTRANSA" + ;
         " LEFT JOIN JPIMPOSTO" + ;
         " ON  JPIMPOSTO.IMTRANSA = JPPEDIDO.PDTRANSA" + ;
         " AND JPIMPOSTO.IMTRIUF = JPUF.UFTRIUF" + ;
         " AND JPIMPOSTO.IMTRICAD = JPCADASTRO.CDTRICAD" + ;
         " AND JPIMPOSTO.IMTRIPRO = JPITEM.IETRIPRO" + ;
         " LEFT JOIN JPIBPT ON JPIBPT.IBCODIGO = JPITEM.IENCM" + ;
         " WHERE IDITPED = " + NumberSQL( midItPed )
      :Execute()
      MsgExclamation( ;
         "pdtransa: " + :String( "PDTRANSA" ) + hb_Eol() + ;
         "triuf: " + :String( "UFTRIUF" ) + hb_Eol() + ;
         "tricad:" + :String( "CDTRICAD" ) + hb_Eol() + ;
         "tripro:" + :String( "IETRIPRO" ) + hb_Eol() + ;
         "tribut:" + :String( "IDIMPOSTO" ) + hb_Eol() + ;
         "ok" )
...


É o uso do anterior, regra de tributação, e algo mais.

Por enquanto me limitando a converter de DBF pra MySQL.
Provavelmente não precisaria fazer um produto por vez, mas preciso alterar com cuidado, e por enquanto ainda tem a gravação em DBF compatível.
Depois.... quando não precisar mais do DBF, e apagar o DBF, aí vou repassar pra fazer mais coisas por vez.
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 12834
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 13 vezes
Mens.Curtidas: 817 vezes

Meu modo de trabalho

Mensagempor JoséQuintas » 06 Abr 2020 15:34

Só a título de curiosidade:

   IF ! Encontra( jppedido->pdCadastro, "jpcadastro", "numlan" ) .AND. jppedido->pdConf != "S"
      MsgWarning( "INVÁLIDO! Cliente sem cadastro!" )
      RETURN .F.
   ENDIF
   IF ! jpcadastro->cdSitFaz $ " 1"
      MsgStop( "INVÁLIDO! Irregularidade do cadastro na SEFAZ!" )
      RETURN .F.
   ENDIF


Seria fácil alterar o primeiro IF pra ADO.
Mas o segundo IF, e provavelmente mais coisas no fonte, dependem do posicionamento do cliente, que é feito no primeiro IF.
É por isso que as alterações precisam ser feitas devagar.
Lógico... um SELECT detalhado no MySQL pode acabar atendendo o fonte inteiro.

Por isso, às vezes é melhor reorganizar o fonte primeiro, pra facilitar o que vém depois.
De repente até ajeitar o fonte para pegar tudo do dbf logo no começo, e depois só substituir para um comando SQL.
Cada caso é um caso.... cada fonte é um fonte, que pode ter solução igual ou diferente do que já foi feito antes.

Lembrando: no meu caso, tem tudo no DBF ou no MySQL, então estou eliminando a necessidade de pegar do DBF - mantendo posicionamento do DBF apenas aonde grava - enquanto precisa dele.
Devagar tá indo...
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 12834
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 13 vezes
Mens.Curtidas: 817 vezes

Meu modo de trabalho

Mensagempor JoséQuintas » 06 Abr 2020 16:42

Também a título de curiosidade....

Tive que trocar a versão no cliente, durante as alterações....
Ok, sem problemas, apenas confirmei se era melhor cancelar o que estava pela metade, ou terminar e instalar.

E surgiu um problema: o produto estava no MYSQL mas NÃO no DBF.

Cadastrei o código no DBF, entrei na alteração do cadastro, e fui até o final.
Ao terminar, atualizou também esse código equivalente no DBF.
É... se não fosse o DBF não teria problema kkkk
Mas é lógico, NÃO é problema em usar DBF, é porque cometi algum erro, e não gravou no DBF.

Esse problema aconteceu com versão anterior, que estava em uso.
Até revisei na versão atual, mas parece tudo ok.
Por enquanto é aguardar se vai acontecer de novo.

Pois é... trata-se de uma alteração geral, alterar devagar e com cuidado não significa que não acontecem problemas...
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 12834
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 13 vezes
Mens.Curtidas: 817 vezes

Anterior



Retornar para Contribuições, Dicas e Tutoriais

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 21 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro