6 |
<!-- observations (text) --> |
<!-- observations (text) --> |
7 |
|
|
8 |
<form tabbed="top" width="107" height="24" title="Carga de Remitos de Proveedores"> |
<form tabbed="top" width="107" height="24" title="Carga de Remitos de Proveedores"> |
9 |
|
<neb:Block> |
10 |
|
use PAPO; |
11 |
|
my $uniqed=0; |
12 |
|
</neb:Block> |
13 |
<parameter name="despatchNoteDate" default=""/> |
<parameter name="despatchNoteDate" default=""/> |
14 |
|
|
15 |
<datasource name="nil" cache="1"/> |
<datasource name="nil" cache="1"/> |
792 |
rollbackConnection () |
rollbackConnection () |
793 |
genericBox ('Hay problemas para grabar %s: %s.\nLos datos no han sido grabados.' % (errors[commitProgress], err), ['Aceptar']) |
genericBox ('Hay problemas para grabar %s: %s.\nLos datos no han sido grabados.' % (errors[commitProgress], err), ['Aceptar']) |
794 |
else: |
else: |
795 |
# sure this is what we want? |
if alienItemBlock.getRecordCount() > 0 and len(alienItemBlock.qtyEntry) > 0 and len(alienItemBlock.productEntry) > 0: |
796 |
alienDocumentBlock.clear() |
alienDocumentBlock.idEntry.autofillBySequence('alien_document_id_seq') |
797 |
|
alienDocumentBlock.ownEntityIdEntry = str(ownPosBlock.ownPosEntityIdEntry) |
798 |
|
alienDocumentBlock.commit() |
799 |
|
lAlienDocId = str(alienDocumentBlock.idEntry) |
800 |
|
setFocus(alienDocumentBlock.dateEntry) |
801 |
|
alienItemToUpdBlock.initQuery() |
802 |
|
alienItemToUpdBlock.alienDocumentToUpdEntry = lAlienDocId |
803 |
|
#storehouse |
804 |
|
alienItemToUpdBlock.storehouseEntry = str(ownStorehouseBlock.ownStorehouseIdEntry) |
805 |
|
#/storehouse |
806 |
|
alienItemToUpdBlock.processQuery() |
807 |
|
lRecordCount = alienItemToUpdBlock.getRecordCount() |
808 |
|
for recNum in range(lRecordCount): |
809 |
|
alienItemToUpdBlock.jumpRecord(recNum) |
810 |
|
alienItemToUpdBlock.levelEntry.atomicModify(lambda x:x+round(float(str(alienItemToUpdBlock.qtyEntry)),4)) |
811 |
|
alienItemToUpdBlock.clear() |
812 |
|
else: |
813 |
|
alienDocumentBlock.clear() |
814 |
|
|
815 |
|
|
816 |
callTrigger('rollbackTrigger') |
callTrigger('rollbackTrigger') |
817 |
</trigger> |
</trigger> |
1259 |
</block> |
</block> |
1260 |
</box> |
</box> |
1261 |
<neb:Sub neb:src="posDocument.nebc" ownPosBlock="ownPosBlock" |
<neb:Sub neb:src="posDocument.nebc" ownPosBlock="ownPosBlock" |
1262 |
ownPosEntityIdEntry="ownPosEntityIdEntry" searchOwnPosData="searchOwnPosData" /> |
ownPosEntityIdEntry="ownPosEntityIdEntry" |
1263 |
<box height="14" label="Remitos encontradas" name="searchResultBox" |
searchOwnPosData="searchOwnPosData" |
1264 |
|
ownStorehouseBlock ="ownStorehouseBlock" ownStorehouseIdEntry="ownStorehouseIdEntry" /> |
1265 |
|
<box height="14" label="Remitos encontradas" name="searchResultBox" |
1266 |
width="107" x="0" y="11"> |
width="107" x="0" y="11"> |
1267 |
<block datasource="resultAlienDocumentDataSource" name="resultBlock"> |
<block datasource="resultAlienDocumentDataSource" name="resultBlock"> |
1268 |
|
|