¸ñÈ­¿¬
»ç´ÂÀ̾߱â
±â¼úÁö¿ø
ȸ¿ø°Ô½ÃÆÇ
°øÁö»çÇ×
ÀÚ·á½Ç
º£Å¸Å×½ºÅÍ
»ç´ÂÀ̾߱â
 
ÀÛ¼ºÀÏ : 10-08-09 22:55
[¼¼»ó»ç´ÂÀ̾߱â] ÀÌÀÚ º¸´Ù ´õ ¾î·Á¿î ÀÔ±ÝÀ» ¸ÂÃß´Ù...
 ±Û¾´ÀÌ : ±Ç¿ÀÁØ
Á¶È¸ : 7,280  
ÀÔ±Ý ¿¹Á¤ÀÏ + ÀԱݿ¹Á¤ ±Ý¾×ÀÌ Àִµ¥ ¹ÝÇØ
 
µé¾î¿Â ±Ý¾×Àº partial·Î ¾î´À°Ô ¾î´À°ÍÀÎÁö ¸ð¸£°Ô µé¾î ¿Â case°¡ ÀÖ½À´Ï´Ù.
 
1.ÀÏ´Ü µé¾î¿Â »ç¶÷µé ¸ñ·ÏÀ» ´ÙÀ½
2.µé¾î¿Â°Í ¸ñ·ÏÀ¸·Î ¸¸µì´Ï´Ù.
3.ÀÔ±Ý ¿¹Á¤ ¸ñ·ÏÀ» ¸¸µì´Ï´Ù.
 
1ÀÇ Á¶°ÇÀ¸·Î whileÀ» ¸¸µë !Eof
2ÀÇ Á¶°Ç°ªÀ» °¡Á®¿Í¼­ while·Î ¸¸µë !Eof
3ÀÇ Á¶°Ç°ªÀ» °¡Á®¿Í¼Ò while·Î ¸¸µë .t.
 
2ÀÇ ±Ý¾×À» 3ÀÇ °ªÀ» »©°í ³²À¸¸é
     3ÀÇ ´ÙÀ½À¸·Î ³Ñ°Å°¨
3ÀÇ °ªÀÌ ´õ ¸¹À¸¸é 2ÀÇ ³²Àº °ªÀ» ±â¾ïÇÏ°í
   2ÀÇ ´ÙÀ½ °ªÀ¸·Î skip
   2°ªÀ» 3°ú °è¼Ó ºñ±³
 
 
ÀÌ·±½ÄÀ¸·Î ÇÁ·Î±×·¥À» ¸¸µé¾î ÇØ°áÇß½À´Ï´Ù ¤Ð¤Ð
 
 
   KMPAY->( dbGotop() )
   oMeter := TDrMeta():New( "Converting...", "Wait...", KMPAY->( RecCount() ) )

   WHILE !KMPAY->(Eof())
         cQuery := "select * from m_pay where J_NO = " + ALLTRIM( KMPAY->J_NO ) + " and pay_code='001' order by pay_code2,pay_date"
         ::oPayDb:Query( cQuery,,,,,.f.)
         oMeter:SetData( ++nCounter )
         KMPAY2->(OrdScope( 0, KMPAY->J_NO ))
         KMPAY2->(OrdScope( 1, KMPAY->J_NO ))
         KMPAY2->(dbGotop())

         WHILE !KMPAY2->(Eof())
               nMoney    := KMPAY2->J_MONEY
               nInMoney  := 0
               WHILE .T.
                     //kmpay2->(dr_browse())
                     //::oPayDb:Browse()
                     IF nMoney - (::oPayDb:PAY_MONEY - nInMoney) >= 0
                        ::oPayDb:PAY_IN_MONEY := ::oPayDb:PAY_MONEY
                        ::oPayDb:PAY_IN_DATE  := KMPAY2->J_DATE
                        nMoney   := nMoney - (::oPayDb:PAY_MONEY - nInMoney)
                        nInMoney := 0
                        ::oPayDb:update()

                        ::oPayInDb:Blank()
                        ::oPayInDb:CITY_CODE       := "002"
                        ::oPayInDb:J_NO            := KMPAY->J_NO
                        ::oPayInDb:PAY_CODE        := ::oPayDb:PAY_CODE
                        ::oPayInDb:PAY_CODE2       := ::oPayDb:PAY_CODE2
                        ::oPayInDb:PAY_NAME        := ::oPayDb:PAY_NAME
                        ::oPayInDb:PAY_IN_DATE     := KMPAY2->J_DATE
                        ::oPayInDb:PAY_IN_MONEY    := ::oPayDb:PAY_MONEY
                        ::oPayInDb:PAY_BANK        := KMPAY2->J_BANK
                        ::oPayInDb:PAY_SENDER      := KMPAY2->J_NAME

                        ::oPayInDb:Insert()
                        ::oPayDb:Skip()
 
                     ELSE
                        nInMoney += nMoney
                        KMPAY2->(dbSkip())
                        nMoney := KMPAY2->J_MONEY
                     ENDIF
                     IF nMoney == 0
                        EXIT
                     ENDIF
                     IF KMPAY2->(Eof())
                        EXIT
                     ENDIF
               ENDDO
               KMPAY2->( dbSkip() )
         ENDDO

         IF nInMoney > 0
            KMPAY2->( dbSkip(-1) )
            ::oPayDb:PAY_IN_MONEY := nInMoney
            ::oPayDb:PAY_IN_DATE  := KMPAY2->J_DATE
            ::oPayDb:update()
            ::oPayInDb:CITY_CODE       := "002"
            ::oPayInDb:J_NO            := KMPAY->J_NO
            ::oPayInDb:PAY_CODE        := ::oPayDb:PAY_CODE
            ::oPayInDb:PAY_CODE2       := ::oPayDb:PAY_CODE2
            ::oPayInDb:PAY_NAME        := ::oPayDb:PAY_NAME
            ::oPayInDb:PAY_IN_DATE     := KMPAY2->J_DATE
            ::oPayInDb:PAY_IN_MONEY    := nInMoney
            ::oPayInDb:PAY_BANK        := KMPAY2->J_BANK
            ::oPayInDb:PAY_SENDER      := KMPAY2->J_NAME

            ::oPayInDb:Insert()
         ENDIF
         KMPAY->( dbSkip() )
   ENDDO
 
   oMeter:End()

 
 

 
Total 303
¹øÈ£ Á¦   ¸ñ ±Û¾´ÀÌ ³¯Â¥ Á¶È¸
228   [¼¼»ó»ç´ÂÀ̾߱â] °­È­µµ ¶°³ª±âÀü¿¡ ¿À½ÂÇö 04-17 7186
227   [¼¼»ó»ç´ÂÀ̾߱â] ¹èÆ÷¸¦ ½±°Ô... (2) ±Ç¿ÀÁØ 07-03 7193
226   [¼¼»ó»ç´ÂÀ̾߱â] ȨÇÇ»çÁø ±è´ëÇö 05-16 7194
225   [¼¼»ó»ç´ÂÀ̾߱â] 15ÀÏ ÁÖ´ç Àç°á¼º (3) ±Ç¿ÀÁØ 12-13 7210
224   [¼¼»ó»ç´ÂÀ̾߱â] ¾È³çÇϽʴϱî? (1) ±è¿µ½Å 06-14 7213
223   [¼¼»ó»ç´ÂÀ̾߱â] »õÇØ°¡ ¹à¾Ò½À´Ï´Ù. ÃÖ°æ¶ô 01-05 7216
222   [¼¼»ó»ç´ÂÀ̾߱â] ±Ç»çÀå´Ô drzwin, drmysql5 ¿¡·¯Á» ºÁÁÖ¼¼¿ä ¤Ð¤Ð (1) À̺´È« 08-27 7218
221   [µî±Þ¾÷¿äû] ±ÛµéÀ» º¼¼ö°¡ ¾ø¾î¿ä~~~¤Ì.¤Ì BKLoVe 01-19 7219
220   [¼¼»ó»ç´ÂÀ̾߱â] ADS Server ±Ç¿ÀÁØ 05-15 7227
219   [¼¼»ó»ç´ÂÀ̾߱â] Á¦°¡ µå¸° ¼Ò½ºÁß¿¡... ±Ç¿ÀÁØ 03-02 7227
218   [¼¼»ó»ç´ÂÀ̾߱â] »õ·Î¿î FrameWorkÁ¦ÀÛ ±Ç¿ÀÁØ 02-03 7240
217   [¼¼»ó»ç´ÂÀ̾߱â] »õ´ÜÀå ÃàÇÏ (2) ÀÌ¿ø°è 05-21 7273
216   [¼¼»ó»ç´ÂÀ̾߱â] ¾Æ³»±¸ÇÔ ±Ç¿ÀÁØ 07-05 7279
215   [¼¼»ó»ç´ÂÀ̾߱â] ÀÌÀÚ º¸´Ù ´õ ¾î·Á¿î ÀÔ±ÝÀ» ¸ÂÃß´Ù... ±Ç¿ÀÁØ 08-09 7281
214   [¼¼»ó»ç´ÂÀ̾߱â] MySQL5 Upgrade°³¼±»çÇ× ±Ç¿ÀÁØ 07-13 7285
 1  2  3  4  5  6  7  8  9  10    
COPYRIGHT© Fivetech.net. All RIGHTS RESERVED.
For more information webmaster | webmaster@fivetech.net | Tel 02-566-6826 | (ÇØ¿Ü) +82-2-566-6826